%!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 psDrawLines: % psDrawLines % points[0].y % points[0].x % n % ... % points[n].y % points[n].x % graphics-context dictionary % this draws lines connecting all the points. /psDrawLines { gsave newpath yVal moveto 1 sub { yVal lineto } repeat 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 276 300 setDim maxX maxY 0 0 rectangle clip % set clip path globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 12 196 287 196 psDrawLine globGC (X) 7 201 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 150 212 150 186 psDrawLine globGC (Y) 155 217 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 150 59 150 334 psDrawLine globGC (Z) 155 54 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground 1 0 0 componentGC setLineAttributes componentGC 0.000000 setForeground componentGC 32 79 40 95 49 111 58 125 67 138 75 150 84 160 93 169 102 177 110 183 119 189 128 192 136 195 145 196 154 196 163 195 171 192 180 189 189 183 197 177 206 169 215 160 224 150 232 138 241 125 250 111 259 95 28 267 79 psDrawLines componentGC 6 66 16 86 27 105 38 122 48 138 59 153 70 165 80 176 91 186 102 194 112 200 123 205 134 208 144 209 155 209 165 208 176 205 187 200 197 194 208 186 219 176 229 165 240 153 251 138 261 122 272 105 283 86 28 293 66 psDrawLines componentGC 293 66 2 267 79 psDrawLines componentGC 283 86 2 259 95 psDrawLines componentGC 272 105 2 250 111 psDrawLines componentGC 261 122 2 241 125 psDrawLines componentGC 251 138 2 232 138 psDrawLines componentGC 240 153 2 224 150 psDrawLines componentGC 229 165 2 215 160 psDrawLines componentGC 219 176 2 206 169 psDrawLines componentGC 208 186 2 197 177 psDrawLines componentGC 197 194 2 189 183 psDrawLines componentGC 187 200 2 180 189 psDrawLines componentGC 176 205 2 171 192 psDrawLines componentGC 165 208 2 163 195 psDrawLines componentGC 155 209 2 154 196 psDrawLines componentGC 144 209 2 145 196 psDrawLines componentGC 134 208 2 136 195 psDrawLines componentGC 123 205 2 128 192 psDrawLines componentGC 112 200 2 119 189 psDrawLines componentGC 102 194 2 110 183 psDrawLines componentGC 91 186 2 102 177 psDrawLines componentGC 80 176 2 93 169 psDrawLines componentGC 70 165 2 84 160 psDrawLines componentGC 59 153 2 75 150 psDrawLines componentGC 48 138 2 67 138 psDrawLines componentGC 38 122 2 58 125 psDrawLines componentGC 27 105 2 49 111 psDrawLines componentGC 16 86 2 40 95 psDrawLines componentGC 6 66 2 32 79 psDrawLines grestore % restore graphics state cleartomark %% clearing operand stack end %% pops mainDict from dictionary stack showpage %-------------------------- end --------------------------%