// FOMLIB0 ::: PRIMARY LIBRARY FOR EBPSYS v1.0
// ----------------------------------------------
// BY     ::: ZOLTEKK SYSTEMS INC.
// C-DATE ::: 10/07/2008.  
// M-DATE ::: 12/02/2008.
// ----------------------------------------------

MAINIMGDIR = "images/big/";

function CODECLEAN(TFORM,TFNAME,BADCHARS)
{
  var DEFFORM = "frmArtist";
  var DEFFNAME = "PICTITLE";
  var DEFBADCHARS = "\"\'";
  var CPICTITLE = "";
  var BADCHARS_TOTAL = 0; 
  var CCI = 0;  
  var CCHAR = "";

  ((TFORM == "") || (TFORM == null)) && (TFORM = DEFFORM);
  ((TFNAME == "") || (TFNAME == null)) && (TFNAME = DEFFNAME);
  ((BADCHARS == "") || (BADCHARS == null)) && (BADCHARS = DEFBADCHARS);
  BADCHARS_TOTAL = BADCHARS.length;
  eval("CPICTITLE = document."+TFORM+"."+TFNAME+".value");
  if ((CPICTITLE != "") && (CPICTITLE != null))
  {
     for (CCI=0;CCI<BADCHARS_TOTAL;CCI++)
     {
         CCHAR = BADCHARS.substr(CCI,1);
         CPICTITLE.replace(CCHAR,"");         
     }     
  }
  return(CPICTITLE);
}

function GOPICTURESW (PTITLE,SIMG,XSIZE,YSIZE,STITLE)
{
   var DX = 400;
   var DY = 600;
   var TX = DX;
   var TY = DY;
   var TX0 = 0;
   var TY0 = 0;
   var BX = 20;
   var BY = 170;
   var MY = 12;
   var MX = 12;
   var MX1 = 10;
   var GPSWH = null;
   var CBSTS = 1;
   var XOYRATIOTH = 0.3;
   var YOXRATIOTH = 0.3;
   var XOYR = 0.00;
   var YOXR = 0.00;
   var IXMAX = 1500;
   var IYMAX = 1500;
   var DELTAY = 0;
   var DELTAY_UNIT = 0.39;
   var CYI = 0;

   //alert("XSIZE = "+XSIZE+"    YSIZE = "+YSIZE+"");

   if ((SIMG != "") && (SIMG != null))
   {
      XSIZE = parseInt(XSIZE);
      YSIZE = parseInt(YSIZE); 
      (XSIZE > 0) && (TX = XSIZE);
      (YSIZE > 0) && (TY = YSIZE);
      TX = TX * MX;
      TY = TY * MY;
      TX0 = TX;
      TY0 = TY;
      TX = TX + BX * CBSTS;
      TY = TY + BY * CBSTS; 
      (TX == 0) && (TX = 1);
      (TY == 0) && (TY = 1);
      XOYR = TX/TY;
      YOXR = TY/TX;
      (TX <= TX0) && (TX = TX0 + BX);
      (TY <= TY0) && (TY = TY0 + BY);

      //alert("X = "+TX+"   Y = "+TY+"    X0 = "+TX0+"    Y0 = "+TY0+"");

      if ((!(TX0 > 0)) || (!(TY0 > 0)) || (XOYR < XOYRATIOTH) || (YOXR < YOXRATIOTH) || (TX0 > IXMAX) || (TY0 > IYMAX))
      {  
         TX0 = DX;             
         TY0 = DY;
         TX = DX + BX;
         TY = DY + BY;
         alert("USING DEFAULT DATA");
      }
      DELTAY = parseInt(parseFloat(screen.height - TY) * DELTAY_UNIT);
 
      //alert("X = "+TX+"   Y = "+TY+"    X0 = "+TX0+"    Y0 = "+TY0+"       "+screen.height+""+"   DELTA-Y = "+DELTAY+"");
      
      GPSWH = window.open("","GPSWH0","HEIGHT="+TY+",WIDTH="+TX+",SCROLLBARS=0");
      GPSWH.document.write("<HTML>\n");
      GPSWH.document.write("<HEAD><TITLE>FRAME OF MIND ::: PICTURE SUB-WINDOW</TITLE></HEAD>\n");
      GPSWH.document.write("<BODY BGCOLOR='#000000'>n");
      //GPSWH.document.write("<A HREF='http://www.frameofmind.ca/WCC.CSS' REL='stylesheet' type='text/css'>\n");
      for (CYI=0;CYI<DELTAY;CYI++)
      {  GPSWH.document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH='100%'><TR><TD></TD></TR></TABLE>\n");  }
      //GPSWH.document.write("<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 WIDTH='100%'><TR VALIGN='MIDDLE'><TD VALIGN='MIDDLE'>\n");
      GPSWH.document.write("<TABLE BORDER=0 WIDTH='100%'><TR><TD ALIGN='CENTER'><FONT SIZE=4 FACE='TIMES-ROMAN' COLOR='#00FFFF'><B>"+PTITLE+"</B></FONT></TD></TR></TABLE><BR>\n");
      GPSWH.document.write("<TABLE BORDER=0 WIDTH='100%'><TR><TD VALIGN='CENTER' ALIGN='CENTER'>\n");
      GPSWH.document.write("<IMG BORDER=0 ALIGN='CENTER' WIDTH='"+TX0+"' HEIGHT='"+TY0+"' VALIGN='MIDDLE' SRC='"+MAINIMGDIR+SIMG+"'></IMG>\n");
      CBSTS && GPSWH.document.write("<BR><BR><A HREF='Javascript:window.close()'><IMG BORDER=0 SRC='images/ZPSWEXBN.jpg'></IMG></A>\n"); 
      //GPSWH.document.write("</TD></TR></TABLE>\n");
      GPSWH.document.write("</TD></TR></TABLE></BODY></HTML>\n");
      GPSWH.document.close();  
      GPSWH.moveTo(0,0);
      GPSWH.resizeTo(screen.width,screen.height);         
   }  
   return;
}

function getXVAL(IMGSIZE)
{
  var DIMDEL0 = " X ";
  var DIMDEL1 = " x ";
  var DIMDELPOSA = -1;
  var DIMDELPOSB = -1; 
  var DIMDELPOSF = -1; 
  var TGTX = "";
  
  if ((IMGSIZE != "") && (IMGSIZE != null))
  {
     IMGSIZE = IMGSIZE.replace(/'"/g,"");	
     TGTX = IMGSIZE;
     DIMDELPOSA = IMGSIZE.indexOf(DIMDEL0);
     DIMDELPOSB = IMGSIZE.indexOf(DIMDEL1);     
     (DIMDELPOSA >= 0) && (DIMDELPOSF = DIMDELPOSA);
     (DIMDELPOSB >= 0) && (DIMDELPOSF = DIMDELPOSB);
     (DIMDELPOSF >= 0) && (TGTX = TGTX.substr(0,DIMDELPOSF));
  } 
  return(TGTX);  
}

function getYVAL(IMGSIZE2)
{
  var DIMDEL02 = "X";
  var DIMDEL12 = "x";  
  var DIMDEL1X = "";  
  var DIMDEL2 = " ";
  var DIMDELPOSA2 = -1;
  var DIMDELPOSB2 = -1; 
  var DIMDELPOSF2 = -1; 
  var DIMDELLEN1X = 0;
  var TGTY = "";
  var TGTY_VAL = -1;
  
  if ((IMGSIZE2 != "") && (IMGSIZE2 != null))
  {
     IMGSIZE2 = IMGSIZE2.replace(/'"/g,"");
     TGTY = IMGSIZE2;
     DIMDELPOSA2 = IMGSIZE2.indexOf(DIMDEL02);
     DIMDELPOSB2 = IMGSIZE2.indexOf(DIMDEL12);     
     //(DIMDELPOSA2 >= 0) && (DIMDELPOSF2 = DIMDELPOSA2) && (DIMDELLEN1X = DIMDEL02.length) && (DIMDEL1X = DIMDEL02);
     //(DIMDELPOSB2 >= 0) && (DIMDELPOSF2 = DIMDELPOSB2) && (DIMDELLEN1X = DIMDEL12.length) && (DIMDEL1X = DIMDEL12);
     //(DIMDELPOSF2 >= 0) && (TGTY = TGTY.substr(DIMDELPOSF2+DIMDELLEN1X));
     //(DIMDELPOSF2 >= 0) && (DIMDELPOSF2 = TGTY.indexOf(DIMDEL2));
     //(DIMDELPOSF2 >= 0) && (DIMDELPOSF2 >= 0) && (TGTY = TGTY.substr(0,DIMDELPOSF2));
     (DIMDELPOSA2 >= 0) && (DIMDELPOSF2 = DIMDELPOSA2) && (DIMDELLEN1X = DIMDEL02.length) && (DIMDEL1X = DIMDEL02);
     (DIMDELPOSB2 >= 0) && (DIMDELPOSF2 = DIMDELPOSB2) && (DIMDELLEN1X = DIMDEL12.length) && (DIMDEL1X = DIMDEL12);     
     (DIMDELPOSF2 >= 0) && (TGTY = TGTY.substr(DIMDELPOSF2+DIMDELLEN1X));
     TGTY = TGTY.replace(/^\s+/g,"");
     DIMDEL1X = TGTY.indexOf(DIMDEL2);
     (DIMDEL1X >= 0) && (TGTY = TGTY.substr(0,DIMDEL1X));   
     TGTY_VAL = parseInt(TGTY);
     TGTY = ""+TGTY_VAL+"";
  } 
  return(TGTY);  
}


