%( Display livre d'ascendance %) %( Copie sans majuscules %) %define;tothegen(xx) [to the %s generation:::xx]%nn; %end; %define;togen(xx) %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;relation_type_txt(xx, sex) %if;("xx" = [adoptive father/adoptive mother/adoptive parents]2) %apply;capitalize(nth([adoptive father/adoptive mother/adoptive parents], sex)) %elseif;("xx" = [recognizing father/recognizing mother/recognizing parents]2) %apply;capitalize(nth([recognizing father/recognizing mother/recognizing parents], sex)) %elseif;("xx" = [candidate father/candidate mother/candidate parents]2) %apply;capitalize(nth([candidate father/candidate mother/candidate parents], sex)) %elseif;("xx" = [godfather/godmother/godparents]2) %apply;capitalize(nth([godfather/godmother/godparents], sex)) %elseif;("xx" = [foster father/foster mother/foster parents]2) %apply;capitalize(nth([foster father/foster mother/foster parents], sex)) %else; %apply;capitalize("xx") %end; %end; %define;relation_txt() %if;(on_marriage_date != "" or marriage_place != "") %if;are_married; [*married]%sp;%on_marriage_date;%sp;%if;(marriage_place != "")%sp;[in (place)]%sp;%marriage_place;%end;. %elseif;are_not_married; [*relation/relations]0%sp;%on_marriage_date;%sp;%if;(marriage_place != "")%sp;[in (place)]%sp;%marriage_place;%end;. %elseif;are_engaged; [*engaged]%sp;%on_marriage_date;%sp;%if;(marriage_place != "")%sp;[in (place)]%sp;%marriage_place;%end;. %elseif;is_no_sexes_check; [*relation/relations]0%sp;%on_marriage_date;%sp;%if;(marriage_place != "")%sp;[in (place)]%sp;%marriage_place;%end;. %elseif;is_no_mention; %apply;capitalize(on_marriage_date)%sp;%if;(marriage_place != "")%sp;[in (place)]%sp;%marriage_place;%end;. %end; %end; %end; %define;display_date(xx, with_rowspan) 1 and with_rowspan = 1) rowspan="%xx.nb_families;" %end;> %if;xx.has_birth_date;%xx.slash_birth_date; %elseif;xx.has_baptism_date;%xx.slash_baptism_date; %else;  %end; 1 and with_rowspan = 1) rowspan="%xx.nb_families;" %end;> %if;(xx.has_birth_date or xx.has_baptism_date or xx.has_death_date or xx.has_burial_date) - %else;   %end; 1 and with_rowspan = 1) rowspan="%xx.nb_families;" %end;> %if;xx.has_death_date;%xx.slash_death_date; %elseif;xx.has_burial_date;%xx.slash_burial_date; %else;  %end; %end; %define;display_family_siblings(xx, count) %foreach;xx.family; %if;(family_cnt != 1) %spouse; %nb_children; %end; %end; %end; %define;display_siblings(xx, count) 1) rowspan="%xx.nb_families;" %end;>%apply;image_MF("xx") %xx; %apply;display_date("xx", 1) %foreach;xx.family; %if;(family_cnt = 1) %spouse; %end; %end; %foreach;xx.family; %if;(family_cnt = 1) %nb_children; %end; %end; %if;(xx.nb_families > 1) %apply;display_family_siblings("xx", count) %end; %end; %define;display_children(xx, count) %apply;image_MF("xx") %xx; %apply;display_date("xx", 0) %xx.birth_place; %end; %define;display_union(xx)
%if;(are_divorced or are_separated) %end;
%spouse;%sp; %spouse.dates; %if;spouse.has_occupation; [*occupation/occupations]0: %spouse.occupation; %end;
%apply;relation_txt() %if;xx.computable_marriage_age; %if;(are_married or are_engaged) %apply;capitalize(nth([groom/bride], xx.sex)): %xx.marriage_age;%sp; %else; %apply;capitalize(nth([conjoint/conjointe], xx.sex)): %xx.marriage_age;%sp; %end; %end; %if;(xx.computable_marriage_age and spouse.computable_marriage_age) %sp;-%sp; %end; %if;spouse.computable_marriage_age; %if;(are_married or are_engaged) %apply;capitalize(nth([groom/bride], spouse.sex)): %spouse.marriage_age; %else; %apply;capitalize(nth([conjoint/conjointe], spouse.sex)): %spouse.marriage_age; %end; %end;
%if;are_divorced;[*divorced] %divorce_date;. %end; %if;are_separated;[*separated]. %end;

%if;(evar.children = "on" and has_children) %foreach;child; %apply;display_children("child",child_cnt) %end;
[*child/children]1 [*date/dates]1 [*where born]

%end; %if;(evar.comm = "on" and (has_comment or has_marriage_note))
[*marriage notes/marriages notes]0: %comment; %if;has_marriage_note;%marriage_note;%end;

%end; %end; %define;access_ind(nnn) %nnn;%sp;%nnn.dates;%nl; %end; %define;access(num,nnn) num_ %if;("num" = 1) %nnn;%nnn.title;%nnn.dates; %else; %apply;access_ind("nnn") %end; %end; %define;display_tree(xx) %if;xx.father.has_parents; %if;xx.father.father.has_parents; %if;xx.father.father.father.has_parents;                                                                                     _____| %apply;access("16","xx.father.father.father.father") %end;                                                         _____| %apply;access("8","xx.father.father.father") %if;xx.father.father.father.has_parents;                                                        /                            ¯¯¯¯¯| %apply;access("17","xx.father.father.father.mother") %else                                                        / %end; %end; %end; %if;xx.father.has_parents;                            _____| %apply;access("4","xx.father.father") %end; %if;xx.father.has_parents; %if;xx.father.father.has_parents; %if;xx.father.father.mother.has_parents;                           /                           \                             _____| %apply;access("18","xx.father.father.mother.father") %else                           /                           \ %end;                          /                             ¯¯¯¯¯| %apply;access("9","xx.father.father.mother") %if;xx.father.father.mother.has_parents;                         /                                                           ¯¯¯¯¯| %apply;access("19","xx.father.father.mother.mother") %else                         / %end; %else                           / %end; %end; |%apply;access("2","xx.father") %if;xx.father.has_parents; %if;xx.father.mother.has_parents; %if;xx.father.mother.father.has_parents; |                       \                                                           _____| %apply;access("20","xx.father.mother.father.father") %else |                       \ %end; |                        \                              _____| %apply;access("10","xx.father.mother.father") %if;xx.father.mother.father.has_parents; |                         \                            /                            ¯¯¯¯¯| %apply;access("21","xx.father.mother.father.mother") %else |                         \                            / %end; %else |                         \ %end; %end; %if;xx.father.has_parents; |                          ¯¯¯¯¯| %apply;access("5","xx.father.mother") %end; %if;xx.father.has_parents; %if;xx.father.mother.has_parents; %if;xx.father.mother.mother.has_parents; |                                                     \                             _____| %apply;access("22","xx.father.mother.mother.father") %else |                                                     \ %end; |                                                      ¯¯¯¯¯| %apply;access("11","xx.father.mother.mother") %if;xx.father.mother.mother.has_parents; |                                                                                   ¯¯¯¯¯| %apply;access("23","xx.father.mother.mother.mother") %end; %end; %end; |--%apply;access("1","xx") %if;xx.mother.has_parents; %if;xx.mother.father.has_parents; %if;xx.mother.father.father.has_parents; |                                                                                   _____| %apply;access("24","xx.mother.father.father.father") %end; |                                                       _____| %apply;access("12","xx.mother.father.father") %if;xx.mother.father.father.has_parents; |                                                      /                            ¯¯¯¯¯| %apply;access("25","xx.mother.father.father.mother") %else |                                                      / %end; %end; %end; %if;xx.mother.has_parents; |                          _____| %apply;access("6","xx.mother.father") %end; %if;xx.mother.has_parents; %if;xx.mother.father.has_parents; %if;xx.mother.father.mother.has_parents; |                         /                           \                             _____| %apply;access("26","xx.mother.father.mother.father") %else |                         /                           \ %end; |                        /                             ¯¯¯¯¯| %apply;access("13","xx.mother.father.mother") %if;xx.mother.father.mother.has_parents; |                       /                                                           ¯¯¯¯¯| %apply;access("27","xx.mother.father.mother.mother") %end; %else |                        / %end; %end; |%apply;access("3","xx.mother") %if;xx.mother.has_parents; %if;xx.mother.mother.has_parents; %if;xx.mother.mother.father.has_parents;                         \                                                           _____| %apply;access("28","xx.mother.mother.father.father") %else                         \ %end;                          \                              _____| %apply;access("14","xx.mother.mother.father") %if;xx.mother.mother.father.has_parents;                           \                            /                            ¯¯¯¯¯| %apply;access("29","xx.mother.mother.father.mother") %else                           \                            / %end; %else                           \ %end; %end; %if;xx.mother.has_parents;                            ¯¯¯¯¯| %apply;access("7","xx.mother.mother") %end; %if;xx.mother.has_parents; %if;xx.mother.mother.has_parents; %if;xx.mother.mother.mother.has_parents;                                                        \                            _____| %apply;access("30","xx.mother.mother.mother.father") %else                                                        \ %end;                                                         ¯¯¯¯¯| %apply;access("15","xx.mother.mother.mother") %if;xx.mother.mother.mother.has_parents;                                                                                     ¯¯¯¯¯| %apply;access("31","xx.mother.mother.mother.mother") %end; %end; %end; %end; %define;print_long_ind(xx)

%xx;

 %apply;image_MF("xx")
%if;(evar.sosa = "on" and xx.has_sosa) sosa [*Sosa] %xx.sosa; %end;
%if;(evar.image!="off" and xx.has_image)
[image/images]0 %end;
    %if;xx.has_aliases;
  • [*alias]: %foreach;xx.alias; %if;not is_first;,%end; %alias; %end;
    • %end; %if;xx.has_nobility_titles;
  • [*title/titles]1: %foreach;xx.nobility_title; %if;not is_first;,%end; %nobility_title; %end;
    • %end; %if;xx.has_occupation;
  • [*occupation/occupations]0: %xx.occupation;
    • %end; %if;((xx.has_aliases or xx.has_nobility_titles or xx.has_occupation) and ((xx.has_birth_date or xx.has_birth_place) or (xx.has_baptism_date or xx.has_baptism_place) or (xx.has_death_date or xx.has_death_place) or (xx.has_burial_date or xx.has_burial_place)))
    • %end; %if;(xx.has_birth_date or xx.has_birth_place)
  • %apply;capitalize(nth([born],xx.sex)) %xx.on_birth_date; %if;xx.has_birth_place;%sp;[in (place)]%sp;%xx.birth_place;%end;
    • %end; %if;(xx.has_baptism_date or xx.has_baptism_place)
  • %apply;capitalize(nth([baptized],xx.sex)) %xx.on_baptism_date; %if;xx.has_baptism_place;%sp;[in (place)]%sp;%xx.baptism_place;%end;
    • %end; %if;(xx.has_death_date or xx.has_death_place)
  • %apply;capitalize(nth([died],xx.sex)) %xx.on_death_date; %if;xx.computable_death_age;%sp;[age at death:] %xx.death_age;,%end; %if;xx.has_death_place;%sp;[in (place)]%sp;%xx.death_place;%end;
    • %end; %if;xx.is_buried;
  • %apply;capitalize(nth([buried],xx.sex)) %xx.on_burial_date; %if;xx.has_burial_place;%sp;[in (place)]%sp;%xx.burial_place;%end;
    • %end; %if;xx.is_cremated;
  • %apply;capitalize(nth([cremated],xx.sex)) %xx.on_cremation_date; %if;xx.has_cremation_place;%sp;[in (place)]%sp;%xx.cremation_place;%end;
    • %end;
%if;(evar.image!="off" and xx.has_image)
%end;
%if;(evar.parents = "on" and xx.has_parents)
[*parents]
%apply;capitalize(nth([father/mother],xx.father.sex)): %xx.father; %if;(xx.father_age_at_birth != "")%sp;(%xx.father_age_at_birth;)%end; %if;xx.father.has_occupation; [*occupation/occupations]0: %xx.father.occupation; %end;
%apply;capitalize(nth([father/mother],xx.mother.sex)): %xx.mother; %if;(xx.mother_age_at_birth != "")%sp;(%xx.mother_age_at_birth;)%end; %if;xx.mother.has_occupation; [*occupation/occupations]0: %xx.mother.occupation; %end;
%end; %if;(evar.siblings = "on" and (xx.has_siblings or (xx.has_parents and (xx.father.nb_families > 1 or xx.mother.nb_families > 1))))
%if;xx.has_siblings; %foreach;xx.father.child; %apply;display_siblings("child", child_cnt) %end; %end; %if;xx.has_parents; %if;(xx.father.nb_families > 1 or xx.mother.nb_families > 1) %reset_count; %foreach;xx.father.family; %if;(spouse.index != xx.mother.index) %if;(nb_children > 0)%incr_count;%end; %end; %end; %let;half_father;%count;%in; %reset_count; %foreach;xx.mother.family; %if;(spouse.index != xx.father.index) %if;(nb_children>0)%incr_count;%end; %end; %end; %let;half_mother;%count;%in; %if;(half_father != 0 or half_mother != 0) %if;xx.has_siblings;%end; %if;(half_father != 0) %foreach;xx.father.family; %if;(spouse.index != xx.mother.index and half_father!=0 and spouse.has_children) %if;has_children; %foreach;child; %apply;display_siblings("child", family_cnt) %end; %end; %end; %end; %end; %if;(half_mother != 0) %foreach;xx.mother.family; %if;(spouse.index != xx.father.index and half_mother!=0 and spouse.has_children) %if;has_children; %foreach;child; %apply;display_siblings("child", family_cnt) %end; %end; %end; %end; %end; %end; %end; %end;
[*full siblings]
[*name] [*date/dates]1 [*spouse/spouses]0 [*child/children]1
 
[*half siblings]
[*name] [*date/dates]1 [*spouse/spouses]0 [*child/children]1
%apply;on_side%with;%xx.father;%end;%sp;[with] %spouse;
%apply;on_side%with;%xx.mother;%end;%sp;[with] %spouse;
%end; %reset_count; %if;xx.has_families; %foreach;xx.family; %if;has_witnesses; %incr_count; %end; %end; %end; %if;(evar.rel = "on" and (xx.has_relations or count > 0))
%foreach;xx.relation; %if;(has_relation_him and has_relation_her) %apply;display_date("relation_him", 0) %apply;display_date("relation_her", 0) %elseif;has_relation_him; %apply;display_date("relation_him", 0) %elseif;has_relation_her; %apply;display_date("relation_her", 0) %end; %end; %foreach;xx.related; %apply;display_date("related", 0) %end; %if;xx.has_families; %foreach;xx.family; %if;has_witnesses; %foreach;witness; %apply;display_date("witness", 0) %end; %end; %end; %end; %foreach;xx.event_witness_relation; %apply;display_date("event_witness_relation.person", 0) %end;
[*relation/relations]1
[*name] [*date/dates]1
%apply;image_MF("relation_him") %relation_him; %sp; (%apply;relation_type_txt(relation_type, relation_him.sex))
%apply;image_MF("relation_her") %relation_her; %sp; (%apply;relation_type_txt(relation_type, relation_her.sex))
%apply;image_MF("relation_him") %relation_him; %sp; (%apply;capitalize(relation_type))
%apply;image_MF("relation_her") %relation_her; %sp; (%apply;capitalize(relation_type))
%apply;image_MF("related") %related; %sp; %if;(related = [foster son/foster daughter/foster child]0) (%apply;capitalize([foster son/foster daughter/foster child]2)) %elseif;(related = [foster son/foster daughter/foster child]1) (%apply;capitalize([foster son/foster daughter/foster child]2)) %else; (%apply;capitalize(related_type)) %end;
%apply;image_MF("witness") %witness; %sp; ([*witness/witnesses]0)
%apply;image_MF("event_witness_relation.person") %event_witness_relation.person; %sp; %if;(event_witness_relation.event.spouse != "") [and] %apply;image_MF("event_witness_relation.event.spouse") %event_witness_relation.event.spouse; %sp; %end; (%apply;capitalize(event_witness_relation_kind) :%sp; %event_witness_relation.event.name;)
%end; %if;(evar.marr = "on" and xx.has_families)
[*marriage/marriages]1 %if;(evar.children = "on" and xx.has_children) [and::child/children]1%end;
%foreach;xx.family; %apply;display_union("xx") %if;(family_cnt != xx.nb_families)
%end; %end;
%end; %if;(evar.note = "on" and (xx.has_notes or xx.has_event))
[*note/notes]1
%xx.notes; %if;xx.has_event; %foreach;xx.event; %end;
%if;event.has_date;%event.date; : %else;--- : %end; %apply;capitalize(event.name)%sp; %if;event.has_spouse;([with] %event.spouse;)%end; %if;event.has_place; - %event.place; %end; %if;event.has_witnesses;

%foreach;event_witness; %apply;capitalize(event_witness_kind) : %apply;short_display_person("event_witness")
%end;

%end; %if;event.has_note;
%event.note;
%end; %if;event.has_src;[*source/sources]1: %event.src;%end;
%end;
%end; %if;(evar.asc = "on" and xx.has_parents)
[*ascendants tree]
%apply;display_tree("xx")
%end; %if;(evar.src = "on" and xx.has_sources)
[*source/sources]1
    %foreach;xx.source;
  • %source_type;: %source;
    • %end;
%end; %end;
%let;nb_gen;%apply;min(evar.v, max_anc_level)%in; %if;(evar.v > 1) %apply;capitalize(nth([summary book ascendants], 3))%sp; %apply;togen(nb_gen).
    %foreach;ancestor_level(nb_gen) %apply;lazy_print%with;
  • [*generation/generations]0 %level;
    • %end; %foreach;ancestor; %lazy_force; %if;(ancestor.same = "")
  • %ancestor; %if;(evar.sosa = "on" and ancestor.has_sosa) ([n° Sosa] :%sp;%ancestor.sosa;) %end;
    • %end; %end; %end;

 

%end; %foreach;ancestor_level(nb_gen) %foreach;ancestor; %if;(ancestor.same = "") %apply;print_long_ind("ancestor") %if;(not (is_last and level = nb_gen))

 

%end; %end; %end; %end;