SHARE
TWEET

Unroll circle area

Matthen Sep 26th, 2014 3,417 Never
  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}]
RAW Paste Data
Top