%let;lai;alt="[image/images]0"%in; %let;ltap;%if;(wizard and not cancel_links) title="[add::parents]" %end;%in; %let;ltmf;%if;(wizard and not cancel_links) title="[modify::family/families]0" %end;%in; %let;ltmp;%if;(wizard and not cancel_links) title="[modify::person/persons]0" %end;%in; %define;link(aa, xx) %if;(cancel_links)xx%else;xx%end; %end; %define;link_dates1(xx) %sp; %if;(wizard and not cancel_links) %nn; %end; %apply;lazy_print(birth_symbol) %if;(xx.has_birth_date or xx.has_baptism_date) %if;(xx.birth_date.year != "")%lazy_force;%xx.slash_birth_date;%nn; %elseif;(xx.baptism_date.year != "")%lazy_force;%xx.slash_baptism_date;%nn; %end; %end; %if;(xx.has_birth_place or xx.has_baptism_place) %sp;%lazy_force;%if;xx.has_birth_place;%xx.birth_place;%elseif;xx.has_baptism_place;%xx.baptism_place;%end; %end; %let;l1;%if;lazy_printed;
%end;%in; %if;(xx.is_dead) %l1; %apply;lazy_print(death_symbol) %if;(xx.has_death_date or xx.has_burial_date) %if;(xx.death_date.year != "")%lazy_force;%xx.slash_death_date;%nn; %elseif;(xx.burial_date.year != "")%lazy_force;%xx.slash_burial_date;%nn; %end; %end; %if;(xx.has_death_place or xx.has_burial_place) %sp;%lazy_force;%if;xx.has_death_place;%xx.death_place;%elseif;xx.has_burial_place;%xx.burial_place;%end; %end; %end; %let;l2;%if;lazy_printed; %else;%lazy_force;%end;%in; %if;(wizard and not cancel_links) %if;(l1 = "" and l2 = "") - %end; %nn; %end; %end; %define;link_marriage1(xx) %if;(wizard and not cancel_links) %nn; &%nn; %if;(nb_children > 1)%nb_children;%end; %slash_marriage_date; %marriage_place; %else; &%nn; %slash_marriage_date; %marriage_place; &%nb_children; %end; %end; %define;link_parents() %if;(evar.only != "on" and ancestor.father_sosa != "") %ancestor.anc_sosa;%nn; %elseif;(evar.cgl != "on" and wizard and not ancestor.has_parents and ancestor.first_name != "?" and ancestor.surname != "?") %ancestor.anc_sosa;%nn; %else; %ancestor.anc_sosa;%nn; %end; %end; %define;imgtdz(xx) %if;(evar.image!="off" and xx.has_image) %xx;

%nn; %end; %end; %define;info3(xx) %if;(xx.has_nobility_titles) %xx.nobility_title; %end; %if;(xx.has_occupation) %xx.occupation; %end; %if;xx.computable_age; [age] : %xx.age; %end; %if;(xx.computable_death_age) %xx.death_age; %end; %if;(xx.has_consanguinity and (bvar.show_consang != "no" or manitou)) %xx.consanguinity; %end; %end; %define;nb_fam(xx) %if;(xx.same = "") %if;(not cancel_links) %end; %apply;symbol1("xx") %if;(xx.nb_families > 1) %xx.nb_families;&%xx.nb_children; %end; %if;(not cancel_links) %end; %else; %apply;link_rel%with; %xx.same; %end; %end; %end; %define;link_rel(xx) %if;(cancel_links) ==xx %else; ==xx %end; %end; %define;symbol2(xx) %if;(xx.has_siblings) ♦%nn; %elseif;(xx.has_parents) ◊%nn; %else; -%nn; %end; %end; %define;symbol1(xx) %if;(xx.has_sosa) %apply;symbol2("xx")%nn; %else; %apply;symbol2("xx") %end; %end; %define;male_line(xx,z1) %apply;link_parents() %apply;nb_fam("xx") %apply;imgtdz("xx")

%apply;link(xx.access, xx)

%apply;info3("xx") %apply;link_dates1("xx") %end; %define;female_line(xx,z1) %apply;link_dates1("xx") %apply;imgtdz("xx")

%apply;link(xx.access, xx)

%apply;info3("xx") %apply;link_parents() %apply;nb_fam("xx") %end; %define;one_line(z1) %if;(ancestor.anc_sosa.v % 2 = 0) %apply;male_line("ancestor","z1") %if;(ancestor.same = "") %foreach;ancestor.family; %if;(family.index = ancestor.family.index) %apply;link_marriage1("ancestor") %end; %end; %end; %end; %if;(ancestor.anc_sosa.v % 2 = 1) %apply;female_line("ancestor","z1") %end; %end; %define;tX() %( ancestors up to somebody %) %pvar.1.mark_descendants; %foreach;ancestor_level; %apply;lazy_print%with; %nl;[*generation/generations]0 %level;%nl; %end; %if;(level <= evar.l + 1) %foreach;ancestor; %if;(level != 1 and ancestor.same = "" and (ancestor.is_descendant or ancestor.spouse.is_descendant)) %lazy_force; %let;l1;%if;(ancestor.is_descendant)class="is_desc_1%ancestor.sex;"%end;%in; %apply;one_line(l1) %end; %end; %end; %end; %end; %define;tY() %foreach;ancestor_level(l_v) %if;(level > 1 and (evar.only != "on" or level = l_v)) %nl;[*generation/generations]0 %level;%nl; %foreach;ancestor %if;(ancestor.same = "")%incr_count;%end; %apply;one_line("") %end; %end; %end; [*total] : %count; [[person/persons]1@(c)] %end; %( main %) %if;(evar.only != "on" and evar.t != "X") %apply;togen() %end; %if;(evar.t = "X")

[*up to] %pvar.1; %pvar.1.dates;

%if;(not cancel_links) %end; %end; %reset_count; %if;(evar.t = "X") %apply;tX() %else; %apply;tY() %end;