%define;descendants(curlev, maxlev, f_cnt)

%if(f_cnt>0)x%f_cnt; %end; %if;(family_cnt > 1)X%family_cnt; %end; %if;(not cancel_links) %first_name; %else;%first_name; %end; %dates; &%marriage_date.year;
%if;(not cancel_links) %spouse; %else;%spouse; %end; %spouse.dates;
%if(f_cnt>0)x%f_cnt; %end; %if;(not cancel_links) %first_name; %else;%first_name; %end; %dates;

%end; %define;tothegen(xx) [*to the %s generation:::xx] %end; %define;one_ancestor(xx, coln, bull) %xx.dates; %if;(not cancel_links) %xx; %else;%xx; %end; bull %end %define;one_heading(xx, coln, bull) %apply;capitalize([xx]) bull %end; %define;short_display_person_v(xx) %apply;display_sosa("xx") %if;(xx.index=central_index)%xx;%else; %if;(cancel_links or xx.is_restricted)%xx; %else;%xx;%end; %end; %xx.title;%xx.dates; %end; %if;(has_parents or has_children) %let;gpcol;40%%%in; %let;sbcol;20%%%in; %let;chcol;40%%%in;

[*preview family tree]

%( Titres %)

%( Titres %) %apply;one_heading("the parents", 10, "●")%apply;one_heading("the grandparents", 6, "◇")%apply;one_heading("the great-grandparents", 2, "■")

%if;has_families; %foreach;family; %end %end;

%self;

%if;(nb_families>1)%family_cnt; %end; & %marriage_date.year;
%if;(nb_families!=1) %family_cnt; %end; %apply;short_display_person("spouse")

[*siblings]

[*the children]

[*the grandchildren]

[*the great-grandchildren]

%( Titres %) %( Listes %)

%if;has_parents; %if;father.has_parents; %if;father.father.has_parents; %apply;one_ancestor("father.father.father", 2, "■") %apply;one_ancestor("father.father.mother", 2, "■") %end; %apply;one_ancestor("father.father", 6, "◇") %if;father.mother.has_parents; %apply;one_ancestor("father.mother.father", 2, "■") %apply;one_ancestor("father.mother.mother", 2, "■") %end; %apply;one_ancestor("father.mother", 6, "◇") %end; %apply;one_ancestor("father", 10, "●") %apply;one_ancestor("mother", 10, "●") %if;mother.has_parents; %apply;one_ancestor("mother.father", 6, "◇") %if;mother.father.has_parents; %apply;one_ancestor("mother.father.father", 2, "■") %apply;one_ancestor("mother.father.mother", 2, "■") %end; %apply;one_ancestor("mother.mother", 6, "◇") %if;mother.mother.has_parents; %apply;one_ancestor("mother.mother.father", 2, "■") %apply;one_ancestor("mother.mother.mother", 2, "■") %end; %end;

%end;

%if;has_siblings; %foreach;father.child; %if;is_self; %else; %end; %end; %end;

	\|
	%child.child_name; %child.dates;			%if;(not cancel_links) %child.child_name; %else;%child.child_name; %end; %child.dates;

%let;maxlev;2%in; %if;has_families; %foreach;family; %if;(nb_families=1) %foreach;child; %apply;descendants(0, maxlev, 0) %end; %else; %foreach;child; %apply;descendants(0, maxlev, family_cnt) %end; %end; %end; %end;

%( Listes %) %end;