|
|
|
@ -13,8 +13,7 @@
|
|
|
|
"unsafe/harfbuzz.rkt"
|
|
|
|
"unsafe/harfbuzz.rkt"
|
|
|
|
"glyph-position.rkt"
|
|
|
|
"glyph-position.rkt"
|
|
|
|
sugar/list
|
|
|
|
sugar/list
|
|
|
|
racket/promise
|
|
|
|
racket/promise)
|
|
|
|
crc32c)
|
|
|
|
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(provide (all-defined-out))
|
|
|
|
|
|
|
|
|
|
|
|
#|
|
|
|
|
#|
|
|
|
|
@ -31,7 +30,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/TTFFont.js
|
|
|
|
[ft-face (delay (and src (FT_New_Face (force ft-library) src)))]
|
|
|
|
[ft-face (delay (and src (FT_New_Face (force ft-library) src)))]
|
|
|
|
[hb-font (delay (and src (hb_ft_font_create (force ft-face))))]
|
|
|
|
[hb-font (delay (and src (hb_ft_font_create (force ft-face))))]
|
|
|
|
[hb-buf (delay (hb_buffer_create))]
|
|
|
|
[hb-buf (delay (hb_buffer_create))]
|
|
|
|
[crc (begin0 (crc32c-input-port port) (pos port 0))]
|
|
|
|
[crc (equal-hash-code port)]
|
|
|
|
[get-head-table-proc #f])
|
|
|
|
[get-head-table-proc #f])
|
|
|
|
(unless (input-port? port)
|
|
|
|
(unless (input-port? port)
|
|
|
|
(raise-argument-error '+ttf-font "input port" port))
|
|
|
|
(raise-argument-error '+ttf-font "input port" port))
|
|
|
|
|
