109 lines
2.9 KiB
Plaintext
109 lines
2.9 KiB
Plaintext
( GUI Picture )
|
|
|
|
%RTN { JMP2r }
|
|
%8+ { #0008 ADD2 }
|
|
|
|
( devices )
|
|
|
|
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|
|
|10 @Console [ &vector $2 &pad $6 &char $1 &byte $1 &short $2 &string $2 ]
|
|
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
|
|
|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
|
|
|
|
( variables )
|
|
|
|
|0000
|
|
|
|
@color [ &byte $1 ]
|
|
@position [ &x $2 &y $2 ]
|
|
@size [ &width $2 &height $2 ]
|
|
|
|
( program )
|
|
|
|
|0100
|
|
|
|
( theme ) #037a .System/r DEO2 #032a .System/g DEO2 #052a .System/b DEO2
|
|
|
|
( background ) ;checker_icn #22 ;cover-pattern JSR2
|
|
|
|
( load ) ;icn1_path .File/name DEO2 #1800 .File/length DEO2 ;image .File/load DEO2
|
|
( draw ) #0008 #0008 #0100 #00c0 #27 ;image ;draw-icn JSR2
|
|
|
|
( load ) ;icn2_path .File/name DEO2 #0800 .File/length DEO2 ;image .File/load DEO2
|
|
( draw ) #0010 #0078 #0080 #0080 #27 ;image ;draw-icn JSR2
|
|
|
|
( load ) ;chr1_path .File/name DEO2 #4000 .File/length DEO2 ;image .File/load DEO2
|
|
( draw ) #00a8 #0010 #0100 #0100 #4f ;image ;draw-chr JSR2
|
|
|
|
( load ) ;chr2_path .File/name DEO2 #0900 .File/length DEO2 ;image .File/load DEO2
|
|
( draw ) #0088 #0088 #0060 #0060 #41 ;image ;draw-chr JSR2
|
|
|
|
BRK
|
|
|
|
@draw-icn ( x y width height color addr -- )
|
|
|
|
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
|
|
#0000 .size/height LDZ2
|
|
&ver
|
|
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
|
|
#0000 .size/width LDZ2
|
|
&hor
|
|
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
|
|
( draw ) .color LDZ .Screen/color DEO
|
|
( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&hor JCN
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&ver JCN
|
|
POP2 POP2
|
|
|
|
RTN
|
|
|
|
@draw-chr ( x y width height color addr -- )
|
|
|
|
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
|
|
#0000 .size/height LDZ2
|
|
&ver
|
|
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
|
|
#0000 .size/width LDZ2
|
|
&hor
|
|
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
|
|
( draw ) .color LDZ .Screen/color DEO
|
|
( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&hor JCN
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&ver JCN
|
|
POP2 POP2
|
|
|
|
RTN
|
|
|
|
@cover-pattern ( addr color -- )
|
|
|
|
( load ) .color STZ .Screen/addr DEO2
|
|
#0000 .Screen/height DEI2
|
|
&ver
|
|
( save ) OVR2 .Screen/y DEO2
|
|
#0000 .Screen/width DEI2
|
|
&hor
|
|
( save ) OVR2 .Screen/x DEO2
|
|
( draw ) .color LDZ .Screen/color DEO
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&hor JCN
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ,&ver JCN
|
|
POP2 POP2
|
|
|
|
RTN
|
|
|
|
@checker_icn [ f0f0 f0f0 0f0f 0f0f ]
|
|
|
|
@icn1_path [ "projects/pictures/ergo100x0c0.bit 00 ]
|
|
@icn2_path [ "projects/pictures/dafu80x80.bit 00 ]
|
|
@chr1_path [ "projects/pictures/zerotwo2020.chr 00 ]
|
|
@chr2_path [ "projects/pictures/felix0cx0c.chr 00 ]
|
|
|
|
@image [ ] |