Andrew C
2017-06-03 07:58:57 UTC
Hey list,
Guess someone might find these scripts useful.
First one is a simple mono-mode script that makes the instrument monophonic
when the sustain pedal is pressed down.
The second one is a simple transposition script that alternates between
playing the note you've currently played and the note 3 octaves above it.
Useful for those sample libraries that have their up and down bows mapped
to different octaves on the keyboard.
Enjoy!
Andrew Coughlan.
Mono mode script:
--
on init
declare $active_note
end on
on note
ignore_event()
if (%CC[64] = 127)
note_off($active_note)
$active_note := play_note($EVENT_NOTE, $EVENT_VELOCITY)
else
$active_note := play_note($EVENT_NOTE, $EVENT_VELOCITY)
end if
end on
+++
Alternation script:
---
on init
declare $alt := 0
end on
on note
select $alt
case 0
change_note($EVENT_ID, $EVENT_NOTE) {up bow}
$alt := 1
case 1
change_note($EVENT_ID, $EVENT_NOTE+36) {down bow}
$alt := 0
end select
end on
Guess someone might find these scripts useful.
First one is a simple mono-mode script that makes the instrument monophonic
when the sustain pedal is pressed down.
The second one is a simple transposition script that alternates between
playing the note you've currently played and the note 3 octaves above it.
Useful for those sample libraries that have their up and down bows mapped
to different octaves on the keyboard.
Enjoy!
Andrew Coughlan.
Mono mode script:
--
on init
declare $active_note
end on
on note
ignore_event()
if (%CC[64] = 127)
note_off($active_note)
$active_note := play_note($EVENT_NOTE, $EVENT_VELOCITY)
else
$active_note := play_note($EVENT_NOTE, $EVENT_VELOCITY)
end if
end on
+++
Alternation script:
---
on init
declare $alt := 0
end on
on note
select $alt
case 0
change_note($EVENT_ID, $EVENT_NOTE) {up bow}
$alt := 1
case 1
change_note($EVENT_ID, $EVENT_NOTE+36) {down bow}
$alt := 0
end select
end on