2009/11/17

PostScript The Image Operator - Helicopter

WS0824 11.1-TheImageOperator-Helicopter.ps

WS0824

% --- variables ------------------------
/xpos 50 def
/ypos 750 def
/xscale 72 def
/yscale 72 def
/col-width 72 def
/line-hight 72 def
/bottom-limit 10 def

% --- procedure ------------------------
/transact {
    gsave
    /proc exch def
    /proc load
    proc
    grestore
} def

/newline {
    currentpoint line-hight sub moveto
    currentpoint exch pop bottom-limit lt {
        /xpos xpos col-width add def
        xpos ypos moveto
    } if

} def

% --- main -----------------------------
/Times-Roman findfont 30 scalefont setfont
xpos ypos moveto

1 1 77 {
    {
        currentpoint translate
        xscale yscale scale
        pop 7 mod 0 ne {
            1
        } {
            2
        } ifelse
        8 exch 8 exch [8 0 0 8 0 0] {
            <c936>
        } image
    } transact
    newline
} for

% 00110110
% 11001001
% 00110110
% 11001001
% 00110110
% 11001001
% 00110110
% 11001001

showpage

 

11.1-TheImageOperator-Helicopter.ps

/Helicopter <dd ff 00 ff 54 1f 80 03 fb f9 00 1e> def

100 300 translate
450 450 scale

16 6 1 [16 0 0 6 0 0] {
    Helicopter
} image

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 件のコメント:

コメントを投稿