Friday, May 30, 2008

GlovePie 學生作業示範

--------------------------------以下是程式
// 200804 class
//c (csharp) d (dsharp) e f (fsharp) g (gsharp) a (asharp) b
//do re me fa so la si
//¦ñ«µ
if pressed(f1) then midi.C4Velocity = 100%
if pressed(f1) then midi.E4Velocity = 100%
if pressed(f1) then midi.G4Velocity = 100%
if pressed(f2) then midi.D4Velocity = 100%
if pressed(f2) then midi.F4Velocity = 100%
if pressed(f2) then midi.A4Velocity = 100%
if pressed(f3) then midi.F4Velocity = 100%
if pressed(f3) then midi.A4Velocity = 100%
if pressed(f3) then midi.C5Velocity = 100%
if pressed(f4) then midi.D4Velocity = 100%
if pressed(f4) then midi.F4Velocity = 100%
if pressed(f4) then midi.B4Velocity = 100%
midi.Cowbell = F12
midi.BassDrum2 = F11
midi.SideStick = F10
midi.AcousticSnare = F9
midi.HandClap = F8

// c5
Say("keyboard music")= Keyboard.enter
midi.c5 = Keyboard.Z
midi.csharp5 = Keyboard.S
midi.d5 = Keyboard.x
midi.dsharp5 = Keyboard.d
midi.e5 = Keyboard.c
midi.f5 = Keyboard.v
midi.fsharp5 = Keyboard.g
midi.g5 = Keyboard.b
midi.gsharp5 = Keyboard.h
midi.a5 = Keyboard.n
midi.asharp5 = Keyboard.j.
midi.b5 = Keyboard.m
midi.c6 = Comma

//c6
midi.c6 = Keyboard.q
midi.csharp6 = Keyboard.2
midi.d6 = Keyboard.w
midi.dsharp6 = Keyboard.3
midi.e6 = Keyboard.e
midi.f6 = Keyboard.r
midi.fsharp6 = Keyboard.5
midi.g6 = Keyboard.t
midi.gsharp6 = Keyboard.6
midi.a6 = Keyboard.y
midi.asharp6 = Keyboard.7
midi.b6 = Keyboard.u

// end

--------------------------------以上是程式

No comments: