function poet_setDefaultVar(){poetDefaultFont="tahoma,ms sans serif,verdana,arial,helvetica";poetType="0",poetLine="200%",poetAlign="right",poetUse="sp";poetFontName="",poetFontSize="12",poetFontColor="",poetFontBold="",poetFontItalic="";poetBackColor="none",poetBackImage="none";poetBorderStyle="none",poetBorderWidth="medium",poetBorderColor="black";poetChar="";poetSerialNum="0",poetSerialNumColor="";style="";}
var poetBodyStyle="",poetMiddleStyle="",poetSerialNumStyle="";var poetSide,poetSideNum,poetSpaceWidth,poetExtendWidth;var poetToolFix,poetDiff;var poetLetters1="ÇÃÅÂÄÁÏÐÑÒæÉì"
var poetLetters2="ÇÃÅÂÄÆÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÝÞßáãäåæíÉì";var poetLetters3="óðõñöòúø";function create_testWidth_table(){if(!document.getElementById("testWidth")){var HTML="<table border=1 width=0 style='visibility:hidden;position:absolute'>"
HTML+="<tr><td id='testWidth' width=0 nowrap></td></tr>"
HTML+="</table>"
document.body.insertAdjacentHTML("afterBegin",HTML);}}
function poet_getValue(t,p){var r=new RegExp("([ \"]|^)"+t+"[ ]*=[ ]*\"[^\"]*\"","i");var m=p.match(r);if(!m){r=new RegExp("([ \"]|^)"+t+"[ ]*=[ ]*[^\" ]*([ ]|$)","i");m=p.match(r);if(!m)
return"";}
m=m[0];m=m.replace(/\"/gi,"");var i=m.search("=");return m.substring(i+1);}
function poet_getDefault(p,d){p=poet_trim(p);return poet_trim((p?p:d));}
function poet_setArg(arg){var par;poetBodyStyle="";poetMiddleStyle="";par=poet_getValue("style",arg);style=poet_getDefault(par,style);par=poet_getValue("font",arg)+",,,,";par=par.split(",");poetFontName=poet_getDefault(par[0],poetFontName);poetFontSize=poet_getDefault(par[1],poetFontSize);poetFontColor=poet_getDefault(par[2],poetFontColor);poetFontBold=poet_getDefault(par[3],poetFontBold);poetFontItalic=poet_getDefault(par[4],poetFontItalic);par=poet_getValue("border",arg)+",,";par=par.split(",");poetBorderStyle=poet_getDefault(par[0],poetBorderStyle);poetBorderWidth=poet_getDefault(par[1],poetBorderWidth);poetBorderColor=poet_getDefault(par[2],poetBorderColor);par=poet_getValue("num",arg)+",";par=par.split(",");poetSerialNum=poet_getDefault(par[0],poetSerialNum);poetSerialNumColor=poet_getDefault(par[1],poetSerialNumColor);par=poet_getValue("type",arg);poetType=poet_getDefault(par,poetType);par=poet_getValue("line",arg);poetLine=poet_getDefault(par,poetLine);par=poet_getValue("align",arg);poetAlign=poet_getDefault(par,poetAlign);par=poet_getValue("use",arg);poetUse=poet_getDefault(par,poetUse).toLowerCase();par=poet_getValue("fname",arg);poetFontName=poet_getDefault(par,poetFontName);par=poet_getValue("fsize",arg);poetFontSize=poet_getDefault(par,poetFontSize);par=poet_getValue("fcolor",arg);poetFontColor=poet_getDefault(par,poetFontColor);par=poet_getValue("fbold",arg);poetFontBold=poet_getDefault(par,poetFontBold);par=poet_getValue("fitalic",arg);poetFontItalic=poet_getDefault(par,poetFontItalic);par=poet_getValue("bkcolor",arg);poetBackColor=poet_getDefault(par,poetBackColor);par=poet_getValue("bkimage",arg);poetBackImage=poet_getDefault(par,poetBackImage);par=poet_getValue("bstyle",arg);poetBorderStyle=poet_getDefault(par,poetBorderStyle);par=poet_getValue("bwidth",arg);poetBorderWidth=poet_getDefault(par,poetBorderWidth);par=poet_getValue("bcolor",arg);poetBorderColor=poet_getDefault(par,poetBorderColor);par=poet_getValue("char",arg);poetChar=poet_getDefault(par,poetChar);par=poet_getValue("charcolor",arg);poetSerialNumColor=poet_getDefault(par,poetSerialNumColor);poetFontName+=","+poetDefaultFont;poetBodyStyle+="; "+style;poetBodyStyle+="; font-family:"+poetFontName;poetBodyStyle+="; font-size:"+poetFontSize+"pt ";poetBodyStyle+="; color:"+poetFontColor;poetBodyStyle+="; font-weight:"+poetFontBold;poetBodyStyle+="; font-style:"+poetFontItalic;poetBodyStyle+="; line-height:"+poetLine;poetBodyStyle+="; background-color:"+poetBackColor;poetBodyStyle+="; background-image:url("+poetBackImage+")";poetBodyStyle+="; border:"+poetBorderWidth+" "+poetBorderStyle+" "+poetBorderColor;poetSerialNumStyle="color:"+poetSerialNumColor+"; display:"+((poetSerialNum=="0")?"none":"block");testWidth.style.fontFamily=poetFontName;testWidth.style.fontSize=poetFontSize+"pt ";testWidth.style.fontWeight=poetFontBold;testWidth.style.fontStyle=poetFontItalic;}
function poet_trim(t){t=t.replace(/^[ ]+/,"");t=t.replace(/[ ]+$/,"");return t;}
function poet_textWidth(t){testWidth.innerHTML=t.replace(/ /g,"&nbsp;");return(testWidth.clientWidth-2)*0.75;}
function poet_strReplace(t,s1,s2,c){var i=0,len1=s1.length;len2=s2.length;while(1){i=t.indexOf(s1,i);if(i==-1)
break;else{t=t.substr(0,i)+s2+t.substr(i+len1);i+=len2;if(--c==0)break;}}
return t}
function poet_count(str,ch){var c=0;for(var i=0;i<str.length;i++)
c+=(str.charAt(i)==ch);return c;}
function poet_space(n){if(n==1)
return" ";return" "+poet_space(n-1);}
function poet_createExtend(t){var alef="ÇÃÅÂ";var s="";var befor="",ch="";t=t.replace(/Çááå/g,"@");for(i=0;i<t.length;i++){ch=t.charAt(i);if(poetLetters2.indexOf(ch.charAt(0))!=-1||ch.charAt(0)=="Á"){if(befor!="")
if(poetLetters1.indexOf(befor.charAt(0))==-1&&poetLetters2.indexOf(ch.charAt(0))!=-1&&(befor.charAt(0)!="á"||alef.indexOf(ch.charAt(0))==-1))
s+="^";befor=ch;s+=ch;}
else{s+=ch;if(poetLetters3.indexOf(ch.charAt(0))==-1)
befor="";}}
s=s.replace(/@/g,"Çááå");return s;}
function poet_extend(n){if(n<=1)
return"Ü";return"Ü"+poet_extend(n-1);}
function poet_justifyBYextend(t,w){var ex=0,i,d,n,p,m;t=poet_createExtend(t);ex=poet_count(t,"^");if(ex==0)return t;d=Math.floor((w-poet_textWidth(t.replace(/\^/g,"")))/poetExtendWidth);t=t.split(" ");n=0;for(i=0;i<t.length;i++)
n+=(t[i].indexOf("^")!=-1);p=Math.floor(d/n);m=d%n;for(i=0;i<t.length;i++){ex=poet_count(t[i],"^");if(ex==0)
continue;d=p+(m-->0);n=Math.floor(d/ex);if(n>0)
t[i]=t[i].replace(/\^/g,"^"+poet_extend(n));if(d%ex>0)
t[i]=poet_strReplace(t[i],"^",poet_extend(1),d%ex);}
t=t.join(" ");t=t.replace(/\^/g,"");return t;}
function poet_justifyBYspace(t,w,dir){var sp=0,i,d,tw,n;sp=poet_count(t," ");if(sp!=0){d=Math.floor((w-poet_textWidth(t))/poetSpaceWidth);n=Math.floor(d/sp);if(n>0)
t=t.replace(/ /g,poet_space(n+1));if(d%sp>0)
t=poet_strReplace(t,poet_space(n+1),poet_space(n+2),d%sp);}
tw=w-poet_textWidth(t);if(tw>0){i=t.lastIndexOf(" ");if(i==-1)
if(dir==0)
return t;else
i=((dir==2)?-1:t.length-1);tw-=poetDiff;t=t.substr(0,i+1)+poetToolFix.replace(/letter-spacing:normal/,"letter-spacing:"+tw+"pt ")+t.substr(i+1);}
return t;}
function poet_justify(t,w,dir){if(poetUse=="ex")t=poet_justifyBYextend(t,w);return poet_justifyBYspace(t,w,dir);}
function doPoetry(){poet_setDefaultVar();var d=document.getElementsByTagName("DIV");document.write(poet_doJustify(d[d.length-1].innerText,d[d.length-1].tag));}
function poet_doJustify(poetry,arg){var L,R,MTW,i,j,cr
create_testWidth_table();poet_setArg(arg);poetToolFix="<span style='font-size:1pt;letter-spacing:normal;visibility:hidden;'>ii</span>";testWidth.innerHTML=poetToolFix;poetDiff=(testWidth.clientWidth-2)*0.75;poetToolFix=poetToolFix.replace(/ /g,"^");poetry=poet_trim(poetry);poetry=poetry.replace(/[\^@Ü]/g,"");poetry=poetry.replace(/[ ]+/g," ");poetry=poetry.replace(/^[\r\n]+/,"");poetry=poetry.replace(/[\r\n]+$/,"");poetry=poetry.replace(/\n/g,"");poetry=poetry.replace(/[ ]*\r[ ]*/g,"\r");poetry=poetry.replace(/[ ]*=[ ]*/g,"=");poetry=poet_trim(poetry);poetry+="\r";poetExtendWidth=poet_textWidth("Ô"+"ÜÜ"+"Ô");poetExtendWidth-=poet_textWidth("Ô"+"Ü"+"Ô");poetSpaceWidth=poet_textWidth("Ô"+"&nbsp;&nbsp;"+"Ô");poetSpaceWidth-=poet_textWidth("Ô"+"&nbsp;"+"Ô");var nbsp="";while(1){nbsp+="&nbsp;";if(poet_textWidth(nbsp)>12)break;}
MTW=poet_textWidth(poetry.replace(/\r/g,"<br>").replace(/=/g,"<br>"));poetSideNum="";poetSide="";cr=0;j=0;var sn=0;while(1){cr=poetry.indexOf("\r",cr);if(cr==-1)break;if(poetry.substring(j,cr)!=""){i=poetry.indexOf("=",j);if(i==-1||i>cr)i=cr;L=poetry.substring(j,i);L=poet_justify(L,MTW,((i==cr)?0:1));L=L.replace(/ /g,"&nbsp;");L=L.replace(/\^/g," ");R=poetry.substring(i+1,cr);R=poet_justify(R,MTW,2);R=R.replace(/ /g,"&nbsp;");R=R.replace(/\^/g," ");if(poetType==0){if(i!=cr)
poetSide+=L+nbsp+poetChar+nbsp+R+"<br>";else
poetSide+="<div align=center>"+L+"</div>";poetSideNum+=++sn+"<br>";}
else if(poetType==1){if(i!=cr){poetSide+="<div style='margin-left:"+Math.round(MTW)+"pt'>"+L+"</div>";poetSide+="<div style='margin-right:"+Math.round(MTW)+"pt'>"+R+"</div>";poetSideNum+=++sn+"<br>-<br>";}
else{poetSide+="<div align=center>"+L+"</div>";poetSideNum+=++sn+"<br>";}}
else if(poetType==2){if(i!=cr){poetSide+="<div style='margin-left:"+Math.round(MTW/1.5)+"pt'>"+L+"</div>";poetSide+="<div style='margin-right:"+Math.round(MTW/1.5)+"pt'>"+R+"</div>";poetSideNum+=++sn+"<br>-<br>";}
else{poetSide+="<div align=center>"+L+"</div>";poetSideNum+=++sn+"<br>";}}
else if(poetType==3){poetSideNum+=++sn+"<br>";poetSide+=L+"<br>";if(i!=cr){poetSide+=R+"<br>";poetSideNum+="-<br>";poetSide+="<br>";poetSideNum+="<br>";}}}
else{poetSide+="<br>";poetSideNum+="<br>";}
cr+=1;j=cr;}
poetSideNum=poetSideNum.replace(/(<br>)+$/i,"");poetSide=poetSide.replace(/(<br>)+$/i,"");return poet_ToHTML();}
function poet_showhidenum(o){o=o.getElementsByTagName("TD")[0];if(o.style.display=="none")
o.style.display="block";else
o.style.display="none";}
function poet_ToHTML(){var HTML="<table ondblclick='poet_showhidenum(this)' cellspacing=10 cellpadding=5 dir=rtl border=0 width=0 style='"+poetBodyStyle+"'>";HTML+="<tr>";HTML+="<td width=0 align=center valign=top style='"+poetSerialNumStyle+"' nowrap>"+poetSideNum+"</td>";HTML+="<td width=0 align=center valign=top nowrap>"+poetSide+"</td>";HTML+="</tr></table>";return("<div align='"+poetAlign+"'>"+HTML+"</div>");}
function poetryDialog(theform){c=showModalDialog("editpoet.htm","","help:no; center:yes; status:no; dialogHeight:340px; dialogWidth:420px");if(c){theform.message.value+=c;theform.message.focus();}}