beatfix studios

just gene

FracticeBasic.PIE

Posted Wednesday, April 1st, 2009
Posted in code | 1 Comment » Print This Post Print

/* — Fractice – Wiimote — */
var.x = (Wiimote.gx + 1) / 2
var.y = (Wiimote.gy + 1) / 2
var.z = (Wiimote.gz + 1) / 2

midi.ByteControl4 = 1
midi.ByteControl11 = 1
midi.ByteControl3 = var.z   // color cycling rate A
midi.ByteControl17 = 1-var.y    // lissajous speed A

midi.ByteControl22 = 1
midi.ByteControl29 = 1
midi.ByteControl21 = var.z  // color cycling rate B
midi.ByteControl35 = 1-var.y    // lissajous speed B

var.damping = .9 // ranges from 0 (infinite) to 1 (none)
var.delta = var.x – (1-midi.ByteControl37) // calculate delta from input
var.x = var.x – (var.delta * var.damping) // apply damping and update position
midi.ByteControl37 = 1-var.x // xfader position
debug=var.x

midi.ByteControl42 = .1

/* — Fractice – Buttons — */
if clicked(wiimote.A) then {
if midi.ByteControl41<.5 then midi.ByteControl41=1 else midi.ByteControl41=0
} // mirror

if (var.x>.5)+clicked(wiimote.Plus) then midi.ByteControl5=midi.ByteControl5+1 // zoom in A
if (var.x>.5)+clicked(wiimote.Minus) then midi.ByteControl6=midi.ByteControl6+1  // zoom out A
if (var.x>.5)+clicked(wiimote.up) then midi.ByteControl7=midi.ByteControl7+1 // scroll up A
if (var.x>.5)+clicked(wiimote.down) then midi.ByteControl8=midi.ByteControl8+1  // scroll down A
if (var.x>.5)+clicked(wiimote.left) then midi.ByteControl9=midi.ByteControl9+1 // scroll left A
if (var.x>.5)+clicked(wiimote.right) then midi.ByteControl10=midi.ByteControl10+1 // scroll right A

if (var.x<.5)+clicked(wiimote.Plus) then midi.ByteControl23=midi.ByteControl23+1 // zoom in B
if (var.x<.5)+clicked(wiimote.Minus) then midi.ByteControl24=midi.ByteControl24+1  // zoom out B
if (var.x<.5)+clicked(wiimote.up) then midi.ByteControl25=midi.ByteControl25+1 // scroll up B
if (var.x<.5)+clicked(wiimote.down) then midi.ByteControl26=midi.ByteControl26+1  // scroll down B
if (var.x<.5)+clicked(wiimote.left) then midi.ByteControl27=midi.ByteControl27+1 // scroll left B
if (var.x<.5)+clicked(wiimote.right) then midi.ByteControl28=midi.ByteControl28+1  // scroll right B