2009/11/13

PostScript CharacterEncoding, char, cvs, string

9.2-CharacterEncoding.ps

% --- variables ------------------------
/font-size 16 def
/line-height 16 def
/Times-Roman findfont font-size scalefont setfont
/char 1 string def
/nstr 3 string def

% --- procedures -----------------------
/newline {
    currentpoint line-height sub
    exch pop LM
    exch moveto
} def

/prt-n {
    nstr cvs show
} def

/prtchar {
    char 0
    3 -1 roll put
    char show
} def

/PrintCodeandChar {
    dup prt-n
    (  ) show
    prtchar
    newline
} def

% --- main -----------------------------
/LM 72 def
LM 800 moveto
161 1 208 { PrintCodeandChar } for

/LM 288 def
LM 800 moveto
225 1 251 { PrintCodeandChar } for

showpage

 

PostScript(R) Language Tutorial and Cookbook (APL)

PostScript(R) Language Tutorial and Cookbook (APL)

posted with amazlet at 09.10.07

Adobe Systems Inc.
Addison-Wesley Professional
売り上げランキング: 235737

おすすめ度の平均: 5.0

5 まず最初に読むべき入門書
5 効率の良いPostScript書くなら…

Amazon.co.jp で詳細を見る

0 件のコメント:

コメントを投稿