%!PS-Adobe-3.0 EPSF-3.0 %%BoundingBox: (atend) %%Title: TeXdraw drawing: _mybook.p19 %%Pages: 1 %%Creator: 1995/12/19 TeXdraw V2R0 %%CreationDate: 2008/10/27 50 dict begin /mv {stroke moveto} def /lv {lineto} def /st {currentpoint stroke moveto} def /sl {st setlinewidth} def /sd {st 0 setdash} def /sg {st setgray} def /bs {gsave} def /es {stroke grestore} def /fl {gsave setgray fill grestore currentpoint newpath moveto} def /fp {gsave setgray fill grestore st} def /cv {curveto} def /cr {gsave currentpoint newpath 3 -1 roll 0 360 arc stroke grestore} def /fc {gsave setgray currentpoint newpath 3 -1 roll 0 360 arc fill grestore} def /ar {gsave currentpoint newpath 5 2 roll arc stroke grestore} def /el {gsave /svm matrix currentmatrix def currentpoint translate scale newpath 0 0 1 0 360 arc svm setmatrix stroke grestore} def /fe {gsave setgray currentpoint translate scale newpath 0 0 1 0 360 arc fill grestore} def /av {/hhwid exch 2 div def /hlen exch def /ah exch def /tipy exch def /tipx exch def currentpoint /taily exch def /tailx exch def /dx tipx tailx sub def /dy tipy taily sub def /alen dx dx mul dy dy mul add sqrt def /blen alen hlen sub def gsave tailx taily translate dy dx atan rotate (V) ah ne {blen 0 gt {blen 0 lineto} if} {alen 0 lineto} ifelse stroke blen hhwid neg moveto alen 0 lineto blen hhwid lineto (T) ah eq {closepath} if (W) ah eq {gsave 1 setgray fill grestore closepath} if (F) ah eq {fill} {stroke} ifelse grestore tipx tipy moveto} def 0.24 0.24 scale 1 setlinecap 1 setlinejoin 3 setlinewidth [] 0 setdash 0 0 moveto 1 sl 113 -76 mv 573 -535 lv 309 -4 mv 647 -353 lv 4 sl 97 -4 mv 97 -540 lv 664 -4 mv 664 -540 lv 638 -4 mv 664 -4 lv 638 -540 mv 664 -540 lv 97 -540 mv 122 -540 lv 97 -4 mv 122 -4 lv stroke end showpage %%Trailer: %%BoundingBox: -33 -130 159 -1 %%EOF