Commit 33c0c4ee authored by Arshia Cont's avatar Arshia Cont
Browse files

Harmlibv1.2 for two harmo instances (work by Carlo Laurenzi)

parent ffd45775
BPM 60
;;;; Performing general tests on Table operations for debugging
print General Tests
$t := [$x | $x in 1 .. 20 : 2] ;; creates impair numbers up to 10
print Table: ($t)
print Lace test of 3: (@lace($t, 3))
;$index := [1,3,4]
;print Subindexing: ($t[($index)])
;;;;;;;;; Load Library
@INSERT "zInclude/Lib_Stroppa-harms1.2.txt"
;@INSERT "Stroppa_/Auras_2015/Auras_Scores/AscoLibs/Lib_Stroppa-harms1.txt"
antescofo::suivi 0
antescofo::version
;;print Db -6.0 gives (@db2linear(-6.0))
;;;;;;;;;;;; INITIALIZATIONS Harmonizers Bank01 "hr"
::InitHarmsA(5, "hr")
curve hr_out_gain -150.0, 0.0 3.0 ; All Gain values are in DB
::transA([0, 0, 0, 0, 0], 0.5)
::transgainA([1, 2, 3, 4, 5], [-150, -150, -150, -150, -150], 0.5)
;;;;;;;;;;;; INITIALIZATIONS Harmonizers Bank02 "hrm"
::InitHarmsB(5, "hrm")
curve hrm_out_gain -150.0, 0.0 3.0 ; All Gain values are in DB
::transB([0, 0, 0, 0, 0], 0.5)
::transgainB([1, 2, 3, 4, 5], [-150, -150, -150, -150, -150], 0.5)
NOTE C4 5.0 Trans_OfSilence
::transA([100, -100, -50, 50],3.0)
::transB([110, -110, -40, 60],6.0)
NOTE C#4 3.0 "GainControl A"
loop gcA 2.0
{
::transgainA([1, 2, 3, 4], [-50.0, -12.0, -12.0, -32.0], 1.0)
1.0 ::transgainA([1, 2, 3, 4], [-12.0, -50.0, -32.0, -12,0], 1.0)
}
NOTE D4 5.0 "GainControl B"
abort gcA
loop gcB 2.0
{
::transgainB([1, 2, 3, 4], [-50.0, -12.0, -12.0, -32.0], 1.0)
1.0 ::transgainB([1, 2, 3, 4], [-12.0, -50.0, -32.0, -12,0], 1.0)
}
NOTE C4 5.0 Trans_Interval
abort gcB
;::transinterval([4], [-1200], 2)
print "::transinterval doesn't work yet!"
NOTE E4 5.0 SingleHarm-Jitter
abort ::transA
::transgainA([1, 2, 3, 4], [-3.0, -150, -150, -150], 1.0)
$random1 := @random()
loop hr1-jitter2 200ms @abort:= { curve hr1_gain -3.0, -96. 60ms }
{
@local $temp
curve slider @Grain := 0.01s,
@Action :=
{
$temp := $hr1
print $hr1
::set_harmintervalA(1, $hr1)
}
{
$hr1
{
{ (10*(-0.5*$random1)) }
100ms { (10*(0.5*@random())) }
100ms { (10*(-0.5*@random())) }
}
}
200ms $random1 := $temp
}
NOTE F4 5.0 Trans-Jitter
abort hr1-jitter2
::transB( [-200, 200], 2.0)
2.0 ::transB( [-100, 100, -50], 5.0)
2.0 ::transB( [-300, 600, -200, 100], 2.0)
NOTE G4 5.0 "Trans-Reordering"
; Aborting ::transB will cut off all hrm harms! So you'd need to reinitiate their levels!
abort ::transB
;;; IMPORTANT NOTE: The above is NOT effective if ::transB has already finished (auto-kill) like a Group
;;; Scrambling (random re-ordering)
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
NOTE G4 5.0 "Scramble Transposition"
print Scramble Transposition
loop scrambleA $loop
{
::transA($transpositions, $loop)
$loop $transpositions := @scramble($transpositions)
}
loop scrambleB $loop
{
::transB($transpositions, $loop)
$loop $transpositions := @scramble($transpositions)
}
NOTE G4 5.0 "Permutation Transposition"
abort scrambleA
abort scrambleB
print Permutation Transposition
;;; Permuting the same list in a loop
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop permutation $loop
{
::transA($transpositions, $loop)
$loop $transpositions := @permute($transpositions, (@rand_int(@size($transpositions))))
}
NOTE G4 5.0 "Order_Reversal Transposition"
abort permutation
print Order_Reversal Transposition
;;; Order reversal
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop reversal $loop
{
::transA($transpositions, $loop)
$loop $transpositions := @reverse($transpositions)
}
NOTE G4 5.0 "Rotating Transposition"
abort reversal
print Rotating Transposition
;;; Rotation
$transpositions := [ -75, -25, 25, 75]
$loop := 2.0
loop rotate $loop
{
::trans($transpositions, $loop)
$loop $transpositions := @rotate($transpositions, 1) ; use negative for left rotation
}
NOTE G4 5.0 "END-of-score"
abort rotate
......@@ -88,7 +88,6 @@
"numoutlets" : 1,
"outlettype" : [ "" ],
"patching_rect" : [ 1232.5, 360.0, 37.0, 18.0 ],
"presentation_rect" : [ 1229.0, 362.5, 0.0, 0.0 ],
"text" : "clear"
}
......@@ -2713,13 +2712,13 @@
}
],
"parameters" : {
"obj-84::obj-35" : [ "[9]", "Level", 0 ],
"obj-76::obj-21::obj-6" : [ "live.tab[3]", "live.tab[1]", 0 ],
"obj-25" : [ "harms.gain~", "harms.gain~", 0 ],
"obj-84::obj-32" : [ "[10]", "[2]", 0 ],
"obj-76::obj-35" : [ "[5]", "Level", 0 ],
"obj-84::obj-21::obj-6" : [ "live.tab[1]", "live.tab[1]", 0 ],
"obj-76::obj-21::obj-6" : [ "live.tab[3]", "live.tab[1]", 0 ],
"obj-84::obj-35" : [ "[9]", "Level", 0 ],
"obj-76::obj-32" : [ "[8]", "[2]", 0 ],
"obj-84::obj-32" : [ "[10]", "[2]", 0 ]
"obj-84::obj-21::obj-6" : [ "live.tab[1]", "live.tab[1]", 0 ],
"obj-25" : [ "harms.gain~", "harms.gain~", 0 ]
}
,
"dependency_cache" : [ {
......
This diff is collapsed.
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment