#  Mixed Fonts -- a "Ransom Note" effect
#
#  This program reads text from standard input.  For the image
#  shown, brillig.txt was supplied as standard input.
#
#  Font availability varies by platform.  You may want to alter
#  the list of font families below.

link graphics
link random

procedure main()

   WOpen("size=500,270") | stop("*** cannot open window")
   randomize()

   while ransom(read()) do
      WWrite()		# terminate line

   WDone()

end

procedure ransom(s)
   local c
   static famlist, attlist

   initial {
      attlist := [ "", "", "bold", "italic"]
      famlist := [
         "AvantGarde", "Bookman", "Charter", "Courier", "Gill Sans",
         "Helvetica", "Lucida Bright", "Lucida Sans",
         "New Century Schoolbook", "Palatino", "Rockwell", "Times"]
      }

   every c := !s do {
      Font(?famlist || ",24," || ?attlist)
      WWrites(c)
      }

   return

end