From 36e468865ab64e283898151fca03ea3e5586a766 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Fri, 16 Nov 2007 11:29:57 +0000 Subject: pst-pdgr v0.3 git-svn-id: svn://tug.org/texlive/trunk@5462 c570f23f-e606-0410-a88d-b1316a301751 --- .../texmf-dist/tex/generic/pst-pdgr/pst-pdgr.tex | 25 ++++++++++++++++++---- Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.cfg | 2 +- Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.sty | 2 +- 3 files changed, 23 insertions(+), 6 deletions(-) (limited to 'Master/texmf-dist/tex') 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{% diff --git a/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.cfg b/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.cfg index e17d3e21e8b..569f0bf7ffd 100644 --- a/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.cfg +++ b/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.cfg @@ -11,7 +11,7 @@ %% Good luck %% \ProvidesFile{pst-pdgr.cfg} -[2006/04/18 v0.2a Medical Pedigree with PSTricks] +[2007/07/20 v0.3 Medical Pedigree with PSTricks] \endinput %% %% End of file `pst-pdgr.cfg'. diff --git a/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.sty b/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.sty index 6caa76153cb..a065c03290a 100644 --- a/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.sty +++ b/Master/texmf-dist/tex/latex/pst-pdgr/pst-pdgr.sty @@ -22,7 +22,7 @@ %% in the same archive or directory.) \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{pst-pdgr} -[2006/04/18 v0.2a Medical Pedigree with PSTricks] +[2007/07/20 v0.3 Medical Pedigree with PSTricks] \InputIfFileExists{pst-pdgr.cfg}{% \typeout{Loading configuration file pst-pdgr.cfg}}{% \typeout{Configuration file pst-pdgr.cfg is not found}} -- cgit v1.2.3