%!IBM Personal Pageprinter (4216) Adapter Program V1.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 24 259 256 setDim maxX maxY 0 0 rectangle clip % set clip path globalGC1 256 129 0 129 psDrawLine globalGC1 128 259 128 0 psDrawLine unitGC 128 131 128 127 psDrawLine unitGC 116 144 (0.00) (window) psDrawIStr unitGC 166 131 166 127 psDrawLine unitGC 154 144 (0.50) (window) psDrawIStr unitGC 204 131 204 127 psDrawLine unitGC 192 144 (1.00) (window) psDrawIStr unitGC 242 131 242 127 psDrawLine unitGC 230 144 (1.50) (window) psDrawIStr unitGC 89 131 89 127 psDrawLine unitGC 74 144 (-0.50) (window) psDrawIStr unitGC 50 131 50 127 psDrawLine unitGC 35 144 (-1.00) (window) psDrawIStr unitGC 11 131 11 127 psDrawLine unitGC -4 144 (-1.50) (window) psDrawIStr unitGC 130 90 126 90 psDrawLine unitGC 92 95 (0.50) (window) psDrawIStr unitGC 130 51 126 51 psDrawLine unitGC 92 56 (1.00) (window) psDrawIStr unitGC 130 12 126 12 psDrawLine unitGC 92 17 (1.50) (window) psDrawIStr unitGC 130 167 126 167 psDrawLine unitGC 83 172 (-0.50) (window) psDrawIStr unitGC 130 205 126 205 psDrawLine unitGC 83 210 (-1.00) (window) psDrawIStr unitGC 130 243 126 243 psDrawLine unitGC 83 248 (-1.50) (window) psDrawIStr globalGC1 127 51 3 3 0 360 128 52 psFillArc globalGC1 128 52 128 52 psDrawLine globalGC1 127 51 3 3 0 360 128 52 psFillArc globalGC1 120 53 128 52 psDrawLine globalGC1 119 52 3 3 0 360 120 53 psFillArc globalGC1 111 54 120 53 psDrawLine globalGC1 110 53 3 3 0 360 111 54 psFillArc globalGC1 102 57 111 54 psDrawLine globalGC1 101 56 3 3 0 360 102 57 psFillArc globalGC1 93 61 102 57 psDrawLine globalGC1 92 60 3 3 0 360 93 61 psFillArc globalGC1 83 66 93 61 psDrawLine globalGC1 82 65 3 3 0 360 83 66 psFillArc globalGC1 74 74 83 66 psDrawLine globalGC1 73 73 3 3 0 360 74 74 psFillArc globalGC1 66 83 74 74 psDrawLine globalGC1 65 82 3 3 0 360 66 83 psFillArc globalGC1 60 92 66 83 psDrawLine globalGC1 59 91 3 3 0 360 60 92 psFillArc globalGC1 56 101 60 92 psDrawLine globalGC1 55 100 3 3 0 360 56 101 psFillArc globalGC1 53 111 56 101 psDrawLine globalGC1 52 110 3 3 0 360 53 111 psFillArc globalGC1 51 120 53 111 psDrawLine globalGC1 50 119 3 3 0 360 51 120 psFillArc globalGC1 51 129 51 120 psDrawLine globalGC1 50 128 3 3 0 360 51 129 psFillArc globalGC1 51 136 51 129 psDrawLine globalGC1 50 135 3 3 0 360 51 136 psFillArc globalGC1 52 145 51 136 psDrawLine globalGC1 51 144 3 3 0 360 52 145 psFillArc globalGC1 55 155 52 145 psDrawLine globalGC1 54 154 3 3 0 360 55 155 psFillArc globalGC1 59 164 55 155 psDrawLine globalGC1 58 163 3 3 0 360 59 164 psFillArc globalGC1 65 173 59 164 psDrawLine globalGC1 64 172 3 3 0 360 65 173 psFillArc globalGC1 72 182 65 173 psDrawLine globalGC1 71 181 3 3 0 360 72 182 psFillArc globalGC1 81 190 72 182 psDrawLine globalGC1 80 189 3 3 0 360 81 190 psFillArc globalGC1 91 196 81 190 psDrawLine globalGC1 90 195 3 3 0 360 91 196 psFillArc globalGC1 100 201 91 196 psDrawLine globalGC1 99 200 3 3 0 360 100 201 psFillArc globalGC1 109 204 100 201 psDrawLine globalGC1 108 203 3 3 0 360 109 204 psFillArc globalGC1 118 205 109 204 psDrawLine globalGC1 117 204 3 3 0 360 118 205 psFillArc globalGC1 128 206 118 205 psDrawLine globalGC1 127 205 3 3 0 360 128 206 psFillArc globalGC1 135 205 128 206 psDrawLine globalGC1 134 204 3 3 0 360 135 205 psFillArc globalGC1 144 204 135 205 psDrawLine globalGC1 143 203 3 3 0 360 144 204 psFillArc globalGC1 153 201 144 204 psDrawLine globalGC1 152 200 3 3 0 360 153 201 psFillArc globalGC1 162 197 153 201 psDrawLine globalGC1 161 196 3 3 0 360 162 197 psFillArc globalGC1 172 192 162 197 psDrawLine globalGC1 171 191 3 3 0 360 172 192 psFillArc globalGC1 181 184 172 192 psDrawLine globalGC1 180 183 3 3 0 360 181 184 psFillArc globalGC1 189 175 181 184 psDrawLine globalGC1 188 174 3 3 0 360 189 175 psFillArc globalGC1 195 166 189 175 psDrawLine globalGC1 194 165 3 3 0 360 195 166 psFillArc globalGC1 199 157 195 166 psDrawLine globalGC1 198 156 3 3 0 360 199 157 psFillArc globalGC1 202 147 199 157 psDrawLine globalGC1 201 146 3 3 0 360 202 147 psFillArc globalGC1 204 138 202 147 psDrawLine globalGC1 203 137 3 3 0 360 204 138 psFillArc globalGC1 204 129 204 138 psDrawLine globalGC1 203 128 3 3 0 360 204 129 psFillArc globalGC1 204 122 204 129 psDrawLine globalGC1 203 121 3 3 0 360 204 122 psFillArc globalGC1 203 113 204 122 psDrawLine globalGC1 202 112 3 3 0 360 203 113 psFillArc globalGC1 200 103 203 113 psDrawLine globalGC1 199 102 3 3 0 360 200 103 psFillArc globalGC1 196 94 200 103 psDrawLine globalGC1 195 93 3 3 0 360 196 94 psFillArc globalGC1 190 85 196 94 psDrawLine globalGC1 189 84 3 3 0 360 190 85 psFillArc globalGC1 183 76 190 85 psDrawLine globalGC1 182 75 3 3 0 360 183 76 psFillArc globalGC1 174 68 183 76 psDrawLine globalGC1 173 67 3 3 0 360 174 68 psFillArc globalGC1 164 62 174 68 psDrawLine globalGC1 163 61 3 3 0 360 164 62 psFillArc globalGC1 155 57 164 62 psDrawLine globalGC1 154 56 3 3 0 360 155 57 psFillArc globalGC1 146 54 155 57 psDrawLine globalGC1 145 53 3 3 0 360 146 54 psFillArc globalGC1 137 53 146 54 psDrawLine globalGC1 136 52 3 3 0 360 137 53 psFillArc globalGC1 128 52 137 53 psDrawLine globalGC1 127 51 3 3 0 360 128 52 psFillArc grestore % restore graphics state cleartomark %% clearing operand stack end %% pops mainDict from dictionary stack showpage %-------------------------- end --------------------------%