Browse code
(calc.tal)Fixed warnings from the linter
Devine Lu Linvega authored on 28/05/2022 03:01:32
Showing 1 changed files
| ... | ... |
@@ -456,8 +456,8 @@ JMP2r |
| 456 | 456 |
( state ) DUP STHkr EQU STH |
| 457 | 457 |
( glyph ) #00 OVR #30 SFT2 ;mod-icns ADD2 STH2 |
| 458 | 458 |
( y ) #00 OVR #42 SFT2 .modpad-frame/y LDZ2 ADD2 STH2 |
| 459 |
- ( x ) #00 OVR #03 AND #40 SFT2 .modpad-frame/x LDZ2 ADD2 STH2 |
|
| 460 |
- STH2r STH2r STH2r STHr #03 ;draw-key JSR2 |
|
| 459 |
+ ( x ) #00 OVR #03 AND #40 SFT2 .modpad-frame/x LDZ2 ADD2 |
|
| 460 |
+ STH2r STH2r STHr #03 ;draw-key JSR2 |
|
| 461 | 461 |
INC GTHk ,&loop JCN |
| 462 | 462 |
POP2 |
| 463 | 463 |
POPr |
| ... | ... |
@@ -572,7 +572,7 @@ JMP2r |
| 572 | 572 |
@within-rect ( x* y* rect -- flag ) |
| 573 | 573 |
|
| 574 | 574 |
STH |
| 575 |
- ( y < rect.y1 ) DUP2 STHkr #02 ADD LDZ2 LTH2 ,&skip JCN |
|
| 575 |
+ ( y < rect.y1 ) DUP2 STHkr INC INC LDZ2 LTH2 ,&skip JCN |
|
| 576 | 576 |
( y > rect.y2 ) DUP2 STHkr #06 ADD LDZ2 GTH2 ,&skip JCN |
| 577 | 577 |
SWP2 |
| 578 | 578 |
( x < rect.x1 ) DUP2 STHkr LDZ2 LTH2 ,&skip JCN |