--- /dev/null
+% Postscript header file for version 1.53 of graphs.sty. Frank Drewes, 19.12.2000
+% Small bug in psdirbowoncircle and psdirbowonrectangle removed on 8. Dec. 97
+% (hopefully)
+
+/psloadcolour % [ r g b ] colour array
+{ aload pop setrgbcolor } def
+
+/psrectangle % width, height, interior color, linecolour, linewidth, linedash
+{/filled exch def
+0 setdash
+/lwidth exch def
+/lcolour exch def
+/colour exch def
+/height exch def
+/width exch def
+width lwidth gt
+ {/width width lwidth sub def}
+ {/width 0 def}
+ifelse
+height lwidth gt
+ {/height height lwidth sub def}
+ {/height 0 def}
+ifelse
+newpath
+width 2 div neg height 2 div neg moveto
+width 0 rlineto
+0 height rlineto
+width neg 0 rlineto
+closepath
+filled {
+ colour psloadcolour
+ gsave
+ fill
+ grestore
+} if
+lcolour psloadcolour
+lwidth setlinewidth
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/pscircle % diameter, interior color, line colour, line width, line dash
+{/filled exch def
+0 setdash
+/lwidth exch def
+/lcolour exch def
+/colour exch def
+/diam exch def
+diam lwidth gt
+ {/diam diam lwidth sub def}
+ {/diam 0 def}
+ifelse
+newpath
+diam 2 div 0 moveto
+0 0 diam 2 div 0 360 arc
+closepath
+filled {
+ colour psloadcolour
+ gsave
+ fill
+ grestore
+} if
+lcolour psloadcolour
+lwidth setlinewidth
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/psline % end x, end y, line width, line colour, line dash
+{0 setdash
+psloadcolour
+setlinewidth
+/endy exch def
+/endx exch def
+newpath
+0 0 moveto
+endx endy lineto
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/psloop % from (#1,#2) to (#3,#4), line colour, line width, line dash
+{0 setdash
+setlinewidth
+psloadcolour
+/varw exch def
+/varv exch def
+/vary exch def
+/varx exch def
+newpath 0 0 moveto
+varx vary lineto
+/varxb varx 2 mul def
+/varyb vary 2 mul def
+/varvb varv 2 mul def
+/varwb varw 2 mul def
+varxb varyb varvb varwb varv varw curveto
+closepath
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/psloopbyangle % angle #1, axis (#2,#3), line colour, line width, line dash
+{/axisY exch def
+/axisX exch def
+/alpha exch def
+/len axisX dup mul axisY dup mul add sqrt def
+/betaA axisY axisX atan alpha 2 div sub def
+/betaB betaA alpha add def
+len betaA cos mul len betaA sin mul
+len betaB cos mul len betaB sin mul} def
+
+%-----------------------------------------------------------------------------%
+
+/pslooparrowonrectangle % (#1,#2), (#3,#4), width, height, line colour,
+ % line width, line dash, arrow length, arrow width
+{/atype exch def
+/awid exch def
+/len exch def
+0 setdash
+setlinewidth
+psloadcolour
+/height exch def
+/width exch def
+/varw exch def
+/varv exch def
+/vary exch def
+/varx exch def
+newpath 0 0 moveto
+varx vary lineto
+/varxb varx 2 mul def
+/varyb vary 2 mul def
+/varvb varv 2 mul def
+/varwb varw 2 mul def
+varxb varyb varvb varwb varv varw curveto
+varv varw translate
+/varv varv neg def /varw varw neg def
+varv abs varw abs
+varv abs varw abs gt { exch } if
+div dup mul 1 add width height mul mul sqrt 2 div /dist exch def
+/getlen {
+ /size exch def
+ abs exch abs exch
+ div dup mul 1 add size dup mul mul sqrt 2 div
+} def
+varv 0 eq
+ {/dist height 2 div def}
+ {varw 0 eq
+ {/dist width 2 div def}
+ {
+ /fstdist varv varw height getlen def
+ /snddist varw varv width getlen def
+ fstdist snddist lt
+ {/dist fstdist def} {/dist snddist def} ifelse
+ } ifelse
+ } ifelse
+varw varv atan rotate
+/pos varv dup mul varw dup mul add sqrt dist sub def
+pos len sub 0 lineto
+stroke
+pos len awid atype psdrawarrow
+} def
+
+%-----------------------------------------------------------------------------%
+
+/pslooparrowoncircle % (#1,#2), (#3,#4), diameter, line colour, line width,
+ % line dash, arrow length, arrow width
+{/atype exch def
+/awid exch def
+/len exch def
+0 setdash
+setlinewidth
+psloadcolour
+/diam exch def
+/varw exch def
+/varv exch def
+/vary exch def
+/varx exch def
+newpath 0 0 moveto
+varx vary lineto
+/varxb varx 2 mul def
+/varyb vary 2 mul def
+/varvb varv 2 mul def
+/varwb varw 2 mul def
+varxb varyb varvb varwb varv varw curveto
+varv varw translate
+/varv varv neg def /varw varw neg def
+varw varv atan rotate
+/pos varv dup mul varw dup mul add sqrt diam 2 div sub def
+pos len sub 0 lineto
+stroke
+pos len awid atype psdrawarrow
+} def
+
+%-----------------------------------------------------------------------------%
+
+/psdeletebox % width, height
+{/height exch def
+/width exch def
+newpath
+width 2 div neg height 2 div neg moveto
+width 0 rlineto
+0 height rlineto
+width neg 0 rlineto
+closepath
+1 setgray
+fill} def
+
+%-----------------------------------------------------------------------------%
+
+/psarrowonrectangle % x, y, width, height, arrow length, arrow width,
+ % line colour, line width, dash array
+{0 setdash
+setlinewidth
+psloadcolour
+/atype exch def
+/awid exch def
+/len exch def
+/height exch def
+/width exch def
+/ypos exch def
+/xpos exch def
+/getlen {
+ /size exch def
+ abs exch abs exch
+ div dup mul 1 add size dup mul mul sqrt 2 div
+} def
+xpos 0 eq
+ {/dist height 2 div def}
+ {ypos 0 eq
+ {/dist width 2 div def}
+ {
+ /fstdist xpos ypos height getlen def
+ /snddist ypos xpos width getlen def
+ fstdist snddist lt
+ {/dist fstdist def} {/dist snddist def} ifelse
+ } ifelse
+ } ifelse
+ypos xpos atan rotate
+/pos xpos dup mul ypos dup mul add sqrt dist sub def
+pos len awid atype psdrawarrow
+0 0 moveto
+pos len sub 0 lineto
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/psarrowoncircle
+{0 setdash
+setlinewidth
+psloadcolour
+/atype exch def
+/awid exch def
+/len exch def
+/diam exch def
+/ypos exch def
+/xpos exch def
+ypos xpos atan rotate
+/pos xpos dup mul ypos dup mul add sqrt diam 2 div sub def
+pos len awid atype psdrawarrow
+0 0 moveto
+pos len sub 0 lineto
+stroke} def
+
+%-----------------------------------------------------------------------------%
+
+/pspath
+{/fillyes exch def
+/fillcolour exch def
+0 setdash
+psloadcolour
+setlinewidth
+/curry exch def
+/currx exch def
+/sqr { dup mul } def
+/mtrx matrix currentmatrix def
+newpath currx curry moveto
+counttomark 3 idiv
+{ /displace exch def
+ displace abs 0 gt
+ { currx curry translate
+ dup curry sub /ypos exch def /curry exch def
+ dup currx sub /xpos exch def /currx exch def
+ /len xpos sqr ypos sqr add sqrt def
+ /displace displace len mul def
+ ypos xpos atan rotate
+ /db len 2 div def
+ /rad displace db sqr displace div add 2 div def
+ /radb rad displace sub def
+ /anglea radb db atan def
+ /angleb 180 anglea sub def
+ displace 0 gt
+ { db radb neg rad angleb anglea arcn }
+ { db radb neg rad 360 anglea sub angleb neg arc }
+ ifelse
+ mtrx setmatrix
+ }
+ { /curry exch def
+ /currx exch def
+ currx curry lineto
+ }
+ ifelse
+}
+repeat
+pop
+fillyes {gsave fillcolour psloadcolour fill grestore} if
+0 setlinecap
+0 setlinejoin
+stroke
+} def
+
+%-----------------------------------------------------------------------------%
+
+/pscurve
+{/fillyes exch def
+/fillcolour exch def
+0 setdash
+psloadcolour
+setlinewidth
+/currx exch def
+/curry exch def
+/angle exch def
+/factora exch def
+/factorb exch def
+newpath currx curry moveto
+counttomark 5 idiv
+{ /newx exch def
+ /newy exch def
+ /len newx currx sub dup mul newy curry sub dup mul add sqrt def
+ /firstx len factora mul angle cos mul currx add def
+ /firsty len factora mul angle sin mul curry add def
+ /currx newx def
+ /curry newy def
+ /angle exch def
+ firstx
+ firsty
+ len factorb mul angle cos mul neg currx add
+ len factorb mul angle sin mul neg curry add
+ currx
+ curry
+ curveto
+ /factora exch def
+ /factorb exch def
+}
+repeat
+pop
+fillyes {gsave fillcolour psloadcolour fill grestore} if
+0 setlinecap
+0 setlinejoin
+stroke
+} def
+
+%-----------------------------------------------------------------------------%
+
+/psbubble
+{/fillyes exch def
+/fillcolour exch def
+0 setdash
+psloadcolour
+setlinewidth
+/lenfactor exch def
+/fetch {/arg exch def dup arg exch def counttomark 1 roll} def
+/compangle {
+ /firstangle exch def
+ /scndangle exch def
+ firstangle sin scndangle sin add 2 div
+ firstangle cos scndangle cos add 2 div
+ atan
+} def
+/currax fetch
+/curray fetch
+counttomark 2 idiv
+{
+/currbx exch def
+/currby exch def
+currax currbx ne curray currby ne or
+ {currby currbx /currax fetch /curray fetch}
+if
+}
+repeat
+/lastx fetch
+/lasty fetch
+/currax fetch
+/curray fetch
+/currbx fetch
+/currby fetch
+newpath currax curray moveto
+counttomark 2 idiv
+{ /nextx fetch
+ /nexty fetch
+ /fstangle
+ curray lasty sub currax lastx sub atan
+ currby curray sub currbx currax sub atan
+ compangle
+ def
+ /sndangle
+ currby curray sub currbx currax sub atan
+ nexty currby sub nextx currbx sub atan
+ compangle
+ def
+ /len currax currbx sub dup mul curray currby sub dup mul add sqrt lenfactor mul def
+ fstangle cos len mul currax add
+ fstangle sin len mul curray add
+ currbx sndangle cos len mul sub
+ currby sndangle sin len mul sub
+ currbx currby
+ curveto
+ /lastx currax def
+ /lasty curray def
+ /currax currbx def
+ /curray currby def
+ /currbx nextx def
+ /currby nexty def
+}
+repeat
+pop
+fillyes {gsave fillcolour psloadcolour fill grestore} if
+0 setlinecap
+0 setlinejoin
+stroke
+} def
+
+%-----------------------------------------------------------------------------%
+
+/psdrawarrow
+{gsave
+/type exch def
+/wid exch def
+/len exch def
+0 translate -1 1 scale
+newpath 0 0 moveto
+type 1 eq
+{ len len wid 2 div mul lineto
+ 0 len wid neg mul rlineto}
+{ /mid len 2 div def
+ 0 0
+ mid 0
+ len len wid 2 div mul curveto
+ len len wid -2 div mul lineto
+ mid 0
+ 0 0
+ 0 0 curveto
+} ifelse
+closepath
+fill
+grestore
+} def
+
+%-----------------------------------------------------------------------------%
+
+/psdirbowoncircle
+{0 setdash
+psloadcolour
+setlinewidth
+/atype exch def
+/awid exch def
+/arrowlen exch def
+2 div /targetradius exch def
+/displace exch def
+/othery exch def
+/otherx exch def
+/curry exch def
+/currx exch def
+/sqr { dup mul } def
+
+currx curry translate
+othery curry sub /othery exch def
+otherx currx sub /otherx exch def
+/angle otherx neg othery atan def
+/distance otherx sqr othery sqr add sqrt def
+/displace displace distance mul def
+/radius displace distance 2 div sqr displace div add 2 div def
+/centerx angle cos radius displace sub mul otherx 2 div add def
+/centery angle sin radius displace sub mul othery 2 div add def
+displace 0 gt
+{ /anglea othery centery sub otherx centerx sub atan def
+ /angleb centery neg centerx neg atan def
+ angleb anglea lt
+ { /anglea anglea 360 sub def }
+ if
+}
+{ /anglea centery othery sub centerx otherx sub atan def
+ /angleb centery centerx atan def
+ angleb anglea gt
+ { /anglea anglea 360 add def }
+ if
+}
+ifelse
+
+anglea angleb targetradius pscomputeposoncircle
+/tipy exch def /tipx exch def
+anglea angleb targetradius arrowlen add pscomputeposoncircle
+/taily exch def /tailx exch def
+
+newpath 0 0 moveto
+0 setlinecap
+0 setlinejoin
+displace 0 gt
+{ centerx centery radius angleb taily centery sub tailx centerx sub atan arcn }
+{ centerx centery radius angleb centery taily sub centerx tailx sub atan arc }
+ifelse
+stroke
+
+tailx taily translate
+/tipx tipx tailx sub def
+/tipy tipy taily sub def
+tipy tipx atan rotate
+arrowlen arrowlen awid atype psdrawarrow
+} def
+
+/pscomputeposoncircle
+{/otherr exch def
+/beta exch def
+/alpha exch def
+{
+ /currangle alpha beta add 2 div def
+ /xpos currangle cos radius mul centerx add def
+ /ypos currangle sin radius mul centery add def
+ otherx xpos sub sqr othery ypos sub sqr add sqrt
+ /newdist exch def
+ newdist otherr sub abs .001 le
+ {exit}
+ if
+ newdist otherr le
+ {/alpha currangle def}
+ {/beta currangle def}
+ ifelse
+} loop
+currangle cos radius mul centerx add
+currangle sin radius mul centery add
+} def
+
+
+%-----------------------------------------------------------------------------%
+
+/psdirbowonrectangle
+{0 setdash
+psloadcolour
+setlinewidth
+/atype exch def
+/awid exch def
+/arrowlen exch def
+2 div /sizey exch def
+2 div /sizex exch def
+/displace exch def
+/othery exch def
+/otherx exch def
+/curry exch def
+/currx exch def
+/sqr { dup mul } def
+
+currx curry translate
+othery curry sub /othery exch def
+otherx currx sub /otherx exch def
+/angle otherx neg othery atan def
+/distance otherx sqr othery sqr add sqrt def
+/displace displace distance mul def
+/radius displace distance 2 div sqr displace div add 2 div def
+/centerx angle cos radius displace sub mul otherx 2 div add def
+/centery angle sin radius displace sub mul othery 2 div add def
+displace 0 gt
+{ /anglea othery centery sub otherx centerx sub atan def
+ /angleb centery neg centerx neg atan def
+ angleb anglea lt
+ { /anglea anglea 360 sub def }
+ if
+}
+{ /anglea centery othery sub centerx otherx sub atan def
+ /angleb centery centerx atan def
+ angleb anglea gt
+ { /anglea anglea 360 add def }
+ if
+}
+ifelse
+
+anglea angleb pscomputeposonrectangle /tipy exch def /tipx exch def
+/targetradius otherx tipx sub sqr othery tipy sub sqr add sqrt def
+anglea angleb targetradius arrowlen add pscomputeposoncircle
+/taily exch def /tailx exch def
+
+newpath 0 0 moveto
+0 setlinecap
+0 setlinejoin
+displace 0 gt
+{ centerx centery radius angleb taily centery sub tailx centerx sub atan arcn }
+{ centerx centery radius angleb centery taily sub centerx tailx sub atan arc }
+ifelse
+stroke
+
+tailx taily translate
+/tipx tipx tailx sub def
+/tipy tipy taily sub def
+tipy tipx atan rotate
+arrowlen arrowlen awid atype psdrawarrow
+} def
+
+/pscomputeposonrectangle
+{/beta exch def
+/alpha exch def
+/counter 0 def
+{
+ /currangle alpha beta add 2 div def
+ /xpos currangle cos radius mul centerx add def
+ /ypos currangle sin radius mul centery add def
+ /xdiff xpos otherx sub abs sizex sub def
+ /ydiff ypos othery sub abs sizey sub def
+ xdiff abs .001 le ydiff abs .001 le and
+ xdiff abs .001 le ydiff 0 le and
+ xdiff 0 le ydiff abs .001 le and
+ or
+ {exit}
+ if
+ /counter counter 1 add def
+ xdiff 0 le ydiff 0 le and
+ {/alpha currangle def}
+ {/beta currangle def}
+ ifelse
+} loop
+currangle cos radius mul centerx add
+currangle sin radius mul centery add
+} def
projects / lectures / latex.git / blobdiff