Sujet KONTAKT 5 et le midi latch !
- 5 réponses
- 3 participants
- 2 124 vues
- 3 followers
Joka Production
76
Posteur·euse AFfranchi·e
Premier post
Joka Production
76
Posteur·euse AFfranchi·e
J'ai trouver !! dsl pour le post
Pour ceux que ça intéresse il faut ke les samples en questions face partie d'un même groupe (comme sur battery) puis faire partir le groupe sur une seule voi (genre la 001) ! dans script éditer après avoir sélectionner le midi latch, cliquer sur mono.
Pour ceux que ça intéresse il faut ke les samples en questions face partie d'un même groupe (comme sur battery) puis faire partir le groupe sur une seule voi (genre la 001) ! dans script éditer après avoir sélectionner le midi latch, cliquer sur mono.
http://www.joka-production.com
Bionx
18
Nouvel·le AFfilié·e
Bionx
18
Nouvel·le AFfilié·e
J ai trouvé sur le forum Native Instrument le script du midi latch amélioré (à mon gout en tout cas, il fonctionne comme celui de la MPC 
)
Le code à copier dans script edit :
{***********************************************
Midi Latch Ex
Author: Native Instruments
Written by: Josef Natterer, Nicki Marinic, Martin Jann, mbncp
Modified: Nov 11, 2005
Version: 1.0.0
*************************************************}
on init
message (" ")
declare $count
declare $counter_min
declare $counter_max
declare %note_id[128] {remember the last Event-ID }
declare ui_button $Panic
declare ui_table %note_play[128] (6,2,128) {1 if the note is still playing, 0 if not}
declare ui_label $label1 (2, 1)
set_text ($label1, "Latch all notes between:")
declare ui_label $label2 (6, 1)
set_text ($label2, ...
"C-2 C-1 C0 C1 C2 C3 C4 C5 C6 C7 C8")
declare ui_value_edit $Min (0, 127, 1)
declare ui_value_edit $Max (0, 127, 1)
declare ui_value_edit $All_Off (-1, 127, 1)
$Min := 0
$Max := 127
$All_Off := 24
move_control (%note_play, 1,2)
move_control ($Min, 3, 1)
move_control ($Max, 4, 1)
move_control ($label2, 1, 4)
move_control ($label1, 1, 1)
move_control ($Panic, 5,1)
move_control ($All_Off, 6,1)
make_persistent ($Min)
make_persistent ($Max)
make_persistent ($All_Off)
end on
on note
if ($EVENT_NOTE = $All_Off)
note_off ($ALL_EVENTS)
$count := 0
while ($count < 128)
%note_play[$count] := 0
inc ($count)
end while
else
if (in_range($EVENT_NOTE, $Min, $Max))
ignore_event($EVENT_ID)
%note_id[$EVENT_NOTE] := play_note($EVENT_NOTE,$EVENT_VELOCITY,0,0)
if(%note_play[$EVENT_NOTE] > 122)
%note_play[$EVENT_NOTE] := 0
end if
%note_play[$EVENT_NOTE] := %note_play[$EVENT_NOTE] + 5
end if
end if
end on
on ui_control ($Panic)
$Panic := 0
note_off ($ALL_EVENTS)
$count := $min
while ($count <= $max)
%note_play[$count] := 0
inc ($count)
end while
end on
on ui_control ($Min)
if ($Min > $Max)
$Max := $Min
end if
$counter_max := $Max
$counter_min := 0
while ($counter_min < $Min)
%note_play[$counter_min] := 127
%note_play[$counter_min+1] := 0
inc ($counter_min)
end while
while ($counter_max > $Min)
%note_play[$counter_max] := 0
dec ($counter_max)
end while
end on
on ui_control ($Max)
if ($Max < $Min)
$Min := $Max
end if
$counter_max := 127
$counter_min := $Min
while ($counter_max > $Max)
%note_play[$counter_max] := 127
%note_play[$counter_max-1] := 0
dec ($counter_max)
end while
while ($counter_min < $Max)
%note_play[$counter_min] := 0
inc ($counter_min)
end while
end on
)Le code à copier dans script edit :
{***********************************************
Midi Latch Ex
Author: Native Instruments
Written by: Josef Natterer, Nicki Marinic, Martin Jann, mbncp
Modified: Nov 11, 2005
Version: 1.0.0
*************************************************}
on init
message (" ")
declare $count
declare $counter_min
declare $counter_max
declare %note_id[128] {remember the last Event-ID }
declare ui_button $Panic
declare ui_table %note_play[128] (6,2,128) {1 if the note is still playing, 0 if not}
declare ui_label $label1 (2, 1)
set_text ($label1, "Latch all notes between:")
declare ui_label $label2 (6, 1)
set_text ($label2, ...
"C-2 C-1 C0 C1 C2 C3 C4 C5 C6 C7 C8")
declare ui_value_edit $Min (0, 127, 1)
declare ui_value_edit $Max (0, 127, 1)
declare ui_value_edit $All_Off (-1, 127, 1)
$Min := 0
$Max := 127
$All_Off := 24
move_control (%note_play, 1,2)
move_control ($Min, 3, 1)
move_control ($Max, 4, 1)
move_control ($label2, 1, 4)
move_control ($label1, 1, 1)
move_control ($Panic, 5,1)
move_control ($All_Off, 6,1)
make_persistent ($Min)
make_persistent ($Max)
make_persistent ($All_Off)
end on
on note
if ($EVENT_NOTE = $All_Off)
note_off ($ALL_EVENTS)
$count := 0
while ($count < 128)
%note_play[$count] := 0
inc ($count)
end while
else
if (in_range($EVENT_NOTE, $Min, $Max))
ignore_event($EVENT_ID)
%note_id[$EVENT_NOTE] := play_note($EVENT_NOTE,$EVENT_VELOCITY,0,0)
if(%note_play[$EVENT_NOTE] > 122)
%note_play[$EVENT_NOTE] := 0
end if
%note_play[$EVENT_NOTE] := %note_play[$EVENT_NOTE] + 5
end if
end if
end on
on ui_control ($Panic)
$Panic := 0
note_off ($ALL_EVENTS)
$count := $min
while ($count <= $max)
%note_play[$count] := 0
inc ($count)
end while
end on
on ui_control ($Min)
if ($Min > $Max)
$Max := $Min
end if
$counter_max := $Max
$counter_min := 0
while ($counter_min < $Min)
%note_play[$counter_min] := 127
%note_play[$counter_min+1] := 0
inc ($counter_min)
end while
while ($counter_max > $Min)
%note_play[$counter_max] := 0
dec ($counter_max)
end while
end on
on ui_control ($Max)
if ($Max < $Min)
$Min := $Max
end if
$counter_max := 127
$counter_min := $Min
while ($counter_max > $Max)
%note_play[$counter_max] := 127
%note_play[$counter_max-1] := 0
dec ($counter_max)
end while
while ($counter_min < $Max)
%note_play[$counter_min] := 0
inc ($counter_min)
end while
end on
[ Dernière édition du message le 06/02/2013 à 23:04:42 ]
Anonyme
Anonyme
- < Liste des sujets
- Charte