neauoire
/
oquonie
mirror of https://git.sr.ht/~rabbits/oquonie
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Piano room steps

This commit is contained in:
Devine Lu Linvega 2023-02-22 20:40:37 -08:00
parent 88114ea976
commit f86adf4d57
2 changed files with 23 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
etc/tools/composer.tal
View File

@ -26,19 +26,20 @@
#0180 .Screen/height DEO2 #0180 .Screen/height DEO2
;on-mouse .Mouse/vector DEO2 ;on-mouse .Mouse/vector DEO2
;on-control .Controller/vector DEO2
;on-frame .Screen/vector DEO2 ;on-frame .Screen/vector DEO2
#142a .Audio0/adsr DEO2 #0111 .Audio0/adsr DEO2
#ed .Audio0/volume DEO #ed .Audio0/volume DEO
;sin-pcm .Audio0/addr DEO2 ;sin-pcm .Audio0/addr DEO2
#0100 .Audio0/length DEO2 #0100 .Audio0/length DEO2
#133d .Audio1/adsr DEO2 #0111 .Audio1/adsr DEO2
#de .Audio1/volume DEO #de .Audio1/volume DEO
;sin-pcm .Audio1/addr DEO2 ;sin-pcm .Audio1/addr DEO2
#0100 .Audio1/length DEO2 #0100 .Audio1/length DEO2
#12ed .Audio2/adsr DEO2 #0111 .Audio2/adsr DEO2
#cc .Audio2/volume DEO #cc .Audio2/volume DEO
;sin-pcm .Audio2/addr DEO2 ;sin-pcm .Audio2/addr DEO2
#0100 .Audio2/length DEO2 #0100 .Audio2/length DEO2
@ -50,7 +51,7 @@ BRK
@on-frame ( -> ) @on-frame ( -> )
[ LIT &f $1 ] INCk ,&f STR [ LIT &f $1 ] INCk ,&f STR
DUP #08 DIVk MUL SUB #00 NEQ ?&skip DUP #0a DIVk MUL SUB #00 NEQ ?&skip
[ LIT &b $1 ] INCk ,&b STR #3f AND [ LIT &b $1 ] INCk ,&b STR #3f AND
play-bar play-bar
&skip &skip
@ -58,6 +59,16 @@ BRK
BRK BRK
@on-control ( -> )
.Controller/key DEI
DUP ( esc ) #1b NEQ ?&no-esc
#0000 ;on-frame/f STA ;on-frame/b STA
&no-esc
POP
BRK
@on-mouse ( -> ) @on-mouse ( -> )
( clear last cursor ) ( clear last cursor )
@ -90,13 +101,14 @@ BRK
DUP mod-c .song/c STZ DUP mod-c .song/c STZ
DUP get-a #00 SWP ;notes-lut ADD2 LDA send DUP get-a #00 SWP ;notes-lut ADD2 LDA send
DUP get-b #00 SWP ;notes-lut ADD2 LDA send DUP get-b #00 SWP ;notes-lut ADD2 LDA send
( DUP get-c send )
draw-song draw-song
JMP2r JMP2r
@send ( pitch -- ) @send ( pitch -- )
!play-note
DUP #00 EQU ?&skip DUP #00 EQU ?&skip
#00 .Console/write DEO #00 .Console/write DEO
DUP #30 ADD .Console/write DEO DUP #30 ADD .Console/write DEO

6
src/oquonie.tal
View File

@ -874,6 +874,12 @@ JMP2r
@e/note =e/blank/draw =&collide =e/blank/load @e/note =e/blank/draw =&collide =e/blank/load
&collide ( e* -- ) &collide ( e* -- )
fx/repair
( id ) LDAk #00 SWP
( key ) DUP2 ADD2 ;explode-lut ADD2
( value ) LDA2k #0004 ADD2 SWP2 STA2
DUP2 #0003 ADD2 LDA play-piano DUP2 #0003 ADD2 LDA play-piano
LDA !try-move/walk LDA !try-move/walk