vallog: PostScript CharactorOutlines, load, charpath

2009/11/13

PostScript CharactorOutlines, load, charpath

% --- variables ------------------------
/font-size 45 def
/Helvetica-Bold findfont font-size scalefont setfont
/message (9LISP) def
/title (Kyushu.lisp@KPF) def

% --- procedures -----------------------
/oshow {
true charpath stroke
} def

/circleofString {
    /angle exch def
    /slope exch def
    /show-proc exch def
    /show-proc load
    15 angle 345 {
        gsave
        rotate
        slope 0 moveto
        message show-proc
        grestore
    } for
} def

/draw-title {
    0 0 moveto
    title true charpath
    gsave
    1 setgray fill
    grestore
} def

% --- main -----------------------------
165 600 translate
.5 setlinewidth

{ show } 30 45 circleofString

draw-title
stroke

0 -400 translate
.5 setlinewidth

{ oshow } 10 13 circleofString

draw-title
stroke

showpage