The objective here is to automatically create a usable tcl script like this:

 cat prodphase3a.tcl

 exec bash -c export LADSPA_PATH=/usr/lib64/ladspa/

 set cc 0

 catch {
  exec jack-rack -c 2 -s innoi innoi -x [incr cc 20] -y $cc -w 584 -l 1170 &
  exec jack-rack -c 2 -s 4cdplay 4cdplay_pro -x [incr cc 20] -y $cc -w 584 -l 1170 &
  exec jack-rack -c 2 -s lowmidspea lowmidspea14 -x [incr cc 20] -y $cc -w 584 -l 1170 &
  exec jack-rack -c 2 -s compdrive compdrive -x [incr cc 20] -y $cc -w 584 -l 1170 &
  exec jack-rack -c 2 -s dellex dellex -x [incr cc 20] -y $cc -w 584 -l 1170 &
   after 500
  exec meterbridge -t dpm -r 0 -c 2 1 2  -n in &
 }
   after 500
   catch "exec jack_connect system:capture_1 jack_rack_innoi:in_1"
   catch "exec jack_connect system:capture_2 jack_rack_innoi:in_2"
   catch "exec jack_connect system:capture_1 in:meter_1"
   catch "exec jack_connect system:capture_2 in:meter_2"
   catch "exec jack_connect jack_rack_innoi:out_1 jack_rack_4cdplay:in_1"
   catch "exec jack_connect jack_rack_innoi:out_2 jack_rack_4cdplay:in_2"

   catch "exec jack_connect jack_rack_dellex:out_1 system:playback_1"
   catch "exec jack_connect jack_rack_dellex:out_2 system:playback_2"

 set u ./b

 catch { 
 after 1000
 exec jack-rack -s del2 -c 2 del2 -x [incr cc 20] -y $cc -w 584 -l 1170 &
 exec jack-rack -s del3 -c 2 del3 -x [incr cc 20] -y $cc -w 584 -l 1170 &
 }
 #gets stdin
 catch { 
 exec meterbridge -t dpm -n bridge -r 0  6 7 8 9 10 11 12 13 &
 exec meterbridge -t dpm -r 0 -c 2 1 2 -n om &
 exec meterbridge -t dpm -r 0 -c 2 1 2 -n om2 &
 exec meterbridge -t dpm -r 0 -c 2 1 2 -n out &

 }

   after 1500
   catch "exec jack_connect jack_rack_innoi:out_1 jack_rack_4cdplay:in_1 "
   catch "exec jack_connect jack_rack_innoi:out_2 jack_rack_4cdplay:in_2 "
   catch "exec jack_connect jack_rack_4cdplay:out_1 jack_rack_del2:in_1"
   catch "exec jack_connect jack_rack_4cdplay:out_2 jack_rack_del2:in_2"

   after 500
   catch "exec jack_connect jack_rack_del2:out_1 jack_rack_del3:in_1"
   catch "exec jack_connect jack_rack_del2:out_2 jack_rack_del3:in_2"

 catch { 
 exec jack-rack -c 2 -s aaa aaa_lim  -x [incr cc 20] -y $cc -w 584 -l 1170 &
 }

 catch { 
 exec jack-rack -c 2 -s par par_tube  -x [incr cc 20] -y $cc -w 584 -l 1170 &
 }
   after 1500


 for {set i 6} {$i<=13} {incr i} {
   append o [exec jack-rack -c 2 -s $i Autom/b$i -x [incr cc 20] -y $cc -w 584 -l 1170 &] " "
   after 500
   catch "exec jack_connect jack_rack_aaa:out_1 jack_rack_$i:in_1"
   catch "exec jack_connect jack_rack_aaa:out_2 jack_rack_$i:in_2"
   after 500
   catch "exec jack_connect jack_rack_$i:out_1 jack_rack_par:in_1"
   catch "exec jack_connect jack_rack_$i:out_2 jack_rack_par:in_2"
 }
   after 500

 for {set i 6} {$i<=13} {incr i} {
   append o [exec jack-rack -c 2 -s df$i df$i -x [incr cc 20] -y $cc -w 584 -l 1170 &] " "
   after 500
   catch "exec jack_connect jack_rack_compdrive:out_1 jack_rack_df$i:in_1"
   catch "exec jack_connect jack_rack_compdrive:out_2 jack_rack_df$i:in_2"
   after 500
   catch "exec jack_connect jack_rack_df$i:out_1 jack_rack_$i:in_1"
   catch "exec jack_connect jack_rack_df$i:out_2 jack_rack_$i:in_2"
 }

   after 500
 for {set i 6} {$i<=14} {incr i} {
   after 400
   catch "exec jack_connect jack_rack_$i:out_1 bridge:meter_[expr $i-5]"
   catch "exec jack_connect jack_rack_$i:out_2 bridge:meter_[expr $i-5]"
 }

   after 500
   catch "exec jack_connect jack_rack_del3:out_1 out:meter_1"
   catch "exec jack_connect jack_rack_del3:out_2 out:meter_2"
   catch "exec jack_connect jack_rack_par:out_1 om:meter_1"
   catch "exec jack_connect jack_rack_par:out_2 om:meter_2"
   catch "exec jack_connect jack_rack_par:out_1 out:meter_1"
   catch "exec jack_connect jack_rack_par:out_2 out:meter_2"

   after 500
   catch "exec jack_connect jack_rack_dellex:out_1 om2:meter_1"
   catch "exec jack_connect jack_rack_dellex:out_2 om2:meter_2"


 catch { 
 exec jamin -p -n jam -f ./harmo4.jam &
 }
   after 500
   after 500

   catch "exec jack_connect jam:out_L jack_rack_aaa:in_1"
   catch "exec jack_connect jam:out_R jack_rack_aaa:in_2"

   after 500
 set u ./b

 catch { 
 after 800
 exec jack-rack -c 2 -s higpas higpasslow -x [incr cc 20] -y $cc -w 584 -l 1170 &
 exec jack-rack -c 2 -s higcom higexp -x [incr cc 20] -y $cc -w 584 -l 1170 &
 }
 catch { 
 exec meterbridge -t dpm -r 0 -c 2 1 2 -n hico1 &

 }

   after 500
   catch "exec jack_connect jack_rack_4cdplay:out_1 jack_rack_lowmidspea:in_1 "
   catch "exec jack_connect jack_rack_4cdplay:out_2 jack_rack_lowmidspea:in_2 "
   catch "exec jack_connect jack_rack_lowmidspea:out_1 jack_rack_compdrive:in_1 "
   catch "exec jack_connect jack_rack_lowmidspea:out_2 jack_rack_compdrive:in_2 "
   catch "exec jack_connect jack_rack_4cdplay:out_1 jack_rack_higcom:in_1 "
   catch "exec jack_connect jack_rack_4cdplay:out_2 jack_rack_higcom:in_2 "
   catch "exec jack_connect jack_rack_higpas:out_1 out:meter_1 "
   catch "exec jack_connect jack_rack_higpas:out_2 out:meter_2 "
   catch "exec jack_connect jack_rack_higpas:out_1 hico1:meter_1 "
   catch "exec jack_connect jack_rack_higpas:out_2 hico1:meter_2 "

   append o [catch "exec jack_connect jack_rack_higcom:out_1 jam:in_L "]
   append o [catch "exec jack_connect jack_rack_higcom:out_2 jam:in_R "]
   append o [catch "exec jack_connect jack_rack_lowmidspea:out_1 jam:in_L "]
   append o [catch "exec jack_connect jack_rack_lowmidspea:out_2 jam:in_R "]
   append o [catch "exec jack_connect jam:out_L jack_rack_higpas:in_1 "]
   append o [catch "exec jack_connect jam:out_R jack_rack_higpas:in_2 "]

   append o [catch "exec jack_connect out:monitor_1 jack_rack_dellex:in_1 "]
   append o [catch "exec jack_connect out:monitor_2 jack_rack_dellex:in_2 "]
   after 501

 puts $o


   after 1500


 puts $o


from a [BWise] graph, so as to rearange audio signal paths for Linux machines (maybe Windows "Jack" and Mac Jack can work too), composed of multiple interconnected "jack-rack" processing blocks, with associated DSP definition files.

For me these tcl scripts (I'll make a shorter, explained version soon) make it possible to run a great audio processing chain to correct CD files and postproduce for instance "HDtracks" high quality tracks, without having to start up all the jack-rack programs+interface by hand. These scripts gets my I7 machine running these heavy graphs reliably in a few tens of seconds, bu now  want to take parts of various types of processing, and make new graphs, so I adapt BWise a bit.


<<categories>>BWise