Keishiro Ueki - 1 jun. 2021

Author:
Thijs
上木 敬士郎 Keishiro Ueki @ChocoLinkage f(t)= t^3*(6*t^2-15*t+10) t = Slider(0,1,0.005, 3, 170, false, true, true) α = 60° + f(t) * 240° P0= (-0.5,0) P1= P0+(1;α) P2= P0+(2,0) P3= Reflect(P0,PerpendicularBisector(P1,P2)) P4= Dilate( P3, 1.5, P1) P5= Dilate( P3, 3.0, P2) P6= Reflect(P3,PerpendicularBisector(P4,P5)) P7= Dilate( P6, 1.5, P4) P8= Dilate( P6, 3.0, P5) P9= Reflect(P6,PerpendicularBisector(P7,P8)) G = Polyline(P0,P1,P4,P7,P9) R = Polyline(P0,P2,P5,P8,P9) # Settings #========= SetVisibleInView(f,1,false) SetVisibleInView(t,1,false) StartAnimation[true] Execute(zip("SetDynamicColor(P"+k+", 0,0,0)", k,0...9)) Execute(Zip("ShowLabel(P"+k+", false)" , k,0...9)) Execute(Zip("SetPointSize(P"+k+", 5)" , k,0...9)) ShowLabel(G, false) ShowLabel(R, false) Setcolor(G, "DarkGreen") Setcolor(R, "Red") ShowGrid( false ) ShowAxes( false ) CenterView((0,0))