%nn; %if;(evar.t = "A" or evar.t1 = "A")[*male line/female line]0%nn; %elseif;(evar.t = "C" or evar.t1 = "C")[*male line/female line]1%nn; %elseif;(evar.t1 = "ht" or evar.t1 = "h")[*htree] %elseif;(evar.t1 = "it" or evar.t1 = "i") [*itree] %elseif;(evar.m = "A") [*ascendants tree] %elseif;(evar.m = "D") [*descendants tree] %elseif;(evar.t1 = "m")mix 9 g %end; %if;(evar.t != "")[:]%sp; %if;(public_name != "")%public_name;%else;%first_name;%end; %if;(qualifier != "") %qualifier;%end; %surname; %end;

%if;(evar.t = "T" and (evar.t1 = "T" or evar.t1 = "CT"))%doctype_transitional;%else;%doctype;%end; %let;l_v0;%if;(evar.maxv!="" and evar.v > evar.maxv)%evar.maxv;%else;%evar.v;%end;%in; %let;l_v;%if;(bvar.max_anc_tree = "" or evar.t != "T")%l_v0;%elseif;(bvar.max_anc_tree > l_v0)%l_v0;%else;%bvar.max_anc_tree;%end;%in; %nn; %if;(evar.t = "A" or evar.t1 = "A")[*male line/female line]0%nn; %elseif;(evar.t = "C" or evar.t1 = "C")[*male line/female line]1%nn; %elseif;(evar.t1 = "ht" or evar.t1 = "h")[*htree] %elseif;(evar.t1 = "it" or evar.t1 = "i") [*itree] %elseif;(evar.m = "A") [*ascendants tree] %elseif;(evar.m = "D") [*descendants tree] %elseif;(evar.t1 = "m")mix 9 g %end; %if;(evar.t != "")[:]%sp; %if;(public_name != "")%public_name;%else;%first_name;%end; %if;(qualifier != "") %qualifier;%end; %surname; %end; %include;css %include;hed %define;symbol(xx) │ %end; %define;a_tree_line() %if;(not is_first) %foreach;cell; %if;(not is_first) %end; %nn; %if;(cell.is_empty or cell.is_top) %else;│%end; %end; %end; %foreach;cell; %if;(not is_first) %end; %nn; %if;(cell.is_empty) %nn; %else; %if;(evar.bd != "" and evar.bd > 0 or evar.color != "")%nl;

%nn; %end; %if;(evar.cgl = "on")%cell.person; %else; %cell.person;%nn; %end; %cell.person.title;%cell.person.dates; %if;(evar.image!="off" and cell.person.has_image) %if;(evar.cgl != "on")

%else;

%end; %end; %if;(evar.bd != "" and evar.bd > 0 or evar.color != "")

%end; %end; %end; %if;(not is_last) %foreach;cell; %if;(not is_first) %nn; %if;cell.is_right; %if;(evar.marriage = "on" and cell.family.marriage_date.year != "") %nn; &%nn; %if;(cell.family.marriage_date.prec = "<") /%cell.family.marriage_date.year;%nn; %elseif;(cell.family.marriage_date.prec = ">") %cell.family.marriage_date.year;/%nn; %elseif;(cell.family.marriage_date.prec = "|" or cell.family.marriage_date.prec = "..") %cell.family.marriage_date.year;%nn; %else; %cell.family.marriage_date.prec;%cell.family.marriage_date.year;%nn; %end; %else; %end; %else; %end; %end; %nn; %if;cell.is_empty; %nn; %elseif;(evar.cgl = "on")%apply;symbol("cell.person")%nn; %else; %apply;symbol("cell.person")%nn; %end; %end; %foreach;cell; %if;(not is_first) %nn; %if;(cell.is_right)

%nn; %end; %end; %nn; %if;cell.is_empty;%nn; %elseif;cell.is_left;

%nn; %elseif;cell.is_right;

%nn; %end; %end; %end; %end; %define;male_line(xx, nn) %if;(nn > 0) %if;(xx.has_parents)%apply;male_line("xx.father", nn - 1)%end; %if;(evar.cgl="on")%xx; %else; %xx; %end; %xx.title;%xx.dates; %if;("xx" != "self")│%end; %end;%nl; %end; %define;female_line(xx, nn) %if;(nn > 0) %if;(xx.has_parents)%apply;female_line("xx.mother", nn - 1)%end; %if;(evar.cgl="on")%xx; %else; %xx; %end; %xx.title;%xx.dates; %if;("xx" != "self")│%end; %end;%nl; %end; %define;tree(xx) %foreach;ancestor_tree_line(xx) %apply;a_tree_line() %end;

%end; %define;togen1(xx) %( togen1/togen/tothegen needed for HT %) %if;(xx = 1)[*specify::generation/generations]0%nn; %elseif;(xx = 2)[*to the parents]%nn; %elseif;(xx = 3)[*to the grandparents]%nn; %elseif;(xx = 4)[*to the great-grandparents]%nn; %else; %apply;tothegen%with; %apply;nth([nth (generation)], xx) %end; %end; %end; %define;togen()

%if;(evar.only != "on") %apply;togen1(l_v) %else; [*generation/generations]0 %l_v; %end;

%end; %define;tothegen(xx) [*to the %s generation:::xx]%nn; %end; %message_to_wizard; %if;not cancel_links; %if;(evar.t = "T" and evar.t1 != "HT") %end; %end; %define;show_templ(z1) %include;anctree_z1 %end;

%if;(evar.t = "T" and (evar.t1 = "T" or evar.t1 = "")) %apply;tree(l_v) %elseif;(evar.t = "A" or evar.t1 = "A")

%apply;male_line("self",l_v0)

%elseif;(evar.t = "C" or evar.t1 = "C")

%apply;female_line("self",l_v0)

%elseif;(evar.t1= "CT") %include;modules/arbre_hi %elseif;(evar.t1 = "HT") %include;anclist_hrztl %elseif;(evar.t1 != "") %apply;show_templ(evar.t1) %end;

%if;not cancel_links; %include;tools %apply;tools_anctree()

%include;trl %include;copyr %end;