1. Home
2. Questions
3. Tags
5. Users
6. Unanswered
Teams

Ask questions, find answers and collaborate at work with Stack Overflow for Teams.
Try Teams for free Explore Teams
Teams
Ask questions, find answers and collaborate at work with Stack Overflow for Teams. Explore Teams

Return to Answer

added 97 characters in body

Source Link

edited Apr 13 at 12:56

84.1k
6
97
179

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

Clear[fonts, fillcurves];  
fonts = 
 ImportString[
  ExportString[Text[Style["qH", FontFamily -> "Cambria"]], 
   "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True];
fillcurves = Cases[fonts, _FilledCurve, -1];
HighlightMesh[BoundaryDiscretizeGraphics[#, MaxCellMeasure -> .1], 
    0] & /@ fillcurves // Show

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

Clear[fonts, fillcurves]; fonts = 
 ImportString[
  ExportString[Text[Style["qH", FontFamily -> "Cambria"]], 
   "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True];
fillcurves = Cases[fonts, _FilledCurve, -1];
HighlightMesh[BoundaryDiscretizeGraphics[#, MaxCellMeasure -> .1], 
    0] & /@ fillcurves // Show

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

Clear[fonts, fillcurves]; 
fonts = 
 ImportString[
  ExportString[Text[Style["qH", FontFamily -> "Cambria"]], 
   "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True];
fillcurves = Cases[fonts, _FilledCurve, -1];
HighlightMesh[BoundaryDiscretizeGraphics[#, MaxCellMeasure -> .1], 
    0] & /@ fillcurves // Show

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

added 97 characters in body

Source Link

edited Apr 13 at 12:49

84.1k
6
97
179

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

HighlightMesh[
Clear[fonts, BoundaryDiscretizeGraphics[
fillcurves]; fonts ImportString[
=  
 ImportString[
  ExportString[Text[Style["b"ExportString[Text[Style["qH", FontFamily -> "Cambria"]], 
     "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]]True];
fillcurves = Cases[fonts, 
 _FilledCurve, -1];
HighlightMesh[BoundaryDiscretizeGraphics[#, MaxCellMeasure -> .1], 
    0] & /@ fillcurves // Show

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

HighlightMesh[
 BoundaryDiscretizeGraphics[
  ImportString[
    ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
     "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
   MaxCellMeasure -> .1], 0]

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

Clear[fonts, fillcurves]; fonts =  
 ImportString[
  ExportString[Text[Style["qH", FontFamily -> "Cambria"]], 
   "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True];
fillcurves = Cases[fonts, _FilledCurve, -1];
HighlightMesh[BoundaryDiscretizeGraphics[#, MaxCellMeasure -> .1], 
    0] & /@ fillcurves // Show

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

added 24 characters in body

Source Link

edited Apr 13 at 4:11

84.1k
6
97
179

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

HighlightMesh[
 BoundaryDiscretizeGraphics[
  ImportString[
    ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
     "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
  MaxCellMeasure -> .1], 0]

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
 lines = 
 MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {"ArcLength", 0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red,
     AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

HighlightMesh[
 BoundaryDiscretizeGraphics[
  ImportString[
    ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
     "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
  MaxCellMeasure -> .1], 0]

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
 lines = 
 MeshPrimitives[
  BoundaryDiscretizeGraphics[
   ImportString[
     ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
      "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
   MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {"ArcLength", 0 &}, Mesh -> #2, MeshStyle -> Red,
     AspectRatio -> Automatic, Axes -> False] &, {lines, 
   Floor /@ (ArcLength /@ lines/δ)}] // Show

Edit

For the original code,we can subdivide the line to add some points.

polys = #["BoundaryPolygons"] &@
   BoundaryDiscretizeGraphics[
    Text[Style["b", FontFamily -> "Cambria"]], _Text, 
    MaxCellMeasure -> {"Length" -> 1}];
δ = 1/4;
lines = MeshPrimitives[#, 1] & /@ polys;
Flatten[Map[
    Subdivide[Sequence @@ First@#, Ceiling[ArcLength@#/δ]] &, 
    lines, {2}], 1] // Map@Point // Graphics

We can use ExportString to extract the boundary curves from the fonts.( we can read https://reference.wolfram.com/language/ref/FilledCurve.html)

HighlightMesh[
 BoundaryDiscretizeGraphics[
  ImportString[
    ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
     "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
  MaxCellMeasure -> .1], 0]

Similar with https://mathematica.stackexchange.com/a/289439/72111

Clear["Global`*"];
lines = MeshPrimitives[
   BoundaryDiscretizeGraphics[
    ImportString[
      ExportString[Text[Style["b", FontFamily -> "Cambria"]], 
       "PDF"], {"PDF", "PageGraphics"}, "TextOutlines" -> True][[1]], 
    MaxCellMeasure -> .1], 1, "Multicells" -> True];
δ = .5;
MapThread[
  ListLinePlot[#1 /. Line -> Apply@Join, 
    MeshFunctions -> {0 &, "ArcLength"}, Mesh -> {#2}, 
    MeshStyle -> Red, AspectRatio -> Automatic, 
    Axes -> False] &, {lines, 
   Subdivide /@ Floor /@ (ArcLength /@ lines/δ)}] // Show

deleted 9 characters in body

Source Link

edited Apr 13 at 3:56

84.1k
6
97
179

Loading

added 555 characters in body

Source Link

edited Apr 13 at 3:02

84.1k
6
97
179

Loading

deleted 9 characters in body

Source Link

edited Apr 13 at 2:29

84.1k
6
97
179

Loading

deleted 7 characters in body

Source Link

edited Nov 10, 2023 at 23:47

84.1k
6
97
179

Loading

added 1 character in body

Source Link

edited Nov 10, 2023 at 23:32

84.1k
6
97
179

Loading

added 522 characters in body

Source Link

edited Nov 10, 2023 at 23:24

84.1k
6
97
179

Loading

deleted 56 characters in body

Source Link

edited Nov 10, 2023 at 14:16

84.1k
6
97
179

Loading

Source Link

created Nov 10, 2023 at 14:04

84.1k
6
97
179

Loading