vallog: PostScript The Image Operator

2009/11/17

PostScript The Image Operator - Helicopter

% --- 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