New answers tagged

1

A function showing a different way to modify the style of a cell: ChangeStyle[cell_CellObject, style_String] := NotebookWrite[cell, ReplacePart[NotebookRead[cell], 2 -> style]];


7

Perhaps you could use an adapted version of the billboard3D function that I adapted from a previous answer here How to write graffiti, i.e., text on a polygon surface in Graphics3D? that I ultimately adapted from a Wolfram-U video presentation Advanced 3D Graphics in the Wolfram Language. It uses normals rather than Euler angles, but it should be ...


2

We can use SliceContourPlot3D with "BackPlanes" as the slice surface to add face grids with desired colors: ClearAll[addFaceGrids] addFaceGrids[color_: GrayLevel[.8], linecolor_: White] := Module[{r = PlotRange[#]}, Show[#, SliceContourPlot3D[#, "BackPlanes", {x, r[[1, 1]], r[[1, 2]]}, {y, r[[2, 1]], r[[2, 2]]}, {z, r[[3, 1]], r[[...


4

plot = Plot3D[Sin[x + y^2], {x, -3, 3}, {y, -2, 2}, ColorFunction -> "BlueGreenYellow", PlotTheme -> {"Marketing", "NoAxes"}, Boxed -> False]


4

ClearAll[canvas] canvas[color_: GrayLevel[0, .3]] := Graphics3D@{{EdgeForm[], color, EdgeForm[None], InfinitePlane[{Scaled[{0, 0, 0}], Scaled[{0, 1, 0}], Scaled[{1, 1, 0}]}], InfinitePlane[{Scaled[{0, 0, 0}], Scaled[{0, 0, 1}], Scaled[{0, 1, 1}]}], InfinitePlane[{Scaled[{0, 1, 0}], Scaled[{0, 1, 1}], Scaled[{1, 1, 1}]} ]}} plot = Plot3D[Sin[x + ...


Top 50 recent answers are included