uxn

commit ba76eae6a8a361737dc881c565524189b1906246
parent 0c8a7feec5552456068cbae307b2f8011d9ceed4
Author: neauoire <aliceffekt@gmail.com>
Date:   Mon, 20 Sep 2021 15:44:05 -0700

Removed unused routines in calc.tal

Diffstat:
M
projects/software/calc.tal
 | 
42
+-----------------------------------------

1 file changed, 1 insertion(+), 41 deletions(-)
diff --git a/projects/software/calc.tal b/projects/software/calc.tal
@@ -414,7 +414,7 @@ RTN
 	STH
 	#04 #00
 	&loop
-		( color ) DUP TOS ;modpad/color ++ LDA STH
+		( color ) #03 STH
 		( state ) DUP OVRr STHr = STH
 		( layout ) DUP TOS 8** ;mod-icns ++ STH2
 		( x ) #0000 STH2
@@ -431,11 +431,9 @@ RTN
 @draw-key ( x* y* glyph* state color -- )
 
 	( auto x addr ) #05 .Screen/auto DEO
-
 	( color ) ,&color STR
 	( state ) ,&state STR
 	( glyph ) ,&glyph STR2
-
 	( state ) ;button-icns [ #00 ,&state LDR 20** ++ ] .Screen/addr DEO2 
 	( y* ) .Screen/y DEO2
 	( x* ) .Screen/x DEO2
@@ -485,39 +483,6 @@ RTN
 
 RTN
 
-
-@line-rect ( rect color -- )
-
-	STH STH
-	( y2 ) STHkr #06 + LDZ2
-	( y1 ) STHkr #02 + LDZ2 #0001 -- ( flip sign ) GTH2k SWP2?
-	&ver
-		( save ) DUP2 .Screen/y DEO2
-		( x1 ) STHkr LDZ2 #0001 -- .Screen/x DEO2 
-		OVRr STHr .Screen/pixel DEO
-		( x2 ) STHkr #04 + LDZ2 .Screen/x DEO2 
-		OVRr STHr .Screen/pixel DEO
-		( incr )
-		INC2 GTH2k ,&ver JCN
-	POP2
-	( x2 ) STHkr #04 + LDZ2
-	( x1 ) STHkr LDZ2 #0001 -- ( flip sign ) GTH2k SWP2?
-	&hor
-		( save ) DUP2 .Screen/x DEO2
-		( y1 ) STHkr #02 + LDZ2 #0001 -- .Screen/y DEO2 
-		OVRr STHr .Screen/pixel DEO
-		( y2 ) STHkr #06 + LDZ2 .Screen/y DEO2 
-		OVRr STHr .Screen/pixel DEO
-		( incr )
-		INC2 GTH2k ,&hor JCN
-	POP2
-	POPr 
-	.Screen/x DEO2
-	.Screen/y DEO2 
-	STHr .Screen/pixel DEO
-
-RTN
-
 @print-hex ( value* -- )
 	
 	&short ( value* -- )
@@ -552,11 +517,6 @@ RTN
 		0101 0102
 		0102 0202
 
-@modpad
-	&color
-		0303 0303
-		0303 0303
-
 @font-hex
 	007c 8282 8282 827c 0030 1010 1010 1010
 	007c 8202 7c80 80fe 007c 8202 1c02 827c