SHARE
TWEET

Triple Trefoil

a guest Nov 22nd, 2015 89 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. cols = RGBColor /@ {"#2537b5", "#ff3804", "#ffffff", "#000000"};
  2.  
  3. Manipulate[
  4.      Graphics3D[
  5.       Table[{cols[[i]],
  6.         Sphere[{(2 + Cos[3*2 \[Pi] u]) Cos[
  7.             2*2 \[Pi] u + 2/9 t i \[Pi]], (2 + Cos[3*2 \[Pi] u]) Sin[
  8.             2*2 \[Pi] u + 2/9 t i \[Pi]],
  9.           Sin[3*2 \[Pi] u]}, .07]}, {i, 1, 3}, {u, i/297, 1, 1/99}],
  10.       Background -> Black, Lighting -> "Neutral", Boxed -> False,
  11.       ImageSize -> {540, 540}, PlotRange -> 3.1], {t, 3, 6}]
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