(lander) Draw stage
This commit is contained in:
Devine Lu Linvega
parent
d2c67127d9
commit
39f232b125
|
|
@ -6,12 +6,15 @@
|
|||
|30 @Audio0 &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1
|
||||
|80 @Controller &vector $2 &button $1 &key $1
|
||||
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $1
|
||||
|c0 @DateTime &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1
|
||||
|
||||
|0000
|
||||
|
||||
@pos &x $2 &y $2
|
||||
@force &x $2 &y $2
|
||||
@angle $2
|
||||
@stage
|
||||
&w $1 &h $1 &id $2
|
||||
|
||||
|0100 ( -> )
|
||||
|
||||
|
|
@ -20,14 +23,19 @@
|
|||
#0f0f .System/g DEO2
|
||||
#0f0f .System/b DEO2
|
||||
( resize )
|
||||
#0200 .Screen/width DEO2
|
||||
#0160 .Screen/height DEO2
|
||||
#0260 .Screen/width DEO2
|
||||
#01a0 .Screen/height DEO2
|
||||
( vectors )
|
||||
;on-frame .Screen/vector DEO2
|
||||
;on-control .Controller/vector DEO2
|
||||
prng-init
|
||||
( get stage )
|
||||
.Screen/width DEI2 #03 SFT2 NIP .stage/w STZ
|
||||
.Screen/height DEI2 #03 SFT2 NIP .stage/h STZ
|
||||
|
||||
#0100 .pos/x STZ2
|
||||
#00a0 .pos/y STZ2
|
||||
set-terrain
|
||||
redraw
|
||||
|
||||
BRK
|
||||
|
|
@ -40,16 +48,16 @@ BRK
|
|||
[ LIT &f $1 ] INCk ,&f STR
|
||||
#01 AND ?&no-read
|
||||
.Controller/button DEI
|
||||
DUP #10 NEQ ?&no-u
|
||||
DUP #10 AND #00 EQU ?&no-u
|
||||
.angle LDZ2 thruster
|
||||
&no-u
|
||||
DUP #20 NEQ ?&no-d
|
||||
DUP #20 AND #00 EQU ?&no-d
|
||||
#0010 .force/y STZ2
|
||||
&no-d
|
||||
DUP #40 NEQ ?&no-l
|
||||
DUP #40 AND #00 EQU ?&no-l
|
||||
.angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2
|
||||
&no-l
|
||||
DUP #80 NEQ ?&no-r
|
||||
DUP #80 AND #00 EQU ?&no-r
|
||||
.angle LDZ2 INC2 #001f AND2 .angle STZ2
|
||||
&no-r
|
||||
POP
|
||||
|
|
@ -58,6 +66,7 @@ BRK
|
|||
apply-force
|
||||
( .force/y LDZ2 phex #0a18 DEO )
|
||||
redraw
|
||||
draw-stage
|
||||
|
||||
BRK
|
||||
|
||||
|
|
@ -81,7 +90,6 @@ BRK
|
|||
DUP #80 AND #00 NEQ STH #ff00 STHr [ JMP SWP POP ] SWP
|
||||
reduce3
|
||||
.force/y LDZ2 ADD2 .force/y STZ2
|
||||
|
||||
#08 ;draw-lander/plume STA
|
||||
|
||||
JMP2r
|
||||
|
|
@ -115,6 +123,53 @@ JMP2r
|
|||
JMP2r
|
||||
&neg abs2 #05 SFT2 #0000 SWP2 SUB2 JMP2r
|
||||
|
||||
(
|
||||
@|terrain )
|
||||
|
||||
@set-terrain ( -- )
|
||||
|
||||
.stage/w LDZ INC INC #00
|
||||
&loop
|
||||
( height/2 ) .stage/h LDZ #01 SFT
|
||||
( rand ) prng #0a SFT2 NIP ADD #01 SFT
|
||||
( v offset ) #10 ADD
|
||||
( store ) OVR #00 SWP ;terrain ADD2 STA
|
||||
INC GTHk ,&loop JCN
|
||||
POP2
|
||||
( soften )
|
||||
#0800
|
||||
&loop-soften
|
||||
soften
|
||||
INC GTHk ?&loop-soften
|
||||
POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@soften ( -- )
|
||||
|
||||
.stage/w LDZ #00
|
||||
&loop2
|
||||
( a ) #00 OVR ;terrain ADD2 LDA STH
|
||||
( b ) #00 OVR INC ;terrain ADD2 LDA STH
|
||||
( c ) #00 OVR INC INC ;terrain ADD2 LDA STH
|
||||
#00 STHr #00 STHr ADD2 #00 STHr ADD2 #0003 DIV2 NIP
|
||||
( store ) OVR #00 SWP ;terrain ADD2 STA
|
||||
INC GTHk ,&loop2 JCN
|
||||
POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@create-platform ( x -- height )
|
||||
|
||||
#01 SUB
|
||||
#00 SWP ;terrain ADD2 DUP2
|
||||
( average ) LDAk STH INC2 LDAk STH INC2 ADDr LDAk STH INC2 ADDr LDA STH ADDr
|
||||
LITr 04 DIVr
|
||||
( flatten ) STHkr ROT ROT STAk INC2 STAk INC2 STAk INC2 STA
|
||||
STHr
|
||||
|
||||
JMP2r
|
||||
|
||||
(
|
||||
@|drawing )
|
||||
|
||||
|
|
@ -141,7 +196,7 @@ JMP2r
|
|||
[ LIT2r &plume $1 09 ] ADDr
|
||||
#0e08 get-pt #1208 get-pt #02 draw-line
|
||||
#0e08 get-pt #10 STHkr get-pt #02 draw-line
|
||||
#1208 get-pt #10 STHr get-pt #02 draw-line
|
||||
#1208 get-pt #10 STHr get-pt #02 draw-line
|
||||
( face )
|
||||
#26 .Screen/auto DEO
|
||||
;face-icn .Screen/addr DEO2
|
||||
|
|
@ -152,17 +207,29 @@ JMP2r
|
|||
|
||||
JMP2r
|
||||
|
||||
@draw-stage ( color -- )
|
||||
|
||||
( x ) #0000 .Screen/x DEO2
|
||||
.stage/w LDZ #00
|
||||
&loop
|
||||
STHk
|
||||
( a )
|
||||
#00 OVR #30 SFT2
|
||||
#00 STHr ;terrain ADD2 STH2k LDA #01 SUB #00 SWP #30 SFT2
|
||||
( b )
|
||||
OVR2 #0008 ADD2
|
||||
STH2r INC2 LDA #01 SUB #00 SWP #30 SFT2
|
||||
#43 draw-line
|
||||
INC GTHk ?&loop
|
||||
POP2
|
||||
|
||||
JMP2r
|
||||
|
||||
@get-pt ( id rad -- x* y* )
|
||||
|
||||
#00 SWP STH2
|
||||
.angle LDZ2 #001f AND2 NIP ADD
|
||||
|
||||
!get-point/force
|
||||
|
||||
@get-point ( id -- x* y* )
|
||||
|
||||
[ LIT2r &radius $2 ]
|
||||
&force
|
||||
#1f AND DUP ADD
|
||||
#00 SWP ;circle-tbl ADD2 LDA2
|
||||
#00 SWP STH2kr MUL2 #04 SFT2
|
||||
|
|
@ -208,6 +275,33 @@ JMP2r
|
|||
|
||||
JMP2r
|
||||
|
||||
(
|
||||
@|prng )
|
||||
|
||||
@prng-init ( -- )
|
||||
|
||||
( seed )
|
||||
#00 .DateTime/second DEI
|
||||
#00 .DateTime/minute DEI #60 SFT2 EOR2
|
||||
#00 .DateTime/hour DEI #c0 SFT2 EOR2 ,prng/x STR2
|
||||
#00 .DateTime/hour DEI #04 SFT2
|
||||
#00 .DateTime/day DEI #10 SFT2 EOR2
|
||||
#00 .DateTime/month DEI #60 SFT2 EOR2
|
||||
.DateTime/year DEI2 #a0 SFT2 EOR2 ,prng/y STR2
|
||||
|
||||
JMP2r
|
||||
|
||||
@prng ( -- number* )
|
||||
|
||||
LIT2 &x $2
|
||||
DUP2 #50 SFT2 EOR2
|
||||
DUP2 #03 SFT2 EOR2
|
||||
LIT2 &y $2 DUP2 ,&x STR2
|
||||
DUP2 #01 SFT2 EOR2 EOR2
|
||||
,&y STR2k POP
|
||||
|
||||
JMP2r
|
||||
|
||||
(
|
||||
@|stdlib )
|
||||
|
||||
|
|
@ -234,3 +328,5 @@ JMP2r
|
|||
80ff 67fd 4ff6 38ea 25da 15c7 09b0 0298
|
||||
0080 0267 094f 1538 2525 3815 4f09 6702 ]
|
||||
|
||||
@terrain
|
||||
|
||||
|
|
|
|||
Loading…
Reference in New Issue