#!/usr/local/bin/cz -- use b # What is a common free font in X11 and preferably windoze etc too???? # Or, just configure it? #def font_family "times" # "arial" def font_family "helvetica" Main() cstr s, c = NULL if args == 0: s = Format("usage: %s string [colour]", program) getargs(cstr, s, c) paper(midnightblue) white() if c: coln(c) gprint_anchor(0, -0.5) font_size_to_fit(s) gsay(s) int font_size_to_fit(cstr s) font(font_family "-medium", 200) num tw = text_width(s) num th = font_height() int fsw = (int)(200*w/tw * 0.90) int fsh = (int)(200*h/th * 0.90) int fs = imin(fsw, fsh) font(font_family "-medium", 50) return fs