Water Drop
- Author:
- Juan Carlos Ponce Campuzano
Inspired by 上木 敬士郎 Keishiro Ueki @ChocoLinkage
f(x) = pi (sin(pi/2 cos(x-pi)) + 1)
SetVisibleInView(f, 1, false)
t = Slider(0, 2 pi, 0.01, 0.5, 150, false, true, false, false)
A1 = (0, 0)
A2 = (0, 2)
s1 = Segment(A1, A2)
A3 = Midpoint(A1, A2)
A4 = Rotate(A3, f(t), A1)
s2 = PerpendicularBisector( A4, A2 )
A5 = Reflect(A1, s2)
A6 = Reflect(A1, A4)
s3 = Segment(A1, A6)
s4 = Segment(A5, A4)
s5 = Segment(A5, A2)
A7 = Midpoint(A4, A5)
A8 = Midpoint(A7, A6)
A9 = Reflect(A4, A8)
s6 = Segment(A6, A9)
s7 = Segment(A7, A9)
c = Locus(A9, t)
Execute(Sequence("ShowLabel(s"+k+", false)", k, 1, 7))
Execute(Sequence("ShowLabel(A"+k+", false)", k, 1, 9))
SetVisibleInView(A8, 1, false)
SetVisibleInView(A3, 1, false)
SetVisibleInView(s2, 1, false)
ShowLabel(c, false)
SetDynamicColor(c, 0/255, 102/255, 153/255)
SetLineThickness( c, 7 )
ShowGrid(false)
ShowAxes(false)
StartAnimation(t, true)