Little K5 string patch freebie thingee

Discussion in 'Software News' started by bigcat1969, Dec 1, 2014.

  1. bigcat1969

    bigcat1969 Producer

    Joined:
    Nov 16, 2013
    Messages:
    326
    Likes Received:
    126
    Messing about with a (hopefully) decent quality instrument for string section type parts in my little Christmas album and thought I'd share. The lead instruments are the Ldk1609 Violin used in SSO and the Cello and Bass from MSLP combined with the violin, viola, celli and bass sections from SSO.
    It's intended to be for backup string tracks where you don't feel like putting in a lot of work but want something that sounds realer than a synth patch. At 100 megs its fairly small, though it will eat up some voices. I tried to do a nice mix, but I'm not sure if it works. Any feedback is appreciated.

    http://soundcloud.com/bigcat1969/string-section-demo

    http://www.mediafire.com/download/sxwj9so0w6wl5en/SSO_and_MSLP_String_Section.nki

    Creative Commons Attribution. Please credit ldk1609, Mattias Westlund and Erick Kvist.

    If you picked up Kontakt for Black Friday, add some interesting free sounds to your library at http://bigcatinstruments.blogspot.com/2014/08/gm-midi-instruments-for-kontakt.html
     
  2. Clandestine

    Clandestine Platinum Record

    Joined:
    Nov 11, 2013
    Messages:
    717
    Likes Received:
    152
    Good u back Bigcat *yes*

    copy & paste this then your EQ display correct values

    Code:
    on init
    make_perfview
    set_ui_height (4)
    
    declare $count
    
    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
    set_text ($Reverb,"    Reverb")
    move_control ($Reverb,4,1)
    
    declare ui_knob $Size (0,1000000, 1000000)
    $Size :=750000
    set_text ($Size,"   Size")
    move_control ($Size,4,4)
    
    declare ui_knob $ReverbReturn (0,1000000, 1000000)
    $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)
    end on
    
    on ui_control ($ReverbReturn)
    _set_engine_par ($ENGINE_PAR_SEND_EFFECT_OUTPUT_GAIN,$ReverbReturn, -1,1,1)
    end on



    Your reverb needs a little adjustment to display correctly etc & set defaults but other than that sounds good.

    Nice one :wink:
     
  3. phloopy

    phloopy Audiosexual

    Joined:
    Jul 16, 2011
    Messages:
    3,960
    Likes Received:
    1,887
    Thanks BC ... Nice to see you "back"! :wink:
     
  4. bigcat1969

    bigcat1969 Producer

    Joined:
    Nov 16, 2013
    Messages:
    326
    Likes Received:
    126
    Thanks for the script User 137. I uploaded a new version using it.
    Hey Phloopy. I'm not really back, just can't quite break the habit.
     
Loading...
Similar Threads - Little string patch Forum Date
More than a little bit lost about Gig Performer... Software Reviews and Tutorials Jan 24, 2025
Supertramp - Give a Little Bit remixed Our Music Nov 12, 2024
A little bit of reverse engineering with Kontakt Kontakt Sep 27, 2024
just a little tune Our Music Jul 23, 2024
How does one automatically export multiple sample CD clips little to no cutoff? Working with Sound May 18, 2024
Loading...