sys/src/cmd/postscript/postgif/postgif.ps

   1 %
   2 % Version 3.3.2 prologue for GIF pixmap files.
   3 %
   4
   5 /#copies 1 store
   6 /aspectratio 1 def
   7 /formsperpage 1 def
   8 /landscape false def
   9 /magnification 1 def
  10 /margin 0 def
  11 /orientation 0 def
  12 /rotation 1 def
  13 /xoffset 0 def
  14 /yoffset 0 def
  15
  16 /useclippath true def
  17 /pagebbox [0 0 612 792] def
  18
  19 /inch {72 mul} bind def
  20 /min {2 copy gt {exch} if pop} bind def
  21
  22 /setup {
  23         counttomark 2 idiv {def} repeat pop
  24
  25         landscape {/orientation 90 orientation add def} if
  26
  27         pagedimensions
  28         xcenter ycenter translate
  29         orientation rotation mul rotate
  30         xoffset inch yoffset inch translate
  31         magnification dup aspectratio mul scale
  32
  33         /height height margin sub def
  34         /width width margin sub def
  35 } def
  36
  37 /pagedimensions {
  38         useclippath {
  39                 /pagebbox [clippath pathbbox newpath] def
  40         } if
  41         pagebbox aload pop
  42         4 -1 roll exch 4 1 roll 4 copy
  43         landscape {4 2 roll} if
  44         sub /width exch def
  45         sub /height exch def
  46         add 2 div /xcenter exch def
  47         add 2 div /ycenter exch def
  48         userdict /gotpagebbox true put
  49 } def
  50
  51 /pagesetup {/page exch def} bind def
  52
  53 /done {/lastpage where {pop lastpage} if} def
  54
  55 /alignment false def
  56
  57 /gifscreen { % scrwidth scrheight $
  58     2 copy
  59
  60     alignment {
  61         100 dup dtransform exch 100 exch div abs exch 100 exch div abs
  62         2 copy scale
  63         /height exch height exch div def
  64         /width exch width exch div def
  65     } if
  66
  67     height exch div exch width exch div
  68     2 copy lt { pop } { exch pop } ifelse
  69
  70     alignment { cvi } if
  71
  72     dup scale
  73
  74     neg 2 div exch neg 2 div exch translate
  75 } def
  76
  77 /gifimage { % gray imagewidth imageheight xorigin yorigin $
  78     translate
  79     2 copy scale
  80     /imageheight exch def
  81     /imagewidth exch def
  82     /gray exch def
  83     imagewidth imageheight 8 [imagewidth 0 0 imageheight neg 0 imageheight]
  84     gray {
  85         { currentfile codestr readhexstring pop } image
  86     } {
  87         /colorimage where {
  88             pop
  89             /picstr imagewidth 3 mul string def
  90             { currentfile codestr readhexstring pop pop
  91                 0 1 imagewidth 1 sub {
  92                     picstr exch dup 3 mul exch colortbl exch codestr exch get
  93                     3 mul 3 getinterval putinterval
  94                 } for picstr
  95             } false 3 colorimage
  96         } {
  97             { currentfile codestr readhexstring pop pop
  98                 0 1 imagewidth 1 sub {
  99                     codestr exch dup graytbl exch codestr exch get get put
 100                 } for codestr
 101             } image
 102         } ifelse
 103     } ifelse
 104 } def