DECLARE SUB Piano_Speler () SUB Piano_Speler () STATIC Sc() AS Sekwenstype STATIC tik AS DWORD STATIC cnt AS DWORD STATIC h AS harmtype IF ISFALSE Task(%pp_taak).tog THEN tik = 0 cnt = 0 REDIM Sc(1) AS STATIC Sekwenstype controller 0, 7, 120 progchange 0,122 'ppiano logos Task(%pp_taak).tog = %True END IF IF lukascompositie_deel = 2 THEN Task(%pp_taak).Har.vel = SumHar (Task(%thorvaldsen_a).Har, Task(%thorvaldsen_b).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_c).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_d).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_e).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%thorvaldsen_f).Har) END IF IF lukascompositie_deel = 1 THEN Task(%pp_taak).Har.vel = SumHar (Task(%edison_a).Har, Task(%edison_b).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%edison_c).Har) Task(%pp_taak).Har.vel = SumHar (Task(%pp_taak).Har, Task(%edison_d).Har) END IF IF lukascompositie_deel = 3 THEN task(%pp_taak).har.vel = SumHar (Task(%pp_taak).Har, Task(%rommel).Har) END IF IF lukascompositie_deel = 4 THEN task(%pp_taak).har.vel = sumhar (task(%sonate_s_r).har, task(%sonate_s_l).har) END IF 'task(%pp_taak).har.vel = ReScaleHarvel (task(%pp_taak).har,slider(0).value/127!) ' slider== LIB "g_har.dll" (h AS harmtype, faktor AS SINGLE) AS STRING '05.11.2004 h.vel = ReScaleHarvel (task(%pp_taak).har,slider(0).value/127!) PlayHar h , 0 'Task(%pp_taak).Har, 0 IF Task(%pp_taak).Har.vel <> Sc(cnt).Har.vel THEN Sc(cnt).Har = Task(%pp_taak).Har Sc(cnt).tik = tik INCR cnt REDIM PRESERVE Sc(cnt) END IF INCR tik Task(%pp_taak).Har.vel = NUL$(128) Task(%pp_taak).freq = 1000 END SUB 'controller 64, in 127 waarden = pedqql 'non legato klinkt machinaal 'controller 123, 0 = allnotesoff