%if;(evar.implx = "on") %end; %define;implex() %if;(evar.implx="on") %end; %end; %define;implex1(xx) onmouseover="over1('sxx')" onmouseout="out1('sxx')" %nn; %end; %let;hbc;13%in; %let;wbc;8%in; %let;hbs;15%in; %let;wbs;21%in; %let;hb1;12%in; %let;wb1;18%in; %define;bg(xx) %apply;nth%with; /FFC8E3/F0CBFE/DDCEFF/FFA8D3/E7A9FE/FF86C2/DD88FD/FF62B0/C4ABFE/C433FE %and;xx%end; %end; %define;size(xx) %apply;nth%with; %if;(evar.sosa2 = "on") //70/70/70/190/190/430/430/600/600/950/950/ %else; //50/50/105/105/215/215/410/410/840/840/1650/1650/ %end; %and;xx%end; %end; %include;anctree_hi_indexes %define;boxsosa(xx, yy, ll, bg) %( x = sosa, y = level max, l = level %)
999)5%elseif;(ll>10)7%else;9%end;px;">xx
%end; %define;boxchar(x,y) %if;(x=1)┼ %elseif;((x>1 and x<4) or (x>7 and x<16) or (x>31 and x<64) or (x>127 and x<256) or (x>511 and x<1024)or (x>2047 and x<4096)) %if;(y=0) %if;(x%2=0) %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┐ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┌ %elseif;(not ancestor.has_parents)╷ %else;┬%end; %else; %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┘ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)└ %elseif;(not ancestor.has_parents)╵ %else;┴%end; %end; %else; %if;(x%2=0) %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)└ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┌ %elseif;(not ancestor.has_parents)╶ %else;├%end; %else; %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┘ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┐ %elseif;(not ancestor.has_parents)╴ %else;┤%end; %end; %end; %elseif;((x>3 and x<8) or (x>15 and x<32) or (x>63 and x<128) or (x>255 and x<512) or (x>1023 and x<2048) or (x>4095 and x<8192)) %if;(y=0) %if;(x%2=0) %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)└ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┌ %elseif;(not ancestor.has_parents)╶ %else;├%end; %else; %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┘ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┐ %elseif;(not ancestor.has_parents)╴ %else;┤%end; %end; %else; %if;(x%2=0) %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┐ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)┌ %elseif;(not ancestor.has_parents)╷ %else;┬%end; %else; %if;(evar.cpl="on" and not ancestor.spouse.has_parents and ancestor.has_parents)┘ %elseif;(evar.cpl="on" and not ancestor.has_parents and ancestor.spouse.has_parents)└ %elseif;(not ancestor.has_parents)╵ %else;┴%end; %end; %end; %end; %end; %define;graph(xx,yy,zz) %( xx gen ; yy mode 0=H 1=I ; zz 1=single 2=couple %) %let;nav;;m=A;v=%evar.v;;t=T;t1=%evar.t1;;it=%evar.it;;%if;(evar.sosa2 != "")sosa2=%evar.sosa2;;%end;nav=on;%if;(evar.cpl != "")cpl=%evar.cpl;;%end;%if;(evar.implx != "")implx=%evar.implx;;%end;%if;(evar.sms != "")sms=%evar.sms;;%end;%in; %let;levelup;%expr(xx+1)%in; %let;leveldown;%expr(xx-1)%in; %let;hb;%if;(evar.sosa2 = "on" and ((evar.v<9 and evar.cpl!="on") or (evar.v<10 and evar.cpl="on")))%expr(hbs*2)%elseif;(evar.sosa2 = "on")%hbs;%else;%hbc;%end;%in; %let;wb;%if;(evar.sosa2 = "on" and ((evar.v<9 and evar.cpl!="on") or (evar.v<10 and evar.cpl="on")))%expr(wbs*2)%elseif;(evar.sosa2 = "on")%wbs;%else;%wbc;%end;%in; %if;(zz=2) %( par couple %) %foreach;ancestor_level(levelup) %foreach;ancestor; %if;(ancestor.anc_sosa.v %2 = 0) %let;anc_sosahalf;%expr(ancestor.anc_sosa.v/2)%in; %let;top;%expr(topxx_yy(anc_sosahalf)*hb)%in; %let;left;%expr(leftxx_yy(anc_sosahalf)*wb)%in; %let;bg;%if;(ancestor.same != "")CBFECE;%else;%apply;bg(level)%end;%in; %if;(evar.sosa2!="on")%end; %if;(evar.sosa2 != "on") %if;(ancestor.same != "")x %apply;implex() %else;%apply;boxchar(anc_sosahalf,yy)%end; %else; %if;(ancestor.same != "")%apply;implex()%end; %apply;boxsosa(ancestor.anc_sosa.v,yy,level,bg) %end; %end; %end; %end; %foreach;ancestor_level(xx) %foreach;ancestor; %if;(not ancestor.has_parents) %let;top4;%expr(topxx_yy(ancestor.anc_sosa.v)*hb)%in; %let;left4;%expr(leftxx_yy(ancestor.anc_sosa.v)*wb)%in; %if;(evar.sms="on")·%else; %end; %end; %end; %end; %else; %(single %) %foreach;ancestor_level(xx) %foreach;ancestor; %let;top;%expr(topxx_yy(ancestor.anc_sosa.v)*hb)%in; %let;left;%expr(leftxx_yy(ancestor.anc_sosa.v)*wb)%in; %let;top1;%expr(topxx_yy(ancestor.anc_sosa.v)*hb+6)%in; %let;left1;%expr(leftxx_yy(ancestor.anc_sosa.v)*wb+4)%in; %let;top2;%expr(topxx_yy(ancestor.same.v)*hb+6)%in; %let;left2;%expr(leftxx_yy(ancestor.same.v)*wb+4)%in; %let;bg;%if;(ancestor.same != "")CBFECE;%else;%apply;bg(level)%end;%in; %if;(evar.sosa2!="on")%end; %if;(evar.sosa2 != "on") %if;(ancestor.same != "")x %apply;implex() %else;%apply;boxchar(ancestor.anc_sosa.v,yy)%end; %else; %if;(ancestor.same != "")%apply;implex()%end; %apply;boxsosa(ancestor.anc_sosa.v,yy,level,bg) %end; %end; %end; %foreach;ancestor_level(leveldown) %foreach;ancestor; %if;(not ancestor.has_parents) %let;top2;%expr(topxx_yy(ancestor.anc_sosa.v*2)*hb)%in; %let;left2;%expr(leftxx_yy(ancestor.anc_sosa.v*2)*wb)%in; %if;(evar.sms="on")·%else; %end; %let;top3;%expr(topxx_yy(ancestor.anc_sosa.v*2+1)*hb)%in; %let;left3;%expr(leftxx_yy(ancestor.anc_sosa.v*2+1)*wb)%in; %if;(evar.sms="on")·%else; %end; %end; %end; %end; %end; %end; %define;links(nn,yy,oo) %( nn #links, oo orientation %) %if;(evar.sosa2="on") %for;i;0;nn; %if;(oo=0) %if;(yy=0)│%else;─%if;(evar.sosa2="on" and (evar.v<9 and evar.cpl!="on") or (evar.v<8 and evar.cpl="on") and nn!=1)───%elseif;(evar.sosa2="on" and nn!=1)─%end;%end; %elseif;(oo=1) %if;(yy=0)─%if;(evar.sosa2="on" and (evar.v<9 and evar.cpl!="on") or (evar.v<8 and evar.cpl="on") and nn!=1)───%elseif;(evar.sosa2="on" and nn!=1)─%end;%else;│%end; %end; %end; %end; %define;graphlinks(xx,yy) %( xx level -1, yy mode : 0=I, 1=H %) %let;hb;%if;(evar.sosa2 = "on" and ((evar.v<9 and evar.cpl!="on") or (evar.v<10 and evar.cpl="on")))%expr(hbs*2)%elseif;(evar.sosa2 = "on")%hbs;%else;%hbc;%end;%in; %let;wb;%if;(evar.sosa2 = "on" and ((evar.v<9 and evar.cpl!="on") or (evar.v<10 and evar.cpl="on")))%expr(wbs*2)%elseif;(evar.sosa2 = "on")%wbs;%else;%wbc;%end;%in; %foreach;ancestor_level(xx-2) %foreach;ancestor; %let;top_;%expr(topxx_yy_(ancestor.anc_sosa.v)*hb)%in; %let;left_;%expr(leftxx_yy_(ancestor.anc_sosa.v)*wb)%in; %if;((evar.cpl="on" and ancestor.has_parents) or (evar.cpl!="on" and ancestor!="")) %if;(ancestor.anc_sosa.v=2 or ancestor.anc_sosa.v=3) %if;(xx=4 or xx=5) %apply;links(1,yy,0) %elseif;(xx=6 or xx=7) %apply;links(3,yy,0) %elseif;(xx=8 or xx=9) %apply;links(7,yy,0) %elseif;(xx=10 or xx=11) %apply;links(15,yy,0) %elseif;(xx=12) %apply;links(31,yy,0) %end; %elseif;(ancestor.anc_sosa.v>3 and ancestor.anc_sosa.v<8) %if;(xx=5 or xx=6) %apply;links(1,yy,1) %elseif;(xx=7 or xx=8) %apply;links(3,yy,1) %elseif;(xx=9 or xx=10) %apply;links(7,yy,1) %elseif;(xx=11 or xx=12) %apply;links(15,yy,1) %end; %elseif;(ancestor.anc_sosa.v>7 and ancestor.anc_sosa.v<16) %if;(xx=6 or xx=7) %apply;links(1,yy,0) %elseif;(xx=8 or xx=9) %apply;links(3,yy,0) %elseif;(xx=10 or xx=11) %apply;links(7,yy,0) %elseif;(xx=12) %apply;links(15,yy,0) %end; %elseif;(ancestor.anc_sosa.v>15 and ancestor.anc_sosa.v<32) %if;(xx=7 or xx=8) %apply;links(1,yy,1) %elseif;(xx=9 or xx=10) %apply;links(3,yy,1) %elseif;(xx=11 or xx=12) %apply;links(7,yy,1) %end; %elseif;(ancestor.anc_sosa.v>31 and ancestor.anc_sosa.v<64) %if;(xx=8 or xx=9) %apply;links(1,yy,0) %elseif;(xx=10 or xx=11) %apply;links(3,yy,0) %elseif;(xx=12) %apply;links(7,yy,0) %end; %elseif;(ancestor.anc_sosa.v>63 and ancestor.anc_sosa.v<128) %if;(xx=9 or xx=10) %apply;links(1,yy,1) %elseif(xx=11 or xx=12) %apply;links(3,yy,1) %end; %elseif;(ancestor.anc_sosa.v>127 and ancestor.anc_sosa.v<256) %if;(xx=10 or xx=11) %apply;links(1,yy,0) %elseif;(xx=12) %apply;links(3,yy,0) %end; %elseif;(ancestor.anc_sosa.v>255 and ancestor.anc_sosa.v<512) %if;(xx=11 or xx=12) %apply;links(1,yy,1) %end; %elseif;(ancestor.anc_sosa.v>511 and ancestor.anc_sosa.v<1024) %if;(xx=12) %apply;links(1,yy,0) %end; %end; %end; %end; %end; %end; %if;(evar.v < 5) [*compact tree][:] [specify::generation/generations]0 >= 5. %else; %let;size0;%apply;size(evar.v)%in; %let;size1;%apply;size(evar.v-1)%in; %let;size2;%apply;size(evar.v-2)%in; %let;size3;%apply;size(evar.v-3)%in; %if;(evar.t = "T" and evar.v > 3) %if;(evar.t1 = "CT" and evar.it != "on") %if;(evar.sosa2 = "on") %if;(evar.v < 14 and evar.cpl = "on")
%apply;graph(evar.v-2,1,2) %apply;graphlinks(evar.v-2,1)
%elseif;(evar.v < 13 and evar.cpl != "on")
%apply;graph(evar.v-1,1,1) %apply;graphlinks(evar.v-1,1)
%end; %elseif;(evar.sosa2 != "on") %if;(evar.v < 15 and evar.cpl = "on")
%apply;graph(evar.v-2,1,2) %apply;graphlinks(evar.v-2,1)
%elseif;(evar.v < 14 and evar.cpl != "on")
%apply;graph(evar.v-1,1,1) %apply;graphlinks(evar.v-1,1)
%end; %end; %elseif;(evar.t1 = "CT" and evar.it = "on") %if;(evar.sosa2 = "on") %if;(evar.v < 14 and evar.cpl = "on")
%apply;graph(evar.v-2,0,2) %apply;graphlinks(evar.v-2,0)
%elseif;(evar.v < 13 and evar.cpl != "on")
%apply;graph(evar.v-1,0,1) %apply;graphlinks(evar.v-1,0)
%end; %elseif;(evar.sosa2 != "on") %if;(evar.v < 15 and evar.cpl = "on")
%apply;graph(evar.v-2,0,2) %apply;graphlinks(evar.v-2,0)
%elseif;(evar.v < 14 and evar.cpl != "on")
%apply;graph(evar.v-1,0,1) %apply;graphlinks(evar.v-1,0)
%end; %end; %end; %end; %end;