%!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 psDrawIStr: % psDrawIStr % window type: title or window % string % y % x % graphics-context dictionary % it draws a text string in foreground color on top of bounding box of % string, which is in background color. /psDrawIStr { gsave newpath %% for rectangle loadFont /window exch def %% get window type %% draw bounding box with background color /str exch def %% get text string str stringwidth pop 1 sub %% width FontHeight 1 sub %% height currentfont begin %% get font height FontBBox end /ypos exch def pop %% define ypos neg ypos add /offset exch def pop /offset ypos offset div FontHeight mul def %% define offset /h exch def /w exch def %% define h /y0 exch def %% define y0 /x0 exch def %% define x0 w h x0 y0 offset sub window (title) eq {hVal moveto drawRect} %% draws in title window {rectangle} ifelse %% draws in view window begin BGcolor setgray fill %% set background box color x0 y0 window (title) eq {hVal} %% print title text {yVal} ifelse %% print window text moveto str FGcolor setgray show %% set text color end grestore } def % operand stack configuration in order to use psFillArc: % psFillArc % y center of rectangle % x center of rectangle % angle2 % angle1 % width % height % y % x % graphics-context dictionary % this draws and fills an arc whose origin is at x, y, and whose width % and height specifies the rectangle which encases the arc. % Origin is at upper left corner of rectangle. % This function uses "scale" to make cricles and ellipses. /psFillArc { gsave newpath yVal moveto /sfactor 4 index 4 index div def 1 sfactor scale 6 5 roll %% x on top of stack 3 index 2 div add %% define x origin 6 5 roll %% y on top of stack 6 5 roll %% h on top of stack 2 div add yVal sfactor div %% define y origin 5 4 roll %% w on top of stack 2 div %% define radius 5 3 roll %% a1 a2 now on top 1 index add arcn %% draw clockwise arc begin installGC fill end %% fills with foreground color 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 /globGC makeDict 0 0 1 1072693248 0 /anotherGC makeDict 0 0 1 1072693248 0 /graphGC makeDict 0 0 1 1072693248 0 /unitGC 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 300 85 0 85 psDrawLine globalGC1 150 276 150 0 psDrawLine unitGC 150 87 150 83 psDrawLine unitGC 138 100 (0.00) (window) psDrawIStr unitGC 203 87 203 83 psDrawLine unitGC 191 100 (5.00) (window) psDrawIStr unitGC 256 87 256 83 psDrawLine unitGC 241 100 (10.00) (window) psDrawIStr unitGC 96 87 96 83 psDrawLine unitGC 81 100 (-5.00) (window) psDrawIStr unitGC 42 87 42 83 psDrawLine unitGC 24 100 (-10.00) (window) psDrawIStr unitGC 152 27 148 27 psDrawLine unitGC 105 32 (20.00) (window) psDrawIStr unitGC 152 142 148 142 psDrawLine unitGC 96 147 (-20.00) (window) psDrawIStr unitGC 152 199 148 199 psDrawLine unitGC 96 204 (-40.00) (window) psDrawIStr unitGC 152 256 148 256 psDrawLine unitGC 96 261 (-60.00) (window) psDrawIStr globalGC1 19 84 3 3 0 360 20 85 psFillArc globalGC1 20 85 20 85 psDrawLine globalGC1 19 84 3 3 0 360 20 85 psFillArc globalGC1 21 118 20 85 psDrawLine globalGC1 20 117 3 3 0 360 21 118 psFillArc globalGC1 21 147 21 118 psDrawLine globalGC1 20 146 3 3 0 360 21 147 psFillArc globalGC1 21 173 21 147 psDrawLine globalGC1 20 172 3 3 0 360 21 173 psFillArc globalGC1 22 195 21 173 psDrawLine globalGC1 21 194 3 3 0 360 22 195 psFillArc globalGC1 22 230 22 195 psDrawLine globalGC1 21 229 3 3 0 360 22 230 psFillArc globalGC1 23 252 22 230 psDrawLine globalGC1 22 251 3 3 0 360 23 252 psFillArc globalGC1 23 259 23 252 psDrawLine globalGC1 22 258 3 3 0 360 23 259 psFillArc globalGC1 24 264 23 259 psDrawLine globalGC1 23 263 3 3 0 360 24 264 psFillArc globalGC1 24 265 24 264 psDrawLine globalGC1 23 264 3 3 0 360 24 265 psFillArc globalGC1 24 266 24 265 psDrawLine globalGC1 23 265 3 3 0 360 24 266 psFillArc globalGC1 24 266 24 266 psDrawLine globalGC1 23 265 3 3 0 360 24 266 psFillArc globalGC1 24 266 24 266 psDrawLine globalGC1 23 265 3 3 0 360 24 266 psFillArc globalGC1 24 265 24 266 psDrawLine globalGC1 23 264 3 3 0 360 24 265 psFillArc globalGC1 25 263 24 265 psDrawLine globalGC1 24 262 3 3 0 360 25 263 psFillArc globalGC1 25 259 25 263 psDrawLine globalGC1 24 258 3 3 0 360 25 259 psFillArc globalGC1 26 246 25 259 psDrawLine globalGC1 25 245 3 3 0 360 26 246 psFillArc globalGC1 26 228 26 246 psDrawLine globalGC1 25 227 3 3 0 360 26 228 psFillArc globalGC1 27 208 26 228 psDrawLine globalGC1 26 207 3 3 0 360 27 208 psFillArc globalGC1 28 186 27 208 psDrawLine globalGC1 27 185 3 3 0 360 28 186 psFillArc globalGC1 28 163 28 186 psDrawLine globalGC1 27 162 3 3 0 360 28 163 psFillArc globalGC1 29 141 28 163 psDrawLine globalGC1 28 140 3 3 0 360 29 141 psFillArc globalGC1 30 120 29 141 psDrawLine globalGC1 29 119 3 3 0 360 30 120 psFillArc globalGC1 30 101 30 120 psDrawLine globalGC1 29 100 3 3 0 360 30 101 psFillArc globalGC1 31 85 30 101 psDrawLine globalGC1 30 84 3 3 0 360 31 85 psFillArc globalGC1 32 61 31 85 psDrawLine globalGC1 31 60 3 3 0 360 32 61 psFillArc globalGC1 33 53 32 61 psDrawLine globalGC1 32 52 3 3 0 360 33 53 psFillArc globalGC1 34 48 33 53 psDrawLine globalGC1 33 47 3 3 0 360 34 48 psFillArc globalGC1 34 47 34 48 psDrawLine globalGC1 33 46 3 3 0 360 34 47 psFillArc globalGC1 34 45 34 47 psDrawLine globalGC1 33 44 3 3 0 360 34 45 psFillArc globalGC1 35 45 34 45 psDrawLine globalGC1 34 44 3 3 0 360 35 45 psFillArc globalGC1 35 45 35 45 psDrawLine globalGC1 34 44 3 3 0 360 35 45 psFillArc globalGC1 35 45 35 45 psDrawLine globalGC1 34 44 3 3 0 360 35 45 psFillArc globalGC1 36 46 35 45 psDrawLine globalGC1 35 45 3 3 0 360 36 46 psFillArc globalGC1 36 49 36 46 psDrawLine globalGC1 35 48 3 3 0 360 36 49 psFillArc globalGC1 39 67 36 49 psDrawLine globalGC1 38 66 3 3 0 360 39 67 psFillArc globalGC1 42 85 39 67 psDrawLine globalGC1 41 84 3 3 0 360 42 85 psFillArc globalGC1 43 91 42 85 psDrawLine globalGC1 42 90 3 3 0 360 43 91 psFillArc globalGC1 44 93 43 91 psDrawLine globalGC1 43 92 3 3 0 360 44 93 psFillArc globalGC1 44 94 44 93 psDrawLine globalGC1 43 93 3 3 0 360 44 94 psFillArc globalGC1 45 95 44 94 psDrawLine globalGC1 44 94 3 3 0 360 45 95 psFillArc globalGC1 46 95 45 95 psDrawLine globalGC1 45 94 3 3 0 360 46 95 psFillArc globalGC1 47 94 46 95 psDrawLine globalGC1 46 93 3 3 0 360 47 94 psFillArc globalGC1 47 94 47 94 psDrawLine globalGC1 46 93 3 3 0 360 47 94 psFillArc globalGC1 49 92 47 94 psDrawLine globalGC1 48 91 3 3 0 360 49 92 psFillArc globalGC1 50 89 49 92 psDrawLine globalGC1 49 88 3 3 0 360 50 89 psFillArc globalGC1 51 87 50 89 psDrawLine globalGC1 50 86 3 3 0 360 51 87 psFillArc globalGC1 53 85 51 87 psDrawLine globalGC1 52 84 3 3 0 360 53 85 psFillArc globalGC1 53 84 53 85 psDrawLine globalGC1 52 83 3 3 0 360 53 84 psFillArc globalGC1 54 83 53 84 psDrawLine globalGC1 53 82 3 3 0 360 54 83 psFillArc globalGC1 55 83 54 83 psDrawLine globalGC1 54 82 3 3 0 360 55 83 psFillArc globalGC1 55 83 55 83 psDrawLine globalGC1 54 82 3 3 0 360 55 83 psFillArc globalGC1 57 82 55 83 psDrawLine globalGC1 56 81 3 3 0 360 57 82 psFillArc globalGC1 58 82 57 82 psDrawLine globalGC1 57 81 3 3 0 360 58 82 psFillArc globalGC1 59 83 58 82 psDrawLine globalGC1 58 82 3 3 0 360 59 83 psFillArc globalGC1 61 84 59 83 psDrawLine globalGC1 60 83 3 3 0 360 61 84 psFillArc globalGC1 63 85 61 84 psDrawLine globalGC1 62 84 3 3 0 360 63 85 psFillArc globalGC1 65 85 63 85 psDrawLine globalGC1 64 84 3 3 0 360 65 85 psFillArc globalGC1 66 85 65 85 psDrawLine globalGC1 65 84 3 3 0 360 66 85 psFillArc globalGC1 67 85 66 85 psDrawLine globalGC1 66 84 3 3 0 360 67 85 psFillArc globalGC1 69 85 67 85 psDrawLine globalGC1 68 84 3 3 0 360 69 85 psFillArc globalGC1 71 85 69 85 psDrawLine globalGC1 70 84 3 3 0 360 71 85 psFillArc globalGC1 74 84 71 85 psDrawLine globalGC1 73 83 3 3 0 360 74 84 psFillArc globalGC1 79 83 74 84 psDrawLine globalGC1 78 82 3 3 0 360 79 83 psFillArc globalGC1 85 83 79 83 psDrawLine globalGC1 84 82 3 3 0 360 85 83 psFillArc globalGC1 90 81 85 83 psDrawLine globalGC1 89 80 3 3 0 360 90 81 psFillArc globalGC1 96 79 90 81 psDrawLine globalGC1 95 78 3 3 0 360 96 79 psFillArc globalGC1 101 75 96 79 psDrawLine globalGC1 100 74 3 3 0 360 101 75 psFillArc globalGC1 106 70 101 75 psDrawLine globalGC1 105 69 3 3 0 360 106 70 psFillArc globalGC1 112 64 106 70 psDrawLine globalGC1 111 63 3 3 0 360 112 64 psFillArc globalGC1 117 56 112 64 psDrawLine globalGC1 116 55 3 3 0 360 117 56 psFillArc globalGC1 123 46 117 56 psDrawLine globalGC1 122 45 3 3 0 360 123 46 psFillArc globalGC1 128 35 123 46 psDrawLine globalGC1 127 34 3 3 0 360 128 35 psFillArc globalGC1 133 25 128 35 psDrawLine globalGC1 132 24 3 3 0 360 133 25 psFillArc globalGC1 139 16 133 25 psDrawLine globalGC1 138 15 3 3 0 360 139 16 psFillArc globalGC1 141 12 139 16 psDrawLine globalGC1 140 11 3 3 0 360 141 12 psFillArc globalGC1 144 9 141 12 psDrawLine globalGC1 143 8 3 3 0 360 144 9 psFillArc globalGC1 145 8 144 9 psDrawLine globalGC1 144 7 3 3 0 360 145 8 psFillArc globalGC1 147 8 145 8 psDrawLine globalGC1 146 7 3 3 0 360 147 8 psFillArc globalGC1 148 7 147 8 psDrawLine globalGC1 147 6 3 3 0 360 148 7 psFillArc globalGC1 150 7 148 7 psDrawLine globalGC1 149 6 3 3 0 360 150 7 psFillArc globalGC1 151 7 150 7 psDrawLine globalGC1 150 6 3 3 0 360 151 7 psFillArc globalGC1 152 8 151 7 psDrawLine globalGC1 151 7 3 3 0 360 152 8 psFillArc globalGC1 154 8 152 8 psDrawLine globalGC1 153 7 3 3 0 360 154 8 psFillArc globalGC1 155 9 154 8 psDrawLine globalGC1 154 8 3 3 0 360 155 9 psFillArc globalGC1 158 12 155 9 psDrawLine globalGC1 157 11 3 3 0 360 158 12 psFillArc globalGC1 160 16 158 12 psDrawLine globalGC1 159 15 3 3 0 360 160 16 psFillArc globalGC1 166 25 160 16 psDrawLine globalGC1 165 24 3 3 0 360 166 25 psFillArc globalGC1 171 35 166 25 psDrawLine globalGC1 170 34 3 3 0 360 171 35 psFillArc globalGC1 176 46 171 35 psDrawLine globalGC1 175 45 3 3 0 360 176 46 psFillArc globalGC1 182 56 176 46 psDrawLine globalGC1 181 55 3 3 0 360 182 56 psFillArc globalGC1 187 64 182 56 psDrawLine globalGC1 186 63 3 3 0 360 187 64 psFillArc globalGC1 193 70 187 64 psDrawLine globalGC1 192 69 3 3 0 360 193 70 psFillArc globalGC1 198 75 193 70 psDrawLine globalGC1 197 74 3 3 0 360 198 75 psFillArc globalGC1 203 79 198 75 psDrawLine globalGC1 202 78 3 3 0 360 203 79 psFillArc globalGC1 209 81 203 79 psDrawLine globalGC1 208 80 3 3 0 360 209 81 psFillArc globalGC1 214 83 209 81 psDrawLine globalGC1 213 82 3 3 0 360 214 83 psFillArc globalGC1 220 84 214 83 psDrawLine globalGC1 219 83 3 3 0 360 220 84 psFillArc globalGC1 225 84 220 84 psDrawLine globalGC1 224 83 3 3 0 360 225 84 psFillArc globalGC1 230 85 225 84 psDrawLine globalGC1 229 84 3 3 0 360 230 85 psFillArc globalGC1 236 85 230 85 psDrawLine globalGC1 235 84 3 3 0 360 236 85 psFillArc globalGC1 241 85 236 85 psDrawLine globalGC1 240 84 3 3 0 360 241 85 psFillArc globalGC1 246 85 241 85 psDrawLine globalGC1 245 84 3 3 0 360 246 85 psFillArc globalGC1 252 85 246 85 psDrawLine globalGC1 251 84 3 3 0 360 252 85 psFillArc globalGC1 257 85 252 85 psDrawLine globalGC1 256 84 3 3 0 360 257 85 psFillArc globalGC1 263 85 257 85 psDrawLine globalGC1 262 84 3 3 0 360 263 85 psFillArc globalGC1 268 85 263 85 psDrawLine globalGC1 267 84 3 3 0 360 268 85 psFillArc globalGC1 273 85 268 85 psDrawLine globalGC1 272 84 3 3 0 360 273 85 psFillArc globalGC1 279 85 273 85 psDrawLine globalGC1 278 84 3 3 0 360 279 85 psFillArc grestore % restore graphics state cleartomark %% clearing operand stack end %% pops mainDict from dictionary stack showpage %-------------------------- end --------------------------%