blob: d74be9be0b28d00d816e81fe6cb4bb326ea1f9a8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
%!PS-Adobe-2.0 EPSF-2.0
%%Title: Ball.gif - by Jussi Hynninen
%%Creator: XV Version 3.10a Rev: 12/29/94 - by John Bradley
%%BoundingBox: 295 418 301 424
%%Pages: 1
%%DocumentFonts:
%%EndComments
%%EndProlog
%%Page: 1 1
% remember original state
/origstate save def
% build a temporary dictionary
20 dict begin
% define string to hold a scanline's worth of data
/pix 45 string def
% define space for color conversions
/grays 15 string def % space for gray scale line
/npixls 0 def
/rgbindx 0 def
% lower left corner
295 418 translate
% size of image (on paper, in 1/72inch coords)
5.97600 5.61600 scale
% define 'colorimage' if it isn't defined
% ('colortogray' and 'mergeprocs' come from xwd2ps
% via xgrab)
/colorimage where % do we know about 'colorimage'?
{ pop } % yes: pop off the 'dict' returned
{ % no: define one
/colortogray { % define an RGB->I function
/rgbdata exch store % call input 'rgbdata'
rgbdata length 3 idiv
/npixls exch store
/rgbindx 0 store
0 1 npixls 1 sub {
grays exch
rgbdata rgbindx get 20 mul % Red
rgbdata rgbindx 1 add get 32 mul % Green
rgbdata rgbindx 2 add get 12 mul % Blue
add add 64 idiv % I = .5G + .31R + .18B
put
/rgbindx rgbindx 3 add store
} for
grays 0 npixls getinterval
} bind def
% Utility procedure for colorimage operator.
% This procedure takes two procedures off the
% stack and merges them into a single procedure.
/mergeprocs { % def
dup length
3 -1 roll
dup
length
dup
5 1 roll
3 -1 roll
add
array cvx
dup
3 -1 roll
0 exch
putinterval
dup
4 2 roll
putinterval
} bind def
/colorimage { % def
pop pop % remove 'false 3' operands
{colortogray} mergeprocs
image
} bind def
} ifelse % end of 'false' case
15 14 8 % dimensions of data
[15 0 0 -14 0 14] % mapping matrix
{currentfile pix readhexstring pop}
false 3 colorimage
ffffffffffffffffffffffff3daaaa3daaaa3daaaa3daaaa3daaaaffffffffffffffffff
ffffffffffffffffff
ffffffffffff3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777ffffff
ffffffffffffffffff
ffffff3daaaa3daaaaa3cccbffffffffffffa3cccba3cccb3daaaa3daaaa337777337777
888888ffffffffffff
ffffff3daaaaa3cccbffffffffffffa3cccb3daaaa3daaaa3daaaa3daaaa3daaaa337777
888888888888ffffff
3daaaa3daaaaffffffffffffa3cccb3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777
000000888888ffffff
3daaaa3daaaaffffffa3cccb3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777
000000888888888888
3daaaa3daaaaa3cccb3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777337777
000000888888888888
3daaaa3daaaaa3cccb3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777337777
000000888888888888
3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777337777000000
000000888888888888
ffffff3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa3daaaa337777337777337777000000
888888888888888888
ffffff3377773377773daaaa3daaaa3daaaa337777337777337777337777000000000000
888888888888ffffff
ffffffffffff337777337777337777337777337777337777000000000000000000888888
888888888888ffffff
ffffffffffffffffffffffff000000000000000000000000000000888888888888888888
888888ffffffffffff
ffffffffffffffffffffffffffffffffffff888888888888888888888888888888ffffff
ffffffffffffffffff
showpage
% stop using temporary dictionary
end
% restore original state
origstate restore
%%Trailer
|
