From d4e904a7fd1814f99fbd6cfbf15ff9b512fec732 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Thu, 6 Dec 2018 10:06:16 -0800 Subject: [PATCH] toe --- fontland/fontland/font.rkt | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) diff --git a/fontland/fontland/font.rkt b/fontland/fontland/font.rkt index 3aa015c6..678ee39a 100644 --- a/fontland/fontland/font.rkt +++ b/fontland/fontland/font.rkt @@ -67,11 +67,7 @@ https://github.com/mbutterick/fontkit/blob/master/src/TTFFont.js [_hb-font (delay (and _src (hb_ft_font_create (· this ft-face))))] [_hb-buf (delay (hb_buffer_create))] [_crc (begin0 (crc32c-input-port _port) (pos _port 0))]) - - (define/public (directory) (force _directory)) - (define/public (ft-face) (or (force _ft-face) (error 'ft-face-not-available))) - (define/public (hb-font) (or (force _hb-font) (error 'hb-font-not-available))) - (define/public (hb-buf) (force _hb-buf)) + (define/public (_getTable table-tag) (unless (has-table? this table-tag) @@ -116,7 +112,17 @@ https://github.com/mbutterick/fontkit/blob/master/src/TTFFont.js getGlyph layout glyphsForString - glyphForCodePoint)) + glyphForCodePoint + directory + ft-face + hb-font + hb-buf)) + + + (define (directory this) (force (· this _directory))) + (define (ft-face this) (or (force (· this _ft-face)) (error 'ft-face-not-available))) + (define (hb-font this) (or (force (· this _hb-font)) (error 'hb-font-not-available))) + (define (hb-buf this) (force (· this _hb-buf))) ;; The unique PostScript name for this font