diff options
author | Karl Berry <karl@freefriends.org> | 2012-04-13 23:09:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2012-04-13 23:09:10 +0000 |
commit | 2d9b64e84ae06eba8f2f5d0e958f4f2f335de076 (patch) | |
tree | e49120eb2857c9aa1a11ca26cda4d3ba5db6b8b6 /Master/texmf-dist/doc/support/pedigree-perl/examples | |
parent | 1c08c44c738be3e43fc4411812e7484d2471de7e (diff) |
new pstricks+script pedigree-perl (16mar12)
git-svn-id: svn://tug.org/texlive/trunk@25962 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/doc/support/pedigree-perl/examples')
15 files changed, 456 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/abortions.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/abortions.csv new file mode 100644 index 00000000000..0397efb1aa0 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/abortions.csv @@ -0,0 +1,5 @@ +Id |Name |Sex |DoB |DoD |Mother|Proband|Condition|Type +A0 |Ann |female|1970.06.15| | | |affected | +B1 |#abortion|female|1990.03.01| |A0 | |affected | +B2 |#abortion|male |2000.10.10| |A0 | | |sab +B3 |John |male |2002.12.01| |A0 |yes |affected | diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/badsort.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/badsort.csv new file mode 100644 index 00000000000..26816361950 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/badsort.csv @@ -0,0 +1,14 @@ +Id |Name |Sex |DoB |Father|Mother|Proband +A0 |John |male |1915.06.15| | | +B1 |Sam |male |1935.12.04|A0 | | +B2 |Ann |female|1937.03.02|A0 | | +C1 |Paul |male |1952.10.03|B1 | | +F1 |Scott |male |1912.02.01| | | +G1 |Simon |male |1934.09.17|F1 | | +G2 |Sarah |female|1936.12.19|F1 | | +H1 |Lola |female|1960.04.13|G2 | | +K1 |Jim |male |1962.11.05|G1 |B2 | +M1 |Jane |female|1917.02.13| | | +P1 |Simon |male |1935.10.04| | M1 | +R1 |Pam |female|1964.02.05|P1 | | +X1 |James |male |1988.07.12|K1 |R1 |yes
\ No newline at end of file diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/childlessness.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/childlessness.csv new file mode 100644 index 00000000000..38b524cb457 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/childlessness.csv @@ -0,0 +1,6 @@ +Id |Name |Sex |Mother|Father|Proband|Type |Comment +A0 |John |male | | | | | +B1 |James |male | |A0 | | | +B1c|#childless |male | |B1 | |infertile |anospermia +B2 |Ann |female| |A0 |yes | | +B2c|#childless | |B2 | | | |
\ No newline at end of file diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/consanguinic.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/consanguinic.csv new file mode 100644 index 00000000000..0aba287f1a4 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/consanguinic.csv @@ -0,0 +1,11 @@ +Id |Name |Sex |Father|Mother|Proband|DoB +A0 |Jane |female| | | |1908.12.12 +B1 |John |male | |A0 | |1936.12.15 +B2 |Ann |female| |A0 | |1934.04.17 +B3 |Samantha |female| |A0 | |1932.12.03 +B4 |Nancy |female| |A0 | |1928.01.05 +C1 |Mary |female| |B2 | yes |1955.08.26 +C2 |Paul |male | |B3 | |1964.05.07 +C3 |Jane |female| |B4 | |1950.11.03 +D1 |Jack |male |B1 |C1 | |1975.07.01 +D2 |Laura |female|C2 |C3 | |1974.09.05 diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/english.cfg b/Master/texmf-dist/doc/support/pedigree-perl/examples/english.cfg new file mode 100644 index 00000000000..a8028789a77 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/english.cfg @@ -0,0 +1,76 @@ +# An example configuration file for pedigree program +# This file is used for the examples in the program manual. + +# Do we want to have a full LaTeX file or just a fragment? +# +$fulldoc=0; + +# What kind of document do we want +# +# $documentheader='\documentclass[landscape]{article}'; + +# Define additional packages here +# +# $addtopreamble=<<END; +# \\usepackage{pst-pdgr} +# END + +# Do we want to print a legend? +# +$printlegend=1; + +# Fields to include in the legend. Delete Name for privacy +# protection. +# +@fieldsforlegend = qw(Name DoB AgeAtDeath Comment); + +# +# Fields to put at the node. Delete Name for privacy +# protection. +# +@fieldsforchart = qw(Name); + +# Language +# +# $language="russian"; +$language="english"; + +# Override the encoding +# +# $encoding="koi8-r"; + +# +# Fonts for the chart +# +$belowtextfont='\small'; +$abovetextfont='\scriptsize'; + +# +# descarmA +# +$descarmA = 0.8; + +# +# Distances between nodes (in cm) +# +$xdist=2; +$ydist=2; + +# +# Maximal width and height of the pedigree in cm. +# Set this to 0 to switch off scaling +# +$maxW = 15; +$maxH = 19; + +# +# Whether to rotate the page. The values are 'yes', 'no' and 'maybe' +# If 'maybe' is chosen, the pedigree is rotated if it allows better +# scaling +# +$rotate = 'maybe'; + + +# Must be the last line +# +1; diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/english.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/english.csv new file mode 100644 index 00000000000..01a59888bd1 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/english.csv @@ -0,0 +1,12 @@ +Id |Name |Sex |DoB | DoD |Mother|Father|Proband|Condition |Comment +P |John Smith |male |1970/02/05| |M1 |F1 | yes | affected|Evaluated 2005/12/01 +M1 |Mary Smith |female|1940/02/05| |GM2 |GF2 | | normal | +F1 |Bill Smith |male |1938/04/03| |GM1 | GF1 | |affected | +GM1|Joan Smith |female|1902/07/01|1975/12/13| | | |asymptomatic +GF1|Joseph Smith |male |unknown |unknown | | | | normal +GF2|Jim Brown |male |1905/11/01| | | | | normal | +GM2|Lisa Brown |female|1910/03/03| | | | | normal | +S1 |Rebecca Smith |female|1972/12/25| |M1 |F1 | | affected +S2 |Alexander Smith |male |1975/11/12| |M1 |F1 | | normal +A1 |Ann Gold |female|1941/09/02| |GM1 | GF1 | | obligatory|Aunt of the proband +C1 | Jenny Smith |female|1969/12/03| |A1 | | | affected | Cousin of the proband diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/english1.cfg b/Master/texmf-dist/doc/support/pedigree-perl/examples/english1.cfg new file mode 100644 index 00000000000..5ce3a8d3037 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/english1.cfg @@ -0,0 +1,76 @@ +# An example configuration file for pedigree program +# This file is used for the examples in the program manual. + +# Do we want to have a full LaTeX file or just a fragment? +# +$fulldoc=0; + +# What kind of document do we want +# +# $documentheader='\documentclass[landscape]{article}'; + +# Define additional packages here +# +# $addtopreamble=<<END; +# \\usepackage{pst-pdgr} +# END + +# Do we want to print a legend? +# +$printlegend=0; + +# Fields to include in the legend. Delete Name for privacy +# protection. +# +@fieldsforlegend = qw(Name DoB AgeAtDeath Comment); + +# +# Fields to put at the node. Delete Name for privacy +# protection. +# +@fieldsforchart = qw(); + +# Language +# +# $language="russian"; +$language="english"; + +# Override the encoding +# +# $encoding="koi8-r"; + +# +# Fonts for nodes +# +$belowtextfont='\small'; +$abovetextfont='\scriptsize'; + +# +# descarmA +# +$descarmA = 0.9; + +# +# Distances between nodes (in cm) +# +$xdist=1.5; +$ydist=1.8; + +# +# Maximal width and height of the pedigree in cm. +# Set this to 0 to switch off scaling +# +$maxW = 15; +$maxH = 19; + +# +# Whether to rotate the page. The values are 'yes', 'no' and 'maybe' +# If 'maybe' is chosen, the pedigree is rotated if it allows better +# scaling +# +$rotate = 'maybe'; + + +# Must be the last line +# +1; diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/english_short.cfg b/Master/texmf-dist/doc/support/pedigree-perl/examples/english_short.cfg new file mode 100644 index 00000000000..8ee82a474c7 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/english_short.cfg @@ -0,0 +1,76 @@ +# An example configuration file for pedigree program +# This file is used for the examples in the program manual. + +# Do we want to have a full LaTeX file or just a fragment? +# +$fulldoc=0; + +# What kind of document do we want +# +# $documentheader='\documentclass[landscape]{article}'; + +# Define additional packages here +# +# $addtopreamble=<<END; +# \\usepackage{pst-pdgr} +# END + +# Do we want to print a legend? +# +$printlegend=0; + +# Fields to include in the legend. Delete Name for privacy +# protection. +# +@fieldsforlegend = qw(Name DoB AgeAtDeath Comment); + +# +# Fields to put at the node. Delete Name for privacy +# protection. +# +@fieldsforchart = qw(Name); + +# Language +# +# $language="russian"; +$language="english"; + +# Override the encoding +# +# $encoding="koi8-r"; + +# +# Fonts for the chart +# +$belowtextfont='\small'; +$abovetextfont='\scriptsize'; + +# +# descarmA +# +$descarmA = 0.8; + +# +# Distances between nodes (in cm) +# +$xdist=2; +$ydist=2; + +# +# Maximal width and height of the pedigree in cm. +# Set this to 0 to switch off scaling +# +$maxW = 15; +$maxH = 19; + +# +# Whether to rotate the page. The values are 'yes', 'no' and 'maybe' +# If 'maybe' is chosen, the pedigree is rotated if it allows better +# scaling +# +$rotate = 'maybe'; + + +# Must be the last line +# +1; diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/pedigree.cfg b/Master/texmf-dist/doc/support/pedigree-perl/examples/pedigree.cfg new file mode 100644 index 00000000000..a82689e0e39 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/pedigree.cfg @@ -0,0 +1,47 @@ +# An example configuration file for pedigree program +# + +# Do we want to have a full LaTeX file or just a fragment? +# +$fulldoc=1; + +# What kind of document do we want +# +# $documentheader='\documentclass[landscape]{article}'; +$documentheader='\documentclass{article}'; + +# Define additional packages here +# +# $addtopreamble=<<END; +# \\usepackage{graphics} +# END +$addtopreamble=<<END; +\\psset{armB=1} +END + +# Do we want to print a legend? +# +$printlegend=1; + +# Fields to include in the legend. Delete Name for privacy +# protection. +# +@fieldstoprint = qw(Name DoB AgeAtDeath Comment); + +# Language +# +# $language="russian"; +$language="english"; + +# Override the encoding, if neccessary +# +# $encoding="koi8-r"; + +# Distances between nodes (in cm) +# +$xdist=2; +$ydist=2; + +# Must be the last line +# +1;
\ No newline at end of file diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.cfg b/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.cfg new file mode 100644 index 00000000000..13f16b5974d --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.cfg @@ -0,0 +1,78 @@ +# An example configuration file for pedigree program +# This file is used for the examples in the program manual. + +# Do we want to have a full LaTeX file or just a fragment? +# +$fulldoc=0; + +# What kind of document do we want +# +# $documentheader='\documentclass[landscape]{article}'; + +# Define additional packages here +# +# $addtopreamble=<<END; +# \\usepackage{pst-pdgr} +# END + +# Do we want to print a legend? +# +$printlegend=1; + +# Fields to include in the legend. Delete Name for privacy +# protection. +# +@fieldsforlegend = qw(Name DoB AgeAtDeath Comment); + +# +# Fields to put at the node. Delete Name for privacy +# protection. +# +@fieldsforchart = qw(Name); + +# Language +# +# $language="english"; + $language="russian"; + + +# Override the encoding +# +$encoding="koi8-r"; + +# +# Fonts for nodes +# +$belowtextfont='\small'; +$abovetextfont='\scriptsize'; + +# +# descarmA +# +$descarmA = 0.8; + +# +# Distances between nodes (in cm) +# +$xdist=3.3; +$ydist=3.3; + +# +# Maximal width and height of the pedigree in cm. +# Set this to 0 to switch off scaling +# +$maxW = 15; +$maxH = 19; + +# +# Whether to rotate the page. The values are 'yes', 'no' and 'maybe' +# If 'maybe' is chosen, the pedigree is rotated if it allows better +# scaling +# +$rotate = 'maybe'; + + + +# Must be the last line +# +1; diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.csv new file mode 100644 index 00000000000..d702582b964 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/russian.csv @@ -0,0 +1,7 @@ +Идент|ФИО |Пол|Рожд |Умер |Мать|Отец|Пробанд|Состояние | Комментарий +P |Иванов Сергей Петрович |муж|1965/08/06| |M1 |F1 |да |больн | +M1 |Иванова Любовь Ивановна|жен|1935/12/01|2005/10/01| | | |норм +F1 |Иванов Петр Ильич |муж|неизв |2003/01/25| | | |облигат +S1 |Иванова Анна Петровна |жен|1968/05/05| |M1 |F1 | |норм +K1 |Иванов Иван Сергеевич |муж|1990/12/01| | |P | |асимп |Генетич. иссл. 2005/12/08 +K2 |Иванова Дарья Сергеевна|жен|1995/03/24| | |P | |норм |Генетич. иссл. 2005/12/08 diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/sort1.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort1.csv new file mode 100644 index 00000000000..315721ebe8a --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort1.csv @@ -0,0 +1,12 @@ +Id |Name |Sex |DoB |Father|Mother|Proband +A0 |John |male |1915.06.15| | | +B1 |Joan |female|1940.03.02|A0 | | +B2 |Jane |female|1942.07.07|A0 | | +B3 |Bill |male |1944.12.01|A0 | | +B4 |Peter |male |1941.05.01| | | +C1 |Jack |male |1963.12.01|B4 |B2 | +C2 |Sam |male |1961.08.26| |B1 | +C3 |Ann |female|1965.11.12| |B3 | +C4 |Lucy |female|1965.12.11| | | +D1 |Mark |male |1989.06.21|C1 |C4 |yes +D2 |Dina |female|1991.12.02|C1 |C4 | diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/sort2.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort2.csv new file mode 100644 index 00000000000..f38830ee3eb --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort2.csv @@ -0,0 +1,12 @@ +Id |Name |Sex |DoB |Father|Mother|Proband|SortOrder +A0 |John |male |1915.06.15| | | | +B1 |Joan |female|1940.03.02|A0 | | | +B2 |Jane |female|1942.07.07|A0 | | | +B3 |Bill |male |1944.12.01|A0 | | | +B4 |Peter |male |1941.05.01| | | | 3 +C1 |Jack |male |1963.12.01|B4 |B2 | | +C2 |Sam |male |1961.08.26| |B1 | | +C3 |Ann |female|1965.11.12| |B3 | | +C4 |Lucy |female|1965.12.11| | | | +D1 |Mark |male |1989.06.21|C1 |C4 |yes | +D2 |Dina |female|1991.12.02|C1 |C4 | | diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/sort3.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort3.csv new file mode 100644 index 00000000000..44b60b2dc06 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/sort3.csv @@ -0,0 +1,12 @@ +Id |Name |Sex |DoB |Father|Mother|Proband|SortOrder +A0 |John |male |1915.06.15| | | | +B1 |Joan |female|1940.03.02|A0 | | | +B2 |Jane |female|1942.07.07|A0 | | | +B3 |Bill |male |1944.12.01|A0 | | | +B4 |Peter |male |1941.05.01| | | | +C1 |Jack |male |1963.12.01|B4 |B2 | | +C2 |Sam |male |1961.08.26| |B1 | | +C3 |Ann |female|1965.11.12| |B3 | | +C4 |Lucy |female|1965.12.11| | | | -3 +D1 |Mark |male |1989.06.21|C1 |C4 |yes | +D2 |Dina |female|1991.12.02|C1 |C4 | | diff --git a/Master/texmf-dist/doc/support/pedigree-perl/examples/twins.csv b/Master/texmf-dist/doc/support/pedigree-perl/examples/twins.csv new file mode 100644 index 00000000000..a07333accc1 --- /dev/null +++ b/Master/texmf-dist/doc/support/pedigree-perl/examples/twins.csv @@ -0,0 +1,12 @@ +Id |Name |Sex |DoB |DoD |Mother|Father|Proband|Twins|Type +F0 |Adam |male |unknown |unknown | | | | | +A0 |Sam |male |1950.01.03|unknown | |F0 | | A1 |qzygotic +A1 |John |male |1950.01.03|2005.04.12| |F0 | | A0 |qzygotic +A2 |Jane |female|1951.14.15| | | | | | +B1 |Jack |male |1975.05.06| |A2 |A1 | |B2 |monozygotic +B2 |Mike |male |1975.05.06| |A2 |A1 | |B1 |monozygotic +B3 |Pam |female|1973.11.01| |A2 |A1 | | | +C1 |Jane |female|1998.12.04| | |B1 | |C2,C3| +C2 |John |male |1998.12.04| | |B1 | |C1,C3| +C3 |George|male |1998.12.04| | |B1 | yes |C1,C2| +C4 |Ann |female|2003.02.04| | |B1 | | |
\ No newline at end of file |