diff --git a/pitfall/fontkit/ot-layout-engine.rkt b/pitfall/fontkit/ot-layout-engine.rkt index 7acb84b6..8a6f97f4 100644 --- a/pitfall/fontkit/ot-layout-engine.rkt +++ b/pitfall/fontkit/ot-layout-engine.rkt @@ -39,12 +39,12 @@ https://github.com/mbutterick/fontkit/blob/master/src/opentype/OTLayoutEngine.js [(· this GSUBProcessor) #;(report/file (· this glyphInfos)) (define new-glyphinfos - (send (· this plan) process (· this GSUBProcessor) (· this glyphInfos))) + (send (· this plan) process (· this GSUBProcessor) (· this glyphInfos))) (set! glyphInfos new-glyphinfos) ; update OTLayoutEngine state for positioning pass (report/file new-glyphinfos) ;; Map glyph infos back to normal Glyph objects (report/file (for/list ([glyphInfo (in-list new-glyphinfos)]) - (send (· this font) getGlyph (· glyphInfo id) (· glyphInfo codePoints))))] + (send (· this font) getGlyph (· glyphInfo id) (· glyphInfo codePoints))))] [else glyphs])) (define/public (position glyphs positions . _) @@ -72,10 +72,10 @@ https://github.com/mbutterick/fontkit/blob/master/src/opentype/OTLayoutEngine.js (set! positions (for/list ([glyphInfo (in-list glyphInfos)] [position (in-list positions)]) - (when (· glyphInfo isMark) - (dict-set*! position - 'xAdvance 0 - 'yAdvance 0)) - position))) + (when (· glyphInfo isMark) + (dict-set*! position + 'xAdvance 0 + 'yAdvance 0)) + position))) ) \ No newline at end of file