// (c) Roemah Koetjing 1997
var cla="\n\n  Javascript Copyright © 1997 Roemah Koetjing",clb=0,clc=0,cld='Brown',cle='Brown',cli;clf=new Array('Brown','Blue','Choc','Lilac','Red','Red(choc)','Cream','Cream(lilac)','Brown tortie','Blue tortie','Choc tortie','Lilac tortie');clg=new Array("pics/adamosmll.jpg","pics/xanders.jpg","pics/urbanuss.jpg","pics/dundees.jpg","pics/maxs.jpg","pics/maxs.jpg","pics/lovisas.jpg","pics/lovisas.jpg","pics/hadiahis.jpg","pics/blauwtorties.jpg","pics/chocsmall.jpg","pics/yentlsmall.jpg");clh=new Array(65);clh[64]=0;function InitColor(){cli=(document.layers)?document.layers['Hide1'].document.ColorTable:document.ColorTable;cli.sire.selectedIndex=cli.queen.selectedIndex=0;cli.SCarryBlue.checked=cli.SCarryChoc.checked=cli.QCarryBlue.checked=cli.QCarryChoc.checked=false;clw=document.layers?document.layers["Hide1"].document.images:document.images}function clx(clj,clk,cll,clm,cln,clo,clp,clq){clq.checked=(clj==clk||clj==cll||clj==clm||clj==cln||clj==clo||clj==clp)?true:clq.checked}function clr(clj,cls,clt){clu=new Array(0,3,12,15,48,60,51,63,16,19,28,31);var clv=0;clv=clv|clu[clj];if(cls.checked==true)clv=clv|1;if(clt.checked==true)clv=clv|4;return clv}function FatherColor(){clb=cli.sire.selectedIndex;cld=clf[clb];clw["FImage"].src=clg[clb];clx(clb,1,3,6,7,9,11,cli.SCarryBlue);clx(clb,2,3,5,7,10,11,cli.SCarryChoc)}function MotherColor(){clc=cli.queen.selectedIndex;cle=clf[clc];clw["MImage"].src=clg[clc];clx(clc,1,3,6,7,9,11,cli.QCarryBlue);clx(clc,2,3,5,7,10,11,cli.QCarryChoc)}function cly(clz,cLa){var i;for(i=0;i<6;i++){cLa[i]=clz%2;clz>>>=1}	return cLa}function cLb(cLa){cLc=new Array('D','D','B','B','o','o','d','d','b','b','O','O');var i,cLd='',cLe='';for(i=5;i>-1;i--){(cLa[i]==1)?cLd+=cLc[i+6]:cLd+=cLc[i]}return cLd}function cLf(cLg,cLh){cLi=new Array(384);HA=new Array(0,2,4,0,2,5,0,3,4,0,3,5,1,2,4,1,2,5,1,3,4,1,3,5);var p,q,r, x,y,z,i,j,a,b,c,e,v;p=q=r=x=y=z=i=j=a=b=c=e=v=0;for(i=0;i<64;i++)clh[i]=0;for(i=0;i<8;i++){x=HA[q];y=HA[q+1];z=HA[q+2];q+=3;r=0;for(j=0;j<8;j++){a=HA[r];b=HA[r+1];c=HA[r+2];r+=3;cLi[p]=cLg[x];cLi[p+1]=cLh[a];cLi[p+2]=cLg[y];cLi[p+3]=cLh[b];cLi[p+4]=cLg[z];cLi[p+5]=cLh[c];e=0;v=1;for(t=p;t<p+6;t+=2){if(cLi[t]<cLi[t+1]){u=cLi[t];cLi[t]=cLi[t+1];cLi[t+1]=u}if(cLi[t]==1)e+=v;v*=2;if(cLi[t+1]==1)e+=v;v*=2}p+=6;clh[e]+=1}}}function cLj(cLk,cLl,cLm,cLn,cLo,cLp,MC){var cLd='',e=0;e+=clh[cLk];e+=clh[cLl];e+=clh[cLm];e+=clh[cLn];e+=clh[cLo];e+=clh[cLp];if(e>0)cLd=e/.64+'% '+clf[MC]+', ';return cLd}function cLq(cLk,cLl,cLm,cLn,cLo,cLp,cLr,cLs,cLt,cLu,cLv,cLw){return (clh[cLk]+clh[cLl]+clh[cLm]+clh[cLn]+clh[cLo]+clh[cLp]+clh[cLr]+clh[cLs]+clh[cLt]+clh[cLu]+clh[cLv]+clh[cLw])}function cLx(){var cLy='\nLITTER\n',cLz=0,Cla=0,Clb=0;if((clc<4&&clb<4)||((clc>3&&clc<8)&&(clb>3&&clb<8))){cLy+=cLj(0,1,4,5,64,64,0);cLy+=cLj(3,7,64,64,64,64,1);cLy+=cLj(12,13,64,64,64,64,2);cLy+=cLj(15,64,64,64,64,64,3);cLy+=cLj(48,49,52,53,60,61,4);cLy+=cLj(51,55,63,64,64,64,6)}else{cLy+='FEMALES: ';cLy+=cLj(0,1,4,5,64,64,0);cLy+=cLj(3,7,64,64,64,64,1);cLy+=cLj(12,13,64,64,64,64,2);cLy+=cLj(15,64,64,64,64,64,3);cLy+=cLj(16,17,20,21,64,64,8);cLy+=cLj(19,23,64,64,64,64,9);cLy+=cLj(28,29,64,64,64,64,10);cLy+=cLj(31,64,64,64,64,64,11);cLy+=cLj(48,49,52,53,60,61,4);cLy+=cLj(51,55,63,64,64,64,6);cLy+='\n  MALES: ';if(clb>3&&clc<4){cLy+=cLj(16,17,20,21,64,64,0);cLy+=cLj(19,23,64,64,64,64,1);cLy+=cLj(28,29,64,64,64,64,2);cLy+=cLj(31,64,64,64,64,64,3)}else{cLz=cLq(0,1,4,5,16,17,20,21,48,49,52,53);if(cLz!=0){if(clc>3&&clc<8)Cla=cLz/.64;else{Cla=cLz/1.28;cLy+=cLz/1.28+'% '+clf[0]+', '}}cLz=cLq(3,7,19,23,51,55,64,64,64,64,64,64);if(cLz!=0){if(clc>3&&clc<8)Clb=cLz/.64;else{Clb=cLz/1.28;cLy+=cLz/1.28+'% '+clf[1]+', '}}cLz=cLq(12,13,28,29,60,61,64,64,64,64,64,64);if(cLz!=0){if(clc>3&&clc<8)Cla+=cLz/.64;else{Cla+=cLz/1.28;cLy+=cLz/1.28+'% '+clf[2]+', '}}cLz=cLq(15,31,63,64,64,64,64,64,64,64,64,64);if(cLz!=0){if(clc>3&&clc<8)Clb+=cLz/.64;else{Clb+=cLz/1.28;cLy+=cLz/1.28+'% '+clf[3]+', '}}if(Cla!=0)cLy+=Cla+'% '+clf[4]+', ';if(Clb!=0)cLy+=Clb+'% '+clf[6]+', '}}return cLy}function calc(){FatherColor();MotherColor();var Clc=0,Cld=0,Cle='',Clf='',Clg='',Clh='';Cli=new Array(6);Clj=new Array(6);Clk=new Array(6);clb=cli.sire.selectedIndex;clx(clb,1,3,6,7,9,11,cli.SCarryBlue);clx(clb,2,3,5,7,10,11,cli.SCarryChoc);Clc=clr(clb,cli.SCarryBlue,cli.SCarryChoc);clc=cli.queen.selectedIndex;clx(clc,1,3,6,7,9,11,cli.QCarryBlue);clx(clc,2,3,5,7,10,11,cli.QCarryChoc);Cld=clr(clc,cli.QCarryBlue,cli.QCarryChoc);cld=clf[clb];Cli=cly(Clc,Cli);Cle=cLb(Cli);Clj=cly(Cld,Clj);Clf=cLb(Clj);Cll='  SIRE: '+cld+'\tgenotype='+Cle+'\n';Clm=' QUEEN: '+cle+'\tgenotype='+Clf+'\n';cLf(Cli,Clj);Cln=cLx();Cln+='\n\ngenotypes:\n';for(i=0;i<64;i++){j=clh[i];if(j!=0){Clk=cly(i,Clk);Clg=cLb(Clk);Clh+=j/.64+'% '+Clg+', '}}cli.Results.value=Cll+Clm+Cln+Clh+cla}