munepi さんのブログの記事「\NabeAzz を作ってみた」より。
つぎは、Postscript で NabeAzz を(おぃ
ふむ。
%!PS-Adobe-3.0 /norm-font /Palatino-Roman findfont 10 scalefont def /funny-font /ZapfChancery-MediumItalic findfont 20 scalefont def /leading 18 def /space-width 5 def /line-item-count 10 def /put-space { space-width 0 rmoveto } def /form-line { gsave exec grestore 0 leading neg rmoveto } def /requires-funny { dup 3 mod 0 eq exch mark exch 10 string cvs (3) search { cleartomark pop true } { cleartomark } ifelse } def /NabeAzz { 4 dict begin /limit exch def /c 0 def /line-count limit line-item-count div ceiling cvi def /one-line { { line-item-count { /c c 1 add def c requires-funny { funny-font } { norm-font } ifelse setfont c 10 string cvs show put-space } repeat } form-line } def gsave 0 leading line-count 1 sub mul rmoveto line-count { one-line } repeat grestore end } def 0 setgray 60 60 moveto 40 NabeAzz showpage
(フォントは Base35 なものに置き換えました。)
よし。「私は Postscript ができる」ということに決定。
(Postscript のプログラムを全部自分で書いたのは初めてです…。)