%( table calendar nb day-month tf1/tl1 = cal %) %define;color(xx) %apply;nth%with; /666/933/393/339/999/399/939/993/AAA/FAA/AFA/AAF/FFF/AFF/FAF/FFA%and; xx%end; %end; %define;anc_cal() %reset_count; %empty_sorted_list; %foreach;ancestor_level(l_v) %if;(level > 1 and (evar.only != "on" or level = l_v)) %foreach;ancestor; %if;(ancestor.same = "") %if;(ancestor.birth_date.day != "") %incr_count; %let;mm_dd;%expr(ancestor.birth_date.month+100)_%expr(ancestor.birth_date.day+100)%in; %apply;add_in_sorted_list(mm_dd,ancestor.birth_date.month,ancestor.birth_date.day,ancestor.index,birth_symbol) %end; %if;(ancestor.death_date.day != "") %incr_count %let;mm_dd;%expr(ancestor.death_date.month+100)_%expr(ancestor.death_date.day+100)%in; %apply;add_in_sorted_list(mm_dd,ancestor.death_date.month,ancestor.death_date.day,ancestor.index,death_symbol) %end; %end; %end; %end; %end; %end; %define;des_cal(curlev,maxlev) %if;(birth_date.day != "") %incr_count; %let;mm_dd;%expr(birth_date.month+100)_%expr(birth_date.day+100)%in; %apply;add_in_sorted_list(mm_dd,birth_date.month,birth_date.day,index,birth_symbol) %end; %if;(death_date.day != "") %incr_count %let;mm_dd;%expr(death_date.month+100)_%expr(death_date.day+100)%in; %apply;add_in_sorted_list(mm_dd,death_date.month,death_date.day,index,death_symbol) %end; %foreach;family; %if;(curlev < maxlev and family.desc_level = curlev and has_children) %family.set_infinite_desc_level; %foreach;child; %apply;des_cal(curlev+1,maxlev) %end; %end; %end; %end; %define;cal(z1) %if;("z1" = "anc")%apply;anc_cal()%else;%apply;des_cal(0,l_v)%end;

[*calendar/calendars]0

%for;i;1;32;

%i;

%end;

[(month)]0[(month)]1[(month)]2[(month)]3 [(month)]4[(month)]5[(month)]6[(month)]7 [(month)]8[(month)]9[(month)]10[(month)]11

%reset_count; %foreach;sorted_list_item; %if;(prev_item.1 != item.1) %reset_count;%incr_count; %expr(count - 1) %end; %end;

%end; %( main %) %apply;togen() %if;(evar.m = "A") %apply;cal("anc") %else; %apply;cal("des") %end;