Creating Medical Pedigrees with PSTricks and LATEX.

2.8 Drawing a Descent Line
\ncAngles In the new version of pst-node.tex (1.00 and up) \ncangles has the option pcRef
for the arm lengths to be calculated from the node center. Unfortunately at this
time we cannot be sure the users have the new version.
This macro is from Herbert Voß (http://www.tug.org/mail-archives/
pstricks/2007/004608.html)
246 \def\ncAngles{\pst@object{ncAngles}}
247 \def\ncAngles@i{\check@arrow{\ncAngles@ii}}
248 \def\ncAngles@ii#1#2{%
249 \nc@object{Open}{#1}{#2}{1.5}{\ncAngles@iii \tx@NCAngles}}
250 %
251 \def\ncAngles@iii{%
252 tx@Dict begin \psline@iii pop end
253 /AngleA \psk@angleA def
254 /AngleB \psk@angleB def
255 /ArmA \psk@armA GetEdgeA yA yA1 sub dup mul xA xA1 sub dup mul add
256 sqrt sub def
257 /ArmB \psk@armB def
258 /ArmTypeA \psk@armtypeA def
259 /ArmTypeB \psk@armtypeB def }
\pstDescent The standard option processing command:
260 \def\pstDescent{\@ifnextchar[{\pstDescent@i}{\pstDescent@i[]}}%
\pstDescent@i The actual macro. Note that we want to set armA after processing user input, but
all other options are processed after standard ones.
261 \def\pstDescent@i[#1]#2#3{%
262 \begingroup%
263 \psset{arrows=-, linestyle=solid, angleA=-90, %
264 angleB=90, armB=0}%
265 \psset{#1}%
266 \psset{armA=\psk@descarmA}%
267 \ncAngles{#2}{#3}%
268 \endgroup}%
2.9 Drawing Twins
\pstTwins The standard option processing command:
269 \def\pstTwins{\@ifnextchar[{\pstTwins@i}{\pstTwins@i[]}}%
\pstTwins@i The actual macro. Note that we need to keep the twin node in\pst@pdgr@tempnode
to correctly process addtwin.
270 \def\pstTwins@i[#1]#2#3#4#5{%
271 \begingroup%
272 \def\pst@pdgr@tempnode{#3}
273 \psset{arrows=-, linestyle=solid, angleA=90, %
274 angleB=-90}%
275 \psset{#1}%
31