172 lines
3.7 KiB
Plaintext
172 lines
3.7 KiB
Plaintext
( polycat )
|
|
|
|
%RTN { JMP2r }
|
|
%2// { #01 SFT2 }
|
|
%4// { #02 SFT2 }
|
|
|
|
( devices )
|
|
|
|
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ]
|
|
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
|
|
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &chord $1 ]
|
|
|
|
( variables )
|
|
|
|
|0000
|
|
|
|
@cat [ &x $2 &y $2 &timer $1 ]
|
|
@pointer [ &x $2 &y $2 ]
|
|
|
|
( program )
|
|
|
|
|0100 ( -> )
|
|
|
|
( theme )
|
|
#0a3f .System/r DEO2
|
|
#05df .System/g DEO2
|
|
#0caf .System/b DEO2
|
|
|
|
( find center )
|
|
.Screen/width DEI2 2// #0008 SUB2 .cat/x STZ2
|
|
.Screen/height DEI2 4// #0003 MUL2 #0018 SUB2 .cat/y STZ2
|
|
|
|
( vectors )
|
|
;on-mouse .Mouse/vector DEO2
|
|
;on-frame .Screen/vector DEO2
|
|
|
|
;draw-polycat JSR2
|
|
;draw-ground JSR2
|
|
|
|
BRK
|
|
|
|
@on-mouse ( -> )
|
|
|
|
;draw-cursor JSR2
|
|
|
|
.Mouse/x DEI2 .cat/x LDZ2 GTH2 #20 MUL
|
|
.Mouse/y DEI2 .cat/y LDZ2 GTH2 #40 MUL
|
|
ADD #00 SWP ;draw-eye JSR2
|
|
|
|
BRK
|
|
|
|
@on-frame ( -> )
|
|
|
|
.cat/timer LDZ #01 ADD [ DUP ] .cat/timer STZ
|
|
DUP ,&skip0 JCN #0000 ;draw-tail JSR2 &skip0
|
|
DUP #10 NEQ ,&skip1 JCN #0001 ;draw-tail JSR2 &skip1
|
|
DUP #20 NEQ ,&skip2 JCN #0002 ;draw-tail JSR2 &skip2
|
|
DUP #30 NEQ ,&skip3 JCN #0003 ;draw-tail JSR2 &skip3
|
|
DUP #40 NEQ ,&skip4 JCN #0002 ;draw-tail JSR2 &skip4
|
|
DUP #50 NEQ ,&skip5 JCN #0001 ;draw-tail JSR2 &skip5
|
|
POP
|
|
|
|
BRK
|
|
|
|
@draw-polycat ( -- )
|
|
|
|
( ears )
|
|
.cat/y LDZ2 .Screen/y DEO2
|
|
.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
|
|
;ears .Screen/addr DEO2
|
|
#41 .Screen/color DEO
|
|
STH2r .Screen/x DEO2
|
|
;ears #0010 ADD2 .Screen/addr DEO2
|
|
#41 .Screen/color DEO
|
|
|
|
#0000 ,draw-eye JSR
|
|
#0000 ,draw-tail JSR
|
|
|
|
RTN
|
|
|
|
@draw-eye ( quad* -- )
|
|
|
|
.cat/y LDZ2 #0008 ADD2 .Screen/y DEO2
|
|
.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
|
|
DUP2 ;eye ADD2 .Screen/addr DEO2
|
|
( draw ) #41 .Screen/color DEO
|
|
STH2r .Screen/x DEO2
|
|
;eye #0010 ADD2 ADD2 .Screen/addr DEO2
|
|
( draw ) #41 .Screen/color DEO
|
|
|
|
RTN
|
|
|
|
@draw-tail ( frame* -- )
|
|
|
|
.cat/y LDZ2 #0010 ADD2 .Screen/y DEO2
|
|
.cat/x LDZ2 STH2k #0008 SUB2 .Screen/x DEO2
|
|
;body .Screen/addr DEO2
|
|
( draw ) #41 .Screen/color DEO
|
|
STH2r .Screen/x DEO2
|
|
#0010 MUL2 ;body #0010 ADD2 ADD2 .Screen/addr DEO2
|
|
( draw ) #41 .Screen/color DEO
|
|
|
|
RTN
|
|
|
|
@draw-cursor ( -- )
|
|
|
|
( clear last cursor )
|
|
;cursor .Screen/addr DEO2
|
|
.pointer/x LDZ2 .Screen/x DEO2
|
|
.pointer/y LDZ2 .Screen/y DEO2
|
|
#30 .Screen/color DEO
|
|
|
|
( record pointer positions )
|
|
.Mouse/x DEI2 .pointer/x STZ2
|
|
.Mouse/y DEI2 .pointer/y STZ2
|
|
|
|
( draw new cursor )
|
|
.pointer/x LDZ2 .Screen/x DEO2
|
|
.pointer/y LDZ2 .Screen/y DEO2
|
|
|
|
( colorize on state )
|
|
#31 [ .Mouse/state DEI #00 NEQ ] ADD .Screen/color DEO
|
|
|
|
RTN
|
|
|
|
@draw-ground ( -- )
|
|
|
|
.cat/y LDZ2 #0018 ADD2 .Screen/y DEO2
|
|
.cat/x LDZ2 #0010 SUB2 .Screen/x DEO2
|
|
;ground .Screen/addr DEO2
|
|
|
|
#00 #10
|
|
&loop
|
|
( draw ) #21 .Screen/color DEO
|
|
( sety ) .Screen/addr DEI2 #0008 ADD2 .Screen/addr DEO2
|
|
( setx ) .Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
|
|
( incr ) SWP #01 ADD SWP
|
|
LTHk ,&loop JCN
|
|
POP2
|
|
|
|
RTN
|
|
|
|
@cursor
|
|
80c0 e0f0 f8e0 1000
|
|
|
|
@ears
|
|
081c 3e3e 7f7f ffff 081c 3e3e 7f7f fffc
|
|
081c 3c3e 7e7e ffff 081c 3c3e 7e7e ff1f
|
|
|
|
@eye
|
|
ffff ffff ff7f 3f0f f7ef cfe7 f07c 3f0f
|
|
ffff ffff fffe fcf0 87c3 c183 071e fcf0
|
|
ffff ffff ff7f 3f0f f0e1 c1e0 f07c 3f0f
|
|
ffff ffff fffe fcf0 f7fb f9f3 071e fcf0
|
|
ffff ffff ff7f 3f0f f0e7 cfef f77c 3f0f
|
|
ffff ffff fffe fcf0 0783 c1c3 871e fcf0
|
|
ffff ffff ff7f 3f0f f0e0 c1e1 f07c 3f0f
|
|
ffff ffff fffe fcf0 07f3 f9fb f71e fcf0
|
|
|
|
@body
|
|
0707 0707 0302 0200 0107 0707 0300 0000
|
|
e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000
|
|
e0f0 f0e0 e080 8000 c0f2 f9f9 fef8 b000
|
|
e0f0 f0e0 e080 8000 c0f2 faf9 fef8 b000
|
|
e0f0 f0e0 e080 8000 c0f1 faf9 fef8 b000
|
|
0707 0707 0f08 1000 0307 0707 0f00 0000
|
|
e0e0 e0e0 e080 8000 f2f9 f9fe b884 8400
|
|
|
|
@ground
|
|
bf00 5c02 0202 020c ef10 6f90 8080 8074
|
|
ff00 fe01 0100 0116 fd00 3c40 4040 4028
|