SPATLib UPDATE : Correction of the bug "antescofo~: Grain too small (0) in curve FlyingEngine3"

Stroppa-SpatLib/zInclude/Lib_Stroppa-Spat11.asco.txt

@@ -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.01, $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"
 	}