# [GIF] Enneper surface + an introduction

Posted 3 years ago
7655 Views
|
8 Replies
|
27 Total Likes
|
 Hello, Wolfram Community. My name is Clayton Shonkwiler, and I'm a mathematician at Colorado State University, primarily interested in moduli spaces of random walks. I also make animated GIFs using Mathematica; you can see my latest above. My website is at shonkwiler.org and I post my GIFs to Tumblr, Ello, and Twitter (as well as posting stills to Instagram) if you'd like to follow me in one of those places. If there's interest I would also like to start posting my GIFs along with source code here, as I'd be very happy to get feedback.As for the code for the above GIF, first is a function which transforms hex color values into RGB: RGBFromHex[hex_] := RGBColor[(FromDigits[#, 16] & /@ StringPartition[hex, 2])/255] I use this quite a bit, but I don't really like it; is there a better way to do this? A built-in function would be ideal.Anyway, here's the code for the associated family of the Enneper surface and the Manipulate object corresponding to the above GIF (of course I originally did this by parametrically plotting the surface with PlotStyle->None and messing with MeshStyle, but creating tables of curves gives a cleaner final image): Enneper[u_, v_, θ_] := Re[E^(I θ) {z - z^3/3, I z + I z^3/3, z^2} /. z -> u + I v] Manipulate[ Graphics3D[{RGBFromHex["d5f26d"], Thickness[.003], Line[Table[Enneper[u, v, θ], {u, -3/2, 3/2, 1/5}, {v, -3/2, 3/2, 1/20}]], Line[Table[Enneper[u, v, θ], {v, -3/2, 3/2, 1/5}, {u, -3/2, 3/2, 1/20}]]}, PlotRange -> 4.5, ViewPoint -> Front, Boxed -> False, Axes -> None, Background -> RGBFromHex["1f2947"], ImageSize -> 540], {θ, 0, 2 π}] 
8 Replies
Sort By:
Posted 3 years ago
 This is very beautiful, thank you for sharing ! I love your choice of the colors for the background and the surface? What is your process of choosing colors for your GIFs?BTW in Wolfram Language there is built-in way of conversion hexadecimal to RGB color. I think people tend to miss it because it is in the details section on RGBColor function:So your code would work the same way with RGBColor["#d5f26d"] and RGBColor["#1f2947"]. I have also noticed that broken surface animated with some delay makes a beautiful visual too: Enneper[u_, v_, θ_] := Re[E^(I θ) {z - z^3/3, I z + I z^3/3, z^2} /. z -> u + I v] Manipulate[Graphics3D[{RGBColor["#d5f26d"], Thickness[.003], Line[Table[Enneper[u, v, θ], {u, -3/2, 3/2, 1/5}, {v, -3/2, 3/2, 1/20}]], Line[Table[Enneper[u, v, θ + Pi], {v, -3/2, 3/2, 1/5}, {u, -3/2, 3/2, 1/20}]]}, PlotRange -> 4.5, ViewPoint -> Top, Boxed -> False, Axes -> None, Background -> RGBColor["#1f2947"], ImageSize -> 540, ViewAngle -> .47], {θ, 0, 2 π}] But I think my GIF is more aliased and jumpy, - do you have some special settings for Export ? I think you might be exporting to lossless PNGs and assembling the GIF in another software, or something like that?
Posted 3 years ago
 Very nicely done! (Nice enough to make me delurk. ;) ) Please allow me to tweak things slightly: (* adapted from http://mathematica.stackexchange.com/a/18506 *) hexToRGB = RGBColor @@ (IntegerDigits[FromDigits[StringReplace[#, "#" -> ""], 16], 256, 3]/255.) &; (* from http://mathematica.stackexchange.com/a/200 *) antialias[g_, n_: 3] := ImageResize[Rasterize[g, "Image", ImageResolution -> n 72], Scaled[1/n]] enneper[u_, v_, θ_] = ComplexExpand[With[{z = u + I v}, Re[Exp[I θ] {z - z^3/3, I z + I z^3/3, z^2}]], TargetFunctions -> {Re, Im}]; frames = Table[antialias[ParametricPlot3D[enneper[u, v, θ], {u, -3/2, 3/2}, {v, -3/2, 3/2}, Axes -> None, Background -> hexToRGB["1f2947"], Boxed -> False, BoundaryStyle -> Directive[AbsoluteThickness[1], hexToRGB["d5f26d"]], Mesh -> 14, MeshStyle -> Directive[AbsoluteThickness[1], hexToRGB["d5f26d"]], PlotRange -> 4.5, PlotStyle -> None]], {θ, 0, 2 π, 2 π/30}]; Export["enneper.gif", frames, AnimationRepetitions -> ∞, "DisplayDurations" -> 1./20]; 
Posted 3 years ago
 This is very beautiful, thank you for sharing ! I love your choice of the colors for the background and the surface? What is your process of choosing colors for your GIFs? I mostly just look for color palettes from the web. For example, lately I've been using Adobe Color, Swiss Style Color Picker, and especially Design Seeds quite a bit. So your code would work the same way with RGBColor["#d5f26d"] and RGBColor["#1f2947"]. Okay, now I feel stupid, but that's exactly what I wanted. Thank you! But I think my GIF is more aliased and jumpy, - do you have some special settings for Export ? I think you might be exporting to lossless PNGs and assembling the GIF in another software, or something like that? I used to always complain to people that Mathematica's 3D graphics weren't antialiased and that I had to export at super-high resolutions and then resize in a photo editing program to get smooth 3D images...and then I discovered this setting:Once I turned the quality all the way up, I didn't have to do anything special to export nice-looking, antialiased 3D graphics anymore.I actually do export directly to GIF, but I usually use "DisplayDurations"->{1/24} or "DisplayDurations"->{1/30} in Export to get smoother animations. So, for example, the actual code I used to produce the GIF I posted above is: Export[NotebookDirectory[] <> "enneper.gif", enneper, "DisplayDurations" -> {1/30}] 
Posted 3 years ago
 I didn't know about the built-in hex input, I made functions similar to the one Clayton posted many many times! Thanks for pointing it out!Edit: I see now that it is a 10.1 update, so it is actually quite new!
Posted 3 years ago
 This viewpoint is even nicer! Look at the posts above, your hexToRGB["d5f26d"] can be replaced by RGBColor["#d5f26d"]
Posted 3 years ago
 Very neat. I am looking forward to future contributions!
 Hello Sander, I'm aware of the new functionality in RGBColor[]; nevertheless, I elected to use what I used to have code that will work in earlier versions. In any case, it is straightforward to modify my code to use the new method. ;)