summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree')
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.352
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.pm3
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.3114
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.pm3
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.357
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.pm5
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.393
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.pm2
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Makefile2
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.394
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.pm3
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.3232
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.pm5
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.351
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.pm3
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.3118
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.pm4
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.359
-rw-r--r--graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.pm3
19 files changed, 416 insertions, 487 deletions
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.3
index 1d1569d08d..e3b6469509 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::AbortionNode 3"
-.TH Pedigree::AbortionNode 3 "2007-07-22" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::AbortionNode 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -145,33 +154,22 @@ use Pedigree::AbortionNode;
.IX Header "DESCRIPTION"
This package contains data about an abortion. Abortion is like a person,
but it cannot have kids, and it is drawn differently
-.Sp
-.RS 4
-\&\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
-\&\fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Output the command to draw this node. The parameters are
distances between the nodes (in cm) and fields for abovetext.
-.Sp
-\&\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);
-.Sp
+.IP "\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);" 4
+.IX Item "PrintLegend($lang, @fields);"
Print the legend for the given node, including \fI\f(CI@fields\fI\fR in the given
language \fI\f(CI$lang\fI\fR, and excluding the fields, that have no meaning for
this node.
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 23:" 4
-.IX Item "Around line 23:"
-You can't have =items (as at line 46) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.pm
index df56988c16..9f18768d2d 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/AbortionNode.pm
@@ -20,7 +20,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about an abortion. Abortion is like a person,
but it cannot have kids, and it is drawn differently
-=over 4
=cut
@@ -43,6 +42,8 @@ our @ISA=('Pedigree::PersonNode');
=pod
+=over 4
+
=item B<DrawNode>(I<$xdist>, I<$ydist>, I<$belowtextfont>, I<$abovetextfont>,
I<@fieldsfornode>);
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.3
index c200cbbf0f..42b8d88c72 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::Area 3"
-.TH Pedigree::Area 3 "2007-07-08" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::Area 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -137,11 +146,11 @@ use Pedigree::Area;
.PP
\&\f(CW$area\fR = new Pedigree::Area($node);
.PP
-\&\f(CW$Ymin\fR=$area\->\fIGetYmin()\fR;
+\&\f(CW$Ymin\fR=$area\->\fBGetYmin()\fR;
.PP
\&\f(CW$area\fR\->SetYmin($Ymin);
.PP
-\&\f(CW$Ymax\fR=$area\->\fIGetYmax()\fR;
+\&\f(CW$Ymax\fR=$area\->\fBGetYmax()\fR;
.PP
\&\f(CW$area\fR\->SetYmax($Ymax);
.PP
@@ -157,12 +166,12 @@ use Pedigree::Area;
.PP
\&\f(CW$area\fR\->AddLeft($otherarea);
.PP
-\&\f(CW$rootnode\fR=$area\->\fIGetRootNode()\fR;
+\&\f(CW$rootnode\fR=$area\->\fBGetRootNode()\fR;
.PP
\&\f(CW$area\fR\->MoveLowerLayers($x);
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
-The algorithm of \fIpedigree\fR\|(1) uses the notion of area: a part of
+The algorithm of \fBpedigree\fR\|(1) uses the notion of area: a part of
a picture taken by a tree or a clump. This package implements this
notion.
.PP
@@ -173,79 +182,58 @@ All distances are calculated as relative to the coordinates of the
The units are distances between the nodes in X and Y direction. The
Y axis is \fIdownward\fR: the earlier generations have smaller Y
coordinates.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI$rootnode\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI$rootnode\fI\fR);" 4
+.IX Item "new($rootnode);"
Construct a new area around the given rootnode
-.Sp
-\&\fBGetYmin\fR();
-.Sp
+.IP "\fBGetYmin\fR();" 4
+.IX Item "GetYmin();"
Get the lower bound of the area.
-.Sp
-\&\fBSetYmin\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBSetYmin\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "SetYmin($y);"
Set the lower bound of the area.
-.Sp
-\&\fBGetYmax\fR();
-.Sp
+.IP "\fBGetYmax\fR();" 4
+.IX Item "GetYmax();"
Get the upper bound of the area.
-.Sp
-\&\fBSetYmax\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBSetYmax\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "SetYmax($y);"
Set the upper bound of the area.
-.Sp
-\&\fBGetXmin\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBGetXmin\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "GetXmin($y);"
Get the minimal X coordinate of the area on the level Y.
-.Sp
-\&\fBSetXmin\fR(\fI\f(CI$y\fI, \f(CI$x\fI\fR);
-.Sp
+.IP "\fBSetXmin\fR(\fI\f(CI$y\fI, \f(CI$x\fI\fR);" 4
+.IX Item "SetXmin($y, $x);"
Set the minimal X coordinate of the area on the level Y.
-.Sp
-\&\fBGetXmax\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBGetXmax\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "GetXmax($y);"
Get the maximal X coordinate of the area the the level Y.
-.Sp
-\&\fBSetXmax\fR(\fI\f(CI$y\fI, \f(CI$x\fI\fR);
-.Sp
+.IP "\fBSetXmax\fR(\fI\f(CI$y\fI, \f(CI$x\fI\fR);" 4
+.IX Item "SetXmax($y, $x);"
Set the maximal X coordinate of the area the the level Y.
-.Sp
-\&\fBAddRight\fR(\fI\f(CI$otherarea\fI\fR);
-.Sp
+.IP "\fBAddRight\fR(\fI\f(CI$otherarea\fI\fR);" 4
+.IX Item "AddRight($otherarea);"
Add the new area \fI\f(CI$otherarea\fI\fR to the given area at the right. The
\&\*(L"other area\*(R" should have a root node that is relative to our root
node. The relative Y of the other root node is used, the relative
X is set.
-.Sp
-\&\fBAddLeft\fR(\fI\f(CI$otherarea\fI\fR);
-.Sp
+.IP "\fBAddLeft\fR(\fI\f(CI$otherarea\fI\fR);" 4
+.IX Item "AddLeft($otherarea);"
Add the new area \fI\f(CI$otherarea\fI\fR to the given area at the left. The
\&\*(L"other area\*(R" should have a root node that is relative to our root
node. The relative Y of the other root node is used, the relative
X is set.
-.Sp
-\&\fBGetRootNode\fR();
-.Sp
+.IP "\fBGetRootNode\fR();" 4
+.IX Item "GetRootNode();"
Return the root node of the area.
-.Sp
-\&\fBMoveLowerLayers\fR(\fI\f(CI$x\fI\fR);
-.Sp
+.IP "\fBMoveLowerLayers\fR(\fI\f(CI$x\fI\fR);" 4
+.IX Item "MoveLowerLayers($x);"
Shift the lower layers (>0) of the area in the X direction by \fI\f(CI$x\fI\fR
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 51:" 4
-.IX Item "Around line 51:"
-You can't have =items (as at line 69) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.pm
index 12cda99deb..d62cc7b1b7 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Area.pm
@@ -48,7 +48,6 @@ The units are distances between the nodes in X and Y direction. The
Y axis is I<downward>: the earlier generations have smaller Y
coordinates.
-=over 4
=cut
@@ -66,6 +65,8 @@ use strict;
=pod
+=over 4
+
=item B<new>(I<$rootnode>);
Construct a new area around the given rootnode
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.3
index 0051778ed5..d0fc263a2b 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::ChildlessNode 3"
-.TH Pedigree::ChildlessNode 3 "2007-07-22" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::ChildlessNode 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -145,37 +154,25 @@ use Pedigree::ChildlessNode;
.IX Header "DESCRIPTION"
This package contains data about a \*(L"childlessness\*(R" node. This node
is not numbered in pedigree.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI%params\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI%params\fI\fR);" 4
+.IX Item "new(%params);"
Construct a new node from the given parameters.
-.Sp
-\&\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
-\&\fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Output the command to draw this node. The parameters are
distances between the nodes (in cm) and fields for abovetext (not used
here). We only print the Comment field below the node, and draw this
node higher than other nodes.
-.Sp
-\&\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);
-.Sp
+.IP "\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);" 4
+.IX Item "PrintLegend($lang, @fields);"
This subroutine does nothing since childlessness has no legend.
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 24:" 4
-.IX Item "Around line 24:"
-You can't have =items (as at line 45) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.pm
index db4b1c985b..c932d97809 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/ChildlessNode.pm
@@ -21,8 +21,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about a "childlessness" node. This node
is not numbered in pedigree.
-=over 4
-
=cut
@@ -42,6 +40,9 @@ our @ISA=('Pedigree::PersonNode');
=pod
+=over 4
+
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.3
index 2b3059bd7b..80efdf24ad 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::Language 3"
-.TH Pedigree::Language 3 "2007-10-21" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::Language 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -137,17 +146,17 @@ use Pedigree::Language;
.PP
\&\f(CW$lang\fR = new Pedigree::Language(\fI\f(CI$language\fI\fR[, \fI\f(CI$encoding\fI\fR]);
.PP
-\&\f(CW$lang\fR\->\fIHeader()\fR;
+\&\f(CW$lang\fR\->\fBHeader()\fR;
.PP
-\&\f(CW$lang\fR\->\fILanguage()\fR;
+\&\f(CW$lang\fR\->\fBLanguage()\fR;
.PP
-\&\f(CW$lang\fR\->\fIEncoding()\fR;
+\&\f(CW$lang\fR\->\fBEncoding()\fR;
.PP
-\&\f(CW$lang\fR\->\fIGetFieldNames()\fR;
+\&\f(CW$lang\fR\->\fBGetFieldNames()\fR;
.PP
-\&\f(CW$lang\fR\->\fIGetValues()\fR;
+\&\f(CW$lang\fR\->\fBGetValues()\fR;
.PP
-\&\f(CW$lang\fR\->\fIGetSpecialNames()\fR;
+\&\f(CW$lang\fR\->\fBGetSpecialNames()\fR;
.PP
\&\f(CW$lang\fR\->PrintField(\fI\f(CI$field\fI\fR, $<$value>);
.SH "DESCRIPTION"
@@ -155,58 +164,42 @@ use Pedigree::Language;
This package defines the language-dependent parts of the pedigree
library. The idea is to gather everything about language here, so adding
a new language should be (presumably) be easy.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI$language\fI\fR[, \fI\f(CI$encoding\fI\fR]);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI$language\fI\fR[, \fI\f(CI$encoding\fI\fR]);" 4
+.IX Item "new($language[, $encoding]);"
Construct the new interpreter from the given language and encoding names.
-.Sp
-\&\fBHeader\fR ()
-.Sp
+.IP "\fBHeader\fR ()" 4
+.IX Item "Header ()"
Print the language-related lines of the document preamble
-.Sp
-\&\fBLanguage\fR ()
-.Sp
+.IP "\fBLanguage\fR ()" 4
+.IX Item "Language ()"
Print the current language
-.Sp
-\&\fBEncoding\fR ()
-.Sp
+.IP "\fBEncoding\fR ()" 4
+.IX Item "Encoding ()"
Print the current encoding
-.Sp
-\&\fBGetFieldNames\fR();
-.Sp
+.IP "\fBGetFieldNames\fR();" 4
+.IX Item "GetFieldNames();"
Outputs a reference to a hash
\&\*(L"field_name_in_this_language\*(R"=>\*(L"field_name_in_English\*(R"
-.Sp
-\&\fBGetValues\fR();
-.Sp
+.IP "\fBGetValues\fR();" 4
+.IX Item "GetValues();"
Outputs a reference to a hash
\&\*(L"field_value_in_this_language\*(R"=>\*(L"field_value_in_English\*(R"
-.Sp
-\&\fBGetSpecialNames\fR();
-.Sp
+.IP "\fBGetSpecialNames\fR();" 4
+.IX Item "GetSpecialNames();"
Some values for the 'Name' field start with \f(CW\*(C`#\*(C'\fR. They are special.
This subroutine outputs a reference to a hash
\&\*(L"special_name_in_this_language\*(R"=>\*(L"special_name\*(R"
-.Sp
-\&\fBPrintField\fR(\fI\f(CI$field\fI\fR, \fI\f(CI$value\fI\fR);
-.Sp
+.IP "\fBPrintField\fR(\fI\f(CI$field\fI\fR, \fI\f(CI$value\fI\fR);" 4
+.IX Item "PrintField($field, $value);"
Formats the value \fI\f(CI$value\fI\fR of the given field \fI\f(CI$field\fI\fR according
to the rules of the given language.
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 34:" 4
-.IX Item "Around line 34:"
-You can't have =items (as at line 57) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.pm
index bcae95d307..79494d617c 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Language.pm
@@ -31,7 +31,6 @@ This package defines the language-dependent parts of the pedigree
library. The idea is to gather everything about language here, so adding
a new language should be (presumably) be easy.
-=over 4
=cut
@@ -53,6 +52,7 @@ use strict;
=pod
+=over 4
=item B<new>(I<$language>[, I<$encoding>]);
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Makefile b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Makefile
index 5afbb317dd..992a612161 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Makefile
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Makefile
@@ -1,6 +1,6 @@
#
# Makefile for pedigree
-# $Id: Makefile,v 2.4 2007-07-09 22:49:33 boris Exp $
+# $Id: Makefile,v 2.4 2007/07/09 22:49:33 boris Exp $
#
# This file is in public domain
#
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.3
index 780588f4c1..98ed3ea79f 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::MarriageNode 3"
-.TH Pedigree::MarriageNode 3 "2007-07-15" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::MarriageNode 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -137,79 +146,62 @@ use Pedigree::MarriageNode;
.PP
\&\f(CW$node\fR = new Pedigree::MarriageNode(\fI\f(CI%params\fI\fR);
.PP
-\&\f(CW$FSpouse\fR = \f(CW$node\fR\->\fIFSpouse()\fR;
+\&\f(CW$FSpouse\fR = \f(CW$node\fR\->\fBFSpouse()\fR;
.PP
-\&\f(CW$MSpouse\fR = \f(CW$node\fR\->\fIMSpouse()\fR;
+\&\f(CW$MSpouse\fR = \f(CW$node\fR\->\fBMSpouse()\fR;
.PP
-\&\f(CW$consang\fR = \f(CW$self\fR\->\fIisConsanguinic()\fR;
+\&\f(CW$consang\fR = \f(CW$self\fR\->\fBisConsanguinic()\fR;
.PP
-\&\f(CW$area\fR = \f(CW$node\fR\->\fISetArea()\fR;
+\&\f(CW$area\fR = \f(CW$node\fR\->\fBSetArea()\fR;
.PP
\&\f(CW$node\fR\->CalcAbsCoord(\fI\f(CI$x\fI\fR, \fI\f(CI$y\fI\fR);
.PP
\&\f(CW$node\fR\->DrawNode(\fI\f(CI$xidst\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
\&\fI\f(CI@fieldsfornode\fI\fR);
.PP
-\&\f(CW$node\fR\->\fIDrawConnections()\fR;
+\&\f(CW$node\fR\->\fBDrawConnections()\fR;
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This package contains data about a marriage.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI%params\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI%params\fI\fR);" 4
+.IX Item "new(%params);"
Construct a new node from the given parameters.
-.Sp
-\&\fBFSpouse\fR();
-.Sp
+.IP "\fBFSpouse\fR();" 4
+.IX Item "FSpouse();"
Get female spouse of a node.
-.Sp
-\&\fBMSpouse\fR();
-.Sp
+.IP "\fBMSpouse\fR();" 4
+.IX Item "MSpouse();"
Get female spouse of a node.
-.Sp
-\&\fBisConsanguinic\fR();
-.Sp
+.IP "\fBisConsanguinic\fR();" 4
+.IX Item "isConsanguinic();"
Check whether the node is consanguinic
-.Sp
-\&\fBSetArea\fR();
-.Sp
+.IP "\fBSetArea\fR();" 4
+.IX Item "SetArea();"
Calculate relative coordinates for all nodes, that are descendants of
the given node \fIand\fR the spouses that form the marriage. We create a
-\&\fIPedigree::Area\fR\|(3) around the given node and recursively apply the
+\&\fBPedigree::Area\fR\|(3) around the given node and recursively apply the
function to all descendants. The subroutine
returns the reference to the created area.
-.Sp
-\&\fBCalcAbsCoor\fR(\fI\f(CI$x\fI\fR, $<y>);
-.Sp
+.IP "\fBCalcAbsCoor\fR(\fI\f(CI$x\fI\fR, $<y>);" 4
+.IX Item "CalcAbsCoor($x, $<y>);"
Set the absolute coordinates of the given node, if the absolute
coordinates of the parent node are (\fI\f(CI$x\fI\fR, \fI\f(CI$y\fI\fR), and recursively
do this for all descendants of this node, and right and left clumps.
-.Sp
-\&\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
-\&\fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Output the command to draw this node. The parameters are
distances between the nodes (in cm).
-.Sp
-\&\fBDrawConnections\fR();
-.Sp
+.IP "\fBDrawConnections\fR();" 4
+.IX Item "DrawConnections();"
Draw the connections from the given node to its descendants and
the spouses
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 33:" 4
-.IX Item "Around line 33:"
-You can't have =items (as at line 55) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.pm
index 39e20bf58f..9061fd949a 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/MarriageNode.pm
@@ -30,7 +30,6 @@ $node->DrawConnections();
This package contains data about a marriage.
-=over 4
=cut
@@ -52,6 +51,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.3
index 0c6dba5c79..e4a9d16877 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::Node 3"
-.TH Pedigree::Node 3 "2009-01-05" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::Node 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -137,35 +146,35 @@ use Pedigree::Node;
.PP
\&\f(CW$node\fR = new Pedigree::Node(\fI\f(CI%params\fI\fR);
.PP
-\&\f(CW$node\fR\->\fICheckAllParents()\fR;
+\&\f(CW$node\fR\->\fBCheckAllParents()\fR;
.PP
-\&\f(CW$Id\fR = \f(CW$node\fR\->\fIId()\fR;
+\&\f(CW$Id\fR = \f(CW$node\fR\->\fBId()\fR;
.PP
\&\f(CW$node\fR\->SetSortOrder(\-1|0|1);
.PP
-\&\f(CW$result\fR = \f(CW$node\fR\->\fISortOrder()\fR;
+\&\f(CW$result\fR = \f(CW$node\fR\->\fBSortOrder()\fR;
.PP
-\&\f(CW$is_numbered\fR=$node\->\fIisNumbered()\fR;
+\&\f(CW$is_numbered\fR=$node\->\fBisNumbered()\fR;
.PP
-\&\f(CW$type\fR = \f(CW$node\fR\->\fIType()\fR;
+\&\f(CW$type\fR = \f(CW$node\fR\->\fBType()\fR;
.PP
-\&\f(CW$Kids\fR = \f(CW$node\fR\->\fIKids()\fR;
+\&\f(CW$Kids\fR = \f(CW$node\fR\->\fBKids()\fR;
.PP
-\&\f(CW$node\fR\->\fIGetAndSortKids()\fR;
+\&\f(CW$node\fR\->\fBGetAndSortKids()\fR;
.PP
($root, \f(CW$newgen\fR) = \f(CW$node\fR\->FindRoot(\fI\f(CI$generation\fI\fR, [\fI\f(CI$sort_order\fI\fR]);
.PP
-\&\f(CW$x\fR = \f(CW$node\fR\->\fIGetRelX()\fR;
+\&\f(CW$x\fR = \f(CW$node\fR\->\fBGetRelX()\fR;
.PP
-\&\f(CW$y\fR = \f(CW$node\fR\->\fIGetRelY()\fR;
+\&\f(CW$y\fR = \f(CW$node\fR\->\fBGetRelY()\fR;
.PP
\&\f(CW$node\fR\->SetRelX(\fI\f(CI$x\fI\fR);
.PP
\&\f(CW$node\fR\->SetRelX(\fI\f(CI$y\fI\fR);
.PP
-\&\f(CW$x\fR = \f(CW$node\fR\->\fIGetAbsX()\fR;
+\&\f(CW$x\fR = \f(CW$node\fR\->\fBGetAbsX()\fR;
.PP
-\&\f(CW$y\fR = \f(CW$node\fR\->\fIGetAbsY()\fR;
+\&\f(CW$y\fR = \f(CW$node\fR\->\fBGetAbsY()\fR;
.PP
\&\f(CW$node\fR\->SetIndexX(\fI\f(CI$n\fI\fR);
.PP
@@ -173,15 +182,15 @@ use Pedigree::Node;
.PP
\&\f(CW$node\fR\->SetAbsY(\fI\f(CI$y\fI\fR);
.PP
-\&\f(CW$n\fR = \f(CW$node\fR\->\fIGetIndexX()\fR;
+\&\f(CW$n\fR = \f(CW$node\fR\->\fBGetIndexX()\fR;
.PP
-\&\f(CW$area\fR = \f(CW$node\fR\->\fISetArea()\fR;
+\&\f(CW$area\fR = \f(CW$node\fR\->\fBSetArea()\fR;
.PP
-\&\f(CW$delta\fR = \f(CW$node\fR\->\fICenterKids()\fR;
+\&\f(CW$delta\fR = \f(CW$node\fR\->\fBCenterKids()\fR;
.PP
\&\f(CW$node\fR\->CalcAbsCoord(\fI\f(CI$x\fI\fR, \fI\f(CI$y\fI\fR);
.PP
-\&\f(CW$node\fR\->\fIAddConsanguinicMarriages()\fR;
+\&\f(CW$node\fR\->\fBAddConsanguinicMarriages()\fR;
.PP
\&\f(CW$node\fR\->AddTwins($ydist);
.PP
@@ -190,7 +199,7 @@ use Pedigree::Node;
\&\f(CW$node\fR\->DrawAll(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
\fI\f(CI@fieldsfornode\fI\fR);
.PP
-\&\f(CW$node\fR\->\fIDrawConnections()\fR;
+\&\f(CW$node\fR\->\fBDrawConnections()\fR;
.PP
\&\f(CW$node\fR\->PrintAllLegends(\fI\f(CI$land\fI\fR, \fI\f(CI@fields\fI\fR);
.PP
@@ -198,182 +207,143 @@ use Pedigree::Node;
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This is the basic package that defines nodes for pedigrees.
-\&\fIPedigree::PersonNode\fR\|(3) and \fIPedigree::MarriageNode\fR\|(3) inherit from
+\&\fBPedigree::PersonNode\fR\|(3) and \fBPedigree::MarriageNode\fR\|(3) inherit from
this package.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI%params\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI%params\fI\fR);" 4
+.IX Item "new(%params);"
Construct a new node from the given parameters. If a node with
the give Id exists, add new information to the node.
-.Sp
-\&\fBCheckAllParents\fR();
-.Sp
+.IP "\fBCheckAllParents\fR();" 4
+.IX Item "CheckAllParents();"
Check whether mothers and fathers of all nodes exist
-.Sp
-\&\fBId\fR();
-.Sp
+.IP "\fBId\fR();" 4
+.IX Item "Id();"
Get Id of a node. Note that there is no way to set an Id of a node
that was already created.
-.Sp
-\&\fBSetSortOrder\fR(\fI\-1|0|1\fR);
-.Sp
+.IP "\fBSetSortOrder\fR(\fI\-1|0|1\fR);" 4
+.IX Item "SetSortOrder(-1|0|1);"
Normally the sibs nodes are sorted by age. However, if the nodes or
their descendants are connected by a marriage line, we must sort them
in the special way: all way to the left or all way to the right. The
procedure \fBSetSortOrder\fR sets this flag for the node or deletes it
depending on the argument.
-.Sp
-\&\fBSortOrder\fR();
-.Sp
+.IP "\fBSortOrder\fR();" 4
+.IX Item "SortOrder();"
Normally the sibs nodes are sorted by age. However, if the nodes or
their descendants are connected by a marriage line, we must sort them
in the special way: all way to the left or all way to the right. The
procedure \fBSortOrder\fR checks this flag.
-.Sp
-\&\fBisNumbered\fR();
-.Sp
+.IP "\fBisNumbered\fR();" 4
+.IX Item "isNumbered();"
Check whether the node should be numbered in pedigree
-.Sp
-\&\fBType\fR()
-.Sp
+.IP "\fBType\fR()" 4
+.IX Item "Type()"
Return node type.
-.Sp
-\&\fBKids\fR();
-.Sp
+.IP "\fBKids\fR();" 4
+.IX Item "Kids();"
Get the reference to the array of kids
-.Sp
-\&\fBGetAndSortKids\fR();
-.Sp
+.IP "\fBGetAndSortKids\fR();" 4
+.IX Item "GetAndSortKids();"
Apply sort the array of kids for the given node
-.Sp
-\&\fBFindRoot\fR(\fI\f(CI$generation\fI\fR, [\fI\f(CI$sort_order\fI\fR]);
-.Sp
+.IP "\fBFindRoot\fR(\fI\f(CI$generation\fI\fR, [\fI\f(CI$sort_order\fI\fR]);" 4
+.IX Item "FindRoot($generation, [$sort_order]);"
Finds the root of the tree to which the current node belongs.
Takes the current generation number and returns the root and its
generation number. Here generation numbers go \*(L"backwards\*(R": the older
generations have higher numbers. The found node is assigned sort order
\&\fI\f(CI$sort_order\fI\fR.
-.Sp
-\&\fBGetRelX\fR();
-.Sp
+.IP "\fBGetRelX\fR();" 4
+.IX Item "GetRelX();"
Find the relative x coordinate of the node. The coordinate is
relative to the precedessor or to the marriage node, which connects
this node to the proband
-.Sp
-\&\fBGetRelY\fR();
-.Sp
+.IP "\fBGetRelY\fR();" 4
+.IX Item "GetRelY();"
Find the relative Y coordinate of the node. The coordinate is
relative to the precedessor or to the marriage node, which connects
this node to the proband. Note that the Y axis is down.
-.Sp
-\&\fBSetRelX\fR(\fI\f(CI$x\fI\fR);
-.Sp
+.IP "\fBSetRelX\fR(\fI\f(CI$x\fI\fR);" 4
+.IX Item "SetRelX($x);"
Set the relative x coordinate of the node. The coordinate is
relative to the precedessor or to the marriage node, which connects
this node to the proband.
-.Sp
-\&\fBSetRelY\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBSetRelY\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "SetRelY($y);"
Set the relative y coordinate of the node. The coordinate is
relative to the precedessor or to the marriage node, which connects
this node to the proband. Note that the Y axis is down.
-.Sp
-\&\fBGetAbsX\fR();
-.Sp
+.IP "\fBGetAbsX\fR();" 4
+.IX Item "GetAbsX();"
Find the absolute x coordinate of the node.
-.Sp
-\&\fBGetAbsY\fR();
-.Sp
+.IP "\fBGetAbsY\fR();" 4
+.IX Item "GetAbsY();"
Find the absolute Y coordinate of the node.
-.Sp
-\&\fBGetIndexX\fR();
-.Sp
+.IP "\fBGetIndexX\fR();" 4
+.IX Item "GetIndexX();"
Find the number of the node in the given generation.
-.Sp
-\&\fBSetAbsX\fR(\fI\f(CI$x\fI\fR);
-.Sp
+.IP "\fBSetAbsX\fR(\fI\f(CI$x\fI\fR);" 4
+.IX Item "SetAbsX($x);"
Set the absolute x coordinate of the node.
-.Sp
-\&\fBSetAbsY\fR(\fI\f(CI$y\fI\fR);
-.Sp
+.IP "\fBSetAbsY\fR(\fI\f(CI$y\fI\fR);" 4
+.IX Item "SetAbsY($y);"
Set the absolute y coordinate of the node.
-.Sp
-\&\fBSetIndexX\fR(\fI\f(CI$n\fI\fR);
-.Sp
+.IP "\fBSetIndexX\fR(\fI\f(CI$n\fI\fR);" 4
+.IX Item "SetIndexX($n);"
Set the number of the node in the given generation.
-.Sp
-\&\fBSetArea\fR();
-.Sp
+.IP "\fBSetArea\fR();" 4
+.IX Item "SetArea();"
Calculate relative coordinates for all nodes, that are descendants of
-the given node. We create a \fIPedigree::Area\fR\|(3) around the given node
+the given node. We create a \fBPedigree::Area\fR\|(3) around the given node
and recursively apply the function to all descendants. The subroutine
returns the reference to the created area.
-.Sp
-\&\fBCenterKids\fR();
-.Sp
+.IP "\fBCenterKids\fR();" 4
+.IX Item "CenterKids();"
Move the relative coordinates of all the kids of the given node
so the given node is centered in relation to the kids. Returns
-the shift to be applied to the \fIPedigree::Area\fR\|(3).
-.Sp
-\&\fBCalcAbsCoor\fR(\fI\f(CI$x\fI\fR, $<y>);
-.Sp
+the shift to be applied to the \fBPedigree::Area\fR\|(3).
+.IP "\fBCalcAbsCoor\fR(\fI\f(CI$x\fI\fR, $<y>);" 4
+.IX Item "CalcAbsCoor($x, $<y>);"
Set the absolute coordinates of the given node, if the absolute
coordinates of the parent node are (\fI\f(CI$x\fI\fR, \fI\f(CI$y\fI\fR), and recursively
do this for all descendants of this node. Additionally set up
\&\fB\f(CB%node_by_gen\fB\fR.
-.Sp
-\&\fBAddConsanguinicMarriages\fR();
-.Sp
+.IP "\fBAddConsanguinicMarriages\fR();" 4
+.IX Item "AddConsanguinicMarriages();"
Check the pedigree and add consanguinic marriages to it. Note
that this procedure must be called \fBafter\fR SetAbsCoor, so
the coordinates of all nodes are set.
-.Sp
-\&\fBAddTwins\fR(\fI\f(CI$ydist\fI\fR);
-.Sp
+.IP "\fBAddTwins\fR(\fI\f(CI$ydist\fI\fR);" 4
+.IX Item "AddTwins($ydist);"
Check the pedigree and add twin nodes. Note
that this procedure must be called \fBafter\fR SetAbsCoor and
AddConsanguinicMarriages.
-.Sp
-\&\fBSetFrame\fR(\fI\f(CI$xidst\fI\fR, \fI\f(CI$ydist\fI\fR);
-.Sp
+.IP "\fBSetFrame\fR(\fI\f(CI$xidst\fI\fR, \fI\f(CI$ydist\fI\fR);" 4
+.IX Item "SetFrame($xidst, $ydist);"
Calculate the frame: coordinates of the lower left and upper right
corners of the picture (in ps units). As a side effect, add generation
numbers to each person node and calculate the X index of each node.
-.Sp
-\&\fBDrawConnections\fR();
-.Sp
+.IP "\fBDrawConnections\fR();" 4
+.IX Item "DrawConnections();"
Draw the connections from the given node to its descendants
-.Sp
-\&\fBDrawAll\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR,
- \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawAll\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawAll($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Draw all nodes and connections in the form suitable for
pspicture
-.Sp
-\&\fBPrintAllLegends\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);
-.Sp
+.IP "\fBPrintAllLegends\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);" 4
+.IX Item "PrintAllLegends($lang, @fields);"
Print legend for all the nodes. The first parameter is the
language, the other is the fields to be included in the legend.
-.Sp
-\&\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);
-.Sp
+.IP "\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);" 4
+.IX Item "PrintLegend($lang, @fields);"
This subroutine does nothing: a generic node has no legend. It
-is overriden by \fIPedigree::PersonNode\fR\|(3) and \fIPedigree::AbortionNode\fR\|(3).
-.RE
+is overriden by \fBPedigree::PersonNode\fR\|(3) and \fBPedigree::AbortionNode\fR\|(3).
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 80:" 4
-.IX Item "Around line 80:"
-You can't have =items (as at line 136) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.pm
index 445f92abaf..bf4b2a61cc 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Node.pm
@@ -77,8 +77,6 @@ This is the basic package that defines nodes for pedigrees.
Pedigree::PersonNode(3) and Pedigree::MarriageNode(3) inherit from
this package.
-=over 4
-
=cut
####################################################################
@@ -133,6 +131,9 @@ our @twin_sets;
=pod
+=over 4
+
+
=item B<new>(I<%params>);
Construct a new node from the given parameters. If a node with
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.3
index 65e9d7b716..3b2ba88438 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::Parser 3"
-.TH Pedigree::Parser 3 "2007-07-16" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::Parser 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -142,30 +151,20 @@ use Pedigree::Parser;
.IX Header "DESCRIPTION"
This package parses input for the pedigree library and is used to
define nodes.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI$inputline\fI\fR, \fI\f(CI$lang\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI$inputline\fI\fR, \fI\f(CI$lang\fI\fR);" 4
+.IX Item "new($inputline, $lang);"
Construct a new parser from the pipe-separated line at input
-.Sp
-\&\fBParse\fR(\fI\f(CI$inputline\fI\fR);
-.Sp
+.IP "\fBParse\fR(\fI\f(CI$inputline\fI\fR);" 4
+.IX Item "Parse($inputline);"
Take a line of comma-separated values; return a reference to a
hash of parsed values
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 21:" 4
-.IX Item "Around line 21:"
-You can't have =items (as at line 59) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.pm
index 7978064f47..53814777e1 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/Parser.pm
@@ -18,7 +18,6 @@ $parser->Parse($inputline);
This package parses input for the pedigree library and is used to
define nodes.
-=over 4
=cut
@@ -56,6 +55,8 @@ my %fields_to_convert = (
=pod
+=over 4
+
=item B<new>(I<$inputline>, I<$lang>);
Construct a new parser from the pipe-separated line at input
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.3
index 8876211f53..f3a9401300 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::PersonNode 3"
-.TH Pedigree::PersonNode 3 "2007-07-22" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::PersonNode 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -137,20 +146,20 @@ use Pedigree::PersonNode;
.PP
\&\f(CW$node\fR = new Pedigree::PersonNode(\fI\f(CI%params\fI\fR);
.PP
-\&\f(CW$Id\fR = \f(CW$node\fR\->\fIMotherId()\fR;
-\&\f(CW$Id\fR = \f(CW$node\fR\->\fIFatherId()\fR;
+\&\f(CW$Id\fR = \f(CW$node\fR\->\fBMotherId()\fR;
+\&\f(CW$Id\fR = \f(CW$node\fR\->\fBFatherId()\fR;
.PP
-\&\f(CW$isProband\fR = \f(CW$node\fR\->\fIisProband()\fR;
+\&\f(CW$isProband\fR = \f(CW$node\fR\->\fBisProband()\fR;
.PP
-\&\f(CW$sex\fR = \f(CW$node\fR\->\fISex()\fR;
+\&\f(CW$sex\fR = \f(CW$node\fR\->\fBSex()\fR;
.PP
-\&\f(CW$DoB\fR = \f(CW$node\fR\->\fIDoB()\fR;
+\&\f(CW$DoB\fR = \f(CW$node\fR\->\fBDoB()\fR;
.PP
-\&\f(CW$DoD\fR = \f(CW$node\fR\->\fIDoD()\fR;
+\&\f(CW$DoD\fR = \f(CW$node\fR\->\fBDoD()\fR;
.PP
-\&\f(CW$cond\fR = \f(CW$node\fR\->\fICondition()\fR;
+\&\f(CW$cond\fR = \f(CW$node\fR\->\fBCondition()\fR;
.PP
-\&\f(CW$GenName\fR = \f(CW$node\fR\->\fIGetGenName()\fR;
+\&\f(CW$GenName\fR = \f(CW$node\fR\->\fBGetGenName()\fR;
.PP
\&\f(CW$node\fR\->SetGenName(\fI\f(CI$name\fI\fR);
.PP
@@ -161,72 +170,51 @@ use Pedigree::PersonNode;
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This package contains data about a person.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI%params\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI%params\fI\fR);" 4
+.IX Item "new(%params);"
Construct a new node from the given parameters.
-.Sp
-\&\fBMotherId\fR();
-.Sp
+.IP "\fBMotherId\fR();" 4
+.IX Item "MotherId();"
Return Mother Id.
-.Sp
-\&\fBFatherId\fR();
-.Sp
+.IP "\fBFatherId\fR();" 4
+.IX Item "FatherId();"
Return Father Id.
-.Sp
-\&\fBisProband\fR();
-.Sp
+.IP "\fBisProband\fR();" 4
+.IX Item "isProband();"
Return 1 if the pesron is a Proband and zero otherwise
-.Sp
-\&\fBSex\fR();
-.Sp
+.IP "\fBSex\fR();" 4
+.IX Item "Sex();"
Get the sex of the node
-.Sp
-\&\fBDoB\fR();
-.Sp
+.IP "\fBDoB\fR();" 4
+.IX Item "DoB();"
Get the DoB of the node
-.Sp
-\&\fBDoD\fR();
-.Sp
+.IP "\fBDoD\fR();" 4
+.IX Item "DoD();"
Get the DoB of the node
-.Sp
-\&\fBCondition\fR();
-.Sp
+.IP "\fBCondition\fR();" 4
+.IX Item "Condition();"
Returns node conditon.
-.Sp
-\&\fBGetGenName\fR();
-.Sp
+.IP "\fBGetGenName\fR();" 4
+.IX Item "GetGenName();"
Find the generation name for the node
-.Sp
-\&\fBSetGenName\fR(\fI\f(CI$name\fI\fR);
-.Sp
+.IP "\fBSetGenName\fR(\fI\f(CI$name\fI\fR);" 4
+.IX Item "SetGenName($name);"
Set the generation name of the node
-.Sp
-\&\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
-\&\fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Output the command to draw this node. The parameters are
distances between the nodes (in cm) and fields for abovetext.
-.Sp
-\&\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);
-.Sp
+.IP "\fBPrintLegend\fR(\fI\f(CI$lang\fI\fR, \fI\f(CI@fields\fI\fR);" 4
+.IX Item "PrintLegend($lang, @fields);"
Print the legend for the given node, including \fI\f(CI@fields\fI\fR in the given
language \fI\f(CI$lang\fI\fR.
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2006, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 39:" 4
-.IX Item "Around line 39:"
-You can't have =items (as at line 58) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.pm
index 6d341cb715..bd98dda06b 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/PersonNode.pm
@@ -36,8 +36,6 @@ $node->PrintLegend(I<$land>, I<@fields>);
This package contains data about a person.
-=over 4
-
=cut
####################################################################
@@ -55,6 +53,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.3 b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.3
index 731818a28f..21e8b9ad07 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.3
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.3
@@ -1,4 +1,4 @@
-.\" Automatically generated by Pod::Man 2.1801 (Pod::Simple 3.05)
+.\" Automatically generated by Pod::Man 4.14 (Pod::Simple 3.40)
.\"
.\" Standard preamble:
.\" ========================================================================
@@ -38,27 +38,36 @@
. ds PI \(*p
. ds L" ``
. ds R" ''
+. ds C`
+. ds C'
'br\}
.\"
.\" Escape single quotes in literal strings from groff's Unicode transform.
.ie \n(.g .ds Aq \(aq
.el .ds Aq '
.\"
-.\" If the F register is turned on, we'll generate index entries on stderr for
+.\" If the F register is >0, we'll generate index entries on stderr for
.\" titles (.TH), headers (.SH), subsections (.SS), items (.Ip), and index
.\" entries marked with X<> in POD. Of course, you'll have to process the
.\" output yourself in some meaningful fashion.
-.ie \nF \{\
-. de IX
-. tm Index:\\$1\t\\n%\t"\\$2"
+.\"
+.\" Avoid warning from groff about undefined register 'F'.
+.de IX
..
-. nr % 0
-. rr F
-.\}
-.el \{\
-. de IX
+.nr rF 0
+.if \n(.g .if rF .nr rF 1
+.if (\n(rF:(\n(.g==0)) \{\
+. if \nF \{\
+. de IX
+. tm Index:\\$1\t\\n%\t"\\$2"
..
+. if !\nF==2 \{\
+. nr % 0
+. nr F 2
+. \}
+. \}
.\}
+.rr rF
.\"
.\" Accent mark definitions (@(#)ms.acc 1.5 88/02/08 SMI; from UCB 4.2).
.\" Fear. Run. Save yourself. No user-serviceable parts.
@@ -124,7 +133,7 @@
.\" ========================================================================
.\"
.IX Title "Pedigree::TwinsNode 3"
-.TH Pedigree::TwinsNode 3 "2007-07-15" "perl v5.10.0" "User Contributed Perl Documentation"
+.TH Pedigree::TwinsNode 3 "2021-10-02" "perl v5.18.4" "User Contributed Perl Documentation"
.\" For nroff, turn off justification. Always turn off hyphenation; it makes
.\" way too many mistakes in technical documents.
.if n .ad l
@@ -140,41 +149,29 @@ use Pedigree::TwinsNode;
\&\f(CW$node\fR\->DrawNode(\fI\f(CI$xidst\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
\&\fI\f(CI@fieldsfornode\fI\fR);
.PP
-\&\f(CW$node\fR\->\fIDrawConnections()\fR;
+\&\f(CW$node\fR\->\fBDrawConnections()\fR;
.SH "DESCRIPTION"
.IX Header "DESCRIPTION"
This package contains data about a twins node. Twins node is
a special node between the parent and the twins.
-.Sp
-.RS 4
-\&\fBnew\fR(\fI\f(CI%params\fI\fR);
-.Sp
+.IP "\fBnew\fR(\fI\f(CI%params\fI\fR);" 4
+.IX Item "new(%params);"
Construct a new node from the given parameters.
-.Sp
-\&\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR,
-\&\fI\f(CI@fieldsfornode\fI\fR);
-.Sp
+.IP "\fBDrawNode\fR(\fI\f(CI$xdist\fI\fR, \fI\f(CI$ydist\fI\fR, \fI\f(CI$belowtextfont\fI\fR, \fI\f(CI$abovetextfont\fI\fR, \fI\f(CI@fieldsfornode\fI\fR);" 4
+.IX Item "DrawNode($xdist, $ydist, $belowtextfont, $abovetextfont, @fieldsfornode);"
Output the command to draw this node. The parameters are
distances between the nodes (in psunits).
-.Sp
-\&\fBDrawConnections\fR();
-.Sp
+.IP "\fBDrawConnections\fR();" 4
+.IX Item "DrawConnections();"
Draw the connections from the given node to its descendants and
the parent
-.RE
.SH "ENVIRONMENT"
.IX Header "ENVIRONMENT"
The calling program should define \fB\f(CB$main::DEBUG\fB\fR and set it to 0
or 1.
.SH "SEE ALSO"
.IX Header "SEE ALSO"
-\&\fIpedigree\fR\|(1), \fIPedigree\fR\|(3)
+\&\fBpedigree\fR\|(1), \fBPedigree\fR\|(3)
.SH "AUTHOR"
.IX Header "AUTHOR"
Boris Veytsman, Leila Akhmadeeva, 2007
-.SH "POD ERRORS"
-.IX Header "POD ERRORS"
-Hey! \fBThe above document had some coding errors, which are explained below:\fR
-.IP "Around line 25:" 4
-.IX Item "Around line 25:"
-You can't have =items (as at line 47) unless the first thing after the =over is an =item
diff --git a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.pm b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.pm
index c8557230bd..85f8454b76 100644
--- a/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.pm
+++ b/graphics/pstricks/contrib/pedigree/pedigree-perl/Pedigree/TwinsNode.pm
@@ -22,7 +22,6 @@ $node->DrawConnections();
This package contains data about a twins node. Twins node is
a special node between the parent and the twins.
-=over 4
=cut
@@ -44,6 +43,8 @@ our @ISA=('Pedigree::Node');
=pod
+=over 4
+
=item B<new>(I<%params>);
Construct a new node from the given parameters.