mirror of
https://git.sr.ht/~rabbits/uxn
synced 2024-11-26 15:53:01 +00:00
(piano.tal) Improved layout
This commit is contained in:
Devine Lu Linvega
parent
612c15e59a
commit
89d13c6b3d
1 changed files with 34 additions and 37 deletions
|
|
@ -12,7 +12,6 @@
|
||||||
|
|
||||||
@last-note $1
|
@last-note $1
|
||||||
@octave $1
|
@octave $1
|
||||||
@pointer &x $2 &y $2
|
|
||||||
@center &x $2 &y $2
|
@center &x $2 &y $2
|
||||||
@adsr-view &x1 $2 &y1 $2 &x2 $2 &y2 $2
|
@adsr-view &x1 $2 &y1 $2 &x2 $2 &y2 $2
|
||||||
@wave-view &x1 $2 &y1 $2 &x2 $2 &y2 $2
|
@wave-view &x1 $2 &y1 $2 &x2 $2 &y2 $2
|
||||||
|
|
@ -21,20 +20,23 @@
|
||||||
|0100 ( -> )
|
|0100 ( -> )
|
||||||
|
|
||||||
( theme )
|
( theme )
|
||||||
#0fe5 .System/r DEO2
|
#0fe3 .System/r DEO2
|
||||||
#0fc5 .System/g DEO2
|
#0fc3 .System/g DEO2
|
||||||
#0f25 .System/b DEO2
|
#0f23 .System/b DEO2
|
||||||
|
( resize )
|
||||||
|
#0180 .Screen/width DEO2
|
||||||
|
#00e0 .Screen/height DEO2
|
||||||
( find center )
|
( find center )
|
||||||
.Screen/width DEI2 #01 SFT2 .center/x STZ2
|
.Screen/width DEI2 #01 SFT2 .center/x STZ2
|
||||||
.Screen/height DEI2 #01 SFT2 #0018 ADD2 .center/y STZ2
|
.Screen/height DEI2 #01 SFT2 #0010 ADD2 .center/y STZ2
|
||||||
( place octave )
|
( place octave )
|
||||||
.center/x LDZ2 #0080 SUB2 .octave-view/x1 STZ2
|
.center/x LDZ2 #0080 SUB2 .octave-view/x1 STZ2
|
||||||
.center/y LDZ2 #0008 ADD2 .octave-view/y1 STZ2
|
.center/y LDZ2 #0010 ADD2 .octave-view/y1 STZ2
|
||||||
.octave-view/x1 LDZ2 #0050 ADD2 .octave-view/x2 STZ2
|
.octave-view/x1 LDZ2 #0050 ADD2 .octave-view/x2 STZ2
|
||||||
.octave-view/y1 LDZ2 #0018 ADD2 .octave-view/y2 STZ2
|
.octave-view/y1 LDZ2 #0018 ADD2 .octave-view/y2 STZ2
|
||||||
( place adsr )
|
( place adsr )
|
||||||
.center/x LDZ2 #0020 SUB2 .adsr-view/x1 STZ2
|
.center/x LDZ2 #0020 SUB2 .adsr-view/x1 STZ2
|
||||||
.center/y LDZ2 #0008 ADD2 .adsr-view/y1 STZ2
|
.center/y LDZ2 #0010 ADD2 .adsr-view/y1 STZ2
|
||||||
.adsr-view/x1 LDZ2 #00a0 ADD2 .adsr-view/x2 STZ2
|
.adsr-view/x1 LDZ2 #00a0 ADD2 .adsr-view/x2 STZ2
|
||||||
.adsr-view/y1 LDZ2 #0018 ADD2 .adsr-view/y2 STZ2
|
.adsr-view/y1 LDZ2 #0018 ADD2 .adsr-view/y2 STZ2
|
||||||
( place waveform )
|
( place waveform )
|
||||||
|
|
@ -58,9 +60,12 @@
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
|
(
|
||||||
|
@|vectors )
|
||||||
|
|
||||||
@on-frame ( -> )
|
@on-frame ( -> )
|
||||||
|
|
||||||
#00 .Screen/auto DEO
|
[ LIT2 00 -Screen/auto ] DEO
|
||||||
.adsr-view/y2 LDZ2 #0020 SUB2 .Screen/y DEO2
|
.adsr-view/y2 LDZ2 #0020 SUB2 .Screen/y DEO2
|
||||||
#1000
|
#1000
|
||||||
&loop
|
&loop
|
||||||
|
|
@ -76,11 +81,6 @@ BRK
|
||||||
|
|
||||||
@on-control ( -> )
|
@on-control ( -> )
|
||||||
|
|
||||||
( clear last cursor )
|
|
||||||
.pointer/x LDZ2 .Screen/x DEO2
|
|
||||||
.pointer/y LDZ2 .Screen/y DEO2
|
|
||||||
#40 .Screen/sprite DEO
|
|
||||||
|
|
||||||
.Controller/key DEI
|
.Controller/key DEI
|
||||||
[ LIT "a ] NEQk NIP ?&no-c #30 .octave LDZ #0c MUL ADD play &no-c
|
[ LIT "a ] NEQk NIP ?&no-c #30 .octave LDZ #0c MUL ADD play &no-c
|
||||||
[ LIT "s ] NEQk NIP ?&no-d #32 .octave LDZ #0c MUL ADD play &no-d
|
[ LIT "s ] NEQk NIP ?&no-d #32 .octave LDZ #0c MUL ADD play &no-d
|
||||||
|
|
@ -114,7 +114,6 @@ BRK
|
||||||
POP
|
POP
|
||||||
|
|
||||||
draw-octave
|
draw-octave
|
||||||
draw-wave
|
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
|
|
@ -147,8 +146,7 @@ BRK
|
||||||
@on-touch-wave-view ( -> )
|
@on-touch-wave-view ( -> )
|
||||||
|
|
||||||
.Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2
|
.Mouse/x DEI2 .wave-view/x1 LDZ2 SUB2
|
||||||
( min ) #0010 GTH2k JMP SWP2 POP2 .Audio0/length DEO2
|
( min ) #0010 GTH2k [ JMP SWP2 POP2 ] set-length
|
||||||
draw-wave
|
|
||||||
|
|
||||||
BRK
|
BRK
|
||||||
|
|
||||||
|
|
@ -212,6 +210,15 @@ BRK
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
||||||
|
@set-length ( length* -- )
|
||||||
|
|
||||||
|
.Audio0/length DEO2
|
||||||
|
|
||||||
|
!draw-wave
|
||||||
|
|
||||||
|
(
|
||||||
|
@|drawing )
|
||||||
|
|
||||||
@update-cursor ( color addr* -- )
|
@update-cursor ( color addr* -- )
|
||||||
|
|
||||||
[ LIT2 00 -Screen/auto ] DEO
|
[ LIT2 00 -Screen/auto ] DEO
|
||||||
|
|
@ -237,7 +244,7 @@ JMP2r
|
||||||
;arrow-icns .Screen/addr DEO2
|
;arrow-icns .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEO
|
[ LIT2 01 -Screen/sprite ] DEO
|
||||||
;font-hex .octave LDZ #03 ADD #00 SWP #30 SFT2 ADD2 .Screen/addr DEO2
|
;font-hex .octave LDZ #03 ADD #00 SWP #30 SFT2 ADD2 .Screen/addr DEO2
|
||||||
[ LIT2 03 -Screen/sprite ] DEO
|
[ LIT2 02 -Screen/sprite ] DEO
|
||||||
;arrow-icns/down .Screen/addr DEO2
|
;arrow-icns/down .Screen/addr DEO2
|
||||||
[ LIT2 01 -Screen/sprite ] DEO
|
[ LIT2 01 -Screen/sprite ] DEO
|
||||||
( octave )
|
( octave )
|
||||||
|
|
@ -294,41 +301,32 @@ JMP2r
|
||||||
[ LIT2 75 -Screen/auto ] DEO
|
[ LIT2 75 -Screen/auto ] DEO
|
||||||
#e0 &lbg
|
#e0 &lbg
|
||||||
;dotted-icn .Screen/addr DEO2
|
;dotted-icn .Screen/addr DEO2
|
||||||
[ LIT2 03 -Screen/sprite ] DEO
|
[ LIT2 0c -Screen/sprite ] DEO
|
||||||
INC DUP ?&lbg
|
INC DUP ?&lbg
|
||||||
POP
|
POP
|
||||||
.wave-view/x1 LDZ2 .Screen/x DEO2
|
.wave-view/x1 LDZ2 .Screen/x DEO2
|
||||||
|
|
||||||
( waveform )
|
( waveform )
|
||||||
[ LIT2 01 -Screen/auto ] DEO
|
[ LIT2 01 -Screen/auto ] DEO
|
||||||
;sin-pcm/end ;sin-pcm
|
;sin-pcm/end ;sin-pcm
|
||||||
&loop
|
&loop
|
||||||
|
|
||||||
DUP2 ;sin-pcm SUB2 .Audio0/length DEI2 DIV2k MUL2 SUB2 ;sin-pcm ADD2 LDA
|
DUP2 ;sin-pcm SUB2 .Audio0/length DEI2 DIV2k MUL2 SUB2 ;sin-pcm ADD2 LDA
|
||||||
|
#00 SWP #02 SFT2 .wave-view/y1 LDZ2 ADD2 .Screen/y DEO2
|
||||||
|
|
||||||
#00 SWP #02 SFT2 .wave-view/y1 LDZ2 ADD2 .Screen/y DEO2
|
|
||||||
( draw ) DUP2 ;sin-pcm SUB2 NIP .Audio0/length DEI2 NIP #01 SUB GTH INC .Screen/pixel DEO
|
( draw ) DUP2 ;sin-pcm SUB2 NIP .Audio0/length DEI2 NIP #01 SUB GTH INC .Screen/pixel DEO
|
||||||
INC2 GTH2k ?&loop
|
INC2 GTH2k ?&loop
|
||||||
POP2 POP2
|
POP2 POP2
|
||||||
|
|
||||||
( length line )
|
( length line )
|
||||||
.wave-view/x1 LDZ2 .Audio0/length DEI2 #0001 SUB2 ADD2 .Screen/x DEO2
|
.wave-view/x1 LDZ2 .Audio0/length DEI2 #0001 SUB2 ADD2 .Screen/x DEO2
|
||||||
.wave-view/y1 LDZ2 .Screen/y DEO2
|
.wave-view/y1 LDZ2 .Screen/y DEO2
|
||||||
;line-icn .Screen/addr DEO2
|
;line-icn .Screen/addr DEO2
|
||||||
[ LIT2 71 -Screen/auto ] DEO
|
[ LIT2 71 -Screen/auto ] DEO
|
||||||
[ LIT2 05 -Screen/sprite ] DEO
|
[ LIT2 05 -Screen/sprite ] DEO
|
||||||
|
|
||||||
( range )
|
( range )
|
||||||
#01 .Screen/auto DEO
|
[ LIT2 01 -Screen/auto ] DEO
|
||||||
.wave-view/x1 LDZ2 .Screen/x DEO2
|
.wave-view/x1 LDZ2 .Screen/x DEO2
|
||||||
.wave-view/y1 LDZ2 #0010 SUB2 .Screen/y DEO2
|
.wave-view/y1 LDZ2 #0018 SUB2 .Screen/y DEO2
|
||||||
.Audio0/addr DEI2 draw-short
|
.Audio0/length DEI2
|
||||||
.wave-view/x2 LDZ2 #0020 SUB2 .Screen/x DEO2
|
|
||||||
.Audio0/length DEI2 draw-short
|
|
||||||
#00 .Screen/auto DEO
|
|
||||||
|
|
||||||
JMP2r
|
!draw-short
|
||||||
|
|
||||||
@draw-knob ( x* y* value -- )
|
@draw-knob ( x* y* value -- )
|
||||||
|
|
||||||
|
|
@ -347,7 +345,7 @@ JMP2r
|
||||||
( marker )
|
( marker )
|
||||||
.Screen/x DEI2 #0004 SUB2 #0000 STHkr ;knob-offsetx ADD2 LDA ADD2 .Screen/x DEO2
|
.Screen/x DEI2 #0004 SUB2 #0000 STHkr ;knob-offsetx ADD2 LDA ADD2 .Screen/x DEO2
|
||||||
.Screen/y DEI2 #0010 SUB2 #0000 STHr ;knob-offsety ADD2 LDA ADD2 .Screen/y DEO2
|
.Screen/y DEI2 #0010 SUB2 #0000 STHr ;knob-offsety ADD2 LDA ADD2 .Screen/y DEO2
|
||||||
;knob-icns #0020 ADD2 .Screen/addr DEO2
|
;knob-icns/index .Screen/addr DEO2
|
||||||
[ LIT2 05 -Screen/sprite ] DEO
|
[ LIT2 05 -Screen/sprite ] DEO
|
||||||
|
|
||||||
JMP2r
|
JMP2r
|
||||||
|
|
@ -387,9 +385,11 @@ JMP2r
|
||||||
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
|
@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
|
||||||
|
|
||||||
(
|
(
|
||||||
|
|
||||||
@|assets )
|
@|assets )
|
||||||
|
|
||||||
|
@notes-lut [
|
||||||
|
30 32 34 35 37 39 3b 3c ]
|
||||||
|
|
||||||
@dotted-icn [
|
@dotted-icn [
|
||||||
0000 0000 0000 0000
|
0000 0000 0000 0000
|
||||||
0000 0000 0000 0000
|
0000 0000 0000 0000
|
||||||
|
|
@ -410,9 +410,6 @@ JMP2r
|
||||||
0010 387c fe10 1000
|
0010 387c fe10 1000
|
||||||
&down
|
&down
|
||||||
0010 1010 fe7c 3810 ]
|
0010 1010 fe7c 3810 ]
|
||||||
@notes-lut [
|
|
||||||
30 32 34 35
|
|
||||||
37 39 3b 3c ]
|
|
||||||
@keys-left-icns [
|
@keys-left-icns [
|
||||||
7c7c 7c7c 7c7c 7c7c
|
7c7c 7c7c 7c7c 7c7c
|
||||||
7c7c 7c7c 7c7c 7e7f
|
7c7c 7c7c 7c7c 7e7f
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue