103 lines
2.6 KiB
Plaintext
103 lines
2.6 KiB
Plaintext
( GUI Picture )
|
|
|
|
%RTN { JMP2r }
|
|
%8+ { #0008 ADD2 }
|
|
|
|
;color { byte 1 }
|
|
;position { x 2 y 2 }
|
|
;size { width 2 height 2 }
|
|
|
|
|0100 ;System { vector 2 pad 6 r 2 g 2 b 2 }
|
|
|0110 ;Console { vector 2 pad 6 char 1 byte 1 short 2 string 2 }
|
|
|0120 ;Screen { vector 2 width 2 height 2 pad 2 x 2 y 2 addr 2 color 1 }
|
|
|0170 ;File { vector 2 success 2 offset 2 pad 2 name 2 length 2 load 2 save 2 }
|
|
|
|
( program )
|
|
|
|
|0200
|
|
|
|
( theme ) #037a =System.r #032a =System.g #052a =System.b
|
|
|
|
( background ) ,checker_icn #22 ,cover-pattern JSR2
|
|
|
|
( load ) ,icn1_path =File.name #1800 =File.length ,image =File.load
|
|
( draw ) #0008 #0008 #0100 #00c0 #27 ,image ,draw-icn JSR2
|
|
|
|
( load ) ,icn2_path =File.name #0800 =File.length ,image =File.load
|
|
( draw ) #0010 #0078 #0080 #0080 #27 ,image ,draw-icn JSR2
|
|
|
|
( load ) ,chr1_path =File.name #4000 =File.length ,image =File.load
|
|
( draw ) #00a8 #0010 #0100 #0100 #4f ,image ,draw-chr JSR2
|
|
|
|
( load ) ,chr2_path =File.name #0900 =File.length ,image =File.load
|
|
( draw ) #0088 #0088 #0060 #0060 #41 ,image ,draw-chr JSR2
|
|
|
|
BRK
|
|
|
|
@draw-icn ( x y width height color addr -- )
|
|
|
|
( load ) =Screen.addr =color =size.height =size.width =position.y =position.x
|
|
#0000 ~size.height
|
|
$ver
|
|
( save ) OVR2 ~position.y ADD2 =Screen.y
|
|
#0000 ~size.width
|
|
$hor
|
|
( save ) OVR2 ~position.x ADD2 =Screen.x
|
|
( draw ) ~color =Screen.color
|
|
( incr ) ~Screen.addr 8+ =Screen.addr
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$hor JNZ
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$ver JNZ
|
|
POP2 POP2
|
|
|
|
RTN
|
|
|
|
@draw-chr ( x y width height color addr -- )
|
|
|
|
( load ) =Screen.addr =color =size.height =size.width =position.y =position.x
|
|
#0000 ~size.height
|
|
$ver
|
|
( save ) OVR2 ~position.y ADD2 =Screen.y
|
|
#0000 ~size.width
|
|
$hor
|
|
( save ) OVR2 ~position.x ADD2 =Screen.x
|
|
( draw ) ~color =Screen.color
|
|
( incr ) ~Screen.addr #0010 ADD2 =Screen.addr
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$hor JNZ
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$ver JNZ
|
|
POP2 POP2
|
|
|
|
RTN
|
|
|
|
@cover-pattern ( addr color -- )
|
|
|
|
( load ) =color =Screen.addr
|
|
#0000 ~Screen.height
|
|
$ver
|
|
( save ) OVR2 =Screen.y
|
|
#0000 ~Screen.width
|
|
$hor
|
|
( save ) OVR2 =Screen.x
|
|
( draw ) ~color =Screen.color
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$hor JNZ
|
|
POP2 POP2
|
|
( incr ) SWP2 8+ SWP2
|
|
OVR2 OVR2 LTH2 ^$ver JNZ
|
|
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 [ ] |