[go: up one dir, main page]
Scribd
Upload
12 views11 pages

Script 1

The document outlines the initialization and configuration of the Nord Piano 3 user interface, including various controls for volume, effects, and instrument layers. It details the setup of sliders and buttons for adjusting parameters such as noise levels, reverb, and equalizer settings. Additionally, it specifies the positioning and visibility of these controls within the UI layout.

Uploaded by

miguel12huertas22
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
12 views11 pages

Script 1

The document outlines the initialization and configuration of the Nord Piano 3 user interface, including various controls for volume, effects, and instrument layers. It details the setup of sliders and buttons for adjusting parameters such as noise levels, reverb, and equalizer settings. Additionally, it specifies the positioning and visibility of these controls within the UI layout.

Uploaded by

miguel12huertas22
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 11

{***********************************************

Nord Piano 3

Written by: Divino Marcos

*************************************************}

on init

make_perfview
set_script_title ("Piano")
set_ui_height_px (320)
set_control_par_str ($INST_WALLPAPER_ID, $CONTROL_PAR_PICTURE,"wallpaper")
set_control_par_str($INST_ICON_ID,$CONTROL_PAR_PICTURE,"nord_icon")

declare ui_slider $level(0, 1000000)


set_control_par_str(get_ui_id($level),$CONTROL_PAR_HELP,"Level: Volume master dos
pianos e layers.")
declare ui_button $piano
set_control_par_str(get_ui_id($piano),$CONTROL_PAR_HELP,"Master:
Habilita/Desabilita todos os instrumentos.")
declare ui_slider $key_noise_level(0, 1000000)
set_control_par_str(get_ui_id($key_noise_level),$CONTROL_PAR_HELP,"Noise: Ajusta
os n�veis de ru�do de resson�ncia e martelos do piano.")
declare ui_slider $layer_level(0, 1000000)
set_control_par_str(get_ui_id($layer_level),$CONTROL_PAR_HELP,"Layer: Volume
principal das layers.")
declare ui_button $grand
set_control_par_str(get_ui_id($grand),$CONTROL_PAR_HELP,"Grand 1:
Habilita/Desabilita o piano Grand Imperial.")
declare ui_button $s90
set_control_par_str(get_ui_id($s90),$CONTROL_PAR_HELP,"s90: Habilita/Desabilita o
piano s90.")
declare ui_button $steinway
set_control_par_str(get_ui_id($steinway),$CONTROL_PAR_HELP,"Grand 2:
Habilita/Desabilita o piano Bright Grand.")
declare ui_button $air
set_control_par_str(get_ui_id($air),$CONTROL_PAR_HELP,"Layer 1:
Habilita/Desabilita o pad Air.")
declare ui_button $pcm
set_control_par_str(get_ui_id($pcm),$CONTROL_PAR_HELP,"Layer 3:
Habilita/Desabilita o pad PCM.")
declare ui_button $lush
set_control_par_str(get_ui_id($lush),$CONTROL_PAR_HELP,"Layer 2:
Habilita/Desabilita o pad Lush.")
declare ui_button $strings
set_control_par_str(get_ui_id($strings),$CONTROL_PAR_HELP,"Layer 5:
Habilita/Desabilita o pad Analog Strings.")
declare ui_button $warm
set_control_par_str(get_ui_id($warm),$CONTROL_PAR_HELP,"Layer 4:
Habilita/Desabilita o pad Warm Pad.")
declare ui_button $phaser
set_control_par_str(get_ui_id($phaser),$CONTROL_PAR_HELP,"Phaser:
Habilita/Desabilita o rack de efeito Phaser.")
declare ui_button $chorus
set_control_par_str(get_ui_id($chorus),$CONTROL_PAR_HELP,"Chorus:
Habilita/Desabilita o rack de efeito Chorus.")
declare ui_button $delay
set_control_par_str(get_ui_id($delay),$CONTROL_PAR_HELP,"Delay:
Habilita/Desabilita o rack de efeito Delay.")
declare ui_button $eq
set_control_par_str(get_ui_id($eq),$CONTROL_PAR_HELP,"Equalizer:
Habilita/Desabilita o rack de equalizador.")
declare ui_button $drive
set_control_par_str(get_ui_id($drive),$CONTROL_PAR_HELP,"Drive Master:
Habilita/Desabilita o efeito Drive.")
declare ui_button $rev_on
set_control_par_str(get_ui_id($rev_on),$CONTROL_PAR_HELP,"Reverb Master:
Habilita/Desabilita o Reverb.")
declare ui_slider $reverb(0, 1000000)
set_control_par_str(get_ui_id($reverb),$CONTROL_PAR_HELP,"Reverb Level:
Intensidade do Reverb.")
declare ui_slider $amount(0, 1000000)
set_control_par_str(get_ui_id($amount),$CONTROL_PAR_HELP,"Amount Level: Volume
master de todos os efeitos do rack.")
declare ui_slider $a_phaser(0, 1000000)
set_control_par_str(get_ui_id($a_phaser),$CONTROL_PAR_HELP,"Amount Phaser: Ajusta
a intensidade do efeito Phaser.")
declare ui_slider $t_phaser(0, 1000000)
set_control_par_str(get_ui_id($t_phaser),$CONTROL_PAR_HELP,"Tempo Phaser: Ajusta
o tempo do efeito Phaser.")
declare ui_slider $a_chorus(0, 1000000)
set_control_par_str(get_ui_id($a_chorus),$CONTROL_PAR_HELP,"Amount Chorus: Ajusta
a intensidade do efeito Chorus.")
declare ui_slider $t_chorus(0, 1000000)
set_control_par_str(get_ui_id($t_chorus),$CONTROL_PAR_HELP,"Tempo Chorus: Ajusta
o tempo do efeito Chorus.")
declare ui_slider $f_delay(0, 1000000)
set_control_par_str(get_ui_id($f_delay),$CONTROL_PAR_HELP,"Feedback: Ajusta a
itensidade das repeti��es do efeito Delay.")
declare ui_slider $t_delay(0, 1000000)
set_control_par_str(get_ui_id($t_delay),$CONTROL_PAR_HELP,"Tempo: Ajusta o tempo
das repeti��es do efeito Delay.")
declare ui_slider $a_drive(0, 1000000)
set_control_par_str(get_ui_id($a_drive),$CONTROL_PAR_HELP,"Drive Volume: Ajusta a
itensidade de distor��o do efeito Drive.")
declare ui_slider $treble(0, 1000000)
set_control_par_str(get_ui_id($treble),$CONTROL_PAR_HELP,"Treble/Agudo: Ajusta os
n�veis de ganho de frequ�ncia aguda do equalizador.")
declare ui_slider $mid(0, 1000000)
set_control_par_str(get_ui_id($mid),$CONTROL_PAR_HELP,"Mid/M�dio: Ajusta os
n�veis de ganho de frequ�ncia m�dia do equalizador.")
declare ui_slider $f_mid(0, 1000000)
set_control_par_str(get_ui_id($f_mid),$CONTROL_PAR_HELP,"Freq/Frequ�ncia: Ajusta
a faixa de frequ�ncia do m�dio.")
declare ui_slider $bass(0, 1000000)
set_control_par_str(get_ui_id($bass),$CONTROL_PAR_HELP,"Bass/Grave: Ajusta os
n�veis de ganho de frequ�ncia grave do equalizador.")
declare ui_slider $f_bass(0, 1000000)
set_control_par_str(get_ui_id($f_bass),$CONTROL_PAR_HELP,"Freq/Frequ�ncia: Ajusta
a faixa de frequ�ncia do grave.")

set_text ($piano," ")


set_text ($grand," ")
set_text ($s90," ")
set_text ($steinway," ")
set_text ($air," ")
set_text ($pcm," ")
set_text ($lush," ")
set_text ($strings," ")
set_text ($warm," ")
set_text ($phaser," ")
set_text ($chorus," ")
set_text ($delay," ")
set_text ($eq," ")
set_text ($drive," ")
set_text ($rev_on," ")

make_persistent($key_noise_level)
make_persistent($layer_level)
make_persistent($level)
make_persistent($piano)
make_persistent($grand)
make_persistent($upright)
make_persistent($steinway)
make_persistent($air)
make_persistent($pcm)
make_persistent($lush)
make_persistent($phaser)
make_persistent($chorus)
make_persistent($delay)
make_persistent($eq)
make_persistent($drive)
make_persistent($reverb)
make_persistent($amount)
make_persistent($a_phaser)
make_persistent($t_phaser)
make_persistent($a_chorus)
make_persistent($t_chorus)
make_persistent($f_delay)
make_persistent($t_delay)
make_persistent($rev_on)
make_persistent($a_drive)
make_persistent($treble)
make_persistent($mid)
make_persistent($f_mid)
make_persistent($bass)
make_persistent($f_bass)

move_control_px($level, 28,24)
move_control_px($piano, 28,85)
move_control_px($key_noise_level, 106,26)
move_control_px($layer_level,106,83)
move_control_px($grand,15,150)
move_control_px($s90,117,150)
move_control_px($steinway,67,150)
move_control_px($air,13,210)
move_control_px($pcm,13,247)
move_control_px($lush,72,210)
move_control_px($strings,125,230)
move_control_px($warm,72,247)
move_control_px($phaser,198,250)
move_control_px($chorus,266,250)
move_control_px($delay,335,250)
move_control_px($eq,400,60)
move_control_px($drive,455,250)
move_control_px($reverb,210,28)
move_control_px($amount,322,28)
move_control_px($a_phaser,198,140)
move_control_px($t_phaser,198,197)
move_control_px($a_chorus,265,140)
move_control_px($t_chorus,265,197)
move_control_px($f_delay,335,140)
move_control_px($t_delay,335,197)
move_control_px($rev_on,265,60)
move_control_px($a_drive,400,242)
move_control_px($treble,460,57)
move_control_px($mid,460,120)
move_control_px($f_mid,403,120)
move_control_px($bass,460,185)
move_control_px($f_bass,403,185)

hide_part($level,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.


$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($piano,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($key_noise_level,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($layer_level,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($grand,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($s90,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE .or.
$HIDE_PART_VALUE)
hide_part($steinway,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE
.or. $HIDE_PART_VALUE)
hide_part($air,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE .or.
$HIDE_PART_VALUE)
hide_part($pcm,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE .or.
$HIDE_PART_VALUE)
hide_part($lush,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($strings,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($warm,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($phaser,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($chorus,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($delay,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($eq,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE .or.
$HIDE_PART_VALUE)
hide_part($drive,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($reverb,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($amount,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($a_phaser,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE
.or. $HIDE_PART_VALUE)
hide_part($t_phaser,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE
.or. $HIDE_PART_VALUE)
hide_part($a_chorus,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE
.or. $HIDE_PART_VALUE)
hide_part($t_chorus,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE
.or. $HIDE_PART_VALUE)
hide_part($f_delay,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($t_delay,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($rev_on,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($a_drive,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($treble,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($mid,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or. $HIDE_PART_TITLE .or.
$HIDE_PART_VALUE)
hide_part($f_mid,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($bass,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)
hide_part($f_bass,$HIDE_PART_BG .or. $HIDE_PART_MOD_LIGHT .or.
$HIDE_PART_TITLE .or. $HIDE_PART_VALUE)

set_control_par_str(get_ui_id($level), $CONTROL_PAR_PICTURE, "nord_knob_105")


set_control_par(get_ui_id($level), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($reverb), $CONTROL_PAR_PICTURE, "nord_knob_105")
set_control_par(get_ui_id($reverb), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($amount), $CONTROL_PAR_PICTURE, "nord_knob_105")
set_control_par(get_ui_id($amount), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)

set_control_par_str(get_ui_id($piano), $CONTROL_PAR_PICTURE,
"nord_button_led_6")
set_control_par(get_ui_id($piano), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($piano), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($grand), $CONTROL_PAR_PICTURE,
"nord_button_led_6_2")
set_control_par(get_ui_id($grand), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($grand), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($s90), $CONTROL_PAR_PICTURE,
"nord_button_led_6_2")
set_control_par(get_ui_id($s90), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($s90), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($steinway), $CONTROL_PAR_PICTURE,
"nord_button_led_6_2")
set_control_par(get_ui_id($steinway), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($steinway), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($air), $CONTROL_PAR_PICTURE,
"nord_button_led_6_5")
set_control_par(get_ui_id($air), $CONTROL_PAR_WIDTH,65)
set_control_par(get_ui_id($air), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($pcm), $CONTROL_PAR_PICTURE,
"nord_button_led_6_5")
set_control_par(get_ui_id($pcm), $CONTROL_PAR_WIDTH,65)
set_control_par(get_ui_id($pcm), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($lush), $CONTROL_PAR_PICTURE,
"nord_button_led_6_5")
set_control_par(get_ui_id($lush), $CONTROL_PAR_WIDTH,65)
set_control_par(get_ui_id($lush), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($strings), $CONTROL_PAR_PICTURE,
"nord_button_led_6_3")
set_control_par(get_ui_id($strings), $CONTROL_PAR_WIDTH,45)
set_control_par(get_ui_id($strings), $CONTROL_PAR_HEIGHT,58)
set_control_par_str(get_ui_id($warm), $CONTROL_PAR_PICTURE,
"nord_button_led_6_5")
set_control_par(get_ui_id($warm), $CONTROL_PAR_WIDTH,65)
set_control_par(get_ui_id($warm), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($phaser), $CONTROL_PAR_PICTURE,
"nord_button_led_6_6")
set_control_par(get_ui_id($phaser), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($phaser), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($chorus), $CONTROL_PAR_PICTURE,
"nord_button_led_6_6")
set_control_par(get_ui_id($chorus), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($chorus), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($delay), $CONTROL_PAR_PICTURE,
"nord_button_led_6_6")
set_control_par(get_ui_id($delay), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($delay), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($eq), $CONTROL_PAR_PICTURE, "nord_button_led_6_8")
set_control_par(get_ui_id($eq), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($eq), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($drive), $CONTROL_PAR_PICTURE,
"nord_button_led_6_8")
set_control_par(get_ui_id($drive), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($drive), $CONTROL_PAR_HEIGHT,50)
set_control_par_str(get_ui_id($rev_on), $CONTROL_PAR_PICTURE,
"nord_button_led_6_8")
set_control_par(get_ui_id($rev_on), $CONTROL_PAR_WIDTH,55)
set_control_par(get_ui_id($rev_on), $CONTROL_PAR_HEIGHT,50)

set_control_par_str(get_ui_id($key_noise_level), $CONTROL_PAR_PICTURE,
"nord_knob_100")
set_control_par(get_ui_id($key_noise_level), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($layer_level), $CONTROL_PAR_PICTURE,
"nord_knob_100")
set_control_par(get_ui_id($layer_level), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($a_phaser), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($a_phaser), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($t_phaser), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($t_phaser), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($a_chorus), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($a_chorus), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($t_chorus), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($t_chorus), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($f_delay), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($f_delay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($t_delay), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($t_delay), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($a_drive), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($a_drive), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($treble), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($treble), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($mid), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($mid), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($f_mid), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($f_mid), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($bass), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($bass), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)
set_control_par_str(get_ui_id($f_bass), $CONTROL_PAR_PICTURE, "nord_knob_100")
set_control_par(get_ui_id($f_bass), $CONTROL_PAR_MOUSE_BEHAVIOUR, -500)

$level:= 800000
$level := _get_engine_par ($ENGINE_PAR_VOLUME,1,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,2,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,3,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,4,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,5,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,6,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,7,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,8,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,9,-1,-1)
$level := _get_engine_par ($ENGINE_PAR_VOLUME,10,-1,-1)

$layer_level:= 800000
$layer_level := _get_engine_par ($ENGINE_PAR_VOLUME,11,-1,-1)
$layer_level := _get_engine_par ($ENGINE_PAR_VOLUME,12,-1,-1)
$layer_level := _get_engine_par ($ENGINE_PAR_VOLUME,13,-1,-1)
$layer_level := _get_engine_par ($ENGINE_PAR_VOLUME,14,-1,-1)
$layer_level := _get_engine_par ($ENGINE_PAR_VOLUME,15,-1,-1)

$key_noise_level:= 800000
$key_noise_level := _get_engine_par ($ENGINE_PAR_VOLUME,16,-1,-1)
$key_noise_level := _get_engine_par ($ENGINE_PAR_VOLUME,17,-1,-1)
$key_noise_level := _get_engine_par ($ENGINE_PAR_VOLUME,18,-1,-1)

$piano:= 0

end on

on note

if ($piano = 0)
disallow_group ($ALL_GROUPS)

end if
disallow_group ($ALL_GROUPS)
if ($piano = 1 and $grand = 1 )
allow_group (0)
allow_group (1)
allow_group (2)

end if
if ($piano = 1 and $s90 = 1)
allow_group (3)
allow_group (4)
allow_group (5)

end if
if ($piano =1 and $steinway = 1)
allow_group (6)
allow_group (7)
allow_group (8)

end if
if ($piano = 1 and $air = 1)
allow_group (10)

end if
if ($piano = 1 and $pcm = 1)
allow_group (11)

end if
if ($piano = 1 and $lush = 1)
allow_group (12)

end if
if ($piano = 1 and $strings = 1)
allow_group (13)

end if
if ($piano = 1 and $warm = 1)
allow_group (14)

end if
end on

on ui_control ($level)

set_engine_par($ENGINE_PAR_VOLUME, $level , 0 , -1 , -1)


set_engine_par($ENGINE_PAR_VOLUME, $level , 1, -1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 3,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 4,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 5,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 6,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 7,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 11,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 12,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 13,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 14,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 15,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 16,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $level , 17,-1 , -1)

if($level < 500000)


message("Volume: " & -100 + $level/5000)
else
message("Volume: " & ($level - 500000)/5000)

end if
end on

on ui_control ($key_noise_level)

set_engine_par($ENGINE_PAR_VOLUME, $key_noise_level , 15 , -1 , -1)


set_engine_par($ENGINE_PAR_VOLUME, $key_noise_level , 16, -1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $key_noise_level , 17,-1 , -1)
if($key_noise_level < 500000)
message("Noise Volume: " & -100 + $key_noise_level/5000)
else
message("Noise Volume: " & ($key_noise_level - 500000)/5000)

end if
end on

on ui_control ($layer_level)

set_engine_par($ENGINE_PAR_VOLUME, $layer_level , 10 , -1 , -1)


set_engine_par($ENGINE_PAR_VOLUME, $layer_level , 11 , -1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $layer_level , 12, -1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $layer_level , 13,-1 , -1)
set_engine_par($ENGINE_PAR_VOLUME, $layer_level , 14,-1 , -1)

if($layer_level < 500000)


message("Layer Volume: " & -100 + $layer_level/5000)
else
message("Layer Volume: " & ($layer_level - 500000)/5000)

end if
end on

on ui_control ($phaser)

_set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1-$phaser,-1,2,-1)

end on

on ui_control ($chorus)

_set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1-$chorus,-1,1,-1)

end on

on ui_control ($delay)

_set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1-$delay,-1,0,-1)

end on

on ui_control ($eq)

_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,1-$eq,-1,4,-1)

end on

on ui_control ($drive)

_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,1-$drive,-1,3,-1)

end on

on ui_control ($reverb)

_set_engine_par($ENGINE_PAR_RV_SIZE,$reverb,-1,5,0)
_set_engine_par($ENGINE_PAR_RV_SIZE,$reverb,-1,5,1)
end on

on ui_control ($amount)

_set_engine_par($ENGINE_PAR_SENDLEVEL_0,$amount,-1,6,0)
_set_engine_par($ENGINE_PAR_SENDLEVEL_0,$amount,-1,6,1)
_set_engine_par($ENGINE_PAR_SENDLEVEL_1,$amount,-1,6,0)
_set_engine_par($ENGINE_PAR_SENDLEVEL_1,$amount,-1,6,1)
_set_engine_par($ENGINE_PAR_SENDLEVEL_2,$amount,-1,6,0)
_set_engine_par($ENGINE_PAR_SENDLEVEL_2,$amount,-1,6,1)
_set_engine_par($ENGINE_PAR_SENDLEVEL_5,$amount,-1,6,0)
_set_engine_par($ENGINE_PAR_SENDLEVEL_5,$amount,-1,6,1)

end on

on ui_control ($a_phaser)

_set_engine_par($ENGINE_PAR_PH_FEEDBACK,$a_phaser,-1,2,0)
_set_engine_par($ENGINE_PAR_PH_FEEDBACK,$a_phaser,-1,2,1)

end on

on ui_control ($t_phaser)

_set_engine_par($ENGINE_PAR_PH_SPEED,$t_phaser,-1,2,0)
_set_engine_par($ENGINE_PAR_PH_SPEED,$t_phaser,-1,2,1)

end on

on ui_control ($a_chorus)

_set_engine_par($ENGINE_PAR_CH_DEPTH,$a_chorus,-1,1,0)
_set_engine_par($ENGINE_PAR_CH_DEPTH,$a_chorus,-1,1,1)

end on

on ui_control ($t_chorus)

_set_engine_par($ENGINE_PAR_CH_SPEED,$t_chorus,-1,1,0)
_set_engine_par($ENGINE_PAR_CH_SPEED,$t_chorus,-1,1,1)

end on

on ui_control ($f_delay)

_set_engine_par($ENGINE_PAR_DL_FEEDBACK,$f_delay,-1,0,0)
_set_engine_par($ENGINE_PAR_DL_FEEDBACK,$f_delay,-1,0,1)

end on

on ui_control ($t_delay)

_set_engine_par($ENGINE_PAR_DL_TIME,$t_delay,-1,0,0)
_set_engine_par($ENGINE_PAR_DL_TIME,$t_delay,-1,0,1)

end on

on ui_control ($eq)
_set_engine_par($ENGINE_PAR_EFFECT_BYPASS,1-$eq,-1,4,-1)

end on

on ui_control ($rev_on)

_set_engine_par($ENGINE_PAR_SEND_EFFECT_BYPASS,1-$rev_on,-1,5,-1)

end on

on ui_control ($a_drive)

_set_engine_par($ENGINE_PAR_DRIVE,$a_drive,-1,3,0)
_set_engine_par($ENGINE_PAR_DRIVE,$a_drive,-1,3,1)

end on

on ui_control ($treble)

_set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$treble,-1,4,0)
_set_engine_par($ENGINE_PAR_SEQ_HF_GAIN,$treble,-1,4,1)

end on

on ui_control ($mid)

_set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$mid,-1,4,0)
_set_engine_par($ENGINE_PAR_SEQ_HMF_GAIN,$mid,-1,4,1)

end on

on ui_control ($f_mid)

_set_engine_par($ENGINE_PAR_SEQ_HMF_FREQ,$f_mid,-1,4,0)
_set_engine_par($ENGINE_PAR_SEQ_HMF_FREQ,$f_mid,-1,4,1)

end on

on ui_control ($bass)

_set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$bass,-1,4,0)
_set_engine_par($ENGINE_PAR_SEQ_LF_GAIN,$bass,-1,4,1)

end on

on ui_control ($f_bass)

_set_engine_par($ENGINE_PAR_SEQ_LF_FREQ,$f_bass,-1,4,0)
_set_engine_par($ENGINE_PAR_SEQ_LF_FREQ,$f_bass,-1,4,1)

end on

You might also like