...
 
Commits (2)
; 7-POINT TOTEM FOR DONAU 2016
; 7-POINT TOTEM FOR DONAU 2016
; TESTS OF THE SETUP
BPM 60
......
This diff is collapsed.
......@@ -26,7 +26,7 @@
{
$source[$x] := obj::source($x, $NumberOfSpeakers, $Namespace)
}
print Created @size($source) Spatial Sources with @size($source[1].$coordinates) points
;print Created @size($source) Spatial Sources with @size($source[1].$coordinates) points
}
; define $initlevels here in case it is undefined. User definition SHOULD come next (after @include)
......@@ -61,7 +61,7 @@ if (@is_undef($source))
$idnum := ($idn + 1)
$last_action := 0
$coordinates := [0.0 | ($npoints)] ; create a table of zeros
print "init first coordinates" $idnum $coordinates
;print "init first coordinates" $idnum $coordinates
$prefix_namespace := $namespace
; last_igoto: initialize memory of the pointer to the last curve run by igoto
; (to avoid superposing points at the same logical time)
......@@ -99,8 +99,8 @@ if (@is_undef($source))
if (! @is_defined($initlevels, $destination))
{
print "==> init levels @is_undef($destination) " (@is_undef($destination))
print "==> init levels ! @is_defined($initlevels, $destination) " (! @is_defined($initlevels, $destination))
print "==> init levels NOT initialized : destination = " $destination "$initlevels=" ($initlevels($destination))
;print "==> init levels ! @is_defined($initlevels, $destination) " (! @is_defined($initlevels, $destination))
;print "==> init levels NOT initialized : destination = " $destination "$initlevels=" ($initlevels($destination))
}
else
{
......@@ -112,7 +112,7 @@ if (@is_undef($source))
@proc_def goto($dest, $dur, $stay, $itp, $mm)
{
print ". new goto from " $coordinates " to " $dest " in " $dur " with " $itp " and tempo " $mm " stay " $stay
;print ". new goto from " $coordinates " to " $dest " in " $dur " with " $itp " and tempo " $mm " stay " $stay
; If $sdur is 0.0, use SPACE_JUMP method instead (conceptually cleaner)
if ($dur == 0.0)
......@@ -232,7 +232,7 @@ if (@is_undef($source))
;@local $currcfg, $prevcfgs
; Generate a random configuration.
$randomconfig := $THISOBJ.make_unique_random_config($configs)
print "random config: " $idnum "=" $randomconfig at $NOW
;print "random config: " $idnum "=" $randomconfig at $NOW
; Make the move, in duration that is (1.0 - $stay_percent).
;$Ticket := [$snum, $randomconfig, ($grainsize*(1.0-$stay_percent))]
_ := .goto($randomconfig, $grainsize, $stay_percent, $itp, false)
......@@ -335,14 +335,17 @@ if (@is_undef($source))
@proc_def ::RandSpace($snum, $configs, $dur, $grain_min = 0.1, $grain_max = -1., $stay = 0., $itp = "sine_in_out")
@abort { abort $titi }
{
@local $fconfig
if ($configs[0].is_tab())
{ $fconfig := [$e[1] | $e in $configs] }
else
{ $fconfig := $configs }
if ($grain_max < 0) { $grain_max := $grain_min }
if ($grain_max < 0) { $grain_max := $grain_min }
@local $titi
$titi := $source[($snum-1)].RanSpace($fconfig, $grain_min, $grain_max, $stay, $itp)
......@@ -354,6 +357,7 @@ if (@is_undef($source))
;----------------------------------------------------------------------
;;; TRAJECTORY READER
......@@ -374,6 +378,7 @@ REMARK: spatial tables SHOULD have at lease TWO elements
; dur : total duration of the trajectory
; itp : interpolation structure
@proc_def ::Traj_reader($src, $Traj, $dur, $itp)
@abort { abort $titi }
{
@local $durscaler, $currtime
@local $stay := 0
......@@ -534,6 +539,8 @@ $T001 := [[0, "a" ], [4, "b"], [7, "c"], [10, "d"]]
; Traj : table with trajectories
; dur : total duration of the trajectory
; itp : interpolation structure
; period :
; totaldur :
@proc_def ::Traj_looper($src, $Traj, $dur, $itp, $period, $totaldur)
; @abort := { print "abort ::trajLooper" }
......@@ -572,7 +579,7 @@ $T001 := [[0, "a" ], [4, "b"], [7, "c"], [10, "d"]]
;@FadeOut($src, 0.1)
}
{
;print "traj_loop_inside from " $NOW " with duration " ($interdate[$j % @size($interdate)]) "-- Space_i"
print "traj_loop_inside from " $NOW " with duration " ($interdate[$j % @size($interdate)]) "-- Space_i"
@Space($src, ($Traj[$j % @size($Traj), 1]), ($interdate[$j % @size($interdate)]), $stay, $itp, $mm)
$j := $j + 1
}}
......@@ -616,7 +623,7 @@ $T001 := [[0, "a" ], [4, "b"], [7, "c"], [10, "d"]]
;@FadeOut($src, 0.1)
}
{
;print "traj_loop_inside from " $NOW " with duration " ($interdate[$j % @size($interdate)]) "-- Space_i"
print "traj_loop_inside from " $NOW " with duration " ($interdate[$j % @size($interdate)]) "-- tempolocal" $tempolocal
@Space($src, ($Traj[$j % @size($Traj), 1]), ($interdate[$j % @size($interdate)]), $stay, $itp, $tempolocal)
$j := $j + 1
}}
......
This diff is collapsed.