Edited at

ズンドコキヨシ(PostScript)

More than 3 years have passed since last update.

まとめにPostScript版がなかったので作りました。

Ghostscript 9.18で動作確認しています。

出力例PDF

(ps2pdfでPDF変換しています)


zundoko-kiyoshi.ps

% zundoko-kiyoshi in postscript

/Palatino-Italic findfont 40 scalefont setfont
/height 50 def
clippath pathbbox /top exch def pop pop pop newpath

10 top height sub moveto

/zd {
rand 2 mod 0 eq
{ (zun) }
{ (doko) }
ifelse
} def

(%Calendar%) currentdevparams
dup /Second get
exch dup /Minute get 60 mul
exch /Hour get 60 60 mul mul
add add srand

/zunct 0 def
/kiyoshi false def
{
currentpoint exch pop height lt {
showpage 10 top height sub moveto
} if
kiyoshi {
(kiyoshi) show
showpage
exit
} if
zd
dup (zun) eq zunct 4 lt and
{
/zunct zunct 1 add def
} if
dup (doko) eq
{
zunct 4 eq {
/kiyoshi true def
}
{
/zunct 0 def
} ifelse
} if
gsave
show
grestore
0 height neg rmoveto
} loop