# Tag Info

8

Seeing Silvia's phenomenal answer I've been inspired to take a crack at this. My method requires the use of ColorFunction so it only works for plots rather than general Graphics3D geometry. However, it does find silhouette edges in the interior of the image, as well as those hidden behind other surfaces (such as the missing side walls of the internal ...

43

Yes we can. The following DashedGraphics3D[ ] function is designed to convert ordinary Graphics3D object to the "line-drawing" style raster image. Clear[DashedGraphics3D] DashedGraphics3D::optx = "Invalid options for Graphics3D are omitted: 1."; Off[OptionValue::nodef]; Options[DashedGraphics3D] = {ViewAngle -> 0.4, ViewPoint ...

15

Let's get a black torus: torus = First@ParametricPlot3D[{Cos[u] (3 + Cos[t]), Sin[u] (3 + Cos[t]), Sin[t]}, {u, 0, 2 Pi}, {t, 0, 2 Pi}, PlotStyle -> Black, Mesh -> None, PlotPoints -> 10] and now, this is a way to go: DynamicModule[{d1 = 0, d2 = 0}, Column[{ Graphics3D[{ ...

13

I have made several pictures very similar to this, using code similar to the one below: MakePic[f_, g_, off_, nlines_, col_, dim_] := Module[{g1, cf, lines}, g1 = ParametricPlot[{f[t], g[t + off]}, {t, 0, 2 Pi}, AspectRatio -> 1, Axes -> None, PlotStyle -> {{col, Thick, Opacity[0.2]}}]; lines = Line@Table[{f[t], g[t + off]}, {t, ...

13

A highly related concept would be envelope. Ruled surface could be a possible generalization to 3D. A simple way to find a family of lines given thier envelope curve is to use its tangent line family. Example 1: Suppose we have a curve describe in parameter u: pt = {Cos[u/2] Cos[u], Cos[u/2] Sin[u], .8 Sin[u]}; ParametricPlot3D[pt, {u, 0, 4 π}] So its ...

16

I think you should not be looking at Graph, which is for graph plotting. This is really a graphics question. Looking at your example, I see one or more curves split into (equal?) segments, and then the division points connected with straight lines. So we can base this on this answer (please check there for the code). After dividing a single curve into ...

Top 50 recent answers are included