beatfix studios

rocks in a river

Archive for April, 2009

VJammPS2.PIE

Posted Saturday, April 25th, 2009
Posted in code | No Comments »

// VJamm PS2 script by Jeff Mission – http://beatfix.com
// keymap joystick (or PS2 controller) to control VJamm demo version
// change “Joystick2″ to your joystick # as needed
// optimised for Naki DDR handheld pad :-)

debug=Joystick2.x

if (!Joystick2.Button9) && (!Joystick2.Button10) then {
Key.LeftBracket=Joystick2.Button7
Key.RightBracket=Joystick2.Button5
Key.Backspace=Joystick2.Button7+Joystick2.Button5
key.left=Joystick2.Button6
key.right=Joystick2.Button8
}

if (Joystick2.Button10) {
Key.2=Joystick2.Button7
Key.4=Joystick2.Button5
key.6=Joystick2.Button6
key.8=Joystick2.Button8
key.0=Joystick2.Button9
}
key.P=doubleclicked(Joystick2.Button10)

if (Joystick2.Button9) {
if Joystick2.Button7 then var.mode=0
if Joystick2.Button5 then var.mode=1
key.C=Joystick2.Button6
key.L=Joystick2.Button8
}
key.X=doubleclicked(Joystick2.Button9)

if (var.mode=0) {
Key.Q=Joystick2.Button3
Key.W = (Joystick2.y=-1)
Key.E=Joystick2.Button2
Key.R = (Joystick2.x=-1)
Key.T = (Joystick2.x=1)
Key.Y=Joystick2.Button1
Key.U = (Joystick2.y=1)
Key.I=Joystick2.Button4
}

if (var.mode=1) {
Key.A=Joystick2.Button3
Key.S = (Joystick2.y=-1)
Key.D=Joystick2.Button2
Key.F = (Joystick2.x=-1)
Key.G = (Joystick2.x=1)
Key.H=Joystick2.Button1
Key.J = (Joystick2.y=1)
Key.K=Joystick2.Button4
}

if (var.mode=2) {
Key.LeftBracket=Joystick2.Button3
Key.Backspace = (Joystick2.y=-1)
Key.RightBracket=Joystick2.Button2
Key.left = (Joystick2.x=-1)
Key.right = (Joystick2.x=1)
Key.2=Joystick2.Button1
Key.0 = (Joystick2.y=1)
Key.7=Joystick2.Button4
}

FracticeBasic.PIE

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

/* — 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