Inspired by [url=https://twitter.com/ChocoLinkage/status/1399198044122271746?s=20]上木 敬士郎 Keishiro Ueki @ChocoLinkage[/url][br][br]f(x) = pi (sin(pi/2 cos(x-pi)) + 1)[br]SetVisibleInView(f, 1, false)[br][br]t = Slider(0, 2 pi, 0.01, 0.5, 150, false, true, false, false)[br][br]A1 = (0, 0)[br]A2 = (0, 2)[br]s1 = Segment(A1, A2)[br]A3 = Midpoint(A1, A2)[br][br]A4 = Rotate(A3, f(t), A1)[br][br]s2 = PerpendicularBisector( A4, A2 )[br][br]A5 = Reflect(A1, s2)[br]A6 = Reflect(A1, A4)[br][br]s3 = Segment(A1, A6)[br]s4 = Segment(A5, A4)[br]s5 = Segment(A5, A2)[br][br]A7 = Midpoint(A4, A5)[br]A8 = Midpoint(A7, A6)[br]A9 = Reflect(A4, A8)[br][br]s6 = Segment(A6, A9)[br]s7 = Segment(A7, A9)[br][br]c = Locus(A9, t)[br][br]Execute(Sequence("ShowLabel(s"+k+", false)", k, 1, 7))[br]Execute(Sequence("ShowLabel(A"+k+", false)", k, 1, 9))[br][br]SetVisibleInView(A8, 1, false)[br]SetVisibleInView(A3, 1, false)[br]SetVisibleInView(s2, 1, false)[br][br]ShowLabel(c, false)[br]SetDynamicColor(c, 0/255, 102/255, 153/255)[br]SetLineThickness( c, 7 )[br][br]ShowGrid(false)[br]ShowAxes(false)[br]StartAnimation(t, true)