Browse code

(piano.tal) Support new volume port

neauoire authored on 20/10/2023 14:52:13
Showing 1 changed files
... ...
@@ -91,10 +91,17 @@ BRK
91 91
 	#1000
92 92
 	&loop
93 93
 		.adsr-view/x2 LDZ2 #003a SUB2 .Screen/x DEO2
94
-		#10 OVR SUB .Audio0/output DEI
95
-			DUP2 #0f AND LTH .Screen/pixel DEO
94
+		( left )
95
+		#10 OVR SUB
96
+		#00 .Audio0/output DEI
97
+		#00 .Audio0/volume DEI #04 SFT 
98
+			MUL2 #08 SFT2 NIP LTH .Screen/pixel DEO
96 99
 		.Screen/x DEI2k INC2 INC2 ROT DEO2
97
-			#04 SFT LTH .Screen/pixel DEO
100
+		( right )
101
+		#10 OVR SUB
102
+		#00 .Audio0/output DEI
103
+		#00 .Audio0/volume DEI #0f AND 
104
+			MUL2 #08 SFT2 NIP LTH .Screen/pixel DEO
98 105
 		.Screen/y DEI2k INC2 INC2 ROT DEO2
99 106
 		INC GTHk ?&loop
100 107
 	POP2