4 outputtemplate := "svg/%j-%c.svg";
16 cA = fullcircle scaled 8u shifted A;
17 cB = fullcircle scaled 8u shifted B;
22 vardef Point(expr p) =
23 draw p withpen pencircle scaled 4;
24 draw p withpen pencircle scaled 3 withcolor white;
34 fill (-120,-120)--(-120,120)--(210,120)--(210,-120)--cycle withcolor (0.6,0.7,0.8);
36 C := point (8*i/90.5+0.01) of cB;
37 D := (C + A -B) reflectedabout(A,C);
38 E := (B--C) intersectionpoint (A--D);
40 fill cB withcolor 0.8white;
42 drawoptions(withcolor 0.6white);
47 drawarrow subpath (0,8*i/90.5) of cB;
53 draw e withpen pencircle scaled 1 withcolor blue;
56 drawoptions(withpen pensquare scaled 2 withcolor (1,0.08,0.58));