summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/pst-pdgr
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-11-16 11:29:57 +0000
committerNorbert Preining <preining@logic.at>2007-11-16 11:29:57 +0000
commit36e468865ab64e283898151fca03ea3e5586a766 (patch)
treeec4514e666b7897764fc4e27005c1ac7ae5e0105 /Master/texmf-dist/tex/generic/pst-pdgr
parent31a15e363ba80d73d0472a77e44b958bb2273651 (diff)
pst-pdgr v0.3
git-svn-id: svn://tug.org/texlive/trunk@5462 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-pdgr')
-rw-r--r--Master/texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex25
1 files changed, 21 insertions, 4 deletions
diff --git a/Master/texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex b/Master/texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex
index ad8394bdf25..965e37b79a2 100644
--- a/Master/texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex
+++ b/Master/texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex
@@ -23,7 +23,7 @@
\csname PSTPedigreeLoaded\endcsname
\let\PSTPedigreeLoaded\endinput
\message{
-[2006/04/18 v0.2a Medical Pedigree with PSTricks]
+[2007/07/20 v0.3 Medical Pedigree with PSTricks]
}
\ifx\PSTricksLoaded\endinput\else\input pstricks.tex\fi
\ifx\PSTnodesLoaded\endinput\else\input pst-node.tex\fi
@@ -100,6 +100,9 @@
\define@key[psset]{pst-pdgr}{addtwin}{\ncline{\pst@pdgr@tempnode}{#1}}%
\define@key[psset]{pst-pdgr}{descentnode}{%
\def\pst@pdgr@descentnode{#1}}%
+\newdimen\psk@descarmA%
+\define@key[psset]{pst-pdgr}{descarmA}{\pssetlength\psk@descarmA{#1}}%
+\psset{descarmA=0.8}%
\def\pst@pdgr@descentnodepos{0.5}
\define@key[psset]{pst-pdgr}{descentnodepos}{%
\pst@checknum{#1}\pst@pdgr@descentnodepos%
@@ -250,13 +253,27 @@
\fi%
\endgroup%
}%
+\def\ncAngles{\pst@object{ncAngles}}
+\def\ncAngles@i{\check@arrow{\ncAngles@ii}}
+\def\ncAngles@ii#1#2{%
+ \nc@object{Open}{#1}{#2}{1.5}{\ncAngles@iii \tx@NCAngles}}
+\def\ncAngles@iii{%
+ tx@Dict begin \psline@iii pop end
+ /AngleA \psk@angleA def
+ /AngleB \psk@angleB def
+ /ArmA \psk@armA GetEdgeA yA yA1 sub dup mul xA xA1 sub dup mul add
+sqrt sub def
+ /ArmB \psk@armB def
+ /ArmTypeA \psk@armtypeA def
+ /ArmTypeB \psk@armtypeB def }
\def\pstDescent{\@ifnextchar[{\pstDescent@i}{\pstDescent@i[]}}%
\def\pstDescent@i[#1]#2#3{%
\begingroup%
- \psset{arrows=-, linestyle=solid, angleA=90, %
- angleB=-90}%
+ \psset{arrows=-, linestyle=solid, angleA=-90, %
+ angleB=90, armB=0}%
\psset{#1}%
- \ncangle{#3}{#2}%
+ \psset{armA=\psk@descarmA}%
+ \ncAngles{#2}{#3}%
\endgroup}%
\def\pstTwins{\@ifnextchar[{\pstTwins@i}{\pstTwins@i[]}}%
\def\pstTwins@i[#1]#2#3#4#5{%