anchor.diff:    (metrics :pointer))
   
   (cffi:defcvar ("PangoFont" PangoFont)
  - :pointer)
  +    :pointer)
   
   (cffi:defcfun ("pango_font_find_shaper" pango_font_find_shaper) :pointer
     (font :pointer)
  
positive.code:     (values (/ (cffi:foreign-slot-value logical 'PangoRectangle 'x) PANGO_SCALE)
  	    (/ (cffi:foreign-slot-value logical 'PangoRectangle 'y) PANGO_SCALE)
  	    (/ (cffi:foreign-slot-value logical 'PangoRectangle 'width) PANGO_SCALE)
  	    (/ (cffi:foreign-slot-value logical 'PangoRectangle 'height) PANGO_SCALE))))
  
  (defun get-layout-lines-data (layout)
    (let* ((i 0)
  
negative.code:   (iter :pointer))
  
  (cffi:defcvar ("PangoFontDescription" PangoFontDescription)
      :pointer)
  
  (cffi:defcenum PangoStyle
    :PANGO_STYLE_NORMAL
    :PANGO_STYLE_OBLIQUE
    :PANGO_STYLE_ITALIC)
  
  (cffi:defcenum PangoWeight
    (:PANGO_WEIGHT_THIN 100)
    (:PANGO_WEIGHT_ULTRALIGHT 200)
    (:PANGO_WEIGHT_LIGHT 300)
    (:PANGO_WEIGHT_BOOK 380)
    (:PANGO_WEIGHT_NORMAL 400)
    (:PANGO_WEIGHT_MEDIUM 500)
    (:PANGO_WEIGHT_SEMIBOLD 600)
    (:PANGO_WEIGHT_BOLD 700)
    (:PANGO_WEIGHT_ULTRABOLD 800)
    (:PANGO_WEIGHT_HEAVY 900)
    (:PANGO_WEIGHT_ULTRAHEAVY 1000))
  
  (cffi:defcenum PangoVariant
    :PANGO_VARIANT_NORMAL
    :PANGO_VARIANT_SMALL_CAPS)
  
  (cffi:defcenum PangoStretch
    :PANGO_STRETCH_ULTRA_CONDENSED
    :PANGO_STRETCH_EXTRA_CONDENSED
    :PANGO_STRETCH_CONDENSED
    :PANGO_STRETCH_SEMI_CONDENSED
    :PANGO_STRETCH_NORMAL
    :PANGO_STRETCH_SEMI_EXPANDED
    :PANGO_STRETCH_EXPANDED
    :PANGO_STRETCH_EXTRA_EXPANDED
    :PANGO_STRETCH_ULTRA_EXPANDED)
  
  (cffi:defcenum PangoFontMask
    (:PANGO_FONT_MASK_FAMILY 1)
    (:PANGO_FONT_MASK_STYLE 2)
    (:PANGO_FONT_MASK_VARIANT 4)
    (:PANGO_FONT_MASK_WEIGHT 8)
    (:PANGO_FONT_MASK_STRETCH 16)
    (:PANGO_FONT_MASK_SIZE 32)
    (:PANGO_FONT_MASK_GRAVITY 64))
  
  (cffi:defcstruct PangoFontMetrics
    (ref_count :pointer)
    (ascent :int)
    (descent :int)
    (approximate_char_width :int)
    (approximate_digit_width :int)
    (underline_position :int)
    (underline_thickness :int)
    (strikethrough_position :int)
    (strikethrough_thickness :int))
  
  (cffi:defcstruct PangoFontsetClass
    (parent_class :pointer)
    (get_font :pointer)
    (get_metrics :pointer)
    (get_language :pointer)
    (foreach :pointer))
  
  (cffi:defcstruct PangoFontMapClass
    (parent_class :pointer)
    (load_font :pointer)
    (list_families :pointer)
    (load_fontset :pointer)
    (shape_engine_type :string))
  
  (cffi:defcfun ("pango_font_description_new" pango_font_description_new) :pointer)
  
  