SHARE
TWEET

Untitled

a guest Jun 19th, 2019 60 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. steps = Table[{r, 1.005 (2 Pi/4)}, {r, 1, 25, 0.2}];
  2. Graphics[{Black, Line@AnglePath[steps]}, Background -> White]
  3.      
  4. rc = Rectangle[];
  5. center = {0.5, 0.5};
  6. transforms = Table[
  7.     ScalingTransform[{x, x}, center] @* RotationTransform[(1 + -x) * Pi / 4, center],
  8.     {x, 1, 0.025, -0.025}
  9. ];
  10. Graphics @ {EdgeForm @ Black, FaceForm @ None, GeometricTransformation[rc, transforms]}
  11.      
  12. Manipulate[
  13.     Graphics[{Thick,
  14.        MapIndexed[{ColorData[cs, (#2[[1]]*d)^e], Line[#]} &,
  15.           Partition[AnglePath[Table[{r, a*Degree}, {r, 0, 1., d}]], 2, 1]]
  16.     }, Background -> Black, ImageSize -> 500],
  17.     {{d, 0.01, "Step Increment"}, 0.002, 0.02, Appearance -> "Labeled"},
  18.     {{a, 119., "Angle Increment (Degree)"}, 1., 180., Appearance -> "Labeled"},
  19.     {{e, 1.5, "Colour Exponent"}, 0.1, 3.0, Appearance -> "Labeled"},
  20.     {{cs, "SandyTerrain", "Colour Scheme"}, ColorData["Gradients"]}
  21.  ]
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!
 
Top