|
|
|
@ -116,8 +116,8 @@ https://github.com/mbutterick/pdfkit/blob/master/lib/font/embedded.coffee
|
|
|
|
'FontName name
|
|
|
|
'FontName name
|
|
|
|
'Flags flags
|
|
|
|
'Flags flags
|
|
|
|
'FontBBox (map (curry * (· this scale))
|
|
|
|
'FontBBox (map (curry * (· this scale))
|
|
|
|
(list (· bbox minX) (· bbox minY)
|
|
|
|
(list (BBox-minX bbox) (BBox-minY bbox)
|
|
|
|
(· bbox maxX) (· bbox maxY)))
|
|
|
|
(BBox-maxX bbox) (BBox-maxY bbox)))
|
|
|
|
'ItalicAngle (· this font italicAngle)
|
|
|
|
'ItalicAngle (· this font italicAngle)
|
|
|
|
'Ascent (· this ascender)
|
|
|
|
'Ascent (· this ascender)
|
|
|
|
'Descent (· this descender)
|
|
|
|
'Descent (· this descender)
|
|
|
|
@ -210,7 +210,7 @@ HERE
|
|
|
|
|
|
|
|
|
|
|
|
(module+ test
|
|
|
|
(module+ test
|
|
|
|
(require rackunit fontland)
|
|
|
|
(require rackunit fontland)
|
|
|
|
(define f (openSync "test/assets/Charter.ttf" #f))
|
|
|
|
(define f (openSync "../ptest/assets/charter.ttf" #f))
|
|
|
|
(define ef (make-object EmbeddedFont #f f #f))
|
|
|
|
(define ef (make-object EmbeddedFont #f f #f))
|
|
|
|
(check-equal? (send ef widthOfString "f" 1000) 321.0)
|
|
|
|
(check-equal? (send ef widthOfString "f" 1000) 321.0)
|
|
|
|
(check-equal? (· ef ascender) 980)
|
|
|
|
(check-equal? (· ef ascender) 980)
|
|
|
|
|
