You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
33 lines
1.0 KiB
Racket
33 lines
1.0 KiB
Racket
#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)
|
|
)
|