initial commit

This commit is contained in:
Nico 2021-07-12 22:39:14 +01:00
commit 20c70d7146
2 changed files with 58 additions and 0 deletions

54
euclid.tal Normal file
View File

@ -0,0 +1,54 @@
( the beginnings of a euclidian sequencer thing )
%RTN { JMP2r }
( devices )
|00 @System [ &vector $2 &wst $1 &rst $1 &pad $4 &r $2 &g $2 &b $2 ]
|10 @Console [ &vector $2 &read $1 &pad $5 &write $1 ]
|20 @Screen [ &vector $2 &width $2 &height $2 &pad $2 &x $2 &y $2 &addr $2 &color $1 ]
|30 @Audio0 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|40 @Audio1 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|50 @Audio2 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|60 @Audio3 [ &vector $2 &position $2 &output $1 &pad $3 &adsr $2 &length $2 &addr $2 &volume $1 &pitch $1 ]
|80 @Controller [ &vector $2 &button $1 &key $1 ]
|90 @Mouse [ &vector $2 &x $2 &y $2 &state $1 &wheel $1 ]
|a0 @File [ &vector $2 &success $2 &offset $2 &pad $2 &name $2 &length $2 &load $2 &save $2 ]
|b0 @DateTime [ &year $2 &month $1 &day $1 &hour $1 &minute $1 &second $1 &dotw $1 &doty $2 &isdst $1 ]
( variables )
( audio0 - backbeat, audio1 - euclid )
|0000
@tick $1
@cycle $1 ( position in cycle )
|0100 ( -> )
;square .Audio0/addr DEO2
#0100 .Audio0/adsr DEO2
#40 .Audio0/volume DEO
#0002 .Audio0/length DEO2
;square .Audio1/addr DEO2
#0100 .Audio1/adsr DEO2
#04 .Audio1/volume DEO
#0002 .Audio1/length DEO2
;on-frame/run .Screen/vector DEO2
BRK
@on-frame ( -> )
&run
.tick LDZ #01 ADD DUP .tick STZ
#10 NEQ ,&next JCN ( if the tick is not 0x10, skip. This makes a beat every 16 frames )
;on-tick/run JSR2
#00 .tick STZ
&next
BRK
@on-tick
&run
#40 .Audio0/pitch DEO
RTN
@square [ ff 00 ]

4
readme.md Normal file
View File

@ -0,0 +1,4 @@
# nihilazo's uxneria
uxn sketches, snippets, and experiments.
Do not rely on any of this compiling or being useful.