(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
|
|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
|
|80 @Controller &vector $2 &button $1 &key $1
|
||||||
|90 @Mouse &vector $2 &x $2 &y $2 &state $1 &wheel $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
|
|0000
|
||||||
|
|
||||||
@pos &x $2 &y $2
|
@pos &x $2 &y $2
|
||||||
@force &x $2 &y $2
|
@force &x $2 &y $2
|
||||||
@angle $2
|
@angle $2
|
||||||
|
@stage
|
||||||
|
&w $1 &h $1 &id $2
|
||||||
|
|
||||||
|0100 ( -> )
|
|0100 ( -> )
|
||||||
|
|
||||||
|
|
@ -20,14 +23,19 @@
|
||||||
#0f0f .System/g DEO2
|
#0f0f .System/g DEO2
|
||||||
#0f0f .System/b DEO2
|
#0f0f .System/b DEO2
|
||||||
( resize )
|
( resize )
|
||||||
#0200 .Screen/width DEO2
|
#0260 .Screen/width DEO2
|
||||||
#0160 .Screen/height DEO2
|
#01a0 .Screen/height DEO2
|
||||||
( vectors )
|
( vectors )
|
||||||
;on-frame .Screen/vector DEO2
|
;on-frame .Screen/vector DEO2
|
||||||
;on-control .Controller/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
|
#0100 .pos/x STZ2
|
||||||
#00a0 .pos/y STZ2
|
#00a0 .pos/y STZ2
|
||||||
|
set-terrain
|
||||||
redraw
|
redraw
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
@ -40,16 +48,16 @@ BRK
|
||||||
[ LIT &f $1 ] INCk ,&f STR
|
[ LIT &f $1 ] INCk ,&f STR
|
||||||
#01 AND ?&no-read
|
#01 AND ?&no-read
|
||||||
.Controller/button DEI
|
.Controller/button DEI
|
||||||
DUP #10 NEQ ?&no-u
|
DUP #10 AND #00 EQU ?&no-u
|
||||||
.angle LDZ2 thruster
|
.angle LDZ2 thruster
|
||||||
&no-u
|
&no-u
|
||||||
DUP #20 NEQ ?&no-d
|
DUP #20 AND #00 EQU ?&no-d
|
||||||
#0010 .force/y STZ2
|
#0010 .force/y STZ2
|
||||||
&no-d
|
&no-d
|
||||||
DUP #40 NEQ ?&no-l
|
DUP #40 AND #00 EQU ?&no-l
|
||||||
.angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2
|
.angle LDZ2 #0001 SUB2 #001f AND2 .angle STZ2
|
||||||
&no-l
|
&no-l
|
||||||
DUP #80 NEQ ?&no-r
|
DUP #80 AND #00 EQU ?&no-r
|
||||||
.angle LDZ2 INC2 #001f AND2 .angle STZ2
|
.angle LDZ2 INC2 #001f AND2 .angle STZ2
|
||||||
&no-r
|
&no-r
|
||||||
POP
|
POP
|
||||||
|
|
@ -58,6 +66,7 @@ BRK
|
||||||
apply-force
|
apply-force
|
||||||
( .force/y LDZ2 phex #0a18 DEO )
|
( .force/y LDZ2 phex #0a18 DEO )
|
||||||
redraw
|
redraw
|
||||||
|
draw-stage
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
|
|
@ -81,7 +90,6 @@ BRK
|
||||||
DUP #80 AND #00 NEQ STH #ff00 STHr [ JMP SWP POP ] SWP
|
DUP #80 AND #00 NEQ STH #ff00 STHr [ JMP SWP POP ] SWP
|
||||||
reduce3
|
reduce3
|
||||||
.force/y LDZ2 ADD2 .force/y STZ2
|
.force/y LDZ2 ADD2 .force/y STZ2
|
||||||
|
|
||||||
#08 ;draw-lander/plume STA
|
#08 ;draw-lander/plume STA
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
@ -115,6 +123,53 @@ JMP2r
|
||||||
JMP2r
|
JMP2r
|
||||||
&neg abs2 #05 SFT2 #0000 SWP2 SUB2 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 )
|
@|drawing )
|
||||||
|
|
||||||
|
|
@ -141,7 +196,7 @@ JMP2r
|
||||||
[ LIT2r &plume $1 09 ] ADDr
|
[ LIT2r &plume $1 09 ] ADDr
|
||||||
#0e08 get-pt #1208 get-pt #02 draw-line
|
#0e08 get-pt #1208 get-pt #02 draw-line
|
||||||
#0e08 get-pt #10 STHkr 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 )
|
( face )
|
||||||
#26 .Screen/auto DEO
|
#26 .Screen/auto DEO
|
||||||
;face-icn .Screen/addr DEO2
|
;face-icn .Screen/addr DEO2
|
||||||
|
|
@ -152,17 +207,29 @@ JMP2r
|
||||||
|
|
||||||
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* )
|
@get-pt ( id rad -- x* y* )
|
||||||
|
|
||||||
#00 SWP STH2
|
#00 SWP STH2
|
||||||
.angle LDZ2 #001f AND2 NIP ADD
|
.angle LDZ2 #001f AND2 NIP ADD
|
||||||
|
|
||||||
!get-point/force
|
|
||||||
|
|
||||||
@get-point ( id -- x* y* )
|
|
||||||
|
|
||||||
[ LIT2r &radius $2 ]
|
|
||||||
&force
|
|
||||||
#1f AND DUP ADD
|
#1f AND DUP ADD
|
||||||
#00 SWP ;circle-tbl ADD2 LDA2
|
#00 SWP ;circle-tbl ADD2 LDA2
|
||||||
#00 SWP STH2kr MUL2 #04 SFT2
|
#00 SWP STH2kr MUL2 #04 SFT2
|
||||||
|
|
@ -208,6 +275,33 @@ JMP2r
|
||||||
|
|
||||||
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 )
|
@|stdlib )
|
||||||
|
|
||||||
|
|
@ -234,3 +328,5 @@ JMP2r
|
||||||
80ff 67fd 4ff6 38ea 25da 15c7 09b0 0298
|
80ff 67fd 4ff6 38ea 25da 15c7 09b0 0298
|
||||||
0080 0267 094f 1538 2525 3815 4f09 6702 ]
|
0080 0267 094f 1538 2525 3815 4f09 6702 ]
|
||||||
|
|
||||||
|
@terrain
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue