tpostgif.ps - plan9port - [fork] Plan 9 from user space
HTML git clone git://src.adamsgaard.dk/plan9port
DIR Log
DIR Files
DIR Refs
DIR README
DIR LICENSE
---
tpostgif.ps (2279B)
---
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