Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Manipulate[
- Graphics[{
- Table[{
- {Black,
- If[t < r,
- Circle[{2 Pi t, 0}, r, {-Pi/2, 2 Pi (1 - t /r) - Pi/2}], {}]
- ,
- Line[{{0.0, -r}, {Min[2 Pi t, 2 Pi r], -r}}]
- }(*,
- Circle[{2Pi t,0},r]
- *)},
- {r, 0.001, 1.0, 0.05}]
- }, PlotRange -> {{-1, 2 Pi + 1}, {-1, 1}}, ImagePadding -> 4,
- ImageSize -> 500]
- ,{t,0,1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement