anchor.diff:  
   (in-package #:net.tuxee.paths-ttf)
   
  -(defun paths-from-glyph (glyph &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0))
  +(defun paths-from-glyph (glyph &key (offset (make-point 0 0)) (scale-x 1.0) (scale-y 1.0) (auto-orient nil))
     (flet ((point (p) (p+ (make-point (* (x p) scale-x)
                                       (* (y p) scale-y))
                           offset)))
  
positive.code:                                                    0)))
                                           0))))
         (let ((glyph-paths (paths-from-glyph glyph
                                              :offset offset :scale-x scale-x :scale-y scale-y)))
           (push glyph-paths result)))
      (apply #'nconc (nreverse result))))
  
  
negative.code:                              scale))))
      (paths-from-string font-loader text :offset position
                         :scale-x scale-x :scale-y scale-y
                         :kerning kerning
                         :auto-orient :cw)))