Message Boards Message Boards

GROUPS:

[GIF] Because It's There (Contour animation)

Posted 2 years ago
2369 Views
|
1 Reply
|
1 Total Likes
|

Contour animation

Because It's There

Same basic idea as Phoenix, this time with the top half of the surface $|x|+y^2+\sqrt[3]{z}=1$.

By the way, I'm now selling prints if you're interested in putting some of my work on your wall.

Here's the code:

DynamicModule[{cols},
 cols = RGBColor /@ {"#A7CDCC", "#F87D09", "#A7CDCC", "#004A55"};
 Manipulate[
  Show[Table[{ParametricPlot3D[{{(1 - z^(1/3) - y^2), y, 
        z}, {-(1 - z^(1/3) - y^2), y, z}}, {z, 0, 
       Max[(1 - y^2)^3, .001]}, PlotRange -> 2, Boxed -> False, 
      Axes -> None, ViewPoint -> 65 {1.2, 1.5, 1.7}, 
      ViewCenter -> {.504, .5, .55}, ViewAngle -> π/1200., 
      ImageSize -> 540, 
      PlotStyle -> 
       Directive[Blend[cols[[;; 3]], (y + 1)/2], Thickness[.004]], 
      Background -> cols[[4]]], 
     Graphics3D[{Thickness[.004], Blend[cols[[;; 3]], (y + 1)/2], 
       Line[{{# (1 - y^2), y, 0}, {2 #, y, 0}}] & /@ {-1, 
         1}}]}, {y, -2 + t, 2, 1/8}]], {t, 0, 1/8}]]

enter image description here - another post of yours has been selected for the Staff Picks group, congratulations !

We are happy to see you at the tops of the "Featured Contributor" board. Thank you for your wonderful contributions, and please keep them coming!

Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract