(sliderule) Added D rule

gui/sliderule/sliderule.tal

@@ -41,10 +41,11 @@
 @|drawing )
 
 @<redraw> ( -- )
-	<draw-sliderule>
+	<draw-c>
+	<draw-d>
 	JMP2r
 
-@<draw-sliderule> ( -- )
+@<draw-c> ( -- )
 	#0020 .Screen/x DEO2
 	#0020 .Screen/y DEO2
 	( | cap )
@@ -56,14 +57,24 @@
 	<draw-rule>
 	JMP2r
 
+@<draw-d> ( -- )
+	#0030 .Screen/x DEO2
+	#0037 .Screen/y DEO2
+	( | cap )
+	#25 .Screen/auto DEO
+	;cap-chr .Screen/addr DEO2
+	#85 .Screen/sprite DEO
+	<draw-rule-rev>
+	JMP2r
+
 @<draw-rule> ( -- )
 	#2300
 	&l ( -- )
 		( | bg )
 		#06 .Screen/auto DEO
 		;bg-chr .Screen/addr DEO2
-		[ LIT2 85 -Screen/sprite ] DEOk DEO
+		[ LIT2 85 -Screen/sprite ] DEOk
-		
+		DEO
 		( | scale )
 		#05 .Screen/auto DEO
 		#00 OVR #40 SFT2 ;rule-chr ADD2 .Screen/addr DEO2
@@ -74,6 +85,23 @@
 	( adjust ) .Screen/x DEI2k #0005 SUB2 ROT DEO2
 	JMP2r
 
+@<draw-rule-rev> ( -- )
+	#2300
+	&l ( -- )
+		( | scale )
+		#06 .Screen/auto DEO
+		#00 OVR #40 SFT2 ;rule-chr ADD2 .Screen/addr DEO2
+		[ LIT2 a5 -Screen/sprite ] DEO
+		( | bg )
+		#15 .Screen/auto DEO
+		;bg-rev-chr .Screen/addr DEO2
+		[ LIT2 85 -Screen/sprite ] DEO
+		( adjust ) .Screen/y DEI2k #0008 SUB2 ROT DEO2
+		INC GTHk ?&l
+	POP2
+	( adjust ) .Screen/x DEI2k #0005 SUB2 ROT DEO2
+	JMP2r
+
 (
 @|utils )
 
@@ -113,6 +141,11 @@
 	00ff ffff ffff ffff ffff ffff ffff ffff
 	ffff ffff ffff ffff ffff ffff ffff ffff ]
 
+@bg-rev-chr
+	[
+	ffff ffff ffff ffff ffff ffff ffff ffff
+	ffff ffff ffff ff00 ffff ffff ffff ffff ]
+
 @cap-chr
 	[
 	003f 7f7f 7f7f 7f7f 3f7f ffff ffff ffff