% Library for string output.
% Usage:
%  x   y  moveto 
% (STRING) size fontname
%
% Operators:
%  [left-align]
%    gothic, mincho, roman, boldface, bolditalic, symbol, helvetica
%    courier
%
%  [centering]
%    cgothic, cmincho, croman, cboldface, cbolditalic, csymbol
%
%  Kanji-code: (mincho, gothic)
%  Shift-JIS - default
%  EUC-JP    - Use emincho, cemincho, eghotic, ceghothic
%

/gothic {
    /GothicBBB-Medium-83pv-RKSJ-H findfont
    exch scalefont setfont
    show
}def

/egothic {
    /GothicBBB-Medium-EUC-H findfont
    exch scalefont setfont
    show
}def

/mincho {
    /Ryumin-Light-83pv-RKSJ-H findfont
    exch scalefont setfont
    show
}def

/emincho {
    /Ryumin-Light-EUC-H findfont
    exch scalefont setfont
    show
}def

/roman{
    /Times-Roman findfont
    exch scalefont setfont
    show
}def
/bold{
    /Times-Bold findfont
    exch scalefont setfont
    show
}def
/italic{
    /Times-Italic findfont
    exch scalefont setfont
    show
}def
/bolditalic{
    /Helvetica-BoldOblique findfont
    exch scalefont setfont
    show
} def

/helvetica{
    /Helvetica findfont
    exch scalefont setfont
    show
} def

/courier{
    /Courier findfont
    exch scalefont setfont
    show
} def


/symbol{
    /Symbol findfont
    exch scalefont setfont
    show
} def

% 
/cgothic {
    /GothicBBB-Medium-83pv-RKSJ-H findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def

/cegothic {
    /GothicBBB-Medium-EUC-H findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def


/cmincho {
    /Ryumin-Light-83pv-RKSJ-H findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def

/cjmincho {
    /Ryumin-Light-H findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def

/cemincho {
    /Ryumin-Light-EUC-H findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def

/croman{
    /Times-Roman findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def

/cbold{
    /Times-Bold findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
}def
/citalic{
    /Times-Italic findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto
    show
}def
/cbolditalic{
    /Helvetica-BoldOblique findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
} def

/chelvetica{
    /Helvetica findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
} def


/ccourier{
    /Courier findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
} def


/csymbol{
    /Symbol findfont
    exch scalefont setfont
    dup stringwidth pop 2 div neg
    0 rmoveto 
    show
} def