anchor.diff:  		  (let ((iters
   				 (do* ((xp (map-val j width xmin xmax))
   					   
  -					  (cp (mc xp yp) (+ (* cp cp) (mc xp yp)))
  +					  (cp (complex xp yp) (+ (* cp cp) (complex xp yp)))
   					  (iter 0 (incf iter)))
   					 ((or (>= iter iterations) (> (abs cp) 4.0)) iter)
   					 (declare (xp double-float))
  
positive.code: ;; :xloc 0.29579232190635435
  ;; :yloc 0.48778241011705686
  
  ;;; "fractal" goes here.
  
  
  
  (defun map-val (x width xmin xmax)
    (declare (x (unsigned-byte 32)))
    (declare (width (unsigned-byte 32)))
    (declare (xmin double-float))
  
negative.code: 		(z 0)
  		(img (png:make-image height width 3 8)))
  	
  	(dotimes (i iterations)
  		(let ((xx (- (sin (* a y)) (* z (cos (* b x)))))
  			  (yy (- (sin (* c x)) (cos (* d y))))
  			  (zz (* e (sin x))))
  