%doctype; %nn; %if;has_public_name; %if;has_qualifiers;%public_name; %qualifier; %else;%public_name; %surname;%end; %else; %if;has_qualifiers;%first_name; %qualifier; %else;%first_name; %surname;%end; %end; %base_header; %message_to_wizard; %let;self_access;%self.access;%in; %let;father_access;%father.access;%in; %let;mother_access;%mother.access;%in; %define;top() %if;not cancel_links;
top
%end; %end; %define;tr_color() %end; %define;image_blood(xxx,yyy,size) %let;msg; %if;("yyy" = "1")de Cujus%else;[direct ancestor of %s:::xxx] , [*Sosa] yyy%end; %in; %if;("size" != "") %msg;%nn; %else; %msg;%nn; %end; %end; %define;display_sosa_link(xx,size) %if;xx.has_sosa; %if;not cancel_links; %end; %apply;image_blood%with;%sosa_ref;%and;%xx.sosa;%and;size%end; %if;not cancel_links; %end;%sp; %end; %end; %define;image_sex(nnn,size) %if;("size" != "") %if;nnn.is_male; [M/F]0%nn; %elseif;nnn.is_female; [M/F]1%nn; %else; [M/F]%nn; %end; %else; %if;nnn.is_male; [M/F]0%nn; %elseif;nnn.is_female; [M/F]1%nn; %else; [M/F]%nn; %end; %end; %end; %define;image_tilde() [age at the birth of] %first_name; %end; %define;parent_age_at_birth() %if;parent.is_male; %if;(father_age_at_birth != "") %apply;image_tilde() %father_age_at_birth %end; %else; %if;(mother_age_at_birth != "") %apply;image_tilde() %mother_age_at_birth %end; %end; %end; %define;type_puce_desc(nnn)
  • %end; %define;type_puce_asc(nnn) %if;nnn.has_parents; %if;(nnn.father != "? ?" and nnn.mother != "? ?" and nnn.mother != "de l'une de ses épouses")
  • %else;
  • %end; %else;
  • %end; %end; %define;type_wedding() %if;are_married; %if;(nb_children != 0) [married] %else; [married] %end; %elseif;are_not_married; [not married] %elseif;are_engaged; [engaged] %elseif;is_no_sexes_check; [relationship] %elseif;is_no_mention; [with] %end; %end; %define;detail_wedding() %apply;type_wedding() %if;(nb_families != 1)%family_cnt;%end; %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %if;(nb_children != 0) -%nb_children; %if;(nb_children=1)[child/children]0%else;[child/children]1%end; %end; %end; %define;not_married_no_descendants() [not married], [no descendants] %end; %define;image_picture(size) %if;("size" != "") [image/images]0 %else; [image/images]0 %end; %end; %define;picture_ind(nnn,size) %if;nnn.has_image; %if;not cancel_links; %end; %apply;image_picture("size") %if;not cancel_links; %end;%sp; %end; %end; %define;access_ind(nnn) %if;(cancel_links or nnn.is_restricted) %nnn;%nnn.title; %else; %nnn;%nnn.title; %end; %nnn.dates;%nl; %end; %define;access_ind_name(nnn) %if;(cancel_links or nnn.is_restricted) %nnn;%nnn_name.title; %else; %nnn_name;%nnn.title; %end; %nnn.dates;%nl; %end; %define;desc_seq(yyy) %end; %if;not cancel_links;
    %if;has_children; [*tree] [descendants]0 [to the grandchildren] %end; %if;has_parents; [*tree] [ancestors] %end; %if;((wizard or friend or bvar.no_note_for_visitor = "" or bvar.no_note_for_visitor = "no") and (has_notes or has_linked_page.BNOTE or has_linked_page.NOTE)) [*note/notes]1 %end; %if;has_sources; [*source/sources]1 %end; [*relationship computing] %if;has_parents; [*ancestors] %end; %if;has_children; [*descendants] %end; %if;(father.has_parents or mother.has_parents) [*cousins (general term)] %end; %if;(sosa_ref != "") [*relationship computing] [with] [Sosa] 1 [*shortest path] [with] [Sosa] 1 %end; %if;wizard; [*send] [image/images]0 [*merge] [*delete] [*update] [*modify] %end;

    %end; %if;not cancel_links;
    %if;(referer != "") << %end; %if;(evar.opt = "datree") %elseif;(evar.opt = "dctree") %else; %end; [cancel GeneWeb links]
    %if;has_parents; [ancestors] %end; %if;has_children; %if;(evar.opt = "datree") [descendants] [agnatic descendants/cognatic descendants]0 [agnatic descendants/cognatic descendants]1 %elseif;(evar.opt = "dctree") [descendants] [agnatic descendants/cognatic descendants]0 [agnatic descendants/cognatic descendants]1 %else; [descendants] [agnatic descendants/cognatic descendants]0 [agnatic descendants/cognatic descendants]1 %end; %end;
    %else;
    [*print]
    %end; %if;(is_male or is_female or bvar.show_invisible = "on" and wizard and is_invisible)
    %nn; %if;is_male; [M/F]0%nn; %elseif;is_female; [M/F]1%nn; %end; %if;(bvar.show_invisible = "on" and wizard and is_invisible) (x)%end;
    %else;
    %nn; [M/F]%nn;
    %end;

    %if;has_public_name; %if;has_qualifiers;%public_name; %qualifier; %else;%public_name; %surname;%end; %else; %if;has_qualifiers;%first_name; %qualifier; %else; %if;cancel_links;%first_name; %surname; %else; %first_name; %surname; %end; %end; %end;

    %if;(has_sosa or has_qualifiers or has_aliases or has_nobility_titles or has_public_name or has_surnames_aliases or has_first_names_aliases or has_linked_page.HEAD)
    %if;has_sosa; %apply;display_sosa_link("self","") [*Sosa]: %if;cancel_links;%sosa; %else;%sosa;%end; %end; %foreach;qualifier; %if;not is_first; %if;has_public_name;%public_name; %qualifier; %else;%first_name; %qualifier;%end; %end; %end; %foreach;alias; %alias; %end; %if;has_nobility_titles; %foreach;nobility_title; %if;not is_first;, %end; %nobility_title; %end; %end; %if;has_linked_page.HEAD;%linked_page.HEAD;%end; %if;(has_public_name or has_qualifiers) (%if;cancel_links;%first_name; %surname; %else; %first_name; %surname;%nn; %end;) %end; %foreach;surname_alias; (%first_name; %surname_alias;) %end; %foreach;first_name_alias; (%first_name_alias; %surname;) %end;

    %end; %if;has_image; %end; %if;(has_occupation or has_birth_date or has_birth_place or has_baptism_date or has_baptism_place or is_dead or is_buried or is_cremated or has_consanguinity or has_linked_page.OCCU) %if;has_image;
    [image/images]0%end;
      %if;has_occupation;
    • %apply;capitalize(occupation)
    • %nl;%end; %if;has_linked_page.OCCU;
    • %apply;capitalize(linked_page.OCCU)
    • %end; %if;has_birth_date;
    • %apply;capitalize(nth([born],sex)) %on_birth_date; %if;birthday; ([happy birthday to you!])%end; %if;has_birth_place; - %birth_place;%end;
    • %else; %if;has_birth_place;
    • %apply;capitalize(nth([born],sex)) - %birth_place;
    • %end; %end; %if;has_baptism_date;
    • %apply;capitalize(nth([baptized],sex)) %on_baptism_date; %if;has_baptism_place; - %baptism_place;%end;
    • %else; %if;has_baptism_place;
    • %apply;capitalize(nth([baptized],sex)) - %baptism_place;
    • %end; %end; %if;is_dead;
    • %apply;capitalize(died) %if;has_death_date; %on_death_date;%end; %if;has_death_place; - %death_place;%end; %if;has_linked_page.DEATH; %linked_page.DEATH;%end;
    • %end; %if;computable_age;
    • [*age]: %age;
    • %end; %if;computable_death_age;
    • [*age at death:] %death_age;
    • %nl; %end; %if;is_buried;
    • %apply;capitalize(nth([buried],sex)) %if;has_burial_date; %on_burial_date;%end; %if;has_burial_place; - %burial_place;%end;
    • %end; %if;is_cremated;
    • %apply;capitalize(nth([cremated],sex)) %if;has_cremation_date; %on_cremation_date;%end; %if;has_cremation_place; - %cremation_place;%end;
    • %end; %if;(has_consanguinity and (bvar.show_consang != "no" or manitou))
    • [*consanguinity]: %consanguinity;
    • %nl; %end;
    %end; %if;has_image;
    %end; %define;relation_him_her()
    %apply;type_puce_desc("relation_him") %apply;image_sex("relation_him","") %apply;picture_ind("relation_him","") %apply;display_sosa_link("relation_him","") %apply;access_ind("relation_him")
    %apply;type_puce_desc("relation_her") %apply;image_sex("relation_her","") %apply;picture_ind("relation_her","") %apply;display_sosa_link("relation_her","") %apply;access_ind("relation_her")
    %end; %define;relation_him()
    %apply;type_puce_desc("relation_him") %apply;image_sex("relation_him","") %apply;picture_ind("relation_him","") %apply;display_sosa_link("relation_him","") %apply;access_ind("relation_him")
    %end; %define;relation_her()
    %apply;type_puce_desc("relation_her") %apply;image_sex("relation_her","") %apply;picture_ind("relation_her","") %apply;display_sosa_link("relation_her","") %apply;access_ind("relation_her")
    %end;

    %if;(father != "? ?" and mother != "? ?")[*parents]%elseif;(father != "? ?")[*father/mother]0%else;[*father/mother]1 %end;

      %foreach;parent; %if;(parent != "? ?") %if;(parent.access = father_access and father_age_at_birth != "") %apply;tr_color() %elseif;(parent.access = mother_access and mother_age_at_birth != "") %apply;tr_color() %else; %end;
      %apply;type_puce_asc("parent") %apply;image_sex("parent","") %apply;picture_ind("parent","") %apply;display_sosa_link("parent","") %apply;access_ind("parent") %apply;parent_age_at_birth() %end; %end;
    %foreach;relation; %if;(relation_type = [adoptive father/adoptive mother/adoptive parents]0 or relation_type = [adoptive father/adoptive mother/adoptive parents]1 or relation_type = [adoptive father/adoptive mother/adoptive parents]2)

    %apply;capitalize(relation_type)

      %if;(has_relation_him and has_relation_her) %apply;relation_him_her() %elseif;has_relation_him; %apply;relation_him() %elseif;has_relation_her;nt color="%highlight;">%relation_type %apply;relation_her() %end;
    %end; %end;
    %foreach;relation; %if;(relation_type = [recognizing father/recognizing mother/recognizing parents]0 or relation_type = [recognizing father/recognizing mother/recognizing parents]1 or relation_type = [recognizing father/recognizing mother/recognizing parents]2)

    %apply;capitalize(relation_type)

      %if;(has_relation_him and has_relation_her) %apply;relation_him_her() %elseif;has_relation_him; %apply;relation_him() %elseif;has_relation_her; %apply;relation_her() %end;
    %end; %end;
    %foreach;relation; %if;(relation_type = [candidate father/candidate mother/candidate parents]0 or relation_type = [candidate father/candidate mother/candidate parents]1 or relation_type = [candidate father/candidate mother/candidate parents]2)

    %apply;capitalize(relation_type)

      %if;(has_relation_him and has_relation_her) %apply;relation_him_her() %elseif;has_relation_him; %apply;relation_him() %elseif;has_relation_her; %apply;relation_her() %end;
    %end; %end;
    %foreach;relation; %if;(relation_type = [foster father/foster mother/foster parents]0 or relation_type = [foster father/foster mother/foster parents]1 or relation_type = [foster father/foster mother/foster parents]2)

    %apply;capitalize(relation_type)

      %if;(has_relation_him and has_relation_her) %apply;relation_him_her() %elseif;has_relation_him; %apply;relation_him() %elseif;has_relation_her; %apply;relation_her() %end;
    %end; %end;
    %define;married_to(date_place) %if;is_male; %if;are_married;[*married%t to:::date_place]0 %elseif;are_not_married;[*relationship%t to:::date_place]0 %elseif;are_engaged;[*engaged%t to:::date_place]0 %elseif;is_no_sexes_check;[*relationship%t to:::date_place]0 %elseif;is_no_mention;date_place [with] %end; %else; %if;are_married;[*married%t to:::date_place]1 %elseif;are_not_married;[*relationship%t to:::date_place]1 %elseif;are_engaged;[*engaged%t to:::date_place]1 %elseif;is_no_sexes_check;[*relationship%t to:::date_place]1 %elseif;is_no_mention;date_place [with] %end; %end; %end; %define;witness_relation(xxx, yyy) [*witness at marriage of %s and %s:::xxx:yyy] %end; %if;has_families;

    [*marriage/marriages]1 [and::child/children]1

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

    [*witness/witnesses]w [marriage/marriages]0 %family_cnt

      %foreach;witness; %apply;type_puce_desc("witness") %apply;image_sex("witness","") %apply;picture_ind("witness","") %apply;display_sosa_link("witness","") %apply;access_ind("witness") %end;
    %end; %define;related()
    %apply;type_puce_desc("related") %apply;image_sex("related","") %apply;picture_ind("related","") %apply;display_sosa_link("related","") %apply;access_ind("related")
    %end;

    [*adoptive son/adoptive daughter/adoptive children]2

      %foreach;related; %if;(related_type = [adoptive son/adoptive daughter/adoptive child]0 or related_type = [adoptive son/adoptive daughter/adoptive child]1 or related_type = [adoptive son/adoptive daughter/adoptive child]2) %apply;related() %end; %end;

    [*recognized son/recognized daughter/recognized children]2

      %foreach;related; %if;(related_type = [recognized son/recognized daughter/recognized child]0 or related_type = [recognized son/recognized daughter/recognized child]1 or related_type = [recognized son/recognized daughter/recognized child]2) %apply;related() %end; %end;

    [*candidate son/candidate daughter/candidate children]2

      %foreach;related; %if;(related_type = [candidate son/candidate daughter/candidate child]0 or related_type = [candidate son/candidate daughter/candidate child]1 or related_type = [candidate son/candidate daughter/candidate child]2) %apply;related() %end; %end;

    [*foster son/foster daughter/foster children]2

      %foreach;related; %if;(related_type = [foster son/foster daughter/foster child]0 or related_type = [foster son/foster daughter/foster child]1 or related_type = [foster son/foster daughter/foster child]2) %apply;related() %end; %end;
    %if;has_siblings;

    [*german siblings]

      %foreach;father.child; %apply;tr_color()
      %apply;type_puce_desc("child") %child_cnt;. %apply;image_sex("child","") %apply;picture_ind("child","") %apply;display_sosa_link("child","") %if;is_self; %child_name;%self.title;%self.dates;%nl; %else; %apply;access_ind_name("child") %end; %if;child.has_families; %foreach;child.family; %if;(family_cnt != 1), %end; %apply;detail_wedding() %end; %else; %apply;not_married_no_descendants() %end;
      %end;
    %end;

    [*consanguine siblings]

      %foreach;father.family; %if;not(nb_children = 0 or spouse.access = mother.access) %apply;type_puce_asc("spouse") %apply;type_wedding() %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","") %apply;picture_ind("spouse","") %apply;display_sosa_link("spouse","") %apply;access_ind("spouse") %apply;desc_seq("") %end; %end;

    [*uterine siblings]

      %foreach;mother.family; %if;not(nb_children = 0 or spouse.access = father.access) %apply;type_puce_asc("spouse") %apply;type_wedding() %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","") %apply;picture_ind("spouse","") %apply;display_sosa_link("spouse","") %apply;access_ind("spouse") %apply;desc_seq("") %end; %end;
    %define;descendancy_grand_fathers(mmm,yyy) %foreach;mmm.father.family;
    %apply;type_puce_asc("mmm.father") %apply;image_sex("mmm.father","") %apply;picture_ind("mmm.father","") %apply;display_sosa_link("mmm.father","") %if;(spouse.access = mmm.mother.access) %apply;access_ind("mmm.father") %else; %mmm.father;%mmm.father.title;%mmm.father.dates; %end; %apply;type_puce_asc("spouse") %apply;type_wedding() %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","") %apply;picture_ind("spouse","") %apply;display_sosa_link("spouse","") %if;(spouse.access = self.access) %spouse;%spouse.title;%spouse.dates; %apply;detail_wedding()
    %else; %apply;access_ind("spouse") %apply;desc_seq("yyy") %end; %end; %end; %define;descendancy_grand_mothers(mmm,yyy) %foreach;mmm.mother.family; %if;(spouse.access != mmm.father.access)
    %apply;type_puce_asc("mmm.mother") %apply;image_sex("mmm.mother","") %apply;picture_ind("mmm.mother","") %apply;display_sosa_link("mmm.mother","") %mmm.mother;%mmm.mother.title;%mmm.mother.dates; %apply;type_puce_asc("spouse") %apply;type_wedding() %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","") %apply;picture_ind("spouse","") %apply;display_sosa_link("spouse","") %if;(spouse.access = self.access) %spouse;%spouse.title;%spouse.dates; %apply;detail_wedding()
    %else; %apply;access_ind("spouse") %apply;desc_seq("yyy") %end; %end; %end; %end;
    %if;father.has_parents;

    [*paternal grand-parents], [uncles and aunts]1

      %apply;descendancy_grand_fathers("father","parhigh") %apply;descendancy_grand_mothers("father","parhigh")
    %end;
    %if;mother.has_parents;

    [*maternal grand-parents], [uncles and aunts]1

      %apply;descendancy_grand_fathers("mother","parhigh") %apply;descendancy_grand_mothers("mother","parhigh")
    %end;
    %if;has_relations;
    %apply;top()

    [*relation/relations]1

      %foreach;relation; %if;(relation_type = [godfather/godmother/godparents]0 or relation_type = [godfather/godmother/godparents]1 or relation_type = [godfather/godmother/godparents]2)
    • %apply;capitalize(relation_type)
    • %if;(has_relation_him and has_relation_her) %nl;
        %apply;type_puce_desc("relation_him") %apply;image_sex("relation_him","") %apply;picture_ind("relation_him","") %apply;display_sosa_link("relation_him","") %apply;access_ind("relation_him")
        %apply;type_puce_desc("relation_her") %apply;image_sex("relation_her","") %apply;picture_ind("relation_her","") %apply;display_sosa_link("relation_her","") %apply;access_ind("relation_her")
      %elseif;has_relation_him; %nl;
        %apply;type_puce_desc("relation_him") %apply;image_sex("relation_him","") %apply;picture_ind("relation_him","") %apply;display_sosa_link("relation_him","") %apply;access_ind("relation_him")
      %elseif;has_relation_her; %nl;
        %apply;type_puce_desc("relation_her") %apply;image_sex("relation_her","") %apply;picture_ind("relation_her","") %apply;display_sosa_link("relation_her","") %apply;access_ind("relation_her")
      %end; %end; %end; %foreach;related; %if;(related_type = [godson/goddaughter/godchild]0 or related_type = [godson/goddaughter/godchild]1 or related_type = [godson/goddaughter/godchild]2)
      %apply;type_puce_desc("related") %apply;capitalize(related_type): %apply;image_sex("related","") %apply;picture_ind("related","") %apply;display_sosa_link("related","") %apply;access_ind("related")
      %end; %end; %foreach;witness_relation;
    • %nn; %apply;witness_relation%with; %if;cancel_links;%witness_relation.father; %else%witness_relation.father;%end; %witness_relation.father.title;%witness_relation.father.dates; %and; %if;cancel_links;%witness_relation.mother; %else%witness_relation.mother;%end; %witness_relation.mother.title;%witness_relation.mother.dates; %end;
    • %nl;
      %end;
    %end; %if;((wizard or friend or bvar.no_note_for_visitor = "" or bvar.no_note_for_visitor = "no") and (has_notes or has_linked_page.BNOTE or has_linked_page.NOTE))

    [*note/notes]1

    %if;(has_linked_page.BNOTE)

    %apply;capitalize(linked_page.BNOTE).

    %end; %notes; %if;(has_linked_page.NOTE)

    %apply;capitalize(linked_page.NOTE).

    %end;
    %end; %if;has_sources;

    [*source/sources]1: %foreach;source; - %source_type;: %source; %end;

    %end; %if;not cancel_links;
    %if;wizard; %end;
    [*relationship computing] (R)

  • [*update] (U)
  • [*modify::person/persons]
  • %end; %define;access(num,nnn) num_ %apply;picture_ind("nnn","") %apply;display_sosa_link("nnn","") %if;("num" = 1) %self;%nnn.title;%nnn.dates; %if;(has_children and not cancel_links)  
    [descendants] %end; %else; %apply;access_ind("nnn") %if;nnn.has_parents; %if;not cancel_links;  [ancestors] %else %if;("num" >= 16) ==>%end; %end; %end; %end; %end; %if;has_parents;
    %apply;top()

    [*ancestors]

    %if;father.has_parents; %if;father.father.has_parents; %if;father.father.father.has_parents;                                                                              _____|%apply;access("16","father.father.father.father")%end;                                                    _____|%apply;access("8","father.father.father")                                                   /%if;father.father.father.has_parents;                          ¯¯¯¯¯|%apply;access("17","father.father.father.mother")%end;%end;                          _____|%apply;access("4","father.father")                         /%if;father.father.has_parents;                         \%end;%if;father.father.mother.has_parents;                          _____|%apply;access("18","father.father.mother.father")%end;                        /%if;father.father.has_parents;                           ¯¯¯¯¯|%apply;access("9","father.father.mother")%end;                       /%if;father.father.mother.has_parents;                                                      ¯¯¯¯¯|%apply;access("19","father.father.mother.mother")%end;%end; |%apply;access("2","father") |%if;father.has_parents;                     \%end;%if;father.mother.father.has_parents;                                                      _____|%apply;access("20","father.mother.father.father")%end; |%if;father.has_parents;                      \%end;%if;father.mother.has_parents;                           _____|%apply;access("10","father.mother.father")%end; |%if;father.has_parents;                       \%end;%if;father.mother.has_parents;                         /%end;%if;father.mother.father.has_parents;                          ¯¯¯¯¯|%apply;access("21","father.mother.father.mother")%end; |%if;father.has_parents;                        ¯¯¯¯¯|%apply;access("5","father.mother")%end; |%if;father.mother.has_parents;                                                 \%end;%if;father.mother.mother.has_parents;                          _____|%apply;access("22","father.mother.mother.father")%end; |%if;father.mother.has_parents;                                                  ¯¯¯¯¯|%apply;access("11","father.mother.mother")%end; |%if;father.mother.mother.has_parents;                                                                            ¯¯¯¯¯|%apply;access("23","father.mother.mother.mother")%end; |--%apply;access("1","self") |%if;mother.father.father.has_parents;                                                                            _____|%apply;access("24","mother.father.father.father")%end; |%if;mother.father.has_parents;                                                  _____|%apply;access("12","mother.father.father")%end; |%if;mother.father.has_parents;                                                 /%end;%if;mother.father.father.has_parents;                          ¯¯¯¯¯|%apply;access("25","mother.father.father.mother")%end; |%if;mother.has_parents;                        _____|%apply;access("6","mother.father")%end; |%if;mother.has_parents;                       /%end;%if;mother.father.has_parents;                         \%end;%if;mother.father.mother.has_parents;                          _____|%apply;access("26","mother.father.mother.father")%end; |%if;mother.has_parents;                      /%end;%if;mother.father.has_parents;                           ¯¯¯¯¯|%apply;access("13","mother.father.mother")%end; |%if;mother.has_parents;                     /%end;%if;mother.father.mother.has_parents;                                                      ¯¯¯¯¯|%apply;access("27","mother.father.mother.mother")%end; |%apply;access("3","mother") %if;mother.has_parents;                       \%if;mother.mother.father.has_parents;                                                      _____|%apply;access("28","mother.mother.father.father")%end;                        \%if;mother.mother.has_parents;                           _____|%apply;access("14","mother.mother.father")%end;                         \%if;mother.mother.has_parents;                         /%end;%if;mother.mother.father.has_parents;                          ¯¯¯¯¯|%apply;access("29","mother.mother.father.mother")%end;                          ¯¯¯¯¯|%apply;access("7","mother.mother")%end; %if;mother.mother.has_parents;                                                   \%if;mother.mother.mother.has_parents;                          _____|%apply;access("30","mother.mother.mother.father")%end;                                                    ¯¯¯¯¯|%apply;access("15","mother.mother.mother") %if;mother.mother.mother.has_parents;                                                                              ¯¯¯¯¯|%apply;access("31","mother.mother.mother.mother")%end;%end;
    %end; %define;individu(nz) %child_cnt;. %apply;image_sex("child","") %apply;picture_ind("child","") %apply;display_sosa_link("child","") %apply;access_ind("child") %if;("nz" = "1") %if;child.has_families; %foreach;child.family; %if;(family_cnt != 1), %end; %apply;detail_wedding() %end; %else; %apply;not_married_no_descendants() %end %else; %if;(evar.opt = "datree" and not child.is_male) %if;child.has_families; %foreach;child.family; %if;(family_cnt != 1), %end; %apply;detail_wedding() %end; %else; %apply;not_married_no_descendants() %end %end %if;(evar.opt = "dctree" and not child.is_female) %if;child.has_families; %foreach;child.family; %if;(family_cnt != 1), %end; %apply;detail_wedding() %end; %else; %apply;not_married_no_descendants() %end %end %end; %end; %define;spouse(nz) %apply;type_wedding()%family_cnt;. %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","10") %apply;picture_ind("spouse","11") %apply;display_sosa_link("spouse","11") %apply;access_ind("spouse")   %end; %define;aaap_enfant(ttt,yyy,ppp,eee,fff) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; %if;("ppp" = "p" or "ppp" = "n")|%end; %if;("ppp" = "u" or "ppp" = "d")%end; %if;("eee" = "p" or "eee" = "n")|%end; %if;("eee" = "u" or "eee" = "d")%end; %if;("fff" = "u" or "fff" = "p")%apply;type_wedding() %family_cnt;%end; %if;("fff" = "d" or "fff" = "n") %end; | - %apply;individu("1") %end; %define;aaap_enfant_spouse(ttt,yyy,ppp,eee) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; %if;("ppp" = "p" or "ppp" = "n")|%end; %if;("ppp" = "u" or "ppp" = "d")%end; %if;("eee" = "p" or "eee" = "n")|%end; %if;("eee" = "u" or "eee" = "d")%end; | %apply;spouse("1") %end; %define;aap_enfant(ttt,yyy,ppp,eee) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; %if;("ppp" = "p" or "ppp" = "n")|%end; %if;("ppp" = "u" or "ppp" = "d")%end; %if;("eee" = "u" or "eee" = "p")%apply;type_wedding() %family_cnt;%end; %if;("eee" = "d" or "eee" = "n") %end; | - %apply;individu("7") %end; %define;aap_enfant_spouse(ttt,yyy,ppp) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; %if;("ppp" = "p" or "ppp" = "n")|%end; %if;("ppp" = "u" or "ppp" = "d")%end; | %apply;spouse("7") %end; %define;desc_aap_enfant(ttt,yyy,ppp,eee) %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %foreach;child; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;aaap_enfant("ttt","yyy","ppp","eee","u") %elseif;(child_cnt = 1) %apply;aaap_enfant("ttt","yyy","ppp","eee","p") %elseif;(child_cnt = nb_children) %apply;aaap_enfant("ttt","yyy","ppp","eee","d") %else; %apply;aaap_enfant("ttt","yyy","ppp","eee","n") %end; %foreach;child.family; %apply;aaap_enfant_spouse("ttt","yyy","ppp","eee") %end; %end; %end; %end; %define;ap_enfant(ttt,yyy,ppp) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; %if;("ppp" = "u" or "ppp" = "p")%apply;type_wedding() %family_cnt;%end; %if;("ppp" = "d" or "ppp" = "n") %end; | - %apply;individu("13") %end; %define;ap_enfant_spouse(ttt,yyy) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "p" or "yyy" = "n")|%end; %if;("yyy" = "u" or "yyy" = "d")%end; | %apply;spouse("13") %end; %define;desc_ap_enfant_detail(ttt,yyy,ppp) %if;(child_cnt = 1 and child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","u") %if;child.has_children; %apply;desc_aap_enfant("ttt","yyy","ppp","u") %else; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %elseif;(child_cnt = 1) %apply;aap_enfant("ttt","yyy","ppp","p") %if;child.has_children; %apply;desc_aap_enfant("ttt","yyy","ppp","p") %else; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %elseif;(child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","d") %if;child.has_children; %apply;desc_aap_enfant("ttt","yyy","ppp","d") %else; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %else; %apply;aap_enfant("ttt","yyy","ppp","n") %if;child.has_children; %apply;desc_aap_enfant("ttt","yyy","ppp","n") %else; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %end; %end; %define;desc_ap_enfant(ttt,yyy,ppp) %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %foreach;child; %if;(evar.opt = "datree") %if;child.is_male; %apply;desc_ap_enfant_detail("ttt","yyy","ppp") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","u") %elseif;(child_cnt = 1) %apply;aap_enfant("ttt","yyy","ppp","p") %elseif;(child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","d") %else; %apply;aap_enfant("ttt","yyy","ppp","n") %end; %if;child.has_children; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %end; %elseif;(evar.opt = "dctree") %if;child.is_female; %apply;desc_ap_enfant_detail("ttt","yyy","ppp") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","u") %elseif;(child_cnt = 1) %apply;aap_enfant("ttt","yyy","ppp","p") %elseif;(child_cnt = nb_children) %apply;aap_enfant("ttt","yyy","ppp","d") %else; %apply;aap_enfant("ttt","yyy","ppp","n") %end; %if;child.has_children; %foreach;child.family; %apply;aap_enfant_spouse("ttt","yyy","ppp") %end; %end; %end; %else; %apply;desc_ap_enfant_detail("ttt","yyy","ppp") %end; %end; %end; %end; %define;p_enfant(ttt,yyy) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; %if;("yyy" = "u" or "yyy" = "p")%apply;type_wedding() %family_cnt;%end; %if;("yyy" = "d" or "yyy" = "n") %end; | - %apply;individu("19") %end; %define;p_enfant_spouse(ttt) %if;("ttt" = "p" or "ttt" = "n")|%end; %if;("ttt" = "u" or "ttt" = "d")%end; | %apply;spouse("19") %end; %define;desc_p_enfant_detail(ttt,yyy) %if;(child_cnt = 1 and child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","u") %if;child.has_children; %apply;desc_ap_enfant("ttt","yyy","u") %else; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %elseif;(child_cnt = 1) %apply;ap_enfant("ttt","yyy","p") %if;child.has_children; %apply;desc_ap_enfant("ttt","yyy","p") %else; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %elseif;(child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","d") %if;child.has_children; %apply;desc_ap_enfant("ttt","yyy","d") %else; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %else; %apply;ap_enfant("ttt","yyy","n") %if;child.has_children; %apply;desc_ap_enfant("ttt","yyy","n") %else; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %end; %end; %define;desc_p_enfant(ttt,yyy) %foreach;child.family; %apply;p_enfant_spouse("ttt") %foreach;child; %if;(evar.opt = "datree") %if;child.is_male; %apply;desc_p_enfant_detail("ttt","yyy") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","u") %elseif;(child_cnt = 1) %apply;ap_enfant("ttt","yyy","p") %elseif;(child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","p") %else; %apply;ap_enfant("ttt","yyy","n") %end; %if;child.has_children; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %end; %elseif;(evar.opt = "dctree") %if;child.is_female; %apply;desc_p_enfant_detail("ttt","yyy") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","u") %elseif;(child_cnt = 1) %apply;ap_enfant("ttt","yyy","p") %elseif;(child_cnt = nb_children) %apply;ap_enfant("ttt","yyy","d") %else; %apply;ap_enfant("ttt","yyy","n") %end; %if;child.has_children; %foreach;child.family; %apply;ap_enfant_spouse("ttt","yyy") %end; %end; %end; %else; %apply;desc_p_enfant_detail("ttt","yyy") %end; %end; %end; %end; %define;enfant(kkk) %if;("kkk" = "u" or "kkk" = "p")%apply;type_wedding() %family_cnt;%end; %if;("kkk" = "d" or "kkk" = "n") %end; | - %apply;individu("25") %end; %define;enfant_spouse() | %apply;spouse("25") %end; %define;desc_enfant_detail(ttt) %if;(child_cnt = 1 and child_cnt = nb_children) %apply;p_enfant("ttt","u") %if;child.has_children; %apply;desc_p_enfant("ttt","u") %else; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %elseif;(child_cnt = 1) %apply;p_enfant("ttt","p") %if;child.has_children; %apply;desc_p_enfant("ttt","p") %else; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %elseif;(child_cnt = nb_children) %apply;p_enfant("ttt","d") %if;child.has_children; %apply;desc_p_enfant("ttt","d") %else; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %else; %apply;p_enfant("ttt","n") %if;child.has_children; %apply;desc_p_enfant("ttt","n") %else; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %end; %end; %define;desc_enfant(ttt) %foreach;child.family; %apply;enfant_spouse() %foreach;child; %if;(evar.opt = "datree") %if;child.is_male; %apply;desc_enfant_detail("ttt") %else %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;p_enfant("ttt","u") %elseif;(child_cnt = 1) %apply;p_enfant("ttt","p") %elseif;(child_cnt = nb_children) %apply;p_enfant("ttt","d") %else; %apply;p_enfant("ttt","n") %end; %if;child.has_children; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %end; %elseif;(evar.opt = "dctree") %if;child.is_female; %apply;desc_enfant_detail("ttt") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;p_enfant("ttt","u") %elseif;(child_cnt = 1) %apply;p_enfant("ttt","p") %elseif;(child_cnt = nb_children) %apply;p_enfant("ttt","d") %else; %apply;p_enfant("ttt","n") %end; %if;child.has_children; %foreach;child.family; %apply;p_enfant_spouse("ttt") %end; %end; %end; %else; %apply;desc_enfant_detail("ttt") %end; %end; %end; %end; %define;desc_parents_detail(ttt) %if;(child_cnt = 1 and child_cnt = nb_children) %apply;enfant("u") %if;child.has_children; %apply;desc_enfant("u") %else; %foreach;child.family; %apply;enfant_spouse() %end; %end; %elseif;(child_cnt = 1) %apply;enfant("p") %if;child.has_children; %apply;desc_enfant("p") %else; %foreach;child.family; %apply;enfant_spouse() %end; %end; %elseif;(child_cnt = nb_children) %apply;enfant("d") %if;child.has_children; %apply;desc_enfant("d") %else; %foreach;child.family; %apply;enfant_spouse() %end; %end; %else; %apply;enfant("n") %if;child.has_children; %apply;desc_enfant("n") %else; %foreach;child.family; %apply;enfant_spouse() %end; %end; %end; %end; %define;desc_tree() %foreach;child; %if;(evar.opt = "datree") %if;child.is_male; %apply;desc_parents_detail("ttt") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;enfant("u") %elseif;(child_cnt = 1) %apply;enfant("p") %elseif;(child_cnt = nb_children) %apply;enfant("d") %else; %apply;enfant("n") %end; %if;child.has_children; %foreach;child.family; %apply;enfant_spouse() %end; %end; %end; %elseif;(evar.opt = "dctree") %if;child.is_female; %apply;desc_parents_detail("ttt") %else; %apply;tr_color() %if;(child_cnt = 1 and child_cnt = nb_children) %apply;enfant("u") %elseif;(child_cnt = 1) %apply;enfant("p") %elseif;(child_cnt = nb_children) %apply;enfant("d") %else; %apply;enfant("n") %end; %if;child.has_children; %foreach;child.family; %apply;enfant_spouse() %end; %end; %end; %else; %apply;desc_parents_detail("ttt") %end; %end;
    %end; %define;entete() %apply;top()
    %if;(evar.opt = "datree") %if;not cancel_links;
    [descendants] [agnatic descendants/cognatic descendants]1
    %end;

    [*agnatic descendants/cognatic descendants]0

    %elseif;(evar.opt = "dctree") %if;not cancel_links;
    [descendants] [agnatic descendants/cognatic descendants]0
    %end;

    [*agnatic descendants/cognatic descendants]1

    %else; %if;not cancel_links;
    [agnatic descendants/cognatic descendants]0 [agnatic descendants/cognatic descendants]1
    %end;

    [*descendants]

    %end; %end; %if;(has_families and has_children)
    %apply;entete()
    %apply;image_sex("self","") %apply;picture_ind("self","") %apply;display_sosa_link("self","") %self;%self.title;%self.dates; %if;has_parents;  [ancestors] %end; %foreach;family;
    %apply;type_wedding()%family_cnt;. %if(family.marriage_date.year != "")(%family.marriage_date.year;)%end; %apply;image_sex("spouse","") %apply;picture_ind("spouse","") %apply;display_sosa_link("spouse","") %apply;access_ind("spouse") %if;has_children;
    %apply;desc_tree() %end; %end;
    %end; %if;(evar.opt = "misc")%misc_names;

    %end;

    ...
    %copyright; %base_trailer;