Browse code
(screen.blending.tal) Fixed issue with sprite position
neauoire authored on 28/10/2023 02:53:42
Showing 1 changed files
| ... | ... |
@@ -33,23 +33,19 @@ |
| 33 | 33 |
;circle-chr .Screen/addr DEO2 |
| 34 | 34 |
DUP .Screen/sprite DEO |
| 35 | 35 |
DUP #10 ORA .Screen/sprite DEO |
| 36 |
- .Screen/x DEI2k #0010 SUB2 ROT DEO2 |
|
| 37 | 36 |
.Screen/y DEI2k #0008 ADD2 ROT DEO2 |
| 38 | 37 |
DUP #20 ORA .Screen/sprite DEO |
| 39 | 38 |
DUP #30 ORA .Screen/sprite DEO |
| 40 | 39 |
|
| 41 | 40 |
@<draw-hex> ( color -- ) |
| 42 |
- .Screen/x DEI2k #000c SUB2 ROT DEO2 |
|
| 43 | 41 |
.Screen/y DEI2k #000c ADD2 ROT DEO2 |
| 44 | 42 |
#00 SWP #30 SFT ;font-icn ADD2 .Screen/addr DEO2 |
| 45 |
- #05 .Screen/sprite DEO |
|
| 43 |
+ #09 .Screen/sprite DEO |
|
| 46 | 44 |
JMP2r |
| 47 | 45 |
|
| 48 |
-@check-icn |
|
| 49 |
- [ 0306 0c18 3060 c081 ] |
|
| 46 |
+@check-icn [ 0306 0c18 3060 c081 ] |
|
| 50 | 47 |
|
| 51 |
-@circle-chr |
|
| 52 |
- [ |
|
| 48 |
+@circle-chr [ |
|
| 53 | 49 |
071f 3c70 60e3 c7c7 0000 030f 1f1f 3f3f ] |
| 54 | 50 |
|
| 55 | 51 |
@font-icn ( 0-f ) |