/** This program lists all of the fonts available and displays a sample of
    them as a graphic.  If arguments are passed in on the command-line, they
    are added to the string. */
g = new graphics
ge=callJava["java.awt.GraphicsEnvironment", "getLocalGraphicsEnvironment"]

y = 0
for fontname = ge.getAvailableFontFamilyNames[]
{
   g.font[fontname,1]
   text = fontname
   if length[ARGS] > 0
      text = text + "  " + join[" ", ARGS]
   g.text[text, 0, y]
   y = y + 1
}

g.show[]