...
 
......@@ -42,12 +42,12 @@ $initlevels := map {
("U1D1", [0., 0., .6, 0., .6, 0., 0.]),
("CD2", [0., 0., 0., .6, 0., .6, 0.]),
("D13", [0., 0., 0., 0., .6, 0., .6]),
("U3D3", [0., 0., 0., 0., .6, 0., .6]),
("U2D2", [0., 0., 0., 0., .6, 0., .6]),
("U1D1", [0., 0., 0., 0., .6, 0., .6]),
("U3D3", [.6, 0., 0., 0., 0., 0., .6]),
("U2D2", [0., .6, 0., 0., 0., .6, 0.]),
("U1D1", [0., 0., .6, 0., .6, 0., 0.]),
; TRIPLE ADJACENT LOUDSPEAKERS
("U123", [.55, .55, .55, .0, .0, 0., 0.]),
("U321", [.55, .55, .55, .0, .0, 0., 0.]),
("U21C", [0., .55, .55, .55, 0., 0., 0.]),
("U1CD1", [0., 0., .55, .55, .55, 0., 0.]),
("CD12", [0., 0., 0., .55, .55, .55, 0.]),
......@@ -59,9 +59,21 @@ $initlevels := map {
("U1CD12", [0., 0., .42, .42, .42, .42, 0.]),
("CD123", [0., 0., 0., .42, .42, .42, .42]),
; QUINTUPLE ADJACENT LOUDSPEAKERS
("U321CD1", [.4, .4, .4, .4, .4, 0., 0.]),
("U21CD12", [0., .4, .4, .4, .4, .4, 0.]),
("U1CD123", [0., 0., .4, .4, .4, .4, .4]),
; SEXTUPLE ADJACENT LOUDSPEAKERS
("U321CD12", [.35, .35, .35, .35, .35, .35, 0.]),
("U21CD123", [0., .35, .35, .35, .35, .35, .35]),
; EVEN/ODD LOUDSPEAKERS
("Odd", [.4, 0., .4, 0., .4, 0., .4]),
("Even", [0., .45, 0., .45, 0., .45, 0.])
("Even", [0., .45, 0., .45, 0., .45, 0.]),
; ALL
("All", [.32, .32, .32, .32, .32, .32, .32])
}
......@@ -73,21 +85,22 @@ $initlevels := map {
; T_cc = Static configurations defined as trajectories
; Tnnn = Trajectories with a regular, unitary distance between LSp's
; T_nnn = Special trajectories (with different distances between LSp's)
; T_cc = Static configurations defined as trajectories
;=================================
;======= : STATIC CONFIGURATIONS |
;=================================
$T_U3 := [[0, "U3" ]]
$T_U2 := [[0, "U2" ]]
$T_U1 := [[0, "U1" ]]
$T_C := [[0, "C" ]]
$T_D1 := [[0, "D1" ]]
$T_D2 := [[0, "D2" ]]
$T_D3 := [[0, "D3" ]]
$T_D123 := [[0, "D123" ]]
$T_U123 := [[0, "U123" ]]
$T_U3 := [[0, "U3" ], [1, "U3" ]]
$T_U2 := [[0, "U2" ], [1, "U2" ]]
$T_U1 := [[0, "U1" ], [1, "U1" ]]
$T_C := [[0, "C" ], [1, "C" ]]
$T_D1 := [[0, "D1" ], [1, "D1" ]]
$T_D2 := [[0, "D2" ], [1, "D2" ]]
$T_D3 := [[0, "D3" ], [1, "D3" ]]
$T_D123 := [[0, "D123" ], [1, "D123" ]]
$T_U321 := [[0, "U321" ], [1, "U321" ]]
$T_U21C := [[0, "U21C" ], [1, "U21C" ]]
$T_CD12 := [[0, "CD12" ], [1, "CD12" ]]
;================================
;======= : REGULAR TRAJECTORIES |
......@@ -95,14 +108,20 @@ $T_U123 := [[0, "U123" ]]
;======= : Between single loudspeakers
$T001 := [[0, "C" ], [1, "U1" ], [2, "U2"], [3, "U3"]]
$T001r := [[0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"]]
$T001rv := [[0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"],[4, "U1" ], [5, "U2"], [6, "U3"]]
$T002 := [[0, "C" ], [1, "D1" ], [2, "D2" ], [3, "D3"]]
$T002r := [[0, "D3" ], [1, "D2" ], [2, "D1" ], [3, "C"]]
$T005 := [[0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"], [4, "D1"], [5, "D2"], [6, "D3"]]
$T005rv := [[0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"], [4, "D1"], [5, "D2"], [6, "D3"], [7, "D2" ], [8, "D1"], [9, "C"], [10, "U1"], [11, "U2"]]
$T005v := [[0, "D3" ], [1, "D2" ], [2, "D1"], [3, "C"], [4, "U1"], [5, "U2"], [6, "U3"], [7, "U2" ], [8, "U1"], [9, "C"], [10, "D1"], [11, "D2"], [12, "D3"]]
$T005rv := [[0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"], [4, "D1"], [5, "D2"], [6, "D3"], [7, "D2" ], [8, "D1"], [9, "C"], [10, "U1"], [11, "U2"], [12, "U3"]]
$T005r := [[0, "D3" ], [1, "D2" ], [2, "D1" ], [3, "C"], [4, "U1" ], [5, "U2" ], [6, "U3" ]]
$T005r1 := [[0, "D2" ], [1, "D3" ], [2, "D2" ], [3, "D1"], [4, "C" ], [5, "U1" ], [6, "U2" ]]
$T005r2 := [[0, "D1" ], [1, "D2" ], [2, "D3" ], [3, "D2"], [4, "D1" ], [5, "C" ], [6, "U1" ], [7, "U2" ], [8, "U3" ]]
$T006 := [[0, "U3" ], [1, "C" ], [2, "D3"]]
$T006v := [[0, "C" ], [1, "D1" ], [2, "D2"], [3, "D3"], [4, "D2"], [5, "D1"], [6, "C"], [7, "U1"], [8, "U2"], [9, "U3"], [10, "U2"], [11, "U1"], [12, "C"]]
$T006v1 := [[0, "C" ], [1, "U1" ], [2, "U2"], [3, "U3"], [4, "U2"], [5, "U1"], [6, "C"], [7, "D1"], [8, "D2"], [9, "D3"], [10, "D2"], [11, "D1"], [12, "C"]]
$T007 := [[0, "U2" ], [1, "D2" ]]
$T008 := [[0, "U1" ], [1, "D1" ]]
$T009 := [[0, "U3" ], [1, "U2" ], [2, "U1"]]
......@@ -110,19 +129,36 @@ $T010 := [[0, "U2" ], [1, "U1" ], [2, "C"]]
$T011 := [[0, "U1" ], [1, "C" ], [2, "D1"]]
$T012 := [[0, "C" ], [1, "D1" ], [2, "D2"]]
$T001a := [[0, "C" ], [1, "U1" ], [2, "U2"]]
$T103 := [[0, "U3" ], [1, "U1" ], [2, "D3"]]
$T012a := [[0, "C" ], [1, "U1" ], [2, "U2"]]
$T13 := [[0, "U3" ], [1, "U1" ], [2, "D3"]]
$T014 := [[0, "D1" ], [1, "D2" ], [2, "D3"]]
$T015 := [[0, "U32" ], [1, "D23" ]]
$T016 := [[0, "U21" ], [1, "D12" ]]
$T017 := [[0, "U21" ], [1, "U3" ]]
$T018 := [[0, "C" ], [1, "U1" ], [2, "U2"], [3, "U3"], [4, "U2"], [5, "U1"], [6, "C"], [7, "D1" ], [8, "D2"], [9, "D3"], [10, "D2"], [11, "D1"], [12, "C"]]
$T018a := [[0, "U1" ], [1, "U2" ], [2, "U3"], [3, "U2"], [4, "U1"], [5, "C"], [6, "D1"], [7, "D2"], [8, "D3"], [9, "D2"], [10, "D1"], [11, "C"], [12, "U1"]]
$T018b := [[0, "U2" ], [1, "U3" ], [2, "U2"], [3, "U1"], [4, "C"], [5, "D1"], [6, "D2"], [7, "D3"], [8, "D2"], [9, "D1"], [10, "C"], [11, "U1"], [12, "U2"]]
$T018c := [[0, "U1" ], [1, "U2" ], [2, "U3"], [3, "U2"], [4, "U1"], [5, "C"], [6, "D1"], [7, "D2"], [8, "D3"]]
$T018d := [[0, "C" ], [1, "D1" ], [2, "D2"], [3, "D3"], [4, "D2"], [5, "D1"], [6, "C"], [7, "D1" ], [8, "D2"], [9, "D3"], [10, "D2"], [11, "D1"], [12, "C"], [13, "U1"], [14, "U2"], [15, "U3"], [16, "U2"], [17, "U1"], [18, "C"], [19, "D1"], [20, "D2"], [21, "D3"]]
$T019 := [[0, "U3" ], [1, "U2" ], [2, "C"], [3, "D2"], [4, "D3"]]
$T020 := [[0, "C" ], [1, "U2" ], [2, "C"], [3, "D2"]]
$T021 := [[0, "U3" ], [1, "U1" ]]
$T022 := [[0, "D3" ], [1, "D3" ], [2, "D1" ], [3, "D1" ]]
$T023 := [[0, "D3" ], [1, "D1" ], [2, "U1" ], [3, "U3" ]]
$T024 := [[0, "D2" ], [1, "C" ], [2, "U2" ]]
$T025 := [[0, "U2" ], [1, "U1" ], [2, "C"], [3, "D1"], [4, "D2"]]
$T026 := [[0, "U1" ], [1, "C" ], [2, "D1"], [3, "D2"], [4, "D3"]]
$T027 := [[0, "D3" ], [1, "D2" ], [2, "D1"], [3, "C"], [4, "D1" ], [5, "D2"], [6, "D3"]]
$T028v := [[0, "U2" ], [1, "U1" ], [2, "C"], [3, "D1"], [4, "D2"], [5, "D3"], [6, "D2"], [7, "D1" ], [8, "C"], [9, "U1"], [10, "U2"], [11, "U1"], [12, "C"], [13, "D1"]]
$T029v := [[0, "D2" ], [1, "D1" ], [2, "C"], [3, "U1"], [4, "U2"], [5, "U3"], [6, "U2"], [7, "U1" ], [8, "C"], [9, "D1"], [10, "D2"], [11, "D3"], [12, "D2"], [13, "D1"], [14, "C"], [15, "D1"], [16, "D2"], [17, "D3"]]
;======= : Between double adiacent configs
$T101 := [[0, "U32" ], [1, "U21" ], [2, "U1C" ], [3, "CD1" ], [4, "D12" ], [5, "D23" ]]
$T102 := [[0, "U32" ], [1, "D23" ]]
$T103 := [[0, "U21" ], [1, "D12" ]]
$T104 := [[0, "U21" ], [1, "U1C" ], [2, "CD1" ], [3, "D12" ], [4, "D23" ]]
$T105 := [[0, "U1C" ], [1, "CD1" ], [2, "D12" ], [3, "D23" ], [4, "D3" ]]
; Spirals
; from U to C
......@@ -136,12 +172,24 @@ $T154 := [[0, "C" ], [1, "U1C" ], [2, "CD1" ], [3, "U21" ], [4, "D12" ], [5, "U3
;======= : Between double non adjacent configs
$T201 := [[0, "U31" ], [1, "U2C" ], [2, "U1D1" ], [3, "CD2" ], [4, "D13" ]]
$T202 := [[0, "U321" ], [1, "U2C" ], [2, "U1D1" ], [3, "CD2" ], [4, "D13" ], [5, "D23" ]]
$T203 := [[0, "U21" ], [1, "U1C" ], [2, "CD1" ], [3, "D12" ], [4, "D13" ], [5, "D23" ]]
$T204 := [[0, "D123" ], [1, "CD1" ], [2, "U1C" ], [3, "U21" ], [4, "U32" ]]
$T205 := [[0, "All" ], [1, "U21CD123" ], [2, "U1CD123" ], [3, "CD123" ], [4, "D123" ], [5, "D23" ], [6, "D3" ] ]
; Spirals
$T251 := [[0, "U31" ], [1, "D13" ], [2, "U2C" ], [3, "CD2" ], [4, "U1D1" ], [5, "C" ]]
;======= : Between triple adjacent configs
;$T301 := [[0, "U32" ], [1, "D23" ]]
$T301 := [[0, "D123" ], [1, "U32"]]
$T302 := [[0, "U32" ], [1, "U321"], [2, "U21C"], [3, "U1CD1"], [4, "CD12"], [5, "D123"], [6, "D23"]]
$T302r := [[0, "D23" ], [1, "D123"], [2, "CD12"], [3, "U1CD1"], [4, "U21C"], [5, "U321"], [6, "U32"]]
$T303 := [[0, "U3" ], [1, "U32"], [2, "U321"], [3, "U21C"], [4, "U1C"], [5, "C"]]
$T304 := [[0, "C" ], [1, "CD1"], [2, "CD12"], [3, "D123"], [4, "D23"], [5, "D3"]]
$T305 := [[0, "D3" ], [1, "D23"], [2, "D123"], [3, "CD12"], [4, "U1CD1"], [5, "U21C"], [6, "U321"], [7, "U32"], [8, "U3"]]
$T305r := [[0, "U3" ], [1, "U32"], [2, "U321"], [3, "U21C"], [4, "U1CD1"], [5, "CD12"], [6, "D123"], [7, "D23"], [8, "D3"]]
;$T305r := [[0, "U3" ], [1, "U32"], [2, "U321"], [3, "U21C"], [4, "U1CD1"], [5, "CD12"], [6, "D123"], [7, "D23"], [8, "D3"]]
$T306 := [[0, "U3" ], [1, "U32"], [2, "U321"], [3, "U321C"], [4, "U321CD1"], [5, "U321CD12"], [6, "All"]]
;======= : Between triple non adjacent configs
;$T401 := [[0, "U32" ], [1, "D23" ]]
......@@ -162,6 +210,9 @@ $T803 := [[0, "U3" ], [1, "D3" ], [2, "U2"], [3, "D2"], [4, "U1"], [5, "D1"], [6
; from D to C
$T804 := [[0, "D3" ], [1, "U3" ], [2, "D2"], [3, "U2"], [4, "D1"], [5, "U1"], [6, "C"]]
$T805 := [[0, "C" ], [1, "U1" ], [2, "D1"], [3, "U2"], [4, "D2"], [5, "U1"], [6, "D1"]]
; from C down, end U
; from U to C to U again (circular)
$T811 := [[0, "U3" ], [1, "D3" ], [2, "U2"], [3, "D2"], [4, "U1"], [5, "D1"], [6, "C"], [7, "D1"], [8, "U1"], [9, "D2"], [10, "U2"], [11, "D3"]]
; from C to U to C (circular)
......@@ -180,6 +231,8 @@ $T_003 := [[5, "U3" ], [13, "U2" ], [20, "U1"], [24, "C"], [30, "D1"], [38, "D2"
$T_004 := [[1, "U3" ], [2, "U2" ], [3, "U1"], [4, "C"], [5, "D1"], [6, "D2"], [7, "D3"]]
$T_004L := [[1, "U2" ], [2, "U1"], [3, "C"], [4, "D1"], [5, "D2"], [6, "D3"], [7, "U3" ]]
$T_005 := [[ 0, "U3" ], [1, "U2" ], [2, "U1"], [3, "C"], [4, "D1"], [5, "D2"], [6, "D3"]]
$T_006 := [[ 0, "C" ], [10, "D1" ], [20, "D2"], [30, "D3"], [36, "D23"], [42, "D123"]]
$T_010 := [[0, "U3" ], [1, "U2" ], [20, "U1"], [24, "C"], [30, "D1"], [38, "D2"], [50, "D3"]]
......
This diff is collapsed.
This diff is collapsed.
......@@ -362,8 +362,9 @@ if (@is_undef($source))
@macro_def Space_i($snum, $scfg, $sdur, $sitp)
{
; If $sdur is 0.0, use SPACE_JUMP method instead (conceptually cleaner)
if ($sdur == 0.0) {
; print "Space_jumping"
if ($sdur == 0.0)
{
;print "Space_jumping" ($snum-1) " in " $source
_ := $source[($snum-1)].space_jump ($scfg)
}
else {
......@@ -429,9 +430,15 @@ if (@is_undef($source))
@proc_def ::RandSpace_i($snum, $configs, $grainrange_min, $grainrange_max, $stay_percent, $dur, $itp)
{
@local $fconfig
if ($configs[0].is_tab())
{ $fconfig := [$e[1] | $e in $configs] }
else
{ $fconfig := $configs }
@local $titi
$titi := $source[($snum-1)].xRandomSpace_i($configs, $grainrange_min, $grainrange_max, $stay_percent, $itp)
; print $titi
$titi := $source[($snum-1)].xRandomSpace_i($fconfig, $grainrange_min, $grainrange_max, $stay_percent, $itp)
;print $titi
$dur abort $titi
;print abort $titi RandSpace_i
}
......@@ -574,6 +581,7 @@ $T001 := [[0, "a" ], [4, "b"], [7, "c"], [10, "d"]]
; itp : interpolation structure
@proc_def ::Traj_looper($src, $Traj, $dur, $itp, $period)
; @abort := { print "abort ::trajLooper" }
{
if ($dur > $period)
{
......@@ -602,14 +610,15 @@ $T001 := [[0, "a" ], [4, "b"], [7, "c"], [10, "d"]]
loop $interdate ;@tempo := $SCORE_TEMPO
@exclusive,
@abort := {
;print "Fading out Traj_looper"
; print "Fading out Traj_looper"
;@FadeOut($src, 0.1)
}
{
;print "traj_loop_inside from " $NOW " with duration " ($interdate[$j % @size($interdate)]) "-- Space_i"
@Space_i($src, ($Traj[$j % @size($Traj), 1]), ($interdate[$j % @size($interdate)]), $itp)
$j := $j + 1
}}
}}
500s print cucu
}
@proc_def ::Traj_looper_t($src, $Traj, $dur, $itp, $period, $tempolocal) ; takes a tempo argument
......
This diff is collapsed.
This diff is collapsed.