A long time ago they gave me many answers to these questions,
is it possible to enter text in the center something like "abcde" , without the quotes and maybe with some pretty font
Mathematica Stack Exchange is a question and answer site for users of Wolfram Mathematica. It only takes a minute to sign up.
Sign up to join this communityA long time ago they gave me many answers to these questions,
is it possible to enter text in the center something like "abcde" , without the quotes and maybe with some pretty font
Using the function MakeMandala
from this answer by Anton Antonov:
SeedRandom[123];
Show[MakeMandala[],
Epilog -> {White, Disk[{0, 0}, Scaled[.15]],
Text[Style["abcd",
FontSize -> Scaled[.1], FontFamily -> "Cambria",FontColor -> Red]]}]
SeedRandom[123];
Multicolumn[
Table[Show[MakeMandala[] /. _GrayLevel -> RandomColor[],
Background -> Black,
Epilog -> {Black, Disk[{0, 0}, Scaled[.15]],
Text[Style["abcd", FontSize -> Scaled[.1],
FontFamily -> "Cambria", FontColor -> Red]]}],
10],
5]
Update: "how the hollow letters can be placed so that they can be painted":
SeedRandom[123];
textoutlines = MeshPrimitives[
BoundaryDiscretizeGraphics[
Text[Style["abcd",
FontSize -> 5, FontFamily -> "Cambria", FontColor -> Red]],
_Text], 1];
Multicolumn[
Table[Show[MakeMandala[] /. _GrayLevel -> (rc = RandomColor[]),
Background -> Black,
Epilog -> {Black, Disk[{0, 0}, Scaled[.15]],
AbsoluteThickness[.5], rc, textoutlines},
ImageSize -> Medium], 4], 2]
Update 2: Put a frame on mandalas and export to PDF
:
textoutlines = MeshPrimitives[
BoundaryDiscretizeGraphics[
Text[Style["abcd",
FontSize -> 5,
FontFamily -> "Cambria",
FontColor -> GrayLevel[0.25]]],
_Text],
1];
SeedRandom[123];
{rows, columns} = {4, 2};
mandalagrid = Rasterize[Grid@
Table[Show[MakeMandala[],
Epilog -> {{White, Disk[{0, 0}, Scaled[.15]]},
AbsoluteThickness[.5], textoutlines},
Frame -> True, FrameTicks -> None,
ImagePadding -> 10, ImageSize -> 500],
rows, columns],
ImageResolution -> 400];
Export["mandalagrid.pdf", mandalagrid]
"mandalagrid.pdf"
MakeSeedSegment
, MakeSymmetric
and MakeMandala
from the linked page.
$\endgroup$
Style["abcd,...]
with Style["abc\ndefgh", ...]
$\endgroup$