@ -67,14 +67,14 @@ https://github.com/mbutterick/fontkit/blob/master/src/TTFFont.js
( define ( font-italic-angle font ) ( hash-ref ( get-post-table font ) ' italicAngle ) )
( define ( font-italic-angle font ) ( hash-ref ( get-post-table font ) ' italicAngle ) )
( define ( font-cap-height font )
( define ( font-cap-height font )
( if ( has-table? font #" OS/2 " )
( cond
( hash-ref ( get-OS/2-table font ) ' capHeight )
[ ( and ( has-table? font #" OS/2 " ) ( hash-ref ( get-OS/2-table font ) ' capHeight #false ) ) ]
( font-ascent font ) ) )
[ else ( font-ascent font ) ] ) )
( define ( font-x-height font )
( define ( font-x-height font )
( if ( has-table? font #" OS/2 " )
( cond
( hash-ref ( get-OS/2-table font ) ' xHeight )
[ ( has-table? font #" OS/2 " ) ( hash-ref ( get-OS/2-table font ) ' xHeight #false ) ]
0 ) )
[ else 0 ] ) )
( define ( font-bbox font )
( define ( font-bbox font )
( define head-table ( get-head-table font ) )
( define head-table ( get-head-table font ) )