%% syntaxe : string x y initp@thtext
/initp@thtext {
7 dict begin
/y exch def
/x exch def
/str exch def
str 0 0 show_dim
/wy exch def
/wx exch def
/lly exch def
/llx exch def
pop pop pop
newpath
x y smoveto
} def
/closep@thtext {
str true charpath
end
} def
%% syntaxe : string x y cctext_
/cctext_ {
initp@thtext
llx wx add lly wy add -.5 mulv rmoveto
closep@thtext
} def
/brtext_ {
initp@thtext
hadjust 0 rmoveto
llx neg 0 rmoveto
closep@thtext
} def
/bbtext_ {
initp@thtext
0 0 rmoveto
0 0 rmoveto
closep@thtext
} def
/bltext_ {
initp@thtext
hadjust neg 0 rmoveto
wx neg 0 rmoveto
closep@thtext
} def
/bctext_ {
initp@thtext
0 0 rmoveto
wx llx add -.5 mul 0 rmoveto
closep@thtext
} def
/ubtext_ {
initp@thtext
0 vadjust rmoveto
0 lly neg rmoveto
closep@thtext
} def
/urtext_ {
initp@thtext
hadjust vadjust rmoveto
llx neg lly neg rmoveto
closep@thtext
} def
/ultext_ {
initp@thtext
hadjust neg vadjust rmoveto
wx neg lly neg rmoveto
closep@thtext
} def
/uctext_ {
initp@thtext
0 vadjust rmoveto
llx wx add -.5 mul lly neg rmoveto
closep@thtext
} def
/drtext_ {
initp@thtext
hadjust vadjust neg rmoveto
llx neg wy neg rmoveto
closep@thtext
} def
/dbtext_ {
initp@thtext
0 vadjust neg rmoveto
0 wy neg rmoveto
closep@thtext
} def
/dltext_ {
initp@thtext
hadjust neg vadjust neg rmoveto
wx neg wy neg rmoveto
closep@thtext
} def
/dctext_ {
initp@thtext
0 vadjust neg rmoveto
llx wx add -2 div wy neg rmoveto
closep@thtext
} def
/crtext_ {
initp@thtext
hadjust 0 rmoveto
llx neg lly wy add -2 div rmoveto
closep@thtext
} def
/cbtext_ {
initp@thtext
0 0 rmoveto
0 lly wy add -2 div rmoveto
closep@thtext
} def
/cltext_ {
initp@thtext
hadjust neg 0 rmoveto
wx neg lly wy add -2 div rmoveto
closep@thtext
} def
/cctext_ {
initp@thtext
0 0 rmoveto
llx wx add lly wy add -.5 mulv rmoveto
closep@thtext
} def
|