1 | %!PS-Adobe-3.0 EPSF-3.0 |
---|
2 | %%Title: title |
---|
3 | %%Creator: GL2PS 1.3.3, (C) 1999-2009 C. Geuzaine |
---|
4 | %%For: HEPVis::G4OpenGL2PSAction |
---|
5 | %%CreationDate: Wed Oct 27 16:53:03 2010 |
---|
6 | %%LanguageLevel: 3 |
---|
7 | %%DocumentData: Clean7Bit |
---|
8 | %%Pages: 1 |
---|
9 | %%BoundingBox: 0 0 600 600 |
---|
10 | %%EndComments |
---|
11 | %%BeginProlog |
---|
12 | /gl2psdict 64 dict def gl2psdict begin |
---|
13 | 0 setlinecap 0 setlinejoin |
---|
14 | /tryPS3shading true def % set to false to force subdivision |
---|
15 | /rThreshold 0.064 def % red component subdivision threshold |
---|
16 | /gThreshold 0.034 def % green component subdivision threshold |
---|
17 | /bThreshold 0.1 def % blue component subdivision threshold |
---|
18 | /BD { bind def } bind def |
---|
19 | /C { setrgbcolor } BD |
---|
20 | /G { 0.082 mul exch 0.6094 mul add exch 0.3086 mul add neg 1.0 add setgray } BD |
---|
21 | /W { setlinewidth } BD |
---|
22 | /FC { findfont exch /SH exch def SH scalefont setfont } BD |
---|
23 | /SW { dup stringwidth pop } BD |
---|
24 | /S { FC moveto show } BD |
---|
25 | /SBC{ FC moveto SW -2 div 0 rmoveto show } BD |
---|
26 | /SBR{ FC moveto SW neg 0 rmoveto show } BD |
---|
27 | /SCL{ FC moveto 0 SH -2 div rmoveto show } BD |
---|
28 | /SCC{ FC moveto SW -2 div SH -2 div rmoveto show } BD |
---|
29 | /SCR{ FC moveto SW neg SH -2 div rmoveto show } BD |
---|
30 | /STL{ FC moveto 0 SH neg rmoveto show } BD |
---|
31 | /STC{ FC moveto SW -2 div SH neg rmoveto show } BD |
---|
32 | /STR{ FC moveto SW neg SH neg rmoveto show } BD |
---|
33 | /FCT { FC translate 0 0 } BD |
---|
34 | /SR { gsave FCT moveto rotate show grestore } BD |
---|
35 | /SBCR{ gsave FCT moveto rotate SW -2 div 0 rmoveto show grestore } BD |
---|
36 | /SBRR{ gsave FCT moveto rotate SW neg 0 rmoveto show grestore } BD |
---|
37 | /SCLR{ gsave FCT moveto rotate 0 SH -2 div rmoveto show grestore} BD |
---|
38 | /SCCR{ gsave FCT moveto rotate SW -2 div SH -2 div rmoveto show grestore} BD |
---|
39 | /SCRR{ gsave FCT moveto rotate SW neg SH -2 div rmoveto show grestore} BD |
---|
40 | /STLR{ gsave FCT moveto rotate 0 SH neg rmoveto show grestore } BD |
---|
41 | /STCR{ gsave FCT moveto rotate SW -2 div SH neg rmoveto show grestore } BD |
---|
42 | /STRR{ gsave FCT moveto rotate SW neg SH neg rmoveto show grestore } BD |
---|
43 | /P { newpath 0.0 360.0 arc closepath fill } BD |
---|
44 | /LS { newpath moveto } BD |
---|
45 | /L { lineto } BD |
---|
46 | /LE { lineto stroke } BD |
---|
47 | /T { newpath moveto lineto lineto closepath fill } BD |
---|
48 | /STshfill { |
---|
49 | /b1 exch def /g1 exch def /r1 exch def /y1 exch def /x1 exch def |
---|
50 | /b2 exch def /g2 exch def /r2 exch def /y2 exch def /x2 exch def |
---|
51 | /b3 exch def /g3 exch def /r3 exch def /y3 exch def /x3 exch def |
---|
52 | gsave << /ShadingType 4 /ColorSpace [/DeviceRGB] |
---|
53 | /DataSource [ 0 x1 y1 r1 g1 b1 0 x2 y2 r2 g2 b2 0 x3 y3 r3 g3 b3 ] >> |
---|
54 | shfill grestore } BD |
---|
55 | /Tm { 3 -1 roll 8 -1 roll 13 -1 roll add add 3 div |
---|
56 | 3 -1 roll 7 -1 roll 11 -1 roll add add 3 div |
---|
57 | 3 -1 roll 6 -1 roll 9 -1 roll add add 3 div C T } BD |
---|
58 | /STsplit { |
---|
59 | 4 index 15 index add 0.5 mul |
---|
60 | 4 index 15 index add 0.5 mul |
---|
61 | 4 index 15 index add 0.5 mul |
---|
62 | 4 index 15 index add 0.5 mul |
---|
63 | 4 index 15 index add 0.5 mul |
---|
64 | 5 copy 5 copy 25 15 roll |
---|
65 | 9 index 30 index add 0.5 mul |
---|
66 | 9 index 30 index add 0.5 mul |
---|
67 | 9 index 30 index add 0.5 mul |
---|
68 | 9 index 30 index add 0.5 mul |
---|
69 | 9 index 30 index add 0.5 mul |
---|
70 | 5 copy 5 copy 35 5 roll 25 5 roll 15 5 roll |
---|
71 | 4 index 10 index add 0.5 mul |
---|
72 | 4 index 10 index add 0.5 mul |
---|
73 | 4 index 10 index add 0.5 mul |
---|
74 | 4 index 10 index add 0.5 mul |
---|
75 | 4 index 10 index add 0.5 mul |
---|
76 | 5 copy 5 copy 40 5 roll 25 5 roll 15 5 roll 25 5 roll |
---|
77 | STnoshfill STnoshfill STnoshfill STnoshfill } BD |
---|
78 | /STnoshfill { |
---|
79 | 2 index 8 index sub abs rThreshold gt |
---|
80 | { STsplit } |
---|
81 | { 1 index 7 index sub abs gThreshold gt |
---|
82 | { STsplit } |
---|
83 | { dup 6 index sub abs bThreshold gt |
---|
84 | { STsplit } |
---|
85 | { 2 index 13 index sub abs rThreshold gt |
---|
86 | { STsplit } |
---|
87 | { 1 index 12 index sub abs gThreshold gt |
---|
88 | { STsplit } |
---|
89 | { dup 11 index sub abs bThreshold gt |
---|
90 | { STsplit } |
---|
91 | { 7 index 13 index sub abs rThreshold gt |
---|
92 | { STsplit } |
---|
93 | { 6 index 12 index sub abs gThreshold gt |
---|
94 | { STsplit } |
---|
95 | { 5 index 11 index sub abs bThreshold gt |
---|
96 | { STsplit } |
---|
97 | { Tm } |
---|
98 | ifelse } |
---|
99 | ifelse } |
---|
100 | ifelse } |
---|
101 | ifelse } |
---|
102 | ifelse } |
---|
103 | ifelse } |
---|
104 | ifelse } |
---|
105 | ifelse } |
---|
106 | ifelse } BD |
---|
107 | tryPS3shading |
---|
108 | { /shfill where |
---|
109 | { /ST { STshfill } BD } |
---|
110 | { /ST { STnoshfill } BD } |
---|
111 | ifelse } |
---|
112 | { /ST { STnoshfill } BD } |
---|
113 | ifelse |
---|
114 | end |
---|
115 | %%EndProlog |
---|
116 | %%BeginSetup |
---|
117 | /DeviceRGB setcolorspace |
---|
118 | gl2psdict begin |
---|
119 | %%EndSetup |
---|
120 | %%Page: 1 1 |
---|
121 | %%BeginPageSetup |
---|
122 | %%EndPageSetup |
---|
123 | mark |
---|
124 | gsave |
---|
125 | 1.0 1.0 scale |
---|
126 | 0 0 0 C |
---|
127 | newpath 0 0 moveto 600 0 lineto 600 600 lineto 0 600 lineto |
---|
128 | closepath fill |
---|
129 | grestore |
---|
130 | showpage |
---|
131 | cleartomark |
---|
132 | %%PageTrailer |
---|
133 | %%Trailer |
---|
134 | end |
---|
135 | %%EOF |
---|