Keishiro Ueki - 1 jun. 2021
- Author:
- Thijs
- Topic:
- Constructions
上木 敬士郎 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))