Message Boards

WOLFRAM COMMUNITY

5059 Views

12 Replies

1 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Image Processing Mathematica Dynamic Interactivity Geometry Graphics and Visualization Import and Export Wolfram Language

3D text modeling and conversion to true vector format

Gerald Proteau

Posted 4 years ago

I'm unable to export output from the manipulate window in true 3d vector format to produce EPS drawings, the output rasterized. I know this topic as been discussed somewhat but are there any workarounds to export in 3d Vector format? Any suggestions would be helpful The following code is based upon some work I found in the demonstration file: "Text Positioning in Three Dimensions with Nested Transformations" Much cudos to the original authors. Gerry font = "Showcard Gothic"; $FontFamilies; w = 50; ii = RegionProduct[ DiscretizeGraphics[Text[Style["T", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; s = RegionProduct[ DiscretizeGraphics[Text[Style["e", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; h = RegionProduct[ DiscretizeGraphics[Text[Style["s", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; u = RegionProduct[ DiscretizeGraphics[Text[Style["t", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; t = RegionProduct[ DiscretizeGraphics[Text[Style["i", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; d = RegionProduct[ DiscretizeGraphics[Text[Style["n", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; o = RegionProduct[ DiscretizeGraphics[Text[Style["g", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; ww = RegionProduct[ DiscretizeGraphics[Text[Style["3", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; n = RegionProduct[ DiscretizeGraphics[Text[Style["D", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; c = RegionProduct[ DiscretizeGraphics[Text[Style["V", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; a = RegionProduct[ DiscretizeGraphics[Text[Style["e", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; e = RegionProduct[ DiscretizeGraphics[Text[Style["c", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; b = RegionProduct[ DiscretizeGraphics[Text[Style["t", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; l = RegionProduct[ DiscretizeGraphics[Text[Style["r", FontFamily -> font]], _Text, MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]]; spc = 5; geom = {{{{ii}}, spc + 1}, {{{s}}, spc + 3}, {{{h}}, spc - 1}, {{{u}}, spc}, {{{t}}, spc}, {{{d}}, spc}, {{{o}}, spc - 1}, {{{ww}}, spc}, {{{n}}, spc + 1}, {{{c}}, spc + 3}, {{{a}}, spc + 1}, {{{e}}, spc}, {{{b}}, spc}, {{{e}}, spc}, {{{l}}, spc - 1}, {{{l}}, spc - 1}, {{{ww}}, spc}, {{{n}}, spc}, {{{c}}, spc}}; graph = Manipulate[ cyl = Cylinder[{{0, 0, 0}, {0, 0, .50}}, Dynamic[cd]]; With[{chars = geom}, Graphics3D[{Translate[cyl, Dynamic[{cx, cy, cz}]], Style[Fold[ Rotate[Rotate[ Rotate[Translate[ Translate[{#, chars[[#2, 1]]}, {If[#2 < 2, 0, chars[[#2 - 1, 2]]], 0, 0}], Dynamic[{x, y, z}]], Dynamic[rx], {1, 0, 0}], Dynamic[ry], {0, 1, 0}], Dynamic[rz], {0, 0, 1}] &, {}, Reverse[Range[Length[chars]]]], EdgeForm[]]}, ImageSize -> {800, 800}, Boxed -> False, Lighting -> {{"Point", Red, {0, 0, 120}}, {"Point", Yellow, {0, 0, -120}}, {"Point", Red, {120, 0, 0}}, {"Point", Yellow, {120, 0, 0}}}, ViewPoint -> Top]], {{x, 2.0, "x translation"}, -5, 5, ImageSize -> Small}, {{y, 0, "y translation"}, -5, 5, ImageSize -> Small}, {{z, 0, "z translation"}, -5, 5, ImageSize -> Small}, {{rx, 0, "x rotation"}, -3, 3, ImageSize -> Small}, {{ry, 0, "y rotation"}, -3, 3, ImageSize -> Small}, {{rz, 0.3, "z rotation"}, -3, 3, ImageSize -> Small}, {{cx, 0, "x cyl"}, -30, 30, ImageSize -> Small}, {{cy, 0, "y cyl"}, -30, 30, ImageSize -> Small}, {{cz, 30, "z cyl"}, -30, 30, ImageSize -> Small}, {{cd, 10, "cyl radius"}, -30, 30, ImageSize -> Small}, ControlPlacement -> Left, SaveDefinitions -> True] Export["extinct.eps", graph]

I'm unable to export output from the manipulate window in true 3d vector format to produce EPS drawings, the output rasterized. I know this topic as been discussed somewhat but are there any workarounds to export in 3d Vector format? Any suggestions would be helpful

The following code is based upon some work I found in the demonstration file: "Text Positioning in Three Dimensions with Nested Transformations" Much cudos to the original authors.

Gerry

font = "Showcard Gothic";

$FontFamilies;
w = 50;
ii = RegionProduct[
   DiscretizeGraphics[Text[Style["T", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
s = RegionProduct[
   DiscretizeGraphics[Text[Style["e", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
h = RegionProduct[
   DiscretizeGraphics[Text[Style["s", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
u = RegionProduct[
   DiscretizeGraphics[Text[Style["t", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
t = RegionProduct[
   DiscretizeGraphics[Text[Style["i", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
d = RegionProduct[
   DiscretizeGraphics[Text[Style["n", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
o = RegionProduct[
   DiscretizeGraphics[Text[Style["g", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
ww = RegionProduct[
   DiscretizeGraphics[Text[Style["3", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
n = RegionProduct[
   DiscretizeGraphics[Text[Style["D", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
c = RegionProduct[
   DiscretizeGraphics[Text[Style["V", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
a = RegionProduct[
   DiscretizeGraphics[Text[Style["e", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
e = RegionProduct[
   DiscretizeGraphics[Text[Style["c", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
b = RegionProduct[
   DiscretizeGraphics[Text[Style["t", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];
l = RegionProduct[
   DiscretizeGraphics[Text[Style["r", FontFamily -> font]], _Text, 
    MaxCellMeasure -> 0.10], MeshRegion[{{0}, {w}}, Line[{1, 2}]]];

spc = 5;
geom = {{{{ii}}, spc + 1}, {{{s}}, spc + 3}, {{{h}}, spc - 1}, {{{u}},
     spc}, {{{t}}, spc}, {{{d}}, spc}, {{{o}}, spc - 1}, {{{ww}}, 
    spc}, {{{n}}, spc + 1}, {{{c}}, spc + 3}, {{{a}}, 
    spc + 1}, {{{e}}, spc}, {{{b}}, spc}, {{{e}}, spc}, {{{l}}, 
    spc - 1}, {{{l}}, spc - 1}, {{{ww}}, spc}, {{{n}}, spc}, {{{c}}, 
    spc}};

graph = Manipulate[
  cyl = Cylinder[{{0, 0, 0}, {0, 0, .50}}, Dynamic[cd]];
  With[{chars = geom}, 
   Graphics3D[{Translate[cyl, Dynamic[{cx, cy, cz}]], 
     Style[Fold[
       Rotate[Rotate[
          Rotate[Translate[
            Translate[{#, 
              chars[[#2, 1]]}, {If[#2 < 2, 0, chars[[#2 - 1, 2]]], 0, 
              0}], Dynamic[{x, y, z}]], Dynamic[rx], {1, 0, 0}], 
          Dynamic[ry], {0, 1, 0}], Dynamic[rz], {0, 0, 1}] &, {}, 
       Reverse[Range[Length[chars]]]], EdgeForm[]]}, 
    ImageSize -> {800, 800}, Boxed -> False, 
    Lighting -> {{"Point", Red, {0, 0, 120}}, {"Point", 
       Yellow, {0, 0, -120}}, {"Point", Red, {120, 0, 0}}, {"Point", 
       Yellow, {120, 0, 0}}}, ViewPoint -> Top]],
  {{x, 2.0, "x translation"}, -5, 5, ImageSize -> Small},
  {{y, 0, "y translation"}, -5, 5, ImageSize -> Small},
  {{z, 0, "z translation"}, -5, 5, ImageSize -> Small},
  {{rx, 0, "x rotation"}, -3, 3, ImageSize -> Small},
  {{ry, 0, "y rotation"}, -3, 3, ImageSize -> Small},
  {{rz, 0.3, "z rotation"}, -3, 3, ImageSize -> Small},
  {{cx, 0, "x cyl"}, -30, 30, ImageSize -> Small},
  {{cy, 0, "y cyl"}, -30, 30, ImageSize -> Small},
  {{cz, 30, "z cyl"}, -30, 30, ImageSize -> Small},
  {{cd, 10, "cyl radius"}, -30, 30, ImageSize -> Small},
  ControlPlacement -> Left, SaveDefinitions -> True]

Export["extinct.eps", graph]

POSTED BY: Gerald Proteau

12 Replies

Sort By:

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 4 years ago

It works when exporting to pdf: Export["extinct.pdf", graph, ImageResolution -> Infinity]

POSTED BY: Gianluca Gorni

Hans Milton

Posted 4 years ago

I ran your code. And the exported file does work when I open it in this online EPS viewer

POSTED BY: Hans Milton

Gerald Proteau

Posted 4 years ago

Hi, yes the code works, but the output is a raster image (shown below) than the preferred vector format which would be a smooth line.

POSTED BY: Gerald Proteau

Hans Milton

Posted 4 years ago

Does the option `"AllowRasterization"->False` help? Export["D:\\TempHM\\extinct.eps", graph, "AllowRasterization" -> False]

POSTED BY: Hans Milton

Gerald Proteau

Posted 4 years ago

That option has no effect, unfortunately.

POSTED BY: Gerald Proteau

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 4 years ago

You can try `ImageResolution -> Infinity`

POSTED BY: Gianluca Gorni

Gerald Proteau

Posted 4 years ago

That doesn't help either I'm afraid.

POSTED BY: Gerald Proteau

Gerald Proteau

Posted 4 years ago

I tried again. That worked very nicely!

POSTED BY: Gerald Proteau

Gerald Proteau

Posted 4 years ago

POSTED BY: Gerald Proteau

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 4 years ago

Unfortunately, with 12.1 the trick `ImageResolution -> Infinity` does not work any more on my system. For the time being, I have reverted to 12.0 for illustration work.