added sprites.tal

2026-04-25 22:50:51 -04:00
parent caf345df15
commit a070e1f719
1 changed files with 39 additions and 0 deletions
@@ -0,0 +1,39 @@
+|00 @System/vector $2 &expansion $2 &wst $1 &rst $1 &metadata $2 &r $2 &g $2 &b $2 &debug $1 &state $1
+|20 @Screen/vector $2 &width $2 &height $2 &auto $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1
+
+|100
+@on-reset ( -> )
+	set-theme
+	#0020 .Screen/x DEO2
+	#0040 .Screen/y DEO2
+	( ;sprite-icn .Screen/addr DEO2 )
+	( #01 .Screen/sprite DEO )
+	#00 .Screen/auto DEO
+	;sprite2-icn .Screen/addr DEO2
+	#c1 .Screen/sprite DEO
+	BRK
+
+@set-theme ( -- )
+	#f07f .System/r DEO2
+	#f0d6 .System/g DEO2
+	#f0b2 .System/b DEO2
+	JMP2r
+	
+@sprite-icn
+	00 66 ff ff ff 7e 3c 18
+@sprite2-icn
+        18 3c 66 e7 ff 7e 5a 00  00 24 42 99 81 e7 db 81
+		30 78 48 4c 7c 04 34 04  10 50 c0 f0 f0 fc bc 84
+
+
+(
+. . . . . . . . 00
+. # # . . # # . 66
+# # # # # # # # ff
+# # # # # # # # ff
+# # # # # # # # ff
+. # # # # # # . 7e
+. . # # # # . . 3c
+. . . # # . . . 18
+)
+