Commit 04aef238 authored by Carlo Laurenzi's avatar Carlo Laurenzi

Final Version (all bugs corrected) for the SpatLib v.12

parent eff2502d
......@@ -110,7 +110,7 @@ if (@is_undef($source))
}
@proc_def goto($dest, $dur, $stay, $itp, $mm)
@proc_def goto($dest, $dur, $stay, $itp = "sine_in_out", $mm = false)
{
;print ". new goto from " $coordinates " to " $dest " in " $dur " with " $itp " and tempo " $mm " stay " $stay
......@@ -148,7 +148,7 @@ if (@is_undef($source))
{
{ ($coordinates) }
// was: (@max(0.0, $dur - $delay - 0.01)) { ($initlevels($dest)) } @type $itp
(@max(0.0, $dur - $delay)) { ($initlevels($dest)) } @type $itp
(@max(0.01, $dur - $delay)) { ($initlevels($dest)) } @type $itp
}
}
}
......@@ -223,7 +223,7 @@ if (@is_undef($source))
;;; Generate first randoms:
@local $grainsize, $randomconfig
$grainsize := (@random() * ($grainrange_max - $grainrange_min) + $grainrange_min )
print DEBUG RAN SPACE: Initial grain set to ($grainsize)
;print DEBUG RAN SPACE: Initial grain set to ($grainsize)
$last_action := {
;$randomconfig := ($configs[@rand_int(@size($configs))])
......@@ -326,7 +326,7 @@ if (@is_undef($source))
;FadeOut
@macro_def FadeOut($sourcenum, $dur)
{
_ := $source[($sourcenum-1)].goto("FadeOut",$dur)
_ := $source[($sourcenum-1)].goto("FadeOut",$dur,0)
;abort ($source[$snum])
}
......@@ -579,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
}}
......@@ -623,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)]) "-- tempolocal" $tempolocal
;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
}}
......
Markdown is supported
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