typesetting/pitfall/fontkit/hmtx.rkt

#lang fontkit/racket
(require restructure)
(provide (all-defined-out))
#|
approximates
https://github.com/mbutterick/fontkit/blob/master/src/tables/hmtx.js
|#

(define-subclass Struct (Rhmtx))

(define HmtxEntry (make-object Struct
               (dictify
                'advance uint16be
                'bearing uint16be)))

(define hmtx (make-object Rhmtx
               (dictify
                'metrics uint16be
                'bearing uint16be)))


(test-module
 )