Wolfram Function Repository

Instant-use add-on functions for the Wolfram Language

Function Repository Resource:

 Graphics3DSketch

Source Notebook

Convert an ordinary Graphics3D object to a sketch-styled raster image

Contributed by: Silvia Hao

ResourceFunction["Graphics3DSketch"][expr]

converts expr to a sketch-styled raster image.

ResourceFunction["Graphics3DSketch"][expr,f]

converts expr to a sketch-styled raster image, applying f to lines that are obscured.

Details and Options

The first argument to ResourceFunction["Graphics3DSketch"] should be a Graphics3D options Lighting and AbsoluteThickness[2]}style to use for obscured lines

Examples

Basic Examples (3) 

Create a Cone,

Out[1]=
imgFilter = RightComposition[ Blur[#, 3] & , EdgeDetect[#, 1] & ]; ResourceFunction["Graphics3DSketch"][basegraph, imgFilter]
Out[3]=
basegraph = Show[{ SphericalPlot3D[ 1, {\[Theta], 0.24 \[Pi], \[Pi]/2}, {\[Phi], 0, 1.8 \[Pi]}, PlotStyle -> White, PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , SphericalPlot3D[ 1, {\[Theta], 0, \[Pi]/5}, {\[Phi], \[Pi]/4, 2.1 \[Pi]}, PlotStyle -> FaceForm[Lighter[Blue, .5], GrayLevel[.9]], PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , Graphics3D[{FaceForm[Lighter[Pink, .8], GrayLevel[.8]], Cylinder[{{0, 0, 0}, {0, 0, .8 Cos[\[Pi]/5.]}}, Sin[\[Pi]/5.]]}] } , PlotRange -> 1.2 {{-1, 1}, {-1, 1}, {0, 1}}, AxesOrigin -> {0, 0, 0}, Boxed -> False, SphericalRegion -> True]
Out[4]=
basegraph = ParametricPlot3D[ {u Cos[v], u Sin[v], Im[(u Exp[I v]^5)^(1/5)]}, {u, 0, 2}, {v, 0, 2 \[Pi]}, PlotPoints -> 100, Mesh -> {2, 5}, MeshStyle -> Red, Boxed -> False, BoundaryStyle -> Black, ExclusionsStyle -> {None, Black},(*PlotStyle\[Rule]White,*) Lighting -> "Neutral" , PlotStyle -> Directive[ Texture[ImageAdd[ExampleData[{"TestImage", "Ruler"}], .5]]] , TextureCoordinateFunction -> ({#4, 4 #5} &) ]
Out[6]=
ResourceFunction["Graphics3DSketch"][basegraph , Blur[#, 5] & , ViewPoint -> {3, -1, 0.5}, ImageSize -> 1000 ]
Out[8]=
ResourceFunction["Graphics3DSketch"][basegraph , RightComposition[ ImageEffect[Blur[#, 10], {"OilPainting", 5}] & , ImageAdjust , ImageAdjust[#, {0, 0, 2}] & ] , ViewPoint -> {3, -1, 0.5}, ImageSize -> 1000 ]
Out[9]=
basegraph = Show[{ SphericalPlot3D[ 1, {\[Theta], 0.24 \[Pi], \[Pi]/2}, {\[Phi], 0, 1.8 \[Pi]}, PlotStyle -> White, PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , SphericalPlot3D[ 1, {\[Theta], 0, \[Pi]/5}, {\[Phi], \[Pi]/4, 2.1 \[Pi]}, PlotStyle -> FaceForm[Lighter[Blue, .5], GrayLevel[.9]], PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , Graphics3D[{FaceForm[Lighter[Pink, .8], GrayLevel[.8]], Cylinder[{{0, 0, 0}, {0, 0, .8 Cos[\[Pi]/5.]}}, Sin[\[Pi]/5.]]}] } , PlotRange -> 1.2 {{-1, 1}, {-1, 1}, {0, 1}}, AxesOrigin -> {0, 0, 0}, Boxed -> False, SphericalRegion -> True];

The option "DashStyle"→{style1,style2,…} can be given to alter the style of the lines in the "shadow region":

In[11]:=

The option

Out[14]=
ResourceFunction["Graphics3DSketch"][Show[{ SphericalPlot3D[ 1, {\[Theta], 0.24 \[Pi], \[Pi]/2}, {\[Phi], 0, 1.8 \[Pi]}, PlotStyle -> White, PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , SphericalPlot3D[ 1, {\[Theta], 0, \[Pi]/5}, {\[Phi], \[Pi]/4, 2.1 \[Pi]}, PlotStyle -> FaceForm[Lighter[Blue, .5], GrayLevel[.9]], PlotPoints -> 50, Mesh -> None, BoundaryStyle -> Black] , Graphics3D[{FaceForm[Lighter[Pink, .8], GrayLevel[.8]], Cylinder[{{0, 0, 0}, {0, 0, .8 Cos[\[Pi]/5.]}}, Sin[\[Pi]/5.]]}] } , PlotRange -> 1.2 {{-1, 1}, {-1, 1}, {0, 1}}, AxesOrigin -> {0, 0, 0}, Boxed -> False, SphericalRegion -> True], "DashStyle" -> {Dashing[.01], Red, AbsoluteThickness[3]}]
Out[16]=

Publisher

Silvia Hao

Version History

Related Resources

Author Notes

Graphics3DSketch is a revision of DashedGraphics3D from the Sketch-type graphics with transparency and dashed hidden lines post in the linked reference.

License Information

Follow Lee on X/Twitter - Father, Husband, Serial builder creating AI, crypto, games & web tools. We are friends :) AI Will Come To Life!

Check out: eBank.nz (Art Generator) | Netwrck.com (AI Tools) | Text-Generator.io (AI API) | BitBank.nz (Crypto AI) | ReadingTime (Kids Reading) | RewordGame | BigMultiplayerChess | WebFiddle | How.nz | Helix AI Assistant