//JS pseudo TurboPascal simulator script
//program mageye;    { Lutz Tautenhahn (c) 1995, 1999 }

var i0=320;
var j0=240;
var imax=640;
var jmax=480;
var imin=0;
var jmin=0;
var xp=120;
var zp=1000;
var z0=-451;
var dz=50;
var dzmax=5;

function infeld1(xx,yy) // {Gitter}
{ if(((Math.round(Math.abs(xx))%100) <= 40)||
     ((Math.round(Math.abs(yy))%100) <= 40)) return(true);
  return(false);
}

function infeld2(xx,yy) // {Kreis}
{ var rr;
  rr=200;
  if (xx*xx+yy*yy<rr*rr) return(true);
  return(false);
}

function infeld3(xx,yy) // {Herz}
{ var rr=100;
  var f1=0.6;
  var f2=0.66;
  yy=Math.round((yy+f1*Math.abs(xx))/f2);
  if (xx*xx+yy*yy<rr*rr) return(true);
  return(false);
}

function z(xx,yy)
{ var zz=-650; //{Hintergrund}
  if (infeld1(xx,yy)) zz=-600; //{Gitter}
  if (infeld2(xx,yy)) zz=-550; //{Kreis}
  if (infeld3(xx,yy)) zz=-500; //{Herz}
  return(zz);
}

function fillrandom()
{ var ii;
  for (ii=0; ii<1000; ii++)
  { setcolor(random(15));
    line(0,random(480),640,random(480));
    line(random(640),0,random(640),480);
  }
}

function make3d()
{ var ii,jj;
  var xx1,yy1,zz31,xx31,yy31,xx2,yy2,zz32,xx32,yy32;
  for (jj=jmin; jj<=jmax; jj++)
  { for (ii=imin; ii<=imax; ii++)
    { xx1=ii-i0;
      yy1=jj-j0;
      zz31=z0;
      do
      { zz31=zz31-dz;
        xx31=(xx1+xp)*(zp-zz31)/zp-xp;
        yy31=yy1*(zp-zz31)/zp;
      }
      while (z(xx31,yy31)<zz31);
      xx2=zp/(zp-zz31)*(xx31-xp)+xp;
      yy2=zp/(zp-zz31)*yy31;
      zz32=z0;
      do
      { zz32=zz32-dz;
        xx32=(xx2-xp)*(zp-zz32)/zp+xp;
        yy32=yy2*(zp-zz32)/zp;
      }
      while (z(xx32,yy32)<zz32);
      if (Math.abs(zz31-zz32)<dzmax)
        putpixel(Math.round(xx2)+i0,Math.round(yy2)+j0,getpixel(ii,jj));
    }
  }
}

function run()
{ if (nreadln<1)
  { initgraph();
    fillrandom();
    readln('');return;
  }
  if (nreadln<2)
  { make3d();
    readln('');
    return;
  }
  closegraph();
  exit();
}