Unroll a Circle
- Author:
- Auston B Cron
Step Instructions
1 Create Slider a from 0 to 2 π (enter 2 π by typing 2 pi)
2 Type Origin = (0,0) into Input.
3 Type (a, 0)
4 Type C = (a, 1)
5 Type Circle[C,1]
6 Segment[Origin,A], draw or type command,
a) change color (red), heavy line; SetColor[ c, "Red" ], SetLineThickness[ c, 8 ]
7 Rotate Object around Point by Angle: click on Point A then C rotated by angle (type) 2 π - a
8 CircularArc center between two points click on the points in this order [C, A, A'],
a) change arc color (red), heavy line to match #6; SetColor[ c, "Red" ], SetLineThickness[ c, 8 ].