New answers tagged

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