PressurePals.tty

PRESSURE PALS!

BOTTOM 2 ROWS OF GRID: PRESS TO
ACTIVATE COLUMN
TOP 4 ROWS OF GRID: PRESS IN
COLUMN TO ACTIVATE THAT VALUE
FOR EDITING
ROWS 5-6 OF GRID: NUDGE VALUE UP/
DOWN FOR COLUMN

CV 1-4: VALUES FOR SELECTED COLUMN
TR 1: PULSES ON NEW COLUMN SELECT


#1
// value-select top 4 rows
G.BTN.SW G.BTNI

#2
// nudge-up buttons (and maybe nudge-down as well)
L 0 3: Z I; SCRIPT 6
IF LT Y 0: BREAK
P.N Y
P G.BTNX ADD P G.BTNX 1
// if we're playing this column, update CV
IF EQ X G.BTNX: SCRIPT 5
Y -1

#3
L 0 3: Z I; SCRIPT 6
IF LT Y 0: BREAK
P.N Y
P G.BTNX SUB P G.BTNX 1
IF EQ X G.BTNX: SCRIPT 5
Y -1

#4
// play button
X G.BTNX
SCRIPT 5
TR.PULSE 1

#5
// render to CVs
L 1 4: CV I N PN SUB I 1 X

#6
// assign the value chosen in our lane to Y
IF G.BTN.V ADD G.BTNX Z: Y Z


#7
#8
Y MUL Z 4
G.GBX Z Y Z 0 1 1 1 1 1 1 4

#I
L 0 15: Z I; SCRIPT 8
G.GBX 16 64 4 0 1 1 0 0 2 16 1
G.GBX 17 80 5 0 1 1 0 0 3 16 1
G.GBX 18 96 6 0 1 2 1 1 4 16 1
G.REC 6 0 16 1 1 1
Y -1

#M
#P
#G