%( op_m=1 simple: name %) %( op_m=3 simple with photo in 2 cols %) %( op_m=2 evolved: name, occupation %) %( op_m=4 complete: name, birth, death, occupation, marriages %) %( op_m=5 complete with photo in 2 centered cols %) %let;op_m;%if;(op_m!="")%op_m;%else;1%end;%in; %let;op_ph;%if;has_parents; %if;(father.has_image or mother.has_image)1%else;0%end; %else;nn; 0%nn; %end;%nn; %in; %if;((op_m=1 or op_m=3 or op_m=4 or (op_m=5 and op_ph=0)) and has_parents)

[*parents]

%elseif;(op_m=5 and op_ph=1 and has_parents)
%if;father.has_image; %if;(evar.cgl!="on") %else; %end; %elseif;(bvar.default_image="yes") [missing image] %else; ? %end;

[*parents]

%if;(has_birth_date and (father.has_birth_date or mother.has_birth_date))
%apply;age_at_birth_of(central_person)
%nn; %if;father.has_birth_date;%father_age_at_birth; %else; %end; | %nn; %if;mother.has_birth_date; %mother_age_at_birth;%else; %end;
%end;
%if;mother.has_image; %if;(evar.cgl!="on") %else; %end; %elseif;(bvar.default_image="yes") [missing image] %else; ? %end;
%apply;display_vertical("father") %foreach;father.family; %if;(spouse.access=mother.access) %apply;long_married_f("father", "UPPER") %if;are_divorced;[divorced]0%divorce_date;%end; %if;are_separated;[separated]0%end; %end; %end; %apply;display_vertical("mother")
%elseif;(op_m=2 and has_parents)

[*parents]

%foreach;parent;
%if;parent.has_image; %if;(evar.cgl!="on") [image/images]0 %if;(parent.is_male)[father/mother]0%else;[father/mother]1%end; %else; [image/images]0 %if;(parent.is_male)[father/mother]0%else;[father/mother]1%end; %end; %elseif;(bvar.default_image="yes") [missing image] %else; ? %end;
%apply;short_display_person_tree("parent")
%if;parent.computable_age;%sp;%parent.age;%end; %if;parent.computable_death_age;%sp;%parent.death_age;%end;
%end;
%end;