Creating Medical Pedigrees with PSTricks and LATEX.

The standard [1] requires the lines for the terminated pregnancies to be shorter
than for the normal ones. A way to do this is to make the node higher:
181 \pspicture[shift=-0.25](-0.25,-0.25)(0.25,0.5)%
Condition processing:
182 \ifcase\pst@pdgr@condition\relax % Nothing to do if normal
183 \or \relax % Nothing to do if obligatory
184 \or \relax % Nothing to do if asymptomatic
185 \or % affected
186 \expandafter\psset\expandafter{\affectedstyle}%
187 \fi%
If this is a terminated pregnancy, we use the same symbol as for deceased:
188 \ifpst@pdgr@sab\relax\else%
189 \qline(-0.25,0.1)(0.25,0.6)%
190 \fi%
The actual drawing
191 \pspolygon(-0.25,0.25)(0,0.5)(0.25,0.25)
And text putting commands
192 \ifx\pst@pdgr@abovetext\@empty\relax\else%
193 \rput[\pst@pdgr@abovetextrp](0,0.65){%
194 \kern2\pslinewidth\pst@pdgr@abovetext\kern2\pslinewidth}%
195 \fi%
196 \ifx\pst@pdgr@belowtext\@empty\relax\else%
197 \rput[\pst@pdgr@belowtextrp](0,0.1){%
198 \kern2\pslinewidth\pst@pdgr@belowtext\kern2\pslinewidth}%
199 \fi%
200 \ifx\pst@pdgr@righttext\@empty\relax\else%
201 \rput[\pst@pdgr@righttextrp](0.4,0.35){\pst@pdgr@righttext}%
202 \fi%
203 \ifx\pst@pdgr@lefttext\@empty\relax\else%
204 \rput[\pst@pdgr@lefttextrp](-0.4,0.35){\pst@pdgr@lefttext}%
205 \fi%
206 \endpspicture%
207 }}%
2.6 Drawing A Childlessness Symbol
\pstChildless Again, the standard processing of optional parameter
208 \def\pstChildless{\@ifnextchar[{\pstChildless@i}{\pstChildless@i[]}}%
\pstChildless@i And the actual macro:
209 \def\pstChildless@i[#1]#2{%
210 \rnode{#2}{%
211 \psset{arrows=-, linestyle=solid}%
212 \psset{#1}%
29