SHARE
TWEET

4D Julia

msollami Dec 27th, 2013 14 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Needs["OpenCLLink`"]
  2. frames = Table[
  3.    p = {{8.0, 1.0, 1.0}, {0.3, -0.5, u3, 0.2}, {15.0, 10.0, 5.0}};
  4.    OpenCLFractalRender3D[Method -> "Quaternion", "Type" -> "Julia",
  5.     "SingleFrame" -> True, "SingleFrameParameters" -> p,
  6.     "Multisampling" -> 20, "MaxIterations" -> 256,
  7.     "Color" -> {0, 1, 0.8}, ImageSize -> 512],
  8.    {u3, -2, 2, 0.1}];
  9. Export["mandel.gif", frames, "DisplayDurations" -> 0.1]
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