File: 6gen1.ll

package info (click to toggle)
lifelines 3.0.50-2
  • links: PTS
  • area: main
  • in suites: etch-m68k
  • size: 11,140 kB
  • ctags: 6,517
  • sloc: ansic: 57,468; xml: 8,014; sh: 4,255; makefile: 848; yacc: 601; perl: 170; sed: 16
file content (142 lines) | stat: -rw-r--r-- 5,081 bytes parent folder | download | duplicates (5)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
/*
 * @progname       6gen1.ll
 * @version        1.0
 * @author         Wetmore, Manis
 * @category       
 * @output         Text, 80 cols
 * @description    
 *
 *   select and produce a 6 generation ancestor report for 
 *   the person selected.
 *   Output is an ASCII file, and will probably need to be printed
 *   using 10 or 12 pitch.
 *
 *   6gen1
 *
 *   Code by Tom Wetmore, ttw@cbnewsl.att.com
 *   With modifications by:  Cliff Manis
 *
 *   This report works only with the LifeLines Genealogy program
 *
 *   version one of this report was written by Tom Wetmore, in 1990,
 *
 *   select and produce a 6 generation ancestor report for 
 *   the person selected.
 *
 *   Output is an ASCII file, and will probably need to be printed
 *   using 10 or 12 pitch.
 *
 *   An example of the output may be seen at end of this report.
 */

proc main ()
{
        getindi(indi)
        set (nl,nl())
        pagemode(70,80)
        call pedout(indi,1,6,1,64)
        pageout()
	print(nl())
}

proc pedout (indi, gen, max, top, bot)
{
        if (le(gen,max)) {
                set(gen,add(1,gen))
                set(fath,father(indi))
                set(moth,mother(indi))
                set(height,add(1,sub(bot,top)))
                set(offset,div(sub(height,1),2))
                call block(indi,add(top,offset),mul(8,sub(gen,2)))
                set(half,div(height,2))
                call pedout(fath,gen,max,top,sub(add(top,half),1))
                call pedout(moth,gen,max,add(top,half),bot)
        }
}

proc block (indi, row, col)
{
	print(".")
        set(row,add(3,row))
        set(col,add(3,col))
        pos(row,col)
        if (indi) { name(indi) }
        else      { "_______________" }
}

/*  Sample output of the 6gen1 report for: a c /manis 
 
 
                                          John MANESS
                                  Samuel P. MANES
                                          _______________
                          William Thomas MANES
                                          _______________
                                  Fanny (MANES)
                                          _______________
                  William Bowers MANES
                                          James BOWERS
                                  Anderson BOWERS
                                          Martha
                          Martha A. BOWERS
                                          Christopher Columbus COWAN
                                  Lurina Viney "Vina" COWAN
                                          Mary BOYD
          Fuller Ruben MANES
                                          _______________
                                  Henry B. CANTER
                                          _______________
                          James H. CANTER
                                          _______________
                                  Polina (CANTER)
                                          _______________
                  Cordelia "Corda" F. CANTER
                                          _______________
                                  James WHITEHORN
                                          _______________
                          Martha Marie WHITEHORN
                                          Kennedy "Kan" Powell FOSTER
                                  Martha "Patsy" FOSTER
                                          Rebecca KERSAWN
  Alda Clifford MANIS
                                          _______________
                                  Amos MANIS
                                          _______________
                          Thomas D.A.F.S. MANIS
                                          David FRANCIS
                                  Mary Elizabeth FRANCIS
                                          Mary CROCKETT
                  William Loyd MANIS
                                          Jacob BIRD
                                  John BIRD
                                          Mrs. (BIRD)
                          Frances Amanda BIRD
                                          G. Christopher SHRADER
                                  Elizabeth SHRADER
                                          Mary WEBB
          Edith Alberta MANIS
                                          John NEWMAN
                                  Aaron NEWMAN
                                          Nancy FRANKLIN
                          John Franklin NEWMAN
                                          Thomas B. RANKIN
                                  Sinea RANKIN
                                          Jennet BRADSHAW
                  Lillie Caroline "Carolyn" NEWMAN
                                          James CORBETT
                                  John Williams CORBETT
                                          Polly GRESHAMS
                          Mary Jean CORBETT
                                          _______________
                                  Betsy EUDAILY
                                          _______________

*/

/* End of Report */