%!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 17 215 192 94 psDrawLine globGC (X) 12 220 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 202 215 42 94 psDrawLine globGC (Y) 207 220 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground globalGC1 0.000000 setForeground globGC 0.000000 setForeground globalGC1 108 53 119 219 psDrawLine globGC (Z) 103 48 psDrawStr globalGC1 106.000000 setForeground globGC 106.000000 setForeground 1 0 0 componentGC setLineAttributes componentGC 0.000000 setForeground componentGC 14 124 25 133 34 140 44 145 52 150 60 153 67 155 75 157 81 158 88 158 94 157 100 155 106 153 111 150 117 146 122 141 127 136 133 130 138 124 143 116 148 108 153 99 159 89 164 78 169 66 175 53 180 38 28 186 23 psDrawLines componentGC 99 195 108 202 116 207 124 211 131 215 138 217 145 218 151 219 157 219 163 217 169 216 175 213 180 210 186 206 191 202 197 196 202 190 208 184 213 176 219 168 225 159 231 149 237 138 243 127 250 114 256 100 264 85 28 271 68 psDrawLines componentGC 271 68 2 186 23 psDrawLines componentGC 264 85 2 180 38 psDrawLines componentGC 256 100 2 175 53 psDrawLines componentGC 250 114 2 169 66 psDrawLines componentGC 243 127 2 164 78 psDrawLines componentGC 237 138 2 159 89 psDrawLines componentGC 231 149 2 153 99 psDrawLines componentGC 225 159 2 148 108 psDrawLines componentGC 219 168 2 143 116 psDrawLines componentGC 213 176 2 138 124 psDrawLines componentGC 208 184 2 133 130 psDrawLines componentGC 202 190 2 127 136 psDrawLines componentGC 197 196 2 122 141 psDrawLines componentGC 191 202 2 117 146 psDrawLines componentGC 186 206 2 111 150 psDrawLines componentGC 180 210 2 106 153 psDrawLines componentGC 175 213 2 100 155 psDrawLines componentGC 169 216 2 94 157 psDrawLines componentGC 163 217 2 88 158 psDrawLines componentGC 157 219 2 81 158 psDrawLines componentGC 151 219 2 75 157 psDrawLines componentGC 145 218 2 67 155 psDrawLines componentGC 138 217 2 60 153 psDrawLines componentGC 131 215 2 52 150 psDrawLines componentGC 124 211 2 44 145 psDrawLines componentGC 116 207 2 34 140 psDrawLines componentGC 108 202 2 25 133 psDrawLines componentGC 99 195 2 14 124 psDrawLines grestore % restore graphics state cleartomark %% clearing operand stack end %% pops mainDict from dictionary stack showpage %-------------------------- end --------------------------%