function poem_setDefaultVar(){poemDefaultFont="Simplified Arabic,Tahoma,Microsoft Sans Serif,Verdana,Arial,Helvetica";poemType="0",poemAlign="center",poemLine="0";poemUse="ex";poemFontName="",poemFontSize="4",poemFontColor="",poemFontBold="",poemFontItalic="";poemBackColor="none",poemBackImage="none";poemBorderStyle="none",poemBorderWidth="4",poemBorderColor="gray";poemSerialNum="0",poemSerialNumColor=""}var poemSpaceWidth,poemExtendWidth;var poemToolFix,poemPrevHTML,poemMargin,poemPadding;var poemLetters1="ÇÃÅÂÄÁÏÐÑÒæÉì";var poemLetters2="ÇÃÅÂÄÆÈÊËÌÍÎÏÐÑÒÓÔÕÖØÙÚÛÝÞßáãäåæíÉì";var poemLetters3="óðõñöòúø";function create_poemTestWidth_table(){if(!document.getElementById("poemtestWidth")){var HTML="<table border=1 width=1px style='visibility: hidden; position: absolute'>";HTML+="<tr><td id='poemTestWidth' width='0px' nowrap></td></tr>";HTML+="</table>";document.body.insertAdjacentHTML("afterBegin",HTML)}}function poem_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).replace(/[\(\)\&\[\]\;]/g,"")}function poem_getDefault(p,d){var r=((p)?p:d);return poem_trim(r)}function poem_setArg(arg){var par,poemFontSize2;par=poem_getValue("font",arg)+",,,,";par=par.split(",");poemFontName=poem_getDefault(par[0],poemFontName);poemFontName=poemFontName.replace(/\-/g,",");poemFontSize2=parseInt(poem_getDefault(par[1],poemFontSize));if(isNaN(poemFontSize2)){poemFontSize2=0}if(poemFontSize2<1||poemFontSize2>7){poemFontSize2=poemFontSize}poemFontSize=poemFontSize2;poemFontColor=poem_getDefault(par[2],poemFontColor);poemFontBold=poem_getDefault(par[3],poemFontBold);poemFontItalic=poem_getDefault(par[4],poemFontItalic);par=poem_getValue("border",arg)+",,";par=par.split(",");poemBorderStyle=poem_getDefault(par[0],poemBorderStyle);poemBorderWidth=poem_getDefault(par[1],poemBorderWidth);poemBorderColor=poem_getDefault(par[2],poemBorderColor);par=poem_getValue("num",arg)+",";par=par.split(",");poemSerialNum=poem_getDefault(par[0],poemSerialNum);if(!poemSerialNum){poemSerialNum=0}else{poemSerialNum=parseInt(poemSerialNum);if(isNaN(poemSerialNum)){poemSerialNum=0}}poemSerialNumColor=poem_getDefault(par[1],poemSerialNumColor);par=poem_getValue("type",arg);poemType=poem_getDefault(par,poemType);par=poem_getValue("align",arg);poemAlign=poem_getDefault(par,poemAlign).toLowerCase();par=poem_getValue("line",arg);poemLine=poem_getDefault(par,poemLine);poemLine=parseInt(poemLine);if(isNaN(poemLine)){poemLine=0}if(poemLine==0){poemPadding="5px";poemMargin=""}else{poemPadding=15;poemMargin="margin-bottom: "+poemPadding}par=poem_getValue("use",arg);poemUse=poem_getDefault(par,poemUse).toLowerCase();par=poem_getValue("bkcolor",arg);poemBackColor=poem_getDefault(par,poemBackColor);par=poem_getValue("bkimage",arg);poemBackImage=poem_getDefault(par,poemBackImage);var facesize=new Array("xx-small","x-small","small","medium","large","x-large","xx-large");poemFontSize=facesize[poemFontSize-1];poemFontName+=","+poemDefaultFont;poemTestWidth.style.fontFamily=poemFontName;poemTestWidth.style.fontSize=poemFontSize;poemTestWidth.style.fontWeight=poemFontBold;poemTestWidth.style.fontStyle=poemFontItalic}function poem_trim(t){t=t.replace(/^[ ]+/,"");t=t.replace(/[ ]+$/,"");return t}function poem_textWidth(t){t=t.replace(/\^/g,"");poemTestWidth.innerHTML=t;return(poemTestWidth.clientWidth-2)*0.75}function poem_strReplace(t,s1,s2,c){if(c<=0){return}t=t.split(s1);var s="";for(var i=t.length-1;i>0;i--){if(c-->0){s=s2+t[i]+s}else{s=s1+t[i]+s}}s=t[0]+s;return s}function poem_count(str,ch){var c=0;for(var i=0;i<str.length;i++){c+=(str.charAt(i)==ch)}return c}function poem_space(n){if(n==1){return" "}return" "+poem_space(n-1)}function poem_createExtend(t){var alef="ÇÃÅÂ";var s="";var befor="",ch="";t=t.replace(/Çááå/g,"alh");t=t.replace(/ááå/g,"lah");for(i=0;i<t.length;i++){ch=t.charAt(i);if(poemLetters2.indexOf(ch.charAt(0))!=-1||ch.charAt(0)=="Á"){if(befor!=""){if(poemLetters1.indexOf(befor.charAt(0))==-1&&poemLetters2.indexOf(ch.charAt(0))!=-1&&(befor.charAt(0)!="á"||alef.indexOf(ch.charAt(0))==-1)){s+="^"}}befor=ch;s+=ch}else{s+=ch;if(poemLetters3.indexOf(ch.charAt(0))==-1){befor=""}}}s=s.replace(/alh/g,"Çááå");s=s.replace(/lah/g,"ááå");return s}function poem_extend(n){if(n<=0){return""}if(n==1){return"Ü"}return"Ü"+poem_extend(n-1)}function poem_justifyBYextend(t,w){var ex=0,i,d,n,p,m;ex=poem_count(t,"^");if(ex==0){return t}d=Math.floor((w-poem_textWidth(t.replace(/\^/g,"")))/poemExtendWidth);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=t.length-1;i>=0;i--){ex=poem_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,"^"+poem_extend(n))}if(d%ex>0){t[i]=poem_strReplace(t[i],"^","Ü",d%ex)}}t=t.join(" ");t=t.replace(/\^/g,"");return t}function poem_justifyBYspace(t,w,dir){var sp=0,i,d,tw,n;sp=poem_count(t," ");if(sp!=0){d=Math.floor((w-poem_textWidth(t))/poemSpaceWidth);n=Math.floor(d/sp);if(n>0){t=t.replace(/ /g,poem_space(n+1))}if(d%sp>0){t=poem_strReplace(t,poem_space(n+1),poem_space(n+2),d%sp)}}tw=w-poem_textWidth(t);if(tw>0){i=t.lastIndexOf(" ");if(i==-1){if(dir==0){return t}else{i=((dir==2)?-1:t.length-1)}}}else{tw=0}t=t.substr(0,i+1)+poemToolFix.replace(/%w%/,tw+"pt")+t.substr(i+1);return t}function poem_justify(t,w,dir){if(poemUse=="ex"){t=poem_justifyBYextend(t,w)}return poem_justifyBYspace(t,w,dir)}function showPoemLine(preview,html){if(preview){poemPrevHTML+=html}else{document.write(html)}}function doPoem(preview){var found=0,div;poem_setDefaultVar();if(preview){div=poemExample;poemPrevHTML=""}else{var d=document.getElementsByTagName("div");div=d[d.length-1]}var poem=div.innerHTML.replace(/<br \/>|<br>/gi,"\r");if(poem==""){return}if(!div.tag){div.tag=""}if(!preview){div.innerHTML=""}var arg=div.tag.replace(/\\\"/g,"'");create_poemTestWidth_table();poem_setArg(arg);poemToolFix="<span style='font-size: 1pt; padding-right: %w%;'></span>";poemToolFix=poemToolFix.replace(/ /g,"^");poem=poem.replace(/</g,"&lt;");poem=poem.replace(/>/g,"&gt;");poem=poem.replace(/[\^]|^[\r]+|[\r]+$|\n/g,"");poem=poem.replace(/^[ ]+|[ ]+$|/g,"");poem=poem.replace(/[Ü]+( |$)/g,"ext1");poem=poem.replace(/(^| )[Ü]+/g,"ext2");poem=poem.replace(/Ü/g,"");poem=poem.replace(/ext1/g,"Ü");poem=poem.replace(/ext2/g,"Ü");poem=poem.replace(/[ ]+/g," ");poem=poem.replace(/[ ]*=[ ]*/g,"=");poem=poem.replace(/[ ]+\r|\r[ ]+/g,"\r");if(poem.substring(poem.length-1)!="\r"){poem+="\r"}poemExtendWidth=poem_textWidth("ÔÜÜÔ");poemExtendWidth-=poem_textWidth("ÔÜÔ");poemSpaceWidth=poem_textWidth("Ô&nbsp;&nbsp;Ô");poemSpaceWidth-=poem_textWidth("Ô&nbsp;Ô");var tmp,MTW,MTW1;tmp="\r"+poem+"\r";tmp=tmp.replace(/\r[^\r]+\=[^\r]+/gi,"");tmp=tmp.replace(/\r/g,"<br />");var MTW1=poem_textWidth(tmp);tmp="\r"+poem+"\r";tmp=tmp.replace(/\r[^=]+\r/gi,"\r");tmp=tmp.replace(/=/g,"<br />");tmp=tmp.replace(/\r/g,"<br />");var MTW=poem_textWidth(tmp);tmp="";if(poemUse=="ex"){var test=poem_textWidth(poem);poem=poem_createExtend(poem);test=(poem_textWidth(poem.replace(/\^/g,"Ü"))-test)/poem_count(poem,"^")}var poemBodyStyle="",fonts="";fonts+="; font-family: "+poemFontName;fonts+="; font-size: "+poemFontSize;fonts+="; color: "+poemFontColor;fonts+="; font-weight: "+poemFontBold;fonts+="; font-style: "+poemFontItalic;poemBodyStyle+=fonts;poemBodyStyle+="; background-color: "+poemBackColor;poemBodyStyle+="; background-image: url("+poemBackImage+")";poemBodyStyle+="; border: "+poemBorderWidth+"px "+poemBorderStyle+" "+poemBorderColor;showPoemLine(preview,"<div align='"+poemAlign+"'>");showPoemLine(preview,"<table dir='rtl' border='0' cellpadding='0' cellspacing='0' width='1px' style='"+poemBodyStyle+";'>");poem="\r"+poem;var L,R,i,j=0,cr=0,sn=0;var poemSide,poemSideNum,wnum;if(poemSerialNum>0){sn=poemSerialNum-1}while(1){poemSideNum="";poemSide="";if(sn==0){poemSide="<div style='height: "+poemPadding+"px; font-size: 1'></div>"}cr=poem.indexOf("\r",cr);if(cr==-1){break}if(poem.substring(j,cr)!=""){i=poem.indexOf("=",j);if(i==-1||i>cr){i=cr}L=poem.substring(j,i);if(L!="\r"&&L!=""){if(i!=cr){L=poem_justify(L,MTW,1)}else{L=poem_justify(L,MTW1,0)}L=L.replace(/ /g,"&nbsp;");L=L.replace(/\^/g," ")}R=poem.substring(i+1,cr);if(R!="\r"&&R!=""){R=poem_justify(R,MTW,2);R=R.replace(/ /g,"&nbsp;");R=R.replace(/\^/g," ")}if(poemType==0){if(i!=cr){if(L!=""&&R==""){poemSide=L}else{if(L==""&&R!=""){poemSide=R}else{if(L!=""&&R!=""){poemSide=L+poemToolFix.replace(/%w%/,Math.floor(MTW/2.1)+"px").replace(/\^/," ")+R}}}}else{poemSide=L}poemSide="<div align='center' style='"+fonts+"; "+poemMargin+"'>"+poemSide+"</div>";poemSideNum=++sn}else{if(poemType==1){if(i==cr){poemSide="<div align='center' style='"+fonts+"; "+poemMargin+"'>"+L+"</div>"}else{poemSide="<div align='right' style='"+fonts+"; margin-left: "+Math.round(MTW)+"pt; "+poemMargin+"'>"+L+"</div>";poemSide+="<div align='left' style='"+fonts+"; margin-right: "+Math.round(MTW)+"pt; "+poemMargin+"'>"+R+"</div>"}poemSideNum=++sn}else{if(poemType==2||poemType>3||poemType<1){if(i==cr){poemSide="<div align='center' style='"+fonts+"; "+poemMargin+"'>"+L+"</div>"}else{poemSide="<div align='right' style='"+fonts+"; margin-left: "+Math.round(MTW/2)+"pt; "+poemMargin+"'>"+L+"</div>";poemSide+="<div align='left' style='"+fonts+"; margin-right: "+Math.round(MTW/2)+"pt; "+poemMargin+"'>"+R+"</div>"}poemSideNum=++sn}else{if(poemType==3){poemSideNum=++sn;poemSide="<div style='"+fonts+"; "+poemMargin+"'>"+L+"</div>";poemSide+="<div style='"+fonts+"; "+poemMargin+"'>"+R+"</div>"}}}}}if(poemSerialNum>0&&poemSideNum!=""){showPoemLine(preview,"<tr><td align='left' valign='top' style='"+fonts+"; color: "+poemSerialNumColor+"' nowrap>&nbsp;&nbsp;"+poemSideNum+"</td>")}showPoemLine(preview,"<td align='center' valign='middle' style='"+fonts+"; padding-left: 15px; padding-right: 15px; ' nowrap>"+poemSide+"</td></tr>");cr+=1;j=cr}if(poemLine==0){poemSide="<div style='height: "+poemPadding+"px; font-size: 1'></div>";if(poemSerialNum>0&&poemSideNum!=""){showPoemLine(preview,"<tr><td align='left' valign='top' style='"+fonts+"; color: "+poemSerialNumColor+"' nowrap>&nbsp;&nbsp;"+poemSideNum+"</td>")}showPoemLine(preview,"<td align='center' valign='middle' style='"+fonts+"; padding-left: 15px; padding-right: 15px;' nowrap>"+poemSide+"</td></tr>")}showPoemLine(preview,"</table></div>");if(preview){poemPreview.innerHTML=poemPrevHTML}poemPrevHTML="";poem_textWidth("")};