eg_pgcs.ps

开放源码的编译器open watcom 1.6.0版的源代码

%!PS-Adobe-2.0 EPSF-1.2
%%Creator: CSG Graphics Screen Capture
%%EndComments

150 dict begin

/imageStr 128 string def                        % define char imageStr[ 128 ]
/imageChar 1 string def                         % define char imageChar[ 1 ]
/imageLen 0 def                                 % define int  imageLen
/imageRepChar 0 def                             % define int  imageRepChar

/NextData {
  currentfile imageChar readhexstring
  {
    /imageLen exch 0 get def
    imageLen 128 lt
      { imageStr 0 imageLen 1 add getinterval   % get substring of imageLen + 1
        currentfile exch readhexstring pop      % read imageLen+1 bytes in imageStr
      }
      { /imageLen 256 imageLen sub 1 add def    % imageLen := 256 - imageLen + 1
        currentfile imageChar readhexstring pop % read repeat char
        /imageRepChar exch 0 get def            % ...
        0 1 imageLen 1 sub {                    % fill imageStr with repeat char
          imageStr exch imageRepChar put        % ...
        } for                                   % ...
        imageStr 0 imageLen getinterval         % get substring of imageLen
      }
      ifelse
  } if
} def

/gPaint % Plot a graphics screen on a 300-dpi PostScript Device.
{
  pop                                           % pop off video mode
  /numYpixels exch def
  /numXpixels exch def
  /Ypixels exch def
  /Xpixels exch def
  /bitsPerPixel exch def
  /borderOn exch def

  /dotWidth 72 300 div def  % points per dot = PointsPI / DotsPI
  % decide on pixel size according to numXpixels & numYpixels
  numXpixels 720 eq
  { 2 3 }
  { numXpixels 640 eq
    { numYpixels 200 eq
      { 2 5 }
      { numYpixels 350 eq
        { 2 3 }
        { numYpixels 400 eq { 2 2 } { 2 2 } ifelse }
        ifelse
      }
      ifelse
    }
    { numXpixels 360 eq
      { 4 3 }
      { numXpixels 320 eq
        { numYpixels 200 eq
          { 4 5 }
          { numYpixels 350 eq { 4 3 } { 4 2 } ifelse }
          ifelse
        }
        { 2 2 }
        ifelse
      }
      ifelse
    }
    ifelse
  }
  ifelse
  /dotsPerYpixel exch def
  /dotsPerXpixel exch def

  % currentpoint is upper left of screen image.
  matrix currentmatrix    % Save the CTM

  % Set the CTM to translate to the lower left corner of the screen
  currentpoint
  transform  % Transform currentpoint to device coords
% initmatrix % Restore the default (initial) CTM
  itransform % get the current point under the new CTM

  % If enabled, draw the border
  borderOn 0 ne
  { /borderSize 9 def
    currentlinewidth 2 div borderSize neg rmoveto
    Xpixels dotsPerXpixel dotWidth mul mul
    Ypixels dotsPerYpixel dotWidth mul mul
    currentlinewidth sub
    exch currentlinewidth sub exch
    borderOn 1 eq
    { gsave
      borderSize 2 mul add exch borderSize 2 mul add exch
      dup neg 0 exch rlineto
      exch 0 rlineto
      0 exch rlineto
      closepath stroke
      grestore
    }
    { gsave
      /doASide { borderSize arcto pop pop pop pop } bind def
      borderSize add exch borderSize add exch
      0 borderSize neg rmoveto
      currentpoint 2 index sub 1 index 100 add 1 index doASide
      currentpoint exch 3 index add exch 1 index 1 index 100 add doASide
      currentpoint 2 index add 1 index 100 sub 1 index doASide
      currentpoint exch 3 index sub exch 1 index 1 index 100 sub doASide
      closepath stroke
      grestore
      pop pop
    }
    ifelse
    borderSize sub
    exch borderSize add exch
  }
  if
  9 sub

  Ypixels dotsPerYpixel dotWidth mul mul sub
  translate

  Xpixels dotsPerXpixel dotWidth mul mul
  Ypixels dotsPerYpixel dotWidth mul mul
  scale

  Xpixels
  Ypixels
  bitsPerPixel
  [Xpixels 0 0 Ypixels neg 0 Ypixels]
  { NextData }
  image
  setmatrix
} def

{ currentpoint }                            % check if currentpoint set
stopped                                     % if error is signalled..
{ 30 750 moveto }                           % ..then set to top left of page
{ pop pop } ifelse                          % ..else pop off coordinates

2 4 640 480 640 480 018 gPaint
81008100c100000f81ff81ffc3ff01f00f81ff81ffc3ff01f00f81ff81ffc3ff01f00f81ff
81ffc3ff01f00f81ff81ffc3ff01f00f81ff81ffc3ff01f00f81ff81ffc3ff01f00f81fffcff
ff00f6ff000ffeff000ff3ff04f0000ff000f5ff000f81fffaff01f00f81fffdff03f00ff0
0ff8ff01f00fffff01f00ff3ff0400ff00ff00f6ff01f00f81fffaff01f00f81fffdff01f0
00feffff00ffffff00ffffff00010fffff00010fffff0004fff00f000ffdff01f00ffeff0300
f00fffff0005fff00f000fffff00000f81fffbff01f00f81fffcff06000ffff00ff00fffff
04f00ffff00fffff0af00ffff00ff00fff000f00fdff01f00ffeff02000f00ffff08f00fff
000f00fff00f81fffaff01f00f81fffbff03000ff00ffeffff00030ffff00fffff03f00fff
f0ff00040fff00ff00fdff01f00ffeff0300ff00ffff00070fff00ff00fff00f81fffaff01f0
0f81fffdff0df00ff00ff00ff00ff00ff00ffff0ff0f01fff0ff0f01f00ffeff0000faff0c00
ff00ff00ff00f00ff00fff00feff00f0ff0f81fffbff01f00f81fffcffff00ffffff00ffff
02000f00ffff0000feff0000ffffff0003fff0000ffbff0df0000ff000ff00ff000f00f000
0ffeff000081fffaff01f00f81ff81ffc3ff01f00f81ff81ffc3ff01f00f81ff81ffc3ff01f0
0f81ff81ffc3ff01f00f81ff81ffc3ff01f00ffefffe0001fff0ff0081ff81ffcdff01f00f
feff0000feff0300fff00f81ff81ffceff01f00ffeffff00050fff00ff000f81ff81ffceff
01f00ffcff0500ff00f0000f81ff81ffceff01f00ffcff0100ffff0001f00ffdff81008100
f900faff00f0e500feff01f00ffeff0700ff00ff000ff00ff9ff000f81ff81ffffff00f0faff
00f0e6ff00f0feff01f00ffeff04f0000ffff0ff00f8ff000f81ff81ffffff00f0faff00f0
e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f
81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0
e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f
81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0
f4ffff00f5ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0fdff0200ff00fbff
01f00ff5ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0fdff02f0000ffbff02f0
0fffff0001fff0ff00fcff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0feff00f0
fe00000ffcff01f00fffff05f00ff00ff00ffdff00f0feff01f00feeff000f81ff81ffffff
00f0faff00f0fdff02f0000ffdff04f00ff00fffff00040ff00ff00ffdff00f0feff01f00f
eeff000f81ff81ffffff00f0faff00f0fdff0200ff00fdff0bf00ff00ff00ff00ff00ff00f
fdff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0f5ffff00ffff06000f00f00f
f00ffdff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff
000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff
000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0f6ff00f0fe00fdff01f000fbff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0
f5ff0200fff0fcff0000fbff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0fdff
ff00fbff0100f0ffffff00ffff0000fbff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0feff03f00ff00ffcffff0005fff00ff00fffff00000ffdff00f0feff01f00feeff000f
81ff81ffffff00f0faff00f0feff03f00ff00ffcff0300f0fff0ff00040fff00ff00fdff00f0
feff01f00feeff000f81ff81ffffff00f0faff00f0feff03f00ff00ffcff0000ffff01f00f
feff0200ff00fdff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0fdffff00fcff
02f0000fffffff0004fff00f000ffdff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff
000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff
000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff
000f81ff81ffffff00f0faff00f0e6ff00f0feff01f00feeff000f81ff81ffffff00f0faff
00f0e500feff01f00feeff000f81ff81ffffff00f0daff01f00feeff000f81ff81ffffff00f0
daff01f00feeff000f81ffb4ff0200ff00cfff00f0daff01f00feeff000f81ffb4ff02f000
0fcfff00f0daff01f00feeff000f81ffb5ff00f0fe00000fd0ff00f0daff01f00feeff000f
81ffb4ff02f0000fcfff00f0daff01f00feeff000f81ffb4ff02000f00cfff00f0daff01f0
0feeff000f81ffb4ff00f0cdff00f0daff01f00feeff000f81ffb4ff00f0cdff00f0daff01f0
0feeff000f81ffb4ff000fcdff00f0daff01f00feeff000f81ffb5ff00f0ccff00f0daff01f0
0feeff000f81ffb5ff000fccff00f0daff01f00feeff000f81ffb6ff00f0cbff00f0daff01f0
0feeff000f81ffb6ff00f0cbff00f0daff01f00feeff000f81ffb6ff000fcbff00f0daff01f0
0feeff000f81ffb7ff00f0caff00f0daff01f00feeff000f81ffb7ff000fcaff00f0daff01f0
0feeff000f81ffb8ff00f0c9ff00f0daff01f00feeff000f81ffb8ff000fc9ff00f0daff01f0
0feeff000f81ffb8ff000fc9ff00f0daff01f00feeff000f81ffb9ff00f0c8ff00f0daff01f0
0feeff000f81ffb9ff000fc8ff00f0daff01f00feeff000f81ffbaff00f0c7ff00f0daff01f0
0feeff000f81ffbaff000fc7ff00f0daff01f00feeff000f81ffbaff000fc7ff00f0daff01f0
0feeff000f81ffbbff00f0c6ff00f0daff01f00feeff000f81ffbbff000fc6ff00f0daff01f0
0feeff000f81ffbcff00f0c5ff00f0daff01f00feeff000f81ffbcff000fc5ff00f0daff01f0
0feeff000f81ffbcff000fc5ff00f0daff01f00feeff000f81ffbdff00f0c4ff00f0daff01f0
0feeff000f81ffbdff000fc4ff00f0daff01f00feeff000f81ffbeff00f0c3ff00f0daff01f0
0feeff000f81ffbeff000fc3ff00f0daff01f00feeff000f81ffbfff00f0c2ff00f0daff01f0
0feeff000f81ffbfff00f0c2ff00f0daff01f00feeff000f81ffbfff000fc2ff00f0daff01f0
0feeff000f81ffc0ff00f0c1ff00f0daff01f00feeff000f81ffc0ff000fc1ff00f0daff01f0
0feeff000f81ffc1ff00f0c0ff00f0daff01f00feeff000f81ffc1ff00f0c0ff00f0daff01f0
0feeff000f81ffc1ff000fc0ff00f0daff01f00feeff000f81ffc2ff00f0bfff00f0daff01f0
0feeff000f81ffc2ff000fbfff00f0daff01f00ffdff03f000fff0ff00f8ff000f81ffc3ff
00f0beff00f0daff01f00ffdffff0004ff00fff00ff9ff000f81ffc3ff00f0beff00f0daff
01f00ffeff07f00f00ff00ff000ff9ff000fd0ffff0081fff6ff000fbeff00f0daff01f00f
feff0700ff00ff00f0000ff9ff000fd1ff03f00ff00f81fff8ff00f0bdff00f0daff01f00f
fefffe00000fff0001f00ffdfffd00000fd1ff03f00ff00f81fff8ff000fbdff00f0daff01f0
0ffcff0500ff000ff00ff9ff000fd1ff03f00ff00f81fff9ff00f0bcff00f0daff01f00ffdff
03f0000ff0ff00f8ff000fd0ffff0001f00f81fffaff000fbcff00f0daff01f00feeff000f
cdff00f081fffaff000fbcff00f0daff01f00feeff000fccff000f81fffcff00f0bbff00f0
daff01f00feeff000fccff00f081fffcff000fbbff00f0daff01f00feeff000fcbff000f81ff