ズンドコキヨシ(PostScript)

  • 5
    Like
  • 1
    Comment
More than 1 year has 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