%!PS-Adobe-2.0 %%DocumentFonts: Times-Roman %%Creator: Axiom %%CreationDate: today %%Pages: 1 %%processing (hard) limit: 250 pts or 500 values for the operand stack. %%EndComments %------------------------------- prologue -------------------------------% %-------------------------- support procedures --------------------------% %--------- first create user dictionary with 100 entries max ------------% % (number can be changed to accomodate definitions) % 100 dict begin %% using 100 entries in top level dictionary /FontHeight 12 def /inch { 72 mul } def % yVal and hVal are necessary because the Xwindow display origin % is at the upper left corner, while the postscript display % origin is at the lower left hand corner. /yVal %% get Y value -- make upper left corner origin { maxY sub abs } %% maxY is viewWindow height def /hVal %% get H value -- used for displaying title text { maxH sub abs } %% maxH is viewWindow height+titleWindow height def % loads in the font /loadFont { /Times-Roman findfont FontHeight scalefont setfont } def % draws a rectangle with input operand: % height % width % notice that this function does not "draw" or ink the rectangle. /drawRect { 1 index 1 add 0 rlineto %% draw first side 0 exch 1 add neg rlineto %% draw second side 1 add neg 0 rlineto %% draw third side closepath } %% draw fourth side def % create a rectangle with input operand in the view window: % y % x % height % width % notice that this function does not "draw" or ink the rectangle. /rectangle { yVal moveto %% set currentpoint for line drawRect } %% draws the rectangle def % These are global variables that every draw procedure uses % THe operand should be as follows: % viewWindow width % viewWindow height % title height /setDim { /maxX exch def %% width of display /maxY exch def %% height of display /titleH exch def %% height of title /maxH maxY titleH add def %% height of display + title } def %-------------------------- major procedures --------------------------% /title %% draws a rectangle around the title of picture { gsave newpath moveto %% lower left of title titleH 1 add 0 exch rlineto %% draw first side 1 add 0 rlineto %% draw second side 1 add neg 0 exch rlineto begin installGC stroke end %% draw third side grestore } def /drawFrame %% draw display frame { gsave newpath maxX maxY 0 0 rectangle begin installGC stroke end grestore } def % updates the foreground color of existing graphics-context dictionary: % foreground color % dictionary name /setForeground { /FGcolor exch put } def % updates the background color of existing graphics-context dictionary: % background color % dictionary name /setBackground { /BGcolor exch put } def % updates the line width, line style, cap style, join style of % existing graphics-context dictionary: % dictionary name % join style % cap style % line width /setLineAttributes { begin /JoinStyle exch def /CapStyle exch def /LineWidth exch def end } def % creates a graphics context dictionary with the following information: % /dictionary name % foreground color % background color % line width % cap style % join style % this creates different graphical contexts for different drawing functions. /makeDict { 5 dict 2 copy def begin pop %% with dict name on top of stack /FGcolor exch def %% define drawing attributes /BGcolor exch def %% not heavily used /LineWidth exch def /CapStyle exch def /JoinStyle exch def end } def % makes the current dictionary attributes effective % this function takes the values in the current dictionary to set the context % these are the values currently being used: foreground, cap, join, and width /installGC { FGcolor currentgray ne {FGcolor setgray} if %% foreground color CapStyle currentlinecap ne {CapStyle setlinecap} if %% cap style JoinStyle currentlinejoin ne {JoinStyle setlinejoin} if %% join style LineWidth currentlinewidth ne {LineWidth setlinewidth} if } %% line width def % operand stack configuration in order to use psDrawLine: % psDrawLine % y0 % x0 % y1 % x1 % graphics-context dictionary % this draws a line from (x0, y0) to (x1, y1). /psDrawLine { gsave newpath yVal moveto yVal lineto begin installGC stroke end grestore } def % operand stack configuration in order to use psDrawStr: % psDrawStr % y % x % string % graphics-context dictionary % this function draws a text string at (x,y). /psDrawStr { gsave newpath loadFont yVal moveto exch begin installGC show end grestore } def %-------------------------- script --------------------------% % 1 inch 1 inch translate mark %% mark bottom of our stack 0 0 1 1072693248 0 /globalGC1 makeDict 0 0 1 1072693248 0 /globalGC2 makeDict 0 0 1 1072693248 0 /trashGC makeDict 0 0 1 1072693248 0 /componentGC makeDict 0 0 1 1072693248 0 /opaqueGC makeDict 0 0 1 1072693248 0 /renderGC makeDict 0 0 1 1072693248 0 /globGC makeDict 0 0 1 1072693248 0 /anotherGC makeDict 1 0 1 1072693248 0 /renderGC makeDict gsave % save graphics state for clipping path 1.000000 1.000000 scale 24 303 300 setDim maxX maxY 0 0 rectangle clip % set clip path globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 8 262 257 94 psDrawLine globGC (X) 3 267 psDrawStr globalGC1 107.000000 setForeground globGC 107.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 283 262 33 94 psDrawLine globGC (Y) 288 267 psDrawStr globalGC1 107.000000 setForeground globGC 107.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 145 18 145 283 psDrawLine globGC (Z) 150 13 psDrawStr globalGC1 107.000000 setForeground globGC 107.000000 setForeground 0 0 0 componentGC setLineAttributes componentGC 0.000000 setForeground componentGC 0.000000 setForeground componentGC 162 163 162 169 psDrawLine componentGC 0.000000 setForeground componentGC 167 167 162 163 psDrawLine componentGC 0.000000 setForeground componentGC 168 125 167 167 psDrawLine componentGC 0.000000 setForeground componentGC 162 121 168 125 psDrawLine componentGC 0.000000 setForeground componentGC 163 115 162 121 psDrawLine componentGC 0.000000 setForeground componentGC 180 126 163 115 psDrawLine componentGC 0.000000 setForeground componentGC 180 132 180 126 psDrawLine componentGC 0.000000 setForeground componentGC 174 129 180 132 psDrawLine componentGC 0.000000 setForeground componentGC 173 171 174 129 psDrawLine componentGC 0.000000 setForeground componentGC 178 174 173 171 psDrawLine componentGC 0.000000 setForeground componentGC 178 180 178 174 psDrawLine componentGC 0.000000 setForeground componentGC 162 169 178 180 psDrawLine componentGC 0.000000 setForeground componentGC 99 140 101 182 psDrawLine componentGC 0.000000 setForeground componentGC 104 130 99 140 psDrawLine componentGC 0.000000 setForeground componentGC 122 119 104 130 psDrawLine componentGC 0.000000 setForeground componentGC 128 121 122 119 psDrawLine componentGC 0.000000 setForeground componentGC 128 128 128 121 psDrawLine componentGC 0.000000 setForeground componentGC 123 131 128 128 psDrawLine componentGC 0.000000 setForeground componentGC 122 128 123 131 psDrawLine componentGC 0.000000 setForeground componentGC 119 127 122 128 psDrawLine componentGC 0.000000 setForeground componentGC 108 134 119 127 psDrawLine componentGC 0.000000 setForeground componentGC 105 139 108 134 psDrawLine componentGC 0.000000 setForeground componentGC 106 175 105 139 psDrawLine componentGC 0.000000 setForeground componentGC 101 182 106 175 psDrawLine componentGC 0.000000 setForeground componentGC 109 176 106 175 psDrawLine componentGC 0.000000 setForeground componentGC 121 169 109 176 psDrawLine componentGC 0.000000 setForeground componentGC 123 164 121 169 psDrawLine componentGC 0.000000 setForeground componentGC 123 149 123 164 psDrawLine componentGC 0.000000 setForeground componentGC 117 153 123 149 psDrawLine componentGC 0.000000 setForeground componentGC 117 147 117 153 psDrawLine componentGC 0.000000 setForeground componentGC 129 140 117 147 psDrawLine componentGC 0.000000 setForeground componentGC 129 163 129 140 psDrawLine componentGC 0.000000 setForeground componentGC 124 173 129 163 psDrawLine componentGC 0.000000 setForeground componentGC 107 184 124 173 psDrawLine componentGC 0.000000 setForeground componentGC 101 182 107 184 psDrawLine componentGC 0.000000 setForeground componentGC 106 175 101 182 psDrawLine componentGC 0.000000 setForeground componentGC 186 130 184 184 psDrawLine componentGC 0.000000 setForeground componentGC 211 145 186 130 psDrawLine componentGC 0.000000 setForeground componentGC 217 155 211 145 psDrawLine componentGC 0.000000 setForeground componentGC 215 174 217 155 psDrawLine componentGC 0.000000 setForeground componentGC 212 175 215 174 psDrawLine componentGC 0.000000 setForeground componentGC 215 180 212 175 psDrawLine componentGC 0.000000 setForeground componentGC 213 198 215 180 psDrawLine componentGC 0.000000 setForeground componentGC 207 199 213 198 psDrawLine componentGC 0.000000 setForeground componentGC 190 188 207 199 psDrawLine componentGC 0.000000 setForeground componentGC 190 182 190 188 psDrawLine componentGC 0.000000 setForeground componentGC 190 188 190 182 psDrawLine componentGC 0.000000 setForeground componentGC 184 184 190 188 psDrawLine componentGC 0.000000 setForeground componentGC 208 191 205 192 psDrawLine componentGC 0.000000 setForeground componentGC 209 179 208 191 psDrawLine componentGC 0.000000 setForeground componentGC 206 174 209 179 psDrawLine componentGC 0.000000 setForeground componentGC 191 164 206 174 psDrawLine componentGC 0.000000 setForeground componentGC 191 158 191 164 psDrawLine componentGC 0.000000 setForeground componentGC 206 168 191 158 psDrawLine componentGC 0.000000 setForeground componentGC 209 167 206 168 psDrawLine componentGC 0.000000 setForeground componentGC 210 155 209 167 psDrawLine componentGC 0.000000 setForeground componentGC 207 149 210 155 psDrawLine componentGC 0.000000 setForeground componentGC 192 140 207 149 psDrawLine componentGC 0.000000 setForeground componentGC 190 188 192 140 psDrawLine componentGC 0.000000 setForeground componentGC 190 182 190 188 psDrawLine componentGC 0.000000 setForeground componentGC 205 192 190 182 psDrawLine componentGC 0.000000 setForeground componentGC 60 157 66 211 psDrawLine componentGC 0.000000 setForeground componentGC 67 153 60 157 psDrawLine componentGC 0.000000 setForeground componentGC 95 192 67 153 psDrawLine componentGC 0.000000 setForeground componentGC 89 196 95 192 psDrawLine componentGC 0.000000 setForeground componentGC 80 184 89 196 psDrawLine componentGC 0.000000 setForeground componentGC 70 190 80 184 psDrawLine componentGC 0.000000 setForeground componentGC 70 184 70 190 psDrawLine componentGC 0.000000 setForeground componentGC 76 180 70 184 psDrawLine componentGC 0.000000 setForeground componentGC 68 169 76 180 psDrawLine componentGC 0.000000 setForeground componentGC 72 207 68 169 psDrawLine componentGC 0.000000 setForeground componentGC 66 211 72 207 psDrawLine componentGC 0.000000 setForeground componentGC 230 157 225 211 psDrawLine componentGC 0.000000 setForeground componentGC 237 161 230 157 psDrawLine componentGC 0.000000 setForeground componentGC 246 206 237 161 psDrawLine componentGC 0.000000 setForeground componentGC 263 177 246 206 psDrawLine componentGC 0.000000 setForeground componentGC 270 182 263 177 psDrawLine componentGC 0.000000 setForeground componentGC 263 236 270 182 psDrawLine componentGC 0.000000 setForeground componentGC 256 232 263 236 psDrawLine componentGC 0.000000 setForeground componentGC 260 199 256 232 psDrawLine componentGC 0.000000 setForeground componentGC 248 217 260 199 psDrawLine componentGC 0.000000 setForeground componentGC 241 213 248 217 psDrawLine componentGC 0.000000 setForeground componentGC 234 183 241 213 psDrawLine componentGC 0.000000 setForeground componentGC 231 215 234 183 psDrawLine componentGC 0.000000 setForeground componentGC 225 211 231 215 psDrawLine componentGC 0.000000 setForeground componentGC 20 182 28 236 psDrawLine componentGC 0.000000 setForeground componentGC 28 177 20 182 psDrawLine componentGC 0.000000 setForeground componentGC 52 205 28 177 psDrawLine componentGC 0.000000 setForeground componentGC 47 165 52 205 psDrawLine componentGC 0.000000 setForeground componentGC 54 161 47 165 psDrawLine componentGC 0.000000 setForeground componentGC 59 215 54 161 psDrawLine componentGC 0.000000 setForeground componentGC 53 220 59 215 psDrawLine componentGC 0.000000 setForeground componentGC 29 193 53 220 psDrawLine componentGC 0.000000 setForeground componentGC 34 232 29 193 psDrawLine componentGC 0.000000 setForeground componentGC 28 236 34 232 psDrawLine grestore % restore graphics state cleartomark %% clearing operand stack end %% pops mainDict from dictionary stack showpage %-------------------------- end --------------------------%