Better handling at beginnings as well.

Author: sigma-axis

@Basic_S.tra2

@@ -23,17 +23,18 @@ SOFTWARE.
 https://mit-license.org/
 ]]
 @全体で時間制御
---information:全体で時間制御@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:全体で時間制御@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --timecontrol
 local gp = obj.getpoint;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1 = gp(i), gp(i + 1);
 return v0 + (v1 - v0) * t;
 
 @区間ごとに時間制御
---information:区間ごとに時間制御@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:区間ごとに時間制御@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --timecontrol
 local gp = obj.getpoint;
@@ -44,7 +45,7 @@ local v0, v1 = gp(i), gp(i + 1);
 return v0 + (v1 - v0) * t;
 
 @正弦波
---information:正弦波@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:正弦波@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 local gp, math = obj.getpoint, math;
@@ -61,7 +62,7 @@ local rho = 1 - math.cos(math.pi / 2 * t);
 return v0 + (v1 - v0) * rho;
 
 @2次式
---information:2次式@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:2次式@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 local gp, math = obj.getpoint, math;
@@ -78,7 +79,7 @@ local rho = t ^ 2;
 return v0 + (v1 - v0) * rho;
 
 @3次式
---information:3次式@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:3次式@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 local gp, math = obj.getpoint, math;
@@ -95,7 +96,7 @@ local rho = t ^ 3;
 return v0 + (v1 - v0) * rho;
 
 @4次式
---information:4次式@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:4次式@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 local gp, math = obj.getpoint, math;
@@ -112,7 +113,7 @@ local rho = t ^ 4;
 return v0 + (v1 - v0) * rho;
 
 @N次式
---information:N次式@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:N次式@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 --param:次数N,5
@@ -131,7 +132,7 @@ local rho = (N > 0 or t > 0) and t ^ N or 0;
 return v0 + (v1 - v0) * rho;
 
 @指数関数
---information:指数関数@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:指数関数@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 --param:減衰率,2
@@ -150,7 +151,7 @@ local rho = a > 0 and (math.exp(a * t) - 1) / (math.exp(a) - 1) or t;
 return v0 + (v1 - v0) * rho;
 
 @円形
---information:円形@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:円形@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\基本緩急
 --speed:0,1
 local gp, math = obj.getpoint, math;
@@ -167,7 +168,7 @@ local rho = 1 - (1 - t ^ 2) ^ 0.5;
 return v0 + (v1 - v0) * rho;
 
 @等速移動(秒)
---information:等速移動(秒)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:等速移動(秒)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --twopoint
 --param:単位時間(秒),1
@@ -178,7 +179,7 @@ if T == 0 then T = 1 end
 return v0 + (v1 - v0) * t / T;
 
 @等速移動(フレーム)
---information:等速移動(フレーム)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:等速移動(フレーム)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --twopoint
 --param:単位時間(フレーム),60
@@ -190,7 +191,7 @@ if F == 0 then F = 1 end
 return v0 + (v1 - v0) * f / F;
 
 @コマ落ち反復(秒)
---information:コマ落ち反復(秒)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(秒)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(秒),0.5
@@ -201,7 +202,7 @@ if T == 0 then T = 1 end
 return gp(((t / T) % 1) < 0.5 and 0 or 1);
 
 @コマ落ち反復(フレーム)
---information:コマ落ち反復(フレーム)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(フレーム)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(フレーム),30
@@ -213,7 +214,7 @@ if F == 0 then F = 1 end
 return gp(((f / F) % 1) < 0.5 and 0 or 1);
 
 @コマ落ち反復(Hz)
---information:コマ落ち反復(Hz)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(Hz)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(Hz),2
@@ -223,7 +224,7 @@ if 1 / N < 0 then t, N = t - gp("time", 1) - 1 / gp("framerate"), -N end
 return gp(((t * N) % 1) < 0.5 and 0 or 1);
 
 @コマ落ち反復(BPM)
---information:コマ落ち反復(BPM)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(BPM)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(BPM),120
@@ -233,7 +234,7 @@ if 1 / N < 0 then t, N = t - gp("time", 1) - 1 / gp("framerate"), -N end
 return gp(((t * N / 60) % 1) < 0.5 and 0 or 1);
 
 @コマ落ちランダム(秒)
---information:コマ落ち反復(秒)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(秒)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(秒),0.5
@@ -245,7 +246,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * rand1(2525, math.floor(t / T) + 1);
 
 @コマ落ちランダム(フレーム)
---information:コマ落ち反復(フレーム)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(フレーム)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(フレーム),30
@@ -258,7 +259,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * rand1(2525, math.floor(f / F) + 1);
 
 @コマ落ちランダム(Hz)
---information:コマ落ち反復(Hz)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(Hz)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(Hz),2
@@ -269,7 +270,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * rand1(2525, math.floor(t * N) + 1);
 
 @コマ落ちランダム(BPM)
---information:コマ落ち反復(BPM)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:コマ落ち反復(BPM)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\コマ落ち
 --twopoint
 --param:周期(BPM),120
@@ -280,7 +281,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * rand1(2525, math.floor(t * N / 60) + 1);
 
 @時間制御繰り返し(秒)
---information:時間制御繰り返し(秒)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:時間制御繰り返し(秒)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\繰り返し
 --twopoint
 --param:周期(秒),0.5
@@ -294,7 +295,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * gp("timecontrol", "value", ((t / T) % 1) * T1);
 
 @時間制御繰り返し(フレーム)
---information:時間制御繰り返し(フレーム)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:時間制御繰り返し(フレーム)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\繰り返し
 --twopoint
 --param:周期(フレーム),30
@@ -308,7 +309,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * gp("timecontrol", "value", ((f / F) % 1) * T1);
 
 @時間制御繰り返し(Hz)
---information:時間制御繰り返し(Hz)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:時間制御繰り返し(Hz)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\繰り返し
 --twopoint
 --param:周期(Hz),2
@@ -321,7 +322,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * gp("timecontrol", "value", ((t * N) % 1) * T1);
 
 @時間制御繰り返し(BPM)
---information:時間制御繰り返し(BPM)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:時間制御繰り返し(BPM)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\繰り返し
 --twopoint
 --param:周期(BPM),120
@@ -334,7 +335,7 @@ local v0, v1 = gp(0), gp(1);
 return v0 + (v1 - v0) * gp("timecontrol", "value", ((t * N / 60) % 1) * T1);
 
 @対数補間
---information:対数補間@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:対数補間@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\特殊補間
 --timecontrol
 local gp, math = obj.getpoint, math;
@@ -349,12 +350,13 @@ end
 return v0 * (v1 / v0) ^ t;
 
 @対数補間(全体時間制御)
---information:対数補間(全体時間制御)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:対数補間(全体時間制御)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\特殊補間
 --timecontrol
 local gp, math = obj.getpoint, math;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1 = gp(i), gp(i + 1);
 if v0 == 0 or v1 == 0 or (v0 > 0) ~= (v1 > 0) then
 	-- fall back to the linear interpolation instead.
@@ -363,7 +365,7 @@ end
 return v0 * (v1 / v0) ^ t;
 
 @逆数補間
---information:逆数補間@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:逆数補間@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\特殊補間
 --timecontrol
 local gp, math = obj.getpoint, math;
@@ -378,12 +380,13 @@ end
 return 1 / (1 / v0 + (1 / v1 - 1 / v0) * t);
 
 @逆数補間(全体時間制御)
---information:逆数補間(全体時間制御)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:逆数補間(全体時間制御)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S\特殊補間
 --timecontrol
 local gp, math = obj.getpoint, math;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1 = gp(i), gp(i + 1);
 if v0 == 0 or v1 == 0 or (v0 > 0) ~= (v1 > 0) then
 	-- fall back to the linear interpolation instead.
@@ -392,7 +395,7 @@ end
 return 1 / (1 / v0 + (1 / v1 - 1 / v0) * t);
 
 @バウンス
---information:バウンス@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バウンス@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:反発係数,0.70710678
@@ -425,15 +428,16 @@ local rho = 4 * tau * (scale - tau);
 return v0 + (v1 - v0) * rho;
 
 @バウンス(全体時間制御)
---information:バウンス(全体時間制御)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バウンス(全体時間制御)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:反発係数,0.70710678
 --param:回数,0
 --timecontrol
 local gp, math = obj.getpoint, math;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1, sp0, sp1 = gp(i), gp(i + 1), gp("accelerate"), gp("decelerate");
 if sp0 == sp1 then
 	if t < 0.5 then t, v1, sp1 = 2 * t, (v0 + v1) / 2, not sp1;
@@ -457,7 +461,7 @@ local rho = 4 * tau * (scale - tau);
 return v0 + (v1 - v0) * rho;
 
 @バック
---information:バック@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バック@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:勢い,0.8
@@ -479,14 +483,15 @@ local rho = t ^ 3 - t * a * math.sin(math.pi * t);
 return v0 + (v1 - v0) * rho;
 
 @バック(全体時間制御)
---information:バック(全体時間制御)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バック(全体時間制御)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:勢い,0.8
 --timecontrol
 local gp, math = obj.getpoint, math;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1, sp0, sp1 = gp(i), gp(i + 1), gp("accelerate"), gp("decelerate");
 if sp0 == sp1 then
 	if t < 0.5 then t, v1, sp1 = 2 * t, (v0 + v1) / 2, not sp1;
@@ -500,7 +505,7 @@ local rho = t ^ 3 - t * a * math.sin(math.pi * t);
 return v0 + (v1 - v0) * rho;
 
 @バネ振動
---information:バネ振動@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バネ振動@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:振動回数,3
@@ -526,15 +531,16 @@ local rho = r * math.sin(2 * math.pi * ((n + 0.25) * (1 - t) + 0.25));
 return v0 + (v1 - v0) * rho;
 
 @バネ振動(全体時間制御)
---information:バネ振動(全体時間制御)@Basic_S v1.72-beta3 (for beta26) by σ軸
+--information:バネ振動(全体時間制御)@Basic_S v1.72-beta4 (for beta26) by σ軸
 --label:Basic_S
 --speed:0,1
 --param:振動回数,3
 --param:減衰率,0.3
 --timecontrol
 local gp, math = obj.getpoint, math;
 local n, i, t = gp("num"), math.modf(gp("timecontrol", "index"));
-if i >= n - 1 then i, t = n - 2, 1 end
+if i >= n - 1 then i, t = n - 2, 1;
+elseif i < 0 then i, t = 0, 0 end
 local v0, v1, sp0, sp1 = gp(i), gp(i + 1), gp("accelerate"), gp("decelerate");
 if sp0 == sp1 then
 	if t < 0.5 then t, v1, sp1 = 2 * t, (v0 + v1) / 2, not sp1;
@@ -549,4 +555,3 @@ r = (r > 0 or t < 1) and r >= 1 and t or (r ^ (1 - t) - r) / (1 - r) or 1;
 local rho = r * math.sin(2 * math.pi * ((n + 0.25) * (1 - t) + 0.25));
 
 return v0 + (v1 - v0) * rho;
-