0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-18 14:30:16 +00:00
uxn/projects/examples/gui/picture.tal

108 lines
2.8 KiB
Tal
Raw Normal View History

2021-04-02 04:53:41 +00:00
( GUI Picture )
2021-02-27 17:39:06 +00:00
2021-03-16 04:29:44 +00:00
%RTN { JMP2r }
%8+ { #0008 ADD2 }
2021-03-16 04:29:44 +00:00
( devices )
2021-02-27 17:39:06 +00:00
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
2021-04-26 17:52:46 +00:00
|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
( variables )
|0000
2021-05-13 01:28:45 +00:00
@color [ &byte $1 ]
@position [ &x $2 &y $2 ]
2021-05-13 01:28:45 +00:00
@size [ &width $2 &height $2 ]
2021-03-21 21:16:19 +00:00
2021-04-05 20:00:55 +00:00
( program )
|0100
2021-02-27 17:39:06 +00:00
( theme ) #037a .System/r DEO2 #032a .System/g DEO2 #052a .System/b DEO2
2021-04-10 19:19:38 +00:00
( background ) ;checker_icn #02 ;cover-pattern JSR2
2021-04-10 19:19:38 +00:00
( load ) ;icn1_path .File/name DEO2 #1800 .File/length DEO2 ;image .File/load DEO2
( draw ) #0008 #0008 #0100 #00c0 #07 ;image ;draw-icn JSR2
2021-04-12 03:38:21 +00:00
( load ) ;icn2_path .File/name DEO2 #0800 .File/length DEO2 ;image .File/load DEO2
( draw ) #0010 #0078 #0080 #0080 #07 ;image ;draw-icn JSR2
( load ) ;chr1_path .File/name DEO2 #4000 .File/length DEO2 ;image .File/load DEO2
( draw ) #00a8 #0010 #0100 #0100 #8f ;image ;draw-chr JSR2
( load ) ;chr2_path .File/name DEO2 #0900 .File/length DEO2 ;image .File/load DEO2
( draw ) #0088 #0088 #0060 #0060 #81 ;image ;draw-chr JSR2
2021-02-27 17:39:06 +00:00
BRK
2021-04-14 19:11:01 +00:00
@draw-icn ( x y width height color addr -- )
2021-05-11 18:14:52 +00:00
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
#0000 .size/height LDZ2
&ver
2021-05-11 18:14:52 +00:00
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
#0000 .size/width LDZ2
&hor
2021-05-11 18:14:52 +00:00
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
( draw ) .color LDZ .Screen/sprite DEO
( incr ) .Screen/addr DEI2 8+ .Screen/addr DEO2
2021-04-14 19:11:01 +00:00
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&hor JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&ver JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
2021-04-10 19:19:38 +00:00
2021-04-14 19:11:01 +00:00
RTN
2021-04-10 19:19:38 +00:00
2021-04-14 19:11:01 +00:00
@draw-chr ( x y width height color addr -- )
2021-04-10 19:19:38 +00:00
2021-05-11 18:14:52 +00:00
( load ) .Screen/addr DEO2 .color STZ .size/height STZ2 .size/width STZ2 .position/y STZ2 .position/x STZ2
#0000 .size/height LDZ2
&ver
2021-05-11 18:14:52 +00:00
( save ) OVR2 .position/y LDZ2 ADD2 .Screen/y DEO2
#0000 .size/width LDZ2
&hor
2021-05-11 18:14:52 +00:00
( save ) OVR2 .position/x LDZ2 ADD2 .Screen/x DEO2
( draw ) .color LDZ .Screen/sprite DEO
( incr ) .Screen/addr DEI2 #0010 ADD2 .Screen/addr DEO2
2021-04-14 19:11:01 +00:00
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&hor JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&ver JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
2021-04-10 19:19:38 +00:00
RTN
2021-04-14 19:11:01 +00:00
@cover-pattern ( addr color -- )
2021-02-27 17:39:06 +00:00
2021-05-11 18:14:52 +00:00
( 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/sprite DEO
2021-04-14 19:11:01 +00:00
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&hor JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
( incr ) SWP2 8+ SWP2
2021-05-12 19:08:51 +00:00
LTH2k ,&ver JCN
2021-04-14 19:11:01 +00:00
POP2 POP2
2021-02-27 17:39:06 +00:00
2021-03-14 21:26:17 +00:00
RTN
2021-02-27 17:39:06 +00:00
2021-04-14 19:11:01 +00:00
@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 ]
2021-04-10 19:19:38 +00:00
@image [ ]