summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/dvips/pst-optexp
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-06-18 18:34:46 +0000
committerKarl Berry <karl@freefriends.org>2008-06-18 18:34:46 +0000
commita63b3cf004ff93cac025d38a450b9e383a16e044 (patch)
tree222aa79ff0c547ca82761198059a83695c1c256b /Master/texmf-dist/dvips/pst-optexp
parent47c3018e28d4f17ef2156f9866d0d012e8c0567e (diff)
pst-optexp update (17jun08)
git-svn-id: svn://tug.org/texlive/trunk@8843 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/dvips/pst-optexp')
-rw-r--r--Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro109
1 files changed, 109 insertions, 0 deletions
diff --git a/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
new file mode 100644
index 00000000000..dc59ceba9a3
--- /dev/null
+++ b/Master/texmf-dist/dvips/pst-optexp/pst-optexp.pro
@@ -0,0 +1,109 @@
+%
+% PostScript prologue for pst-optexp.tex.
+% version 0.1 2008-06-17 (cb)
+% For distribution, see pstricks.tex.
+%
+/tx@OptexpDict 20 dict def
+tx@OptexpDict begin
+%
+%
+% expects: XB YB XA YA XG YG
+/calcNodes {% def
+ /YG ED /XG ED
+ /ay YG 3 -1 roll sub def
+ /ax XG 3 -1 roll sub def
+ /by exch YG sub def
+ /bx exch XG sub def
+ /a ax ay Pyth def
+ /b bx by Pyth def
+ /cx ax a div bx b div add def
+ /cy ay a div by b div add def
+ /c@tmp cx cy Pyth def
+ /c ax bx add ay by add Pyth def
+ %
+ % if c=0, then set the coordinates of the vector manually
+ % depending on the dotproduct (and thus, if 'a' and 'b'
+ % are parallel or antiparallel
+ c 0 eq
+ {ax bx mul ay by mul add 0 gt
+ % if dotprod > 0 then a and b are parallel
+ {/cx ax def
+ /cy ay def}
+ % else a and b are antiparallel
+ {/cx ay def
+ /cy ax neg def} ifelse
+ /c@tmp a def
+ } if
+ /X@A XG cx c@tmp div add def
+ /Y@A YG cy c@tmp div add def
+ /X@B XG cx c@tmp div sub def
+ /Y@B YG cy c@tmp div sub def
+ %
+ % chirality:
+ % test the order of the input points as a input angle > 90°
+ % doesn't really make sens.
+ % So if 'chir' <= 0 exchange the calculated coordinates of
+ % A and B and otherwise leave it as is
+ ax by mul ay bx mul sub 0 le
+ {Y@A X@A
+ /X@A X@B def
+ /Y@A Y@B def
+ /X@B ED
+ /Y@B ED}if
+} bind def
+%
+% called with: height R1
+% leaves on stack: y |R1| alpha_bottom alpha_top R1
+/leftConvex {% def
+ /R1 ED /h ED
+ /a1 R1 dup dup mul h dup mul sub sqrt sub def
+ 0 R1 abs
+ R1 a1 sub neg dup
+ h exch atan exch
+ h neg exch atan
+ /ArcL /arc load def
+ R1
+} bind def
+%
+% called with: height R1
+% leaves on stack: y |R1| alpha_bottom alpha_top R1
+/leftConcave {% def
+ /R1 ED /h ED
+ /a1 R1 abs dup dup mul h dup mul sub sqrt sub def
+ 0 R1 abs
+ R1 neg a1 sub dup
+ h exch atan exch
+ h neg exch atan
+ /ArcL /arcn load def
+ /a1 0.5 a1 mul def
+ R1
+} bind def
+%
+% called with: height R2
+% leaves on stack: y |R2| alpha_bottom alpha_top R2
+/rightConvex {%def
+ /R2 ED /h ED
+ /a2 R2 abs dup dup mul h dup mul sub sqrt sub def
+ 0 R2 abs
+ R2 a2 sub dup
+ h neg exch atan exch
+ h exch atan
+ R2
+ /ArcR /arc load def
+} bind def
+%
+% called with: height R2
+% leaves on stack: y |R2| alpha_bottom alpha_top R2
+/rightConcave {%def
+ /R2 ED /h ED
+ /a2 R2 abs dup dup mul h dup mul sub sqrt sub def
+ 0 R2 abs
+ R2 a2 add dup
+ h neg exch atan exch
+ h exch atan
+ /ArcR /arcn load def
+ /a2 0.5 a2 mul def
+ R2
+} bind def
+%
+end % tx@OptexpDict