anchor.diff:                       collect (cons g sdf)
                        #+do (aa-misc:save-image
                              (format nil "/tmp/font/font~a.pnm" i) sdf :pnm)))
  -             (pack (stupid-packing
  +             (pack (pack
                       (loop for i in images
                             collect (list i
                                           (array-dimension (cdr i) 1)
                                           (array-dimension (cdr i) 0)))
  -                    :width width
  -                    :height height))
  +                    :width 368
  +                    :height 368))
                (dims (loop for (nil x y w h) in pack
                            maximize (+ x w) into width
                            maximize (+ y h) into height
  
positive.code:          #++(aa-misc:save-image "/tmp/font2h.pnm" image :pnm)
           dest)))))
  
  (defun stupid-packing (dimensions &key width height)
    (loop with x = 0
          with y = 0
  
negative.code:              "/windows/fonts/arial.ttf" 48
               :scale 32
               :spread 0.1))
  
  
  
  #++
  (time
   (make-atlas "/tmp/atlas.pnm" "/tmp/font2.met"
               "/Library/Fonts/Arial.ttf" 48
               :scale 32
               :spread 0.1))
  