d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(screen.blending.tal) Fixed issue with sprite position

This commit is contained in:
neauoire 2023-10-27 19:53:42 -07:00
parent 85d22bbb90
commit b513014fa8
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
projects/examples/devices/screen.blending.tal
View File

@ -33,23 +33,19 @@
;circle-chr .Screen/addr DEO2 ;circle-chr .Screen/addr DEO2
DUP .Screen/sprite DEO DUP .Screen/sprite DEO
DUP #10 ORA .Screen/sprite DEO DUP #10 ORA .Screen/sprite DEO
.Screen/x DEI2k #0010 SUB2 ROT DEO2
.Screen/y DEI2k #0008 ADD2 ROT DEO2 .Screen/y DEI2k #0008 ADD2 ROT DEO2
DUP #20 ORA .Screen/sprite DEO DUP #20 ORA .Screen/sprite DEO
DUP #30 ORA .Screen/sprite DEO DUP #30 ORA .Screen/sprite DEO
@<draw-hex> ( color -- ) @<draw-hex> ( color -- )
.Screen/x DEI2k #000c SUB2 ROT DEO2
.Screen/y DEI2k #000c ADD2 ROT DEO2 .Screen/y DEI2k #000c ADD2 ROT DEO2
#00 SWP #30 SFT ;font-icn ADD2 .Screen/addr DEO2 #00 SWP #30 SFT ;font-icn ADD2 .Screen/addr DEO2
#05 .Screen/sprite DEO #09 .Screen/sprite DEO
JMP2r JMP2r
@check-icn @check-icn [ 0306 0c18 3060 c081 ]
[ 0306 0c18 3060 c081 ]
@circle-chr @circle-chr [
[
071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ] 071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ]
@font-icn ( 0-f ) @font-icn ( 0-f )