commit c3be359163e0d28f030c46cb2881a96a66e60058
parent 90acf9ceec447738f98102fd4515c60e84292666
Author: neauoire <aliceffekt@gmail.com>
Date: Sun, 1 Aug 2021 11:28:37 -0700
Reverted changes to screen.tal
Diffstat:
1 file changed, 2 insertions(+), 26 deletions(-)
diff --git a/projects/examples/devices/screen.tal b/projects/examples/devices/screen.tal
@@ -6,7 +6,6 @@
|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 ]
-|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables )
@@ -29,21 +28,13 @@
( draw )
;draw-table JSR2
- ;on-frame .Screen/vector DEO2
-
+ ;draw-sprites JSR2
;draw-1bpp JSR2
;draw-2bpp JSR2
-
;draw-pixels JSR2
-
BRK
-@on-frame ( -> )
- ;draw-background JSR2
- ;draw-sprites JSR2
- BRK
-
@draw-table ( -- )
#00 #10
@@ -110,19 +101,7 @@ RTN
SWP #01 ADD SWP
LTHk ,&loop JCN
POP2
-
-@draw-background ( -- )
- ;solid .Screen/addr DEO2
- #00 #00
- &loop
- ( move ) OVR #0f AND #40 SFT #02 DIV #00 SWP
- .center/x LDZ2 #0040 SUB2 ADD2 .Screen/x DEO2
- ( move ) OVR #f0 AND #02 DIV #00 SWP
- .center/y LDZ2 #0040 SUB2 ADD2 .Screen/y DEO2
- ( draw ) OVR #40 AND .DateTime/second DEI #03 DIV #03 AND ORA .Screen/sprite DEO
- ( incr ) SWP #01 ADD SWP
- NEQk ,&loop JCN
- POP2
+
RTN
@draw-circle ( x* y* color depth -- )
@@ -160,9 +139,6 @@ RTN
@preview_icn [
0f38 675f dfbf bfbf 0007 1820 2344 4848
-@solid
- ffff ffff ffff ffff
-
@font-hex
007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c
