Browse code
Minor optimization to piano
neauoire authored on 27/06/2021 23:48:38
Showing 1 changed files
| ... | ... |
@@ -155,9 +155,7 @@ BRK |
| 155 | 155 |
|
| 156 | 156 |
@on-message ( -> ) |
| 157 | 157 |
|
| 158 |
- .Console/rbyte DEI |
|
| 159 |
- DUP #0c MOD .last-note STZ |
|
| 160 |
- ;play JSR2 |
|
| 158 |
+ .Console/rbyte DEI ;play JSR2 |
|
| 161 | 159 |
;draw-octave JSR2 |
| 162 | 160 |
|
| 163 | 161 |
BRK |
| ... | ... |
@@ -243,7 +241,7 @@ BRK |
| 243 | 241 |
BRK |
| 244 | 242 |
|
| 245 | 243 |
@play ( pitch -- ) |
| 246 |
- |
|
| 244 |
+ |
|
| 247 | 245 |
DUP #0c MOD .last-note STZ |
| 248 | 246 |
.Audio0/pitch DEO |
| 249 | 247 |
|