0,]']±>Sï}WÿÍu§ðp8·d%qy;]É;]ÉA¦ösï÷ôôô”°ÂVl†3È7ffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`ffffffffffffffffffffffffffffffffff`ffffffffffffffffffffffffffffffffff`ffffffffffffffffffffffffffffffffff`ffffffffffffffffffffffffffffffffff`ffffffffffffffffffffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffff`fffffffffffffffffš-- title: piano roll -- author: commensalism -- desc: synthesia reference?? -- license: MIT License -- version: 0.1 -- script: lua -- input: keyboard local frac = 240/7 local oct = 5 cls(0) function TIC() if keyp(17) then oct = oct - 1 end if keyp(5) then oct = oct + 1 end if oct < 1 then oct = 1 end if oct > 8 then oct = 8 end for j = 0, 136 do for i = 0, 240 do pix(i, j, pix(i, j+1)) end end if key(1) then line(0, 135, frac, 135, oct); sfx(0, "C-" .. oct, 2) end if key(19) then line(frac, 135, frac*2, 135, oct); sfx(0, "D-" .. oct, 2) end if key(4) then line(frac*2, 135, frac*3, 135, oct); sfx(0, "E-" .. oct, 2) end if key(6) then line(frac*3, 135, frac*4, 135, oct); sfx(0, "F-" .. oct, 2) end if key(7) then line(frac*4, 135, frac*5, 135, oct); sfx(0, "G-" .. oct, 2) end if key(8) then line(frac*5, 135, frac*6, 135, oct); sfx(0, "A-" .. oct, 2) end if key(10) then line(frac*6, 135, 240, 135, oct); sfx(0, "B-" .. oct, 2) end line(frac, 0, frac, 135, 12) line(frac*2, 0, frac*2, 135, 12) line(frac*3, 0, frac*3, 135, 12) line(frac*4, 0, frac*4, 135, 12) line(frac*5, 0, frac*5, 135, 12) line(frac*6, 0, frac*6, 135, 12) end