0
0
Fork 0
mirror of https://git.sr.ht/~rabbits/uxn synced 2024-12-05 03:57:25 +00:00
uxn/projects/examples/devices/audio.tal

178 lines
4.2 KiB
Tal
Raw Normal View History

2021-04-21 19:44:57 +00:00
( dev/audio )
2021-08-23 17:08:19 +00:00
%GET-NOTE { #00 SWP ;melody ADD2 LDA }
%GET-HEXCHAR { #00 SWP #30 SFT2 ;font-hex ADD2 .Screen/addr DEO2 }
2021-04-21 19:44:57 +00:00
( devices )
2021-04-29 04:00:39 +00:00
|00 @System [ &vector $2 &pad $6 &r $2 &g $2 &b $2 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &pixel $1 &sprite $1 ]
2021-04-29 04:00:39 +00:00
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
2021-08-23 17:08:19 +00:00
|80 @Controller [ &vector $2 &button $1 &key $1 ]
2021-04-21 19:44:57 +00:00
2021-05-24 21:52:11 +00:00
( variables )
|0000
2021-08-23 17:08:19 +00:00
@timer $1
@progress $1
@selection $1
@offset
&x $2 &y $2
2021-05-24 21:52:11 +00:00
2021-04-21 19:44:57 +00:00
|0100 ( -> )
2021-04-29 04:00:39 +00:00
( theme )
2021-08-23 17:10:17 +00:00
#0f8f .System/r DEO2
#0f8f .System/g DEO2
#0f80 .System/b DEO2
2021-04-21 19:44:57 +00:00
2021-04-29 04:00:39 +00:00
( vectors )
;on-frame .Screen/vector DEO2
2021-08-23 17:08:19 +00:00
;on-button .Controller/vector DEO2
2021-04-29 04:00:39 +00:00
( setup synth )
2021-08-23 17:10:17 +00:00
#0208 .Audio0/adsr DEO2
2021-04-29 04:00:39 +00:00
;saw .Audio0/addr DEO2
#0100 .Audio0/length DEO2
2021-08-23 17:10:17 +00:00
#dd .Audio0/volume DEO ( TODO: turn ON )
2021-08-23 17:08:19 +00:00
( center )
.Screen/width DEI2 #01 SFT2 #0080 SUB2 .offset/x STZ2
.Screen/height DEI2 #01 SFT2 #0040 SUB2 .offset/y STZ2
2021-08-23 17:08:19 +00:00
;draw JSR2
#02 ;draw-selector JSR2
BRK
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
@on-button ( -> )
.Controller/button DEI #04 SFT
[ #01 ] NEQk NIP ,&no-up JCN
.selection LDZ STHk
#00 ;draw-note JSR2
2021-08-25 22:53:37 +00:00
[ STHkr GET-NOTE INC ] #00 STHkr ;melody ADD2 STA
2021-08-23 17:08:19 +00:00
STHr #01 ;draw-note JSR2
#02 ;draw-selector JSR2
&no-up
[ #02 ] NEQk NIP ,&no-down JCN
.selection LDZ STHk
#00 ;draw-note JSR2
[ STHkr GET-NOTE #01 SUB ] #00 STHkr ;melody ADD2 STA
STHr #01 ;draw-note JSR2
#02 ;draw-selector JSR2
&no-down
[ #04 ] NEQk NIP ,&no-left JCN
#00 ;draw-selector JSR2
.selection LDZ #01 SUB #1f AND .selection STZ
2021-08-23 17:08:19 +00:00
#02 ;draw-selector JSR2
&no-left
[ #08 ] NEQk NIP ,&no-right JCN
#00 ;draw-selector JSR2
.selection LDZ INC #1f AND .selection STZ
2021-08-23 17:08:19 +00:00
#02 ;draw-selector JSR2
&no-right
POP
2021-04-21 19:44:57 +00:00
BRK
@on-frame ( -> )
2021-08-23 17:08:19 +00:00
( incr ) .timer LDZ INC .timer STZ
2021-05-11 18:14:52 +00:00
( skip ) .timer LDZ #10 EQU #01 JCN [ BRK ]
2021-08-23 17:08:19 +00:00
.progress LDZ
( play note ) DUP GET-NOTE .Audio0/pitch DEO
( erase last ) DUP #01 SUB #1f AND #01 ,draw-note JSR
2021-08-23 17:08:19 +00:00
( draw current ) #01 ,draw-note JSR
( incr ) .progress LDZ INC #1f AND .progress STZ
2021-08-23 17:08:19 +00:00
#00 .timer STZ
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
BRK
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
@draw ( -- )
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
#20 #00
&loop
DUP #01 ,draw-note JSR
INC GTHk ,&loop JCN
POP2
2021-04-21 19:44:57 +00:00
JMP2r
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
@draw-note ( id color -- )
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
STH STH
( set x ) [ #00 STHkr ] #30 SFT2 .offset/x LDZ2 ADD2 .Screen/x DEO2
( set y ) [ #00 #00 STHkr ;melody ADD2 LDA ] #20 SFT2 #0100 SWP2 SUB2 .offset/y LDZ2 ADD2 #0080 ADD2 .Screen/y DEO2
2021-08-23 17:08:19 +00:00
( set addr ) ;marker-icn [ #00 .progress LDZ STHr EQU #08 MUL ADD2 ] .Screen/addr DEO2
( draw ) STHr .Screen/sprite DEO
2021-04-21 19:44:57 +00:00
JMP2r
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
@draw-selector ( color -- )
STH
[ #00 .selection LDZ ] #30 SFT2 .offset/x LDZ2 ADD2 .Screen/x DEO2
2021-08-23 17:08:19 +00:00
#0070 .offset/y LDZ2 ADD2 .Screen/y DEO2
;selector-icn .Screen/addr DEO2
STHkr .Screen/sprite DEO
2022-07-14 21:57:56 +00:00
.Screen/y DEI2k #0008 ADD2 ROT DEO2
2021-08-23 17:08:19 +00:00
.selection LDZ GET-NOTE STHr ,draw-byte JSR
JMP2r
2021-08-23 17:08:19 +00:00
@draw-byte ( byte color -- )
STH
DUP
#04 SFT GET-HEXCHAR
( draw ) STHkr .Screen/sprite DEO
.Screen/x DEI2 #0008 ADD2 .Screen/x DEO2
#0f AND GET-HEXCHAR
( draw ) STHr .Screen/sprite DEO
JMP2r
2021-08-23 17:08:19 +00:00
@melody
2021-08-23 17:10:17 +00:00
54 52 54 4f 4b 4f 48 ff
54 52 54 4f 4b 4f 48 ff
2021-08-23 17:08:19 +00:00
54 56 57 56 57 54 56 54
2021-08-23 17:10:17 +00:00
56 52 54 52 54 50 54 ff
2021-08-23 17:08:19 +00:00
@selector-icn
0000 0010 387c 0000
@marker-icn
3844 8282 8244 3800
387c fefe fe7c 3800
2021-04-21 19:44:57 +00:00
2021-08-23 17:08:19 +00:00
@saw
2021-04-29 04:00:39 +00:00
0003 0609 0c0f 1215 181b 1e21 2427 2a2d
3033 3639 3b3e 4143 4649 4b4e 5052 5557
595b 5e60 6264 6667 696b 6c6e 7071 7274
7576 7778 797a 7b7b 7c7d 7d7e 7e7e 7e7e
7f7e 7e7e 7e7e 7d7d 7c7b 7b7a 7978 7776
7574 7271 706e 6c6b 6967 6664 6260 5e5b
5957 5552 504e 4b49 4643 413e 3b39 3633
302d 2a27 2421 1e1b 1815 120f 0c09 0603
00fd faf7 f4f1 eeeb e8e5 e2df dcd9 d6d3
d0cd cac7 c5c2 bfbd bab7 b5b2 b0ae aba9
a7a5 a2a0 9e9c 9a99 9795 9492 908f 8e8c
8b8a 8988 8786 8585 8483 8382 8282 8282
8182 8282 8282 8383 8485 8586 8788 898a
8b8c 8e8f 9092 9495 9799 9a9c 9ea0 a2a5
a7a9 abae b0b2 b5b7 babd bfc2 c5c7 cacd
2021-08-23 17:08:19 +00:00
d0d3 d6d9 dcdf e2e5 e8eb eef1 f4f7 fafd
@font-hex ( 0-F )
007c 8282 8282 827c 0030 1010 1010 1010
007c 8202 7c80 80fe 007c 8202 1c02 827c
000c 1424 4484 fe04 00fe 8080 7c02 827c
007c 8280 fc82 827c 007c 8202 1e02 0202
007c 8282 7c82 827c 007c 8282 7e02 827c
007c 8202 7e82 827e 00fc 8282 fc82 82fc
007c 8280 8080 827c 00fc 8282 8282 82fc
007c 8280 f080 827c 007c 8280 f080 8080