anchor.diff:               "/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))
  
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:                      collect (cons g sdf)
                       #+do (aa-misc:save-image
                             (format nil "/tmp/font/font~a.pnm" i) sdf :pnm)))
               (pack (pack
                      (loop for i in images
                            collect (list i
                                          (array-dimension (cdr i) 1)
                                          (array-dimension (cdr i) 0)))
                      :width 368
                      :height 368))
               (dims (loop for (nil x y w h) in pack
                           maximize (+ x w) into width
                           maximize (+ y h) into height
  