anchor.diff:  
   (defmethod exit ((app font-app))
     (zpb-ttf:close-font-loader (font-loader app)))
  +
  +(defun (setf bukva) (bukva app)
  +  (setf (slot-value app 'bukva) bukva)
  +  (setf (slot-value app 'contours) 
  +	(zpb-ttf:contours (zpb-ttf:find-glyph (aref (bukva app) 0) (font-loader app))))
  +  (break "~a" (contours app)))
   
   (defun start ()
     ;;setup drawing window
  
positive.code:     chromosome))
  
  (defun chromosome->coordinates (chromosome)
    (let* ((contour-count (/ (ceiling (/ (integer-length chromosome) *allele-size*)) (* 3 2)))
  	 (contours (make-array contour-count)))
      (loop for i below contour-count
         for j below (* contour-count 3 2) by (* 3 2)
  
negative.code:     contours))
  
  (defun coords->curve (coords)
    "Coords is a list consiting of 3 control points, represented by x,y pairs. Returns an array of coordinates. Each coordinate is an array of x,y,z coordinates. Z is always zero."
    (make-array '(3 3) :initial-contents
  	      (loop for i below (- (length coords) 1) by 2
  		 collect (list (elt coords i) (elt coords (+ 1 i)) 0))))
  
  (defun evaluate (candidate target)
    ;;todo
    (zpb-ttf:do-contours (contour target)
      (zpb-ttf:do-contour-segments (start ctrl end) contour
  )))
  