Advertisement
Matthen

Unroll circle area

Sep 26th, 2014
4,417
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.35 KB | None | 0 0
  1. Manipulate[
  2. Graphics[{
  3. Table[{
  4. {Black,
  5. If[t < r,
  6. Circle[{2 Pi t, 0}, r, {-Pi/2, 2 Pi (1 - t /r) - Pi/2}], {}]
  7. ,
  8. Line[{{0.0, -r}, {Min[2 Pi t, 2 Pi r], -r}}]
  9. }(*,
  10. Circle[{2Pi t,0},r]
  11. *)},
  12. {r, 0.001, 1.0, 0.05}]
  13. }, PlotRange -> {{-1, 2 Pi + 1}, {-1, 1}}, ImagePadding -> 4,
  14. ImageSize -> 500]
  15. ,{t,0,1}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement