Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Needs["OpenCLLink`"]
- frames = Table[
- p = {{8.0, 1.0, 1.0}, {0.3, -0.5, u3, 0.2}, {15.0, 10.0, 5.0}};
- OpenCLFractalRender3D[Method -> "Quaternion", "Type" -> "Julia",
- "SingleFrame" -> True, "SingleFrameParameters" -> p,
- "Multisampling" -> 20, "MaxIterations" -> 256,
- "Color" -> {0, 1, 0.8}, ImageSize -> 512],
- {u3, -2, 2, 0.1}];
- Export["mandel.gif", frames, "DisplayDurations" -> 0.1]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement