%!PS-Adobe-3.0 EPSF-3.0 %%Creator: PCE 4.8.15, Nov 1995 %%CreationDate: (Thu Nov 30 10:52:55 1995) %%Pages: 1 %%DocumentFonts: (atend) %%BoundingBox: 70 70 504 338 %%Object: @34159179/draw_canvas %%EndComments gsave % $Id$ % % PostScript header file for PCE version 4.5 % Modified: Tue Mar 23 15:46:24 1993 (Added arcpath) % PCE line attributes /dotted { [1 5] 0 setdash } def /dashed { [5] 0 setdash } def /dashdot { [5 2 1 2] 0 setdash } def /dashdotted { [5 2 1 2 1 2 1 2] 0 setdash } def /longdash { [8 5] 0 setdash } def /nodash { [] 0 setdash } def /pspen { 2 div } def /pen { pspen setlinewidth } def % Draw a path according to the current texture and pen. Draws % only if the pen is not 0. If a dash pattern is provided the % path is first cleared. /draw { 0 currentlinewidth ne { currentdash 0 eq exch [] eq and not { gsave nodash 1 setgray stroke grestore } if stroke } if } def % Create a rectangular path from x, y, w, h in the current dict /region { newpath x y moveto w 0 rlineto 0 h rlineto w neg 0 rlineto closepath } def % Paint inverted /invert { {1 exch sub} settransfer } def % Create a path for a PCE box without rounded corners. Stack: % % pen x y w h radius BOXPATH path /boxpath { /r exch def /h exch def /w exch def /y exch def /x exch def /p exch def r 0 eq { 2 setlinecap newpath x p pspen add y p pspen add moveto w p sub 0 rlineto 0 h p sub rlineto w p sub neg 0 rlineto 0 h p sub neg rlineto } { newpath /pr r p pspen add def x pr add y p pspen add moveto x w add pr sub y pr add r 270 360 arc x w add pr sub y h add pr sub r 0 90 arc x pr add y h add pr sub r 90 180 arc x pr add y pr add r 180 270 arc } ifelse p pen } def % Create a path for a PCE circle. % pen x y radius CIRCLEPATH /circlepath { /r exch def /y exch def /x exch def /p exch def newpath x r add y r add r p pspen sub 0 360 arc p pen } def % Create a path for a PCE ellipse % pen x y w h ELLIPSEPATH /ellipsepath { /h exch 2 div def /w exch 2 div def /y exch def /x exch def /p exch def matrix currentmatrix x w add y h add translate w p pspen sub h p pspen sub scale newpath 0 0 1 0 360 arc setmatrix p pen } def % pen close x y w h start size ARCPATH /arcpath { /size exch neg def /start exch neg 360 add def /h exch def /w exch def /y exch def /x exch def /close exch def /p exch def matrix currentmatrix x y translate w p pspen sub h p pspen sub scale newpath close 2 eq { 0 0 moveto } if size 0 le { 0 0 1 start start size add arcn } { 0 0 1 start start size add arc } ifelse close 0 ne { closepath } if setmatrix p pen } def % pen x y STARTPATH /startpath { newpath moveto pen } def % Linepath: create a path for a pce line % x y w h LINEPATH /linepath { /h exch def /w exch def newpath moveto w h rlineto pen } def % x y w h CLEAR % Clear a region /clear { /h exch def /w exch def /y exch def /x exch def gsave region 1 setgray fill grestore } def % text. (x,y) is the xy coordinate of the baselinestart of the first % character. w is the width to which the text is scaled. % x y w string TEXT /text { /s exch def /w exch def gsave 1 eq { invert } if moveto s stringwidth pop w exch div -1 scale s show grestore } def % x y w h BITMAP hexdata /bitmap { /h exch def /w exch def /y exch def /x exch def gsave {1 exch sub} settransfer % region clip x y h add translate /w8 w 7 add 8 idiv 8 mul def /picstr w8 8 idiv string def w8 h neg scale w8 h 1 [w 0 0 h neg 0 h] {currentfile picstr readhexstring pop} image grestore } def % x y w h depth GREYMAP hexdata /greymap { /d exch def /h exch def /w exch def /y exch def /x exch def gsave % {1 exch sub} settransfer % region clip x y h add translate /w8 w 7 add 8 idiv 8 mul def /picstr w8 8 idiv string def w8 h neg scale w8 h d [w 0 0 h neg 0 h] {currentfile picstr readhexstring pop} image grestore } def % x y w h pw ph pattern FILLWITHMASK % Fill path with a repetitive pattern which is sized (pw, ph). % discribe an area that encapsulates the path. is a % 1-deep image. 1's of the image are painted in the current colour. /fillwithmask { /patternstring exch def /ph exch def /pw exch def /h exch def /w exch def /y exch def /x exch def /pw8 pw 7 add 8 idiv 8 mul def /putpattern { translate 1 -1 scale newpath 0 0 moveto 1 0 rlineto 0 1 rlineto -1 0 rlineto closepath clip pw8 ph false [pw 0 0 ph neg 0 ph] patternstring imagemask } def gsave clip gsave 1 setgray fill grestore x y translate pw ph scale 0 1 w pw div ceiling 1 sub { 1 1 h ph div ceiling { gsave 2 copy putpattern pop grestore } for } for grestore } def 70 70 translate 1.00 -1.00 scale 85 -290 translate %%EndProlog %%Page 0 1 %%Object: @34159179/draw_canvas gsave 0 0 translate 0.00 0.00 0.00 setrgbcolor %%Object: @34338560/draw_text /Helvetica findfont 14 scalefont setfont 135 55 0 59 (graphical) text %%Object: @34369581/draw_text /Helvetica findfont 14 scalefont setfont 73 135 0 43 (device) text %%Object: @34370136/draw_text /Helvetica findfont 14 scalefont setfont 72 202 0 45 (window) text %%Object: @34370489/draw_text /Helvetica findfont 14 scalefont setfont 75 269 0 38 (dialog) text %%Object: @34370769/draw_text /Helvetica findfont 14 scalefont setfont 200 135 0 72 (dialog_item) text %%Object: @34362694/draw_connection gsave nodash 1 164 58 72 64 linepath draw grestore %%Object: @34376143/draw_connection gsave nodash 1 164 58 -70 64 linepath draw grestore %%Object: @34376749/draw_connection gsave nodash 1 94 138 0 51 linepath draw grestore %%Object: @34377371/draw_connection gsave nodash 1 94 205 0 51 linepath draw grestore %%Object: @34656256/draw_compound gsave 208 22 translate %%Object: @34656299/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34656394/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 33 (above) text grestore %%Object: @34662913/draw_compound gsave 208 36 translate %%Object: @34662956/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34663051/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 32 (below) text grestore %%Object: @34669732/draw_compound gsave 208 50 translate %%Object: @34669775/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34827485/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 16 (left) text grestore %%Object: @34830746/draw_compound gsave 208 64 translate %%Object: @34830789/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34831397/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 25 (right) text grestore %%Object: @34834699/draw_compound gsave -78 117 translate %%Object: @34834742/draw_line gsave nodash 1 0 6 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 9 moveto 28 6 lineto 18 3 lineto nodash draw grestore grestore %%Object: @34866806/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 10 0 111 (append_dialog_item) text grestore %%Object: @34870198/draw_compound gsave -78 131 translate %%Object: @34870241/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34870334/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 75 (layout_dialog) text grestore %%Object: @34887294/draw_compound gsave -85 248 translate %%Object: @34887337/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34887432/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 41 (append) text grestore %%Object: @34890689/draw_compound gsave -85 262 translate %%Object: @34890732/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34890825/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 34 (layout) text grestore %%Object: @34906492/draw_compound gsave -85 276 translate %%Object: @34906535/draw_line gsave nodash 1 0 8 29 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 19 11 moveto 29 8 lineto 19 5 lineto nodash draw grestore grestore %%Object: @34921645/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 124 (_compute_desired_size) text grestore %%Object: @34956026/draw_compound gsave 288 122 translate %%Object: @34956069/draw_line gsave nodash 1 0 7 28 0 linepath draw gsave 0.00 0.00 0.00 setrgbcolor nodash 1 pen newpath 18 10 moveto 28 7 lineto 18 4 lineto nodash draw grestore grestore %%Object: @34956162/draw_text /Helvetica-Oblique findfont 12 scalefont setfont 32 11 0 29 (event) text grestore grestore %%Trailer grestore %%DocumentFonts: Helvetica Helvetica-Oblique