Skip to content
GitLab
Menu
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
Carlo Laurenzi
StroppaLibs
Commits
7e91b970
Commit
7e91b970
authored
Mar 25, 2019
by
Carlo Laurenzi
Browse files
SPATLib UPDATE : Correction of the bug "antescofo~: Grain too small (0) in curve FlyingEngine3"
parent
1594b482
Changes
1
Hide whitespace changes
Inline
Side-by-side
Stroppa-SpatLib/zInclude/Lib_Stroppa-Spat11.asco.txt
View file @
7e91b970
...
...
@@ -132,23 +132,23 @@ if (@is_undef($source))
$delay
$last_goto := {
;print igoto $prefix_namespace $idnum
print FlyingEngine delay $delay destination $dest duration ($dur - 0.01) coordinate $coordinates destination ($initlevels($dest))
;
print FlyingEngine delay $delay destination $dest duration ($dur - 0.01) coordinate $coordinates destination ($initlevels($dest))
curve FlyingEngine3
@tempo := ($mm == false ? $RT_TEMPO : $mm)
@Grain := 0.05s
@Grain := 0.05s
@exclusive
@Action :=
{
print "coordinate: " $x at $NOW
;
print "coordinate: " $x at $NOW
$coordinates := $x ; store in internal/local coordinates of this source to keep track
@command($prefix_namespace+$idnum+"-spat") ($x)
}
{
$x
{
{ ($coordinates) }
{ ($coordinates) }
@type $itp
// was: (@max(0.0, $dur - $delay - 0.01)) { ($initlevels($dest)) } @type $itp
(@max(0.0, $dur - $delay)) { ($initlevels($dest)) } @type $itp
(@max(0.0
1
, $dur - $delay)) { ($initlevels($dest)) } @type $itp
}
}
}
...
...
@@ -240,7 +240,7 @@ if (@is_undef($source))
;print "DEBUG: random space with grain" ($grainsize) "on" ($randomconfig)
; Generate a new period just before this loop is finishes! Looks like a harakiri!
$grainsize := @random() * ($grainrange_max - $grainrange_min) + $grainrange_min
print "grainsize" $grainsize
;
print "grainsize" $grainsize
}
}
...
...
@@ -408,7 +408,7 @@ REMARK: spatial tables SHOULD have at lease TWO elements
$scaled_dur := $t1 - $t0
$t0 @Space($src, $cfg, $scaled_dur, $stay, $itp, $mm)
print $t0 $src $cfg $durscaler $scaled_dur $itp
;
print $t0 $src $cfg $durscaler $scaled_dur $itp
}
; print "else"
...
...
@@ -450,7 +450,7 @@ REMARK: spatial tables SHOULD have at lease TWO elements
$scaled_dur := $t1 - $t0
$t0 @Space($src, $cfg, $scaled_dur, $stay, $itp, $mm)
print $t0 $src $cfg $scaled_dur $stay_percent $itp
;
print $t0 $src $cfg $scaled_dur $stay_percent $itp
}
; print "else"
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment