How can I create a word consisting of sequence of letters which produce the word?

Question

I found today at the web site of the Wolfram Programming Lab the following Code which can create a Pi symbol filled with the digits of Pi:

With[
 {
  pos = PixelValuePositions[
    Rasterize@
     Text@Style[Pi, 
       90, {FontWeight -> "Bold", FontSize -> 70, 
        FontFamily -> "Source Serif Pro"}], 0]
  },
 Graphics[
  MapThread[Text, {Characters@ToString@N[Pi, Length[pos] - 1], pos}], 
  ImageSize -> 400]
 ]

Question:

How can I create a word consisting of the sequence of letters which produce the word?

Henrik Schumacher · Accepted Answer · 2018-02-25T22:01:51.613

1

With the code provided, that's easy! Of course I have to repeat the letters... Here I apply it right away to my favorite word along with my favorite font:

word = "Döp";
pos = PixelValuePositions[Rasterize@Style[word, 
  {FontSize -> 50, FontFamily -> "Comic Sans MS"
  }], 0];    
chars = Characters@word;
charlist = chars[[Mod[Range[Length[pos]], Length[chars], 1]]];
g = Graphics[
  MapThread[
   Style[Text[#1, #2], FontWeight -> Bold, FontSize -> 6, 
     FontFamily -> "Courier"] &, {charlist, pos}], ImageSize -> Full]

Edit

Fixed typo in the "word"...

edited Feb 25 '18 at 22:01

answered Feb 25 '18 at 21:29

Henrik Schumacher

106,770
7
179
309

Great .. what is Döpp? – mrz Feb 25 '18 at 21:52
1

Erm... https://www.youtube.com/watch?v=d2R8wl_6Wj4 – Henrik Schumacher Feb 25 '18 at 22:00
Ah ... has something to do with football – mrz Feb 25 '18 at 22:08
in 96 I was in Prague in a Hotel and sitting in the entrance hall and you know whom I met ... this same guy and we talked a little bit about his crazy music – mrz Feb 25 '18 at 22:11
Must have been an interesting encouter. He seems to have quite a lot of self-confidence... – Henrik Schumacher Feb 25 '18 at 22:26

How can I create a word consisting of sequence of letters which produce the word?

1 Answers1