fractal 
{
  mapping 
  {
    (-2, -2, 2, 2) => (180, 160)
  }

  colors 
  {
    define 
    {
      gradient(361) 
      {
        [255 255 255] [000 000 000] [128 000 000]
      }
    }
  }

  formula 
  {
    c = current;
    z = current;
    z1 = z;
    zd = z;
    maxit = [64, 0];

    while
    (        
      $count < real(maxit) && 
        real(zd)*real(zd)+imaginary(zd)*imaginary(zd) > 1e-24
    )
    {
      z = z - (z * z * z * sin(1.3*z) - c)/(3*z*z*cos(z) - z);
      zd = z1 - z;
      z1 = z;      
    }
    set_color ( $count*(256/real(maxit)));
  }
}


