Browse code

Rotate knobs counter-clockwise

neauoire authored on 03/04/2021 19:05:13
Showing 1 changed files
... ...
@@ -120,20 +120,20 @@ BRK
120 120
 	~Mouse.x ~ctlframe.x1 SUB2 8- 8/ SWP POP #02 DIV
121 121
 	DUP #00 NEQ ^$no-a JNZ
122 122
 		,Audio #00 ~track.active #02 MUL ADD2 PEK2
123
-		#10 ADD ,Audio #00 ~track.active #02 MUL ADD2 POK2 $no-a
123
+		#10 ~Mouse.state #10 EQU #e0 MUL ADD ADD ,Audio #00 ~track.active #02 MUL ADD2 POK2 $no-a
124 124
 
125 125
 	DUP #01 NEQ ^$no-d JNZ
126 126
 		,Audio #00 ~track.active #02 MUL ADD2 PEK2
127
-		DUP #f0 AND STH #01 ADD #0f AND STHr ADD
127
+		DUP #f0 AND STH #01 ~Mouse.state #10 EQU #0e MUL ADD ADD #0f AND STHr ADD
128 128
 		,Audio #00 ~track.active #02 MUL ADD2 POK2 $no-d
129 129
 
130 130
 	DUP #02 NEQ ^$no-s JNZ
131 131
 		,Audio #00 ~track.active #02 MUL ADD2 ++ PEK2
132
-		#10 ADD ,Audio #00 ~track.active #02 MUL ADD2 ++ POK2 $no-s
132
+		#10 ~Mouse.state #10 EQU #e0 MUL ADD ADD ,Audio #00 ~track.active #02 MUL ADD2 ++ POK2 $no-s
133 133
 
134 134
 	DUP #03 NEQ ^$no-r JNZ
135 135
 		,Audio #00 ~track.active #02 MUL ADD2 ++ PEK2
136
-		DUP #f0 AND STH #01 ADD #0f AND STHr ADD
136
+		DUP #f0 AND STH #01 ~Mouse.state #10 EQU #0e MUL ADD ADD #0f AND STHr ADD
137 137
 		,Audio #00 ~track.active #02 MUL ADD2 ++ POK2 $no-r
138 138
 	POP
139 139
 	( release ) #00 =Mouse.state