New answers tagged fonts
2
BoundaryDiscretizeGraphics[Text[Style["h", FontFamily -> "Courier", 300]],
_Text,
MeshCellStyle ->
{1 -> None,
2 -> PatternFilling[{"HalftoneGrid",
Directive[AbsolutePointSize @ 25, Red]}, ImageScaled[1/15]]}]
Replace "HalftoneGrid" with "Halftone" to get
Use PatternFilling[{&...
12
graphics = Graphics[Text[Style["h", FontFamily -> "Courier", 300]]];
pts = PixelValuePositions[ColorNegate[Binarize[Image[graphics, ImageSize -> 100]]], 1];
{{144, 378}, {145, 378}, {146, 378}, {147, 378}, {148, 378}, {149,
378}, {150, 378}, ..., {333, 134}, {334, 134}, {335, 134}, {336, 134}}
you can plot these points:
Graphics[...
17
I would define the letter as a discretised 2D region and plot it with axes in order to get a rough idea about its area:
letterRegion = BoundaryDiscretizeGraphics[Text[Style["h", FontFamily -> "Courier",300]], _Text, MaxCellMeasure -> 0.1, Axes -> True]
Then, I would create a grid of equidistant points (if this is what you want!)
...
17
Graphics[MeshPrimitives[
BoundaryDiscretizeGraphics[
Text[Style["h", FontFamily -> "Courier", 300]], _Text], 0]]
Point /@ RandomPoint[
DiscretizeGraphics[
Text[Style["h", FontFamily -> "Courier", 300]], _Text],
600] // Graphics
Or
text = Text[Style["h", FontFamily -> "Courier&...
Top 50 recent answers are included