%let;l_fs;%if;(evar.fs != "")%evar.fs;%else;15%end;%in; %let;l_wi;%if;(evar.wi != "")%evar.wi;%else;980%end;%in; %let;l_he;%if;(evar.he != "")%evar.he;%else;600%end;%in; %let;l_sosa_ref;%if;(evar.sosa = "on" and browsing_with_sosa_ref and has_sosa)on%end;%in; %let;l_prefix;%prefix;t=h7;image=%evar.image;;siblings=%evar.siblings;;sosa=%evar.sosa;;fs=%l_fs;;wi=%l_wi;;he=%l_he;;bp=%evar.bp;;%in; %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in; %let;l_emaxv;%if;(evar.t != "T")%evar.maxv;%elseif;(bvar.max_anc_tree = "")7%else;%bvar.max_anc_tree;%end;%in; %define;on_side(xx) [*on %s's side:::xx] %end; %define;checkbox(cc,xx,yy,uu) ccyy %end; %define;radio(xx,yy,zz,uu) zz %end; %define;image(xx) %if;(bvar.no_image_for_visitor != "yes" or friend or wizard) %apply;checkbox("xx","image",[display picture],"") %end; %end; %define;longdisplay() %if;(has_sosa and evar.m = "D") [branch/branches]0 : Sosa %end; %apply;checkbox("├","siblings",[siblings],"") %let;nosurn;[first name/first names]0 ([surname/surnames]0)%in; %apply;checkbox("├","nosurn",nosurn,"") %let;alias;[surname alias], [first name alias]%in; %apply;checkbox("├","alias",alias,"") %apply;checkbox("├","spouse",[include spouses],"") %apply;checkbox("├","parents",[parents],"") %apply;checkbox("├","rel",[relation/relations]1,"") %apply;checkbox("├","witn",[witness/witnesses]1,"") %apply;checkbox("├","notes",[note/notes]1,"") %apply;checkbox("├","src",[source/sources]1,"") %apply;checkbox("├","upd",[update]1,"") %apply;checkbox("└","hide",[visualize/show/hide/summary]2,"") %end; %define;anc_hrztl() %apply;checkbox("├","marriage2",[marriage date],[display marriage date]) %apply;checkbox("├","sosa",[n° Sosa],"") %apply;checkbox("└","xy",[by couple],"") %apply;checkbox(" ├","siblings",[child/children]1,"") %apply;checkbox(" ├","timeline",[time line],"") └ [scale] %end; %define;border_color() ├ [border]px └ [color] %for;i;0;8; %let;bgi;bg%i;%in; %if;(i=3)   %end; %end; %end; %define;generation() [generation/generations]1 (X)
%end; %define;envkb() %hidden; %foreach;env_binding; %if;(env.key="age" or env.key = "cgl" or env.key = "dsrc" or env.key = "image" or env.key = "maxlev" or env.key = "spouse" or env.key = "wide" or env.key="templ" or env.key="iz" or env.key="nz" or env.key="ocz" or env.key="pz") %else; %end; %end; %end; %define;perso_gen() %if(not cancel_links) %let;maxvd;%if;(has_children and max_desc_level > 1)%max_desc_level;%else;3%end;%in; %let;l_on;onclick="this.focus()" onkeydown="if (event.keyCode == 13) javascript:document.tools.submit();"%in; %end; %end; %define;tools_perso() %let;l_on1;%in;

%end; %define;tools_anctree()

⏎ [*tools]0 [ascendants tree] %apply;generation() %hidden; %if;(evar.p != "" or evar.n != "" or evar.oc != "") %end; %if;(evar.i != "") %end;

%let;l_on1;onchange="valid('t1T')"%in; %apply;radio("t1","A",[*male line/female line]0,"") %apply;radio("t1","C",[*male line/female line]1,"") %apply;radio("t1","T",[*full tree],[*ascendants tree]) %apply;checkbox("├","dag",[dag],"") %if;(evar.t = "T") ├ [display by slices/slice width/overlap/total width]0 %end; %apply;border_color()

%let;l_on1;onchange="valid('t1HT')"%in; %apply;radio("t1","HT",[*horizontal tree],"") %apply;checkbox("└","xy",[by couple],"") %apply;checkbox(" ├","timeline",[time line],"") └ [scale] %let;l_on1;%in; %apply;checkbox(" ","cgl",[*cancel GeneWeb links],"") %if;(bvar.no_image_for_visitor != "yes" or friend or wizard) %apply;checkbox(" ","image",[image/images]1,"") %end; %apply;checkbox(" ","marriage",[marriage date],[display marriage date]) %apply;checkbox(" ","siblings",[full siblings],"") %apply;checkbox(" ","sosa",[n° Sosa],[visualize/show/hide/summary]1) [*font size] px

%let;l_on1;onchange="valid('t1CT')"%in; %apply;radio("t1","CT",[*compact tree],"[itree] [or] [htree]") %(apply;checkbox("├","hi","Orientation I (on) [or] H (off)",""%) ├ orientation I H %let;msg;[by couple] ([one additional generation])%in; %apply;checkbox("├","cpl",msg,"") %let;msg;[implex links]%in; %apply;checkbox("├","implx",msg,"") └ [visualize/show/hide/summary]1 [missing sosa] [*mtree] [*h7-tree] ├[birth place] ├ largeurpx └ hauteurpx

%end; %define;tools_dag()

[*tools]0 %hidden; %foreach;env_binding; %if;( env.key = "bd" or env.key = "bg" or env.key = "cgl" or env.key = "color" or env.key = "image" or env.key = "invert" or env.key = "lim" or env.key = "opt" or env.key = "new" or env.key = "spouse" or env.key = "v" or env.key = "dpos" or env.key = "pos1" or env.key = "pos2" or env.key = "nogroup" or env.key = "notab" or env.key = "overlap" or env.key = "width" or env.key = "slices" or env.key = "templ" or env.key = "iz" or env.key = "pz" or env.key = "nz" or env.key = "ocz" ) %else; %end; %end; %if;(evar.t = "T")

%let;l_emaxv; %if;(evar.m = "A") %if;(bvar.max_anc_tree = "")7%else;%bvar.max_anc_tree;%end; %else; %if;(bvar.max_desc_tree = "")4%else;%bvar.max_desc_tree;%end; %end; %in; %apply;generation()

%end; %if;(evar.notab = "on")

[*display by slices/slice width/overlap/total width]0 [don't group the common branches together] [display by slices/slice width/overlap/total width]1 [display by slices/slice width/overlap/total width]2 = 78)%dag.min_wid; %else;78%end;" %/>[display by slices/slice width/overlap/total width]3 (%dag.min_wid;-%dag.max_wid;)

%else;

[*modify::tree]
[*display by slices/slice width/overlap/total width]0

%end;

%if;(evar.m = "RLM" or evar.m = "RL" or evar.em = "R") %apply;checkbox("├","spouse",[include spouses],"") %end; ├[link to use] %apply;checkbox("├","cgl",[cancel GeneWeb links],"") %apply;image("├") %apply;border_color()

%if;(evar.m = "RLM") %apply;checkbox("├","invert",[invert],"") %apply;checkbox("├","new",[new],"") lim %end;

%end; %define;tools_anclist()

[*tools]0 %if;(evar.fam7 = "on")[family time line]1 %end; %hidden; %if;(evar.p != "" or evar.n != "" or evar.oc != "") %end; %if;(evar.i != "") %end; %let;l_bmaxv;%if;(bvar.max_anc_level = "")%evar.maxv;%else;%bvar.max_anc_level;%end;%in; %let;l_emaxv;%if;(evar.maxv = "")%l_bmaxv;%elseif;(evar.maxv < l_bmaxv)%evar.maxv;%else;%l_bmaxv;%end;%in; %let;l_maxv;%if;((evar.fam7 = "on") and l_v > 4)4%else;%l_emaxv;%end;%in; %apply;generation()

%if;(evar.fam7 != "on" and evar.t != "H" and evar.t != "L") %apply;checkbox("├","only",[only the generation selected],"") %end; %apply;checkbox("├","cgl",[cancel GeneWeb links],"") %if;(evar.t = "H") %apply;checkbox("├","marriage2",[marriage date],[display marriage date]) %apply;checkbox("├","sosa",[n° Sosa],"") %apply;checkbox("├","xy",[by couple],"") %apply;checkbox("├","siblings",[child/children]1,"") %apply;checkbox("├","timeline",[time line],"") └ [scale] %end; %if;(evar.fam7 = "on") %apply;radio("tf1","fam73",[time line],"") %let;fam70;[date/dates]0, [place]0%in; %apply;radio("tf1","fam70",fam70,"") %if;(bvar.no_image_for_visitor != "yes" or friend or wizard) %let;fam71;[image/images]1 [long display]%in; %apply;radio("tf1","fam71",fam71,"") %let;fam72;[image/images]1 onmousemov%in; %apply;radio("tf1","fam72",fam72,"") %end; %apply;checkbox("├","spouse",[add::spouse/spouses]1,"") %apply;checkbox("└","cousins",[add::cousins],"")

%end; %if;(evar.tf1 != "" and evar.fam7 != "on")

[*list/list (ancestors)]0 %apply;radio("tf1","sb",[surnames branch],"") [list eclair]0 - [surname/surnames]1 / [places] [list eclair]0 - [places]

[*statistics] %apply;radio("tf1","cal",[calendar/calendars]0,"") %apply;radio("tf1","bmdm",[year/month/day]1,"") [age] ([father/mother]0, [father/mother]1) %apply;radio("tf1","aax",[age at %s birth date:::x],"") [year/month/day]0 [death] - [year/month/day]0 [death] x %apply;radio("tf1","aad",[age at death],"") [year/month/day]1 [birth] = [year/month/day]1 [death] ? %apply;radio("tf1","ars",[Αἰθήρ],"") %end;

%end; %define;tools_ancsosa()

[*tools]0 %hidden; %if;(evar.p != "" or evar.n != "" or evar.oc != "") %end; %if;(evar.i != "") %end; %if;(evar.lang != "")%end; %if;(l_up = "")

%let;l_bmaxv;%if;(bvar.max_anc_level = "")9%else;%bvar.max_anc_level;%end;%in; %let;l_emaxv;%if;(evar.maxv = "")%l_bmaxv;%elseif;(evar.maxv < l_bmaxv)%evar.maxv;%else;%l_bmaxv;%end;%in; %apply;generation() %apply;checkbox("├","only",[only the generation selected],"") %end; %if;(evar.t = "D" or evar.t = "G" or evar.t = "Z") %if;(evar.i1 != "")%end; %if;(evar.l != "")%end; %apply;checkbox("├","cgl",[cancel GeneWeb links],"") %apply;image("└")

%end; %if;(evar.t = "G")

[*long display] %apply;longdisplay()

%end; %if;(evar.t = "M")

[*missing ancestors] [alphabetic order] [first name/first names]1, [surname/surnames]1 = ??

[*date/dates]0 <> [exact] [birth] [marriage/marriages]0 [death]

%end;

%end; %define;tools_deslist()

[*tools]0 %if;(evar.tl1!="hrtzl")[statistics] %end; %hidden; %if;(evar.p != "" or evar.n != "" or evar.oc != "") %end; %if;(evar.i != "") %end; %if;(evar.l != "") %end; %if;(evar.i1 = "")

%let;l_bmaxv;%if;(bvar.max_desc_level = "")%evar.maxv;%else;%bvar.max_desc_level;%end;%in; %let;l_emaxv;%if;(evar.maxv = "")%l_bmaxv;%elseif;(evar.maxv < l_bmaxv)%evar.maxv;%else;%l_bmaxv;%end;%in; %apply;generation()

%end;

%apply;checkbox(" ","cgl",[cancel GeneWeb links],"") %if;(evar.tl1 = "")%apply;image()%end;

%if;(evar.tl1 = "") %if;(evar.t = "L" or evar.t = "M" or evar.t = "F")

%apply;radio("t","L",[*long display]0,"") %apply;radio("t","M",[male line/female line]0,"") %apply;radio("t","F",[male line/female line]1,"") %apply;longdisplay()

%end; %elseif;(evar.tl1 = "hrztl") %else;

%apply;radio("tl1","cal",[calendar/calendars]0,"") %apply;radio("tl1","bmdm",[year/month/day]1,"") [age] ([father/mother]0, [father/mother]1) [age at %s birth date:::x] [year/month/day]0 [death] - [year/month/day]0 [death] x %apply;radio("tl1","aad",[age at death],"") [year/month/day]1 [birth] = [year/month/day]1 [death] ? %apply;radio("tl1","ars",[Αἰθήρ],"")

%end;