Minor optimization to piano
This commit is contained in:
parent
f8f2f66756
commit
2aaf936573
|
@ -155,9 +155,7 @@ BRK
|
||||||
|
|
||||||
@on-message ( -> )
|
@on-message ( -> )
|
||||||
|
|
||||||
.Console/rbyte DEI
|
.Console/rbyte DEI ;play JSR2
|
||||||
DUP #0c MOD .last-note STZ
|
|
||||||
;play JSR2
|
|
||||||
;draw-octave JSR2
|
;draw-octave JSR2
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
@ -243,7 +241,7 @@ BRK
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
@play ( pitch -- )
|
@play ( pitch -- )
|
||||||
|
|
||||||
DUP #0c MOD .last-note STZ
|
DUP #0c MOD .last-note STZ
|
||||||
.Audio0/pitch DEO
|
.Audio0/pitch DEO
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue