Found a crapton of old Drum Machine Samples. Tried putting them into Kontakt. Got distracted making the GUI.
Should I do more of these old drum machines? Do these actually work? While waiting to see more of what the brilliant brain of Clandestine has in store for GUIs, I messed with Lynn. She's pretty bassy for a girl.

Sexy Ace
Sexy Ace Again
Lynn 9K

 

Yes they do work & scripting much, much improved & displays all correct & stuff.

The only scripting errors I seen so far is that your reverb not display corect values i.e 1.0 instead of +24 DB This only as u set your ranges & not asked for the knob to return the value therfor it will diplay 0-1.0 as you set your range 0,1000000,1000000 i.e 0-1 will be returned

Range should be set 0,10000000,(increments desired) normally 1 then use the get _get_engine_par_disp command as you have done previously to return the value correctly.

Overall MASSIVE improvent & pretty cool *yes*

One option I would maybe think about with drums especially is using the buses as this can bring in all sorts of cool possibilities.

Maybe a little to much predelay on the reverb but as I said with a dropdown menu for an array this solves any such issues as u dial in a load of presets

Another cool option would be some midi files/Drag & Drop etc. Also some menus for preset arrays

Like the GUI pic is cool.

If u want a gui design template more than happy to help

Overall massive improvement

Keep it up some good stuff *yes*

 

Clandestine ladies and gentleman.

 

Bigcat quickly fixed the script so that reverb displays proper values (rush job)

Code:

on init
make_perfview
set_ui_height (4)

declare $count
declare $groups_menu
declare $note

declare ui_knob $Bass (0,666667,1)
set_knob_defval($Bass,500000)
set_knob_label ($Bass,_get_engine_par_disp($ENGINE_PAR_GAIN1,-1,0,1))

declare ui_knob $Mid (0,666667,1)
set_knob_defval($Mid,500000)
set_knob_label ($Mid,_get_engine_par_disp($ENGINE_PAR_GAIN2,-1,0,1))

declare ui_knob $Treble (0,666667,1)
set_knob_defval($Treble,500000)
set_knob_label ($Treble,_get_engine_par_disp($ENGINE_PAR_GAIN3,-1,0,1))

declare ui_knob $Curve (0,1000000,1)
declare ui_knob $Attack (0,1000000,1)
declare ui_knob $Hold (0,1000000,1)
declare ui_knob $Decay (0,1000000,1)
declare ui_knob $Sustain (0,1000000,1)
declare ui_knob $Release (0,1000000,1)

declare ui_label $EQ(1,1)
set_text($EQ,"        EQ ")
move_control($EQ,1,1)

declare ui_label $ADSR(2,1)
set_text($ADSR,"                      Envelope")
move_control($ADSR,5,1)

declare ui_button $Reverb
$Reverb := get_engine_par($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,-1,1,1)
set_text ($Reverb,"    Reverb")
move_control ($Reverb,4,1)

declare ui_knob $Size (0,1000000,1)
set_control_par_str(get_ui_id($Size),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_RV_SIZE, -1,1,1))
$Size :=750000
set_text ($Size,"   Size")
move_control ($Size,4,4)

declare ui_knob $ReverbReturn (0,1000000,1)
set_control_par_str(get_ui_id($ReverbReturn),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN, -1,1,1) & " dB")
$ReverbReturn :=620000
set_text ($ReverbReturn,    "  Wet")
move_control ($ReverbReturn,4,2)


make_persistent ($Reverb)
make_persistent ($Size)
make_persistent ($ReverbReturn)

set_knob_unit($Attack, $KNOB_UNIT_MS)
set_knob_unit($Hold, $KNOB_UNIT_MS)
set_knob_unit($Decay, $KNOB_UNIT_MS)
set_knob_unit($Sustain, $KNOB_UNIT_DB)
set_knob_unit($Release, $KNOB_UNIT_MS)
set_knob_unit($Bass, $KNOB_UNIT_DB)
set_knob_unit($Mid, $KNOB_UNIT_DB)
set_knob_unit($Treble, $KNOB_UNIT_DB)

move_control ($Bass,1,6)
move_control ($Treble,1,2)
move_control ($Mid,1,4)
move_control ($Curve,5,2)
move_control ($Attack,5,4)
move_control ($Hold,5,6)
move_control ($Decay,6,2)
move_control ($Sustain,6,4)
move_control ($Release,6,6)

set_text ($Treble," 5k hz")
set_text ($Bass,"  100 hz")
set_text ($Mid," 1k hz")


$Curve := get_engine_par($ENGINE_PAR_ATK_CURVE, 0, find_mod(0,"ENV_AHDSR"), -1)
$Attack := get_engine_par($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1)
$Hold := get_engine_par($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1)
$Decay := get_engine_par($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1)
$Sustain := get_engine_par($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1)
$Release := get_engine_par($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1)

make_persistent($Bass)
make_persistent($Treble)
make_persistent($Mid)
make_persistent($Curve)
make_persistent($Attack)
make_persistent($Hold)
make_persistent($Decay)
make_persistent($Sustain)
make_persistent($Release)

read_persistent_var($Curve)
read_persistent_var($Attack)
read_persistent_var($Hold)
read_persistent_var($Decay)
read_persistent_var($Sustain)
read_persistent_var($Release)

set_knob_label($Curve, get_engine_par_disp($ENGINE_PAR_ATK_CURVE, 0, find_mod(0,"ENV_AHDSR"), -1))
set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, find_mod(0,"ENV_AHDSR"), -1))
set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, find_mod(0,"ENV_AHDSR"), -1))
set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, find_mod(0,"ENV_AHDSR"), -1))
set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, find_mod(0,"ENV_AHDSR"), -1))
set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, find_mod(0,"ENV_AHDSR"), -1))

message("")
end on

{----CALLBACKS---}

{---MODULATION---}

on ui_control ($CURVE)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_ATK_CURVE, $CURVE, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Curve, get_engine_par_disp($ENGINE_PAR_ATK_CURVE, 0, 0, -1))
end on


on ui_control ($Attack)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_ATTACK, $Attack, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Attack, get_engine_par_disp($ENGINE_PAR_ATTACK, 0, 0, -1))
end on

on ui_control ($Hold)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_HOLD, $Hold, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Hold, get_engine_par_disp($ENGINE_PAR_HOLD, 0, 0, -1))
end on

on ui_control ($Decay)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_DECAY, $Decay, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Decay, get_engine_par_disp($ENGINE_PAR_DECAY, 0, 0, -1))
end on

on ui_control ($Sustain)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_SUSTAIN, $Sustain, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Sustain, get_engine_par_disp($ENGINE_PAR_SUSTAIN, 0, 0, -1))
end on

on ui_control ($Release)
$count := 0
while ($count < $NUM_GROUPS)
set_engine_par($ENGINE_PAR_RELEASE, $Release, $count, find_mod(0,"ENV_AHDSR"), -1)
inc($count)
end while

set_knob_label($Release, get_engine_par_disp($ENGINE_PAR_RELEASE, 0, 0, -1))
end on

{---EQ---}

on ui_control ($Bass)
_set_engine_par($ENGINE_PAR_GAIN1,$Bass,-1,0,1)
set_knob_label ($Bass,_get_engine_par_disp($ENGINE_PAR_GAIN1,-1,0,1))
end on

on ui_control ($Mid)
_set_engine_par($ENGINE_PAR_GAIN2,$Mid,-1,0,1)
set_knob_label ($Mid,_get_engine_par_disp($ENGINE_PAR_GAIN2,-1,0,1))
end on

on ui_control ($Treble)
_set_engine_par($ENGINE_PAR_GAIN3,$Treble,-1,0,1)
set_knob_label ($Treble,_get_engine_par_disp($ENGINE_PAR_GAIN3,-1,0,1))
end on

{---REVERB---}

on ui_control ($Reverb)

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

select ($Reverb)
case 0
set_text ($Reverb,"   Reverb ")
case 1
set_text ($Reverb,"   Reverb On")
end select
end on

on ui_control ($Size)
_set_engine_par ($ENGINE_PAR_RV_SIZE,$Size, -1,1,1)
set_control_par_str(get_ui_id($Size),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_RV_SIZE, -1,1,1))

end on

on ui_control ($ReverbReturn)
_set_engine_par ($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$ReverbReturn, -1,1,1)

set_control_par_str(get_ui_id($ReverbReturn),$CONTROL_PAR_LABEL,get_engine_par_disp($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN, -1,1,1) & " dB")
end on

Possibly a few mistakes but rushed it lol!

Another few bits your spacing off on your reverb text i.e when it returns to off txt position changed but no big one MAKE sure the spacing the same. i.e watch the shift after Reverb to Reverb on back to reverb. Moves a bit Just copy spacing from original Reverb text or set text allignment



Catalyst

 

Thanks I'll give it a whirl!
I put them up with the new script thanks. I'll use that as my new basic instrument script from now on.
If you want to make me a cool GUI that would be awesome. Just remember I no little to nothing about scripting so make it simple for my simple brain please! ;P

 

It's cool to see you both working together. I admire you, guys.