Improved theme support
This commit is contained in:
parent
e3dc68752f
commit
589f6b20a6
|
@ -27,14 +27,14 @@
|
||||||
0804 0201 0000 0000 0000 0080 601f 0000
|
0804 0201 0000 0000 0000 0080 601f 0000
|
||||||
0000 0001 06f8 0000 1020 4080 0000 0000 ]
|
0000 0001 06f8 0000 1020 4080 0000 0000 ]
|
||||||
|
|
||||||
@play-icn [
|
|
||||||
0000 000c 0f0f 0f0f 0000 0000 00c0 f0fc
|
|
||||||
0f0f 0f0f 0c00 0000 fcf0 c000 0000 0000 ]
|
|
||||||
|
|
||||||
@pause-icn [
|
@pause-icn [
|
||||||
0000 001e 1e1e 1e1e 0000 0078 7878 7878
|
0000 001e 1e1e 1e1e 0000 0078 7878 7878
|
||||||
1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
|
1e1e 1e1e 1e00 0000 7878 7878 7800 0000 ]
|
||||||
|
|
||||||
|
@play-icn [
|
||||||
|
0000 000c 0f0f 0f0f 0000 0000 00c0 f0fc
|
||||||
|
0f0f 0f0f 0c00 0000 fcf0 c000 0000 0000 ]
|
||||||
|
|
||||||
@play-wait-icn [
|
@play-wait-icn [
|
||||||
0000 000c 0b08 0808 0000 0000 00c0 300c
|
0000 000c 0b08 0808 0000 0000 00c0 300c
|
||||||
0808 080b 0c00 0000 0c30 c000 0000 0000 ]
|
0808 080b 0c00 0000 0c30 c000 0000 0000 ]
|
||||||
|
|
|
@ -31,7 +31,7 @@
|
||||||
@on-reset ( -> )
|
@on-reset ( -> )
|
||||||
;meta #06 DEO2
|
;meta #06 DEO2
|
||||||
( | theme )
|
( | theme )
|
||||||
#d2d2 DUP2 .System/r DEO2
|
#e1e1 DUP2 .System/r DEO2
|
||||||
DUP2 .System/g DEO2
|
DUP2 .System/g DEO2
|
||||||
.System/b DEO2
|
.System/b DEO2
|
||||||
<load-theme>
|
<load-theme>
|
||||||
|
@ -485,13 +485,13 @@
|
||||||
#0054 .Screen/y DEO2
|
#0054 .Screen/y DEO2
|
||||||
[ LIT2 36 -Screen/auto ] DEO
|
[ LIT2 36 -Screen/auto ] DEO
|
||||||
;button-icn .Screen/addr DEO2
|
;button-icn .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEOk DEOk DEOk DEO
|
[ LIT2 03 -Screen/sprite ] DEOk DEOk DEOk DEO
|
||||||
( | icon )
|
( | icon )
|
||||||
[ LIT2 16 -Screen/auto ] DEO
|
[ LIT2 16 -Screen/auto ] DEO
|
||||||
#0078 .Screen/x DEO2
|
#0078 .Screen/x DEO2
|
||||||
#005c .Screen/y DEO2
|
#005c .Screen/y DEO2
|
||||||
;play-icn #00 .paused LDZ #50 SFT2 ADD2 .Screen/addr DEO2
|
;pause-icn #00 .paused LDZ #50 SFT2 ADD2 .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEOk DEO
|
[ LIT2 03 -Screen/sprite ] DEOk DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<draw-prev> ( -- )
|
@<draw-prev> ( -- )
|
||||||
|
@ -499,7 +499,7 @@
|
||||||
#0058 .Screen/x DEO2
|
#0058 .Screen/x DEO2
|
||||||
#005c .Screen/y DEO2
|
#005c .Screen/y DEO2
|
||||||
;prev-icn .Screen/addr DEO2
|
;prev-icn .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEOk DEO
|
[ LIT2 03 -Screen/sprite ] DEOk DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<draw-next> ( -- )
|
@<draw-next> ( -- )
|
||||||
|
@ -507,7 +507,7 @@
|
||||||
#0098 .Screen/x DEO2
|
#0098 .Screen/x DEO2
|
||||||
#005c .Screen/y DEO2
|
#005c .Screen/y DEO2
|
||||||
;next-icn .Screen/addr DEO2
|
;next-icn .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEOk DEO
|
[ LIT2 03 -Screen/sprite ] DEOk DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
@<draw-progress> ( -- )
|
@<draw-progress> ( -- )
|
||||||
|
@ -520,17 +520,17 @@
|
||||||
#0088 .Screen/y DEO2
|
#0088 .Screen/y DEO2
|
||||||
( | cap left )
|
( | cap left )
|
||||||
;progress-icn/left .Screen/addr DEO2
|
;progress-icn/left .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEO
|
[ LIT2 03 -Screen/sprite ] DEO
|
||||||
( | fill )
|
( | fill )
|
||||||
#e3
|
#e3
|
||||||
&>t ( -- )
|
&>t ( -- )
|
||||||
;progress-icn/middle .Screen/addr DEO2
|
;progress-icn/middle .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEO
|
[ LIT2 03 -Screen/sprite ] DEO
|
||||||
INC DUP ?&>t
|
INC DUP ?&>t
|
||||||
POP
|
POP
|
||||||
( | cap right )
|
( | cap right )
|
||||||
;progress-icn/right .Screen/addr DEO2
|
;progress-icn/right .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEO
|
[ LIT2 03 -Screen/sprite ] DEO
|
||||||
( | fill )
|
( | fill )
|
||||||
#0008 .Screen/x DEO2
|
#0008 .Screen/x DEO2
|
||||||
[ LIT2 00 -Screen/auto ] DEO
|
[ LIT2 00 -Screen/auto ] DEO
|
||||||
|
@ -592,7 +592,7 @@
|
||||||
#0000 .Screen/x DEO2
|
#0000 .Screen/x DEO2
|
||||||
.Screen/addr DEO2
|
.Screen/addr DEO2
|
||||||
[ LIT2 f2 -Screen/auto ] DEO
|
[ LIT2 f2 -Screen/auto ] DEO
|
||||||
[ LIT2 05 -Screen/sprite ] DEOk #0080 .Screen/x DEO2
|
[ LIT2 0f -Screen/sprite ] DEOk #0080 .Screen/x DEO2
|
||||||
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
|
.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
|
||||||
DEO
|
DEO
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
Loading…
Reference in New Issue