.svn/pristine/77/77a33ad02fc07dcc76b961c8e50e579530a302a5.svn-base

   1 /* Mandelbrot! */
   2
   3 X1 =  -2.0;
   4 Y1 =  -2.0;
   5 X2 =   2.0;
   6 Y2 =   2.0;
   7 PX = 32;
   8 PY = 32;
   9
  10
  11 lines = [];
  12 for (y=0;y<PY;y++) {
  13   line="";
  14   for (x=0;x<PX;x++) {
  15     Xr=0;
  16     Xi=0;
  17     Cr=X1+((X2-X1)*x/PX);
  18     Ci=Y1+((Y2-Y1)*y/PY);
  19     iterations=0;
  20     while ((iterations<32) && ((Xr*Xr+Xi*Xi)<4)) {
  21       t=Xr*Xr - Xi*Xi + Cr;
  22       Xi=2*Xr*Xi+Ci;
  23       Xr=t;
  24       iterations++;
  25     }
  26     if (iterations&1)
  27         line += "*";
  28     else
  29         line += " ";
  30    }
  31    lines[y] = line;
  32   }
  33
  34 result =
  35 lines[0] == "********************************" &&
  36 lines[1] == "***********           **********" &&
  37 lines[2] == "*********               ********" &&
  38 lines[3] == "*******                   ******" &&
  39 lines[4] == "******                     *****" &&
  40 lines[5] == "*****                       ****" &&
  41 lines[6] == "****     *******             ***" &&
  42 lines[7] == "***   ******* ** **           **" &&
  43 lines[8] == "***  ******  * *   *          **" &&
  44 lines[9] == "** *******   ** **  **         *" &&
  45 lines[10] == "** ******  * *   ** **         *" &&
  46 lines[11] == "* *****  ***      ** **         " &&
  47 lines[12] == "****** ***         *****        " &&
  48 lines[13] == "***  * * *         ** **        " &&
  49 lines[14] == "*   * *   *         * **        " &&
  50 lines[15] == "*   ***            ** **        " &&
  51 lines[16] == "*                  ** **        " &&
  52 lines[17] == "*   ***            ** **        " &&
  53 lines[18] == "*   * *   *         * **        " &&
  54 lines[19] == "***  * * *         ** **        " &&
  55 lines[20] == "****** ***         *****        " &&
  56 lines[21] == "* *****  ***      ** **         " &&
  57 lines[22] == "** ******  * *   ** **         *" &&
  58 lines[23] == "** *******   ** **  **         *" &&
  59 lines[24] == "***  ******  * *   *          **" &&
  60 lines[25] == "***   ******* ** **           **" &&
  61 lines[26] == "****     *******             ***" &&
  62 lines[27] == "*****                       ****" &&
  63 lines[28] == "******                     *****" &&
  64 lines[29] == "*******                   ******" &&
  65 lines[30] == "*********               ********" &&
  66 lines[31] == "***********           **********";