Hi,
I found this code on an old thread but it is missing the on_persistence code. I have tried everything I can think of but can't seem to figure it out! Please can someone put me out of my misery!?
The group select element works as it should but no waveform graphic is displayed.
Thanks in advance!
https://www.native-instruments.com/forum/threads/displaying-samples-from-two-layers-in-different-waveforms.409171/page-2
on init
set_ui_height_px(150)
set_ui_width_px(550)
make_perfview
message ("")
declare $i
declare %layer_1[2] := (0,1)
declare %layer_2[2] := (2,3)
declare %zones1[2] := (0,1)
declare %zones2[2] := (2,3)
declare $noteID
declare $zoneID
declare $event_ID
declare const $layer_1first := 0
declare const $layer_1last := 1
declare const $layer_2first := 2
declare const $layer_2last := 3
declare ui_menu $menu_layer1
make_persistent($menu_layer1)
$i := $layer_1first
while ($i<=$layer_1last)
add_menu_item($menu_layer1,group_name($i),$i)
inc($i)
end while
declare ui_menu $menu_layer2
make_persistent($menu_layer2)
$i := $layer_2first
while ($i<=$layer_2last)
add_menu_item($menu_layer2,group_name($i),$i)
inc($i)
end while
declare ui_waveform $waveform_1 (6,6)
set_control_par(get_ui_id($waveform_1),$CONTROL_PAR_WIDTH,300)
set_control_par(get_ui_id($waveform_1),$CONTROL_PAR_HEIGHT,100)
move_control_px($waveform_1, 5, 30)
declare ui_waveform $waveform_2 (6,6)
set_control_par(get_ui_id($waveform_2),$CONTROL_PAR_WIDTH,300)
set_control_par(get_ui_id($waveform_2),$CONTROL_PAR_HEIGHT,100)
move_control_px($waveform_2, 305, 30)
end on
on ui_control ($menu_layer1)
$i := $layer_1first
while ($i<=$layer_1last)
purge_group($i,0)
inc($i)
end while
purge_group($menu_layer1,1)
$event_ID := play_note (60, 1, 0, 1)
change_vol($event_ID, -200000, 0)
set_event_par_arr($event_ID, $EVENT_PAR_ALLOW_GROUP, 0, $ALL_GROUPS)
set_event_par_arr($event_ID, $EVENT_PAR_ALLOW_GROUP, 1, $menu_layer1)
wait(1)
$zoneID := get_event_par($event_ID,$EVENT_PAR_ZONE_ID)
attach_zone($waveform_1, $zoneID, 0)
end on
on ui_control ($menu_layer2)
$i := $layer_2first
while ($i<=$layer_2last)
purge_group($i,0)
inc($i)
end while
purge_group($menu_layer2,1)
$event_ID := play_note (60, 1, 0, 1)
change_vol($event_ID, -200000, 0)
set_event_par_arr($event_ID, $EVENT_PAR_ALLOW_GROUP, 0, $ALL_GROUPS)
set_event_par_arr($event_ID, $EVENT_PAR_ALLOW_GROUP, 1, $menu_layer2)
wait(1)
$zoneID := get_event_par($event_ID,$EVENT_PAR_ZONE_ID)
attach_zone($waveform_2, $zoneID, 0)
end on