cvt
parent
461ea0bd53
commit
ec675b61fa
@ -0,0 +1,32 @@
|
|||||||
|
#lang fontkit/racket
|
||||||
|
(require restructure)
|
||||||
|
(provide (all-defined-out))
|
||||||
|
#|
|
||||||
|
approximates
|
||||||
|
https://github.com/mbutterick/fontkit/blob/master/src/tables/cvt.js
|
||||||
|
|#
|
||||||
|
|
||||||
|
(define-subclass Struct (Rcvt))
|
||||||
|
|
||||||
|
(define cvt (make-object Rcvt
|
||||||
|
(dictify
|
||||||
|
'controlValues (+Array int16be))))
|
||||||
|
|
||||||
|
|
||||||
|
(test-module
|
||||||
|
(define ip (open-input-file charter-path))
|
||||||
|
(define dir (deserialize (read (open-input-file charter-directory-path))))
|
||||||
|
(define offset (· dir tables cvt offset))
|
||||||
|
(define len (· dir tables cvt length))
|
||||||
|
(check-equal? offset 4592)
|
||||||
|
(check-equal? len 26)
|
||||||
|
(set-port-position! ip 0)
|
||||||
|
(define table-bytes #"\0\24\0+\0S\0\0\0\20\377&\0\0\1\341\0\v\2\237\0\22\2\340\0\b")
|
||||||
|
(check-equal? table-bytes (peek-bytes len offset ip))
|
||||||
|
(define ds (+DecodeStream (peek-bytes len offset ip)))
|
||||||
|
(define cvt-array '(20 43 83 0 16 -218 0 481 11 671 18 736 8))
|
||||||
|
(check-equal? (hash-ref (send cvt decode ds) 'controlValues) cvt-array)
|
||||||
|
(define es (+EncodeStream))
|
||||||
|
(send cvt encode es (mhash 'controlValues cvt-array))
|
||||||
|
(check-equal? (send es dump) table-bytes)
|
||||||
|
)
|
Loading…
Reference in New Issue