x/redo step 0
parent
d250cb07f3
commit
28468ae781
@ -1,35 +1,32 @@
|
||||
#lang racket/base
|
||||
(require sugar/unstable/class
|
||||
sugar/unstable/dict
|
||||
"../helper.rkt")
|
||||
|
||||
(require xenomorph)
|
||||
"../helper.rkt"
|
||||
racket/dict
|
||||
xenomorph/redo)
|
||||
(provide (all-defined-out))
|
||||
|
||||
#|
|
||||
approximates
|
||||
https://github.com/mbutterick/fontkit/blob/master/src/tables/cvt.js
|
||||
|#
|
||||
|
||||
(define-subclass Struct (Rcvt_))
|
||||
|
||||
(define cvt_ (+Rcvt_
|
||||
(dictify
|
||||
'controlValues (+Array int16be))))
|
||||
|
||||
(define cvt_ (+xstruct 'controlValues (+xarray #:type int16be)))
|
||||
|
||||
(test-module
|
||||
(require sugar/unstable/js
|
||||
sugar/unstable/port)
|
||||
(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 (open-input-bytes (peek-bytes len offset ip)))
|
||||
(define cvt-array '(20 43 83 0 16 -218 0 481 11 671 18 736 8))
|
||||
(check-equal? (dict-ref (decode cvt_ ds) 'controlValues) cvt-array)
|
||||
(check-equal? (encode cvt_ (mhash 'controlValues cvt-array) #f) table-bytes))
|
||||
(module+ test
|
||||
(require rackunit racket/serialize
|
||||
sugar/unstable/js
|
||||
sugar/unstable/port)
|
||||
(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 (open-input-bytes (peek-bytes len offset ip)))
|
||||
(define cvt-array '(20 43 83 0 16 -218 0 481 11 671 18 736 8))
|
||||
(check-equal? (dict-ref (decode cvt_ ds) 'controlValues) cvt-array)
|
||||
(check-equal? (encode cvt_ (mhash 'controlValues cvt-array) #f) table-bytes))
|
||||
|
||||
@ -1,46 +1,44 @@
|
||||
#lang racket/base
|
||||
(require sugar/unstable/class
|
||||
sugar/unstable/dict
|
||||
"../helper.rkt")
|
||||
|
||||
(require xenomorph)
|
||||
"../helper.rkt"
|
||||
xenomorph/redo)
|
||||
(provide (all-defined-out))
|
||||
|
||||
(define-subclass Struct (Rhhea))
|
||||
|
||||
(define hhea (+Rhhea
|
||||
(dictify
|
||||
'version int32be
|
||||
'ascent int16be ;; Distance from baseline of highest ascender
|
||||
'descent int16be ;; Distance from baseline of lowest descender
|
||||
'lineGap int16be ;; Typographic line gap
|
||||
'advanceWidthMax uint16be ;; Maximum advance width value in 'hmtx' table
|
||||
'minLeftSideBearing int16be ;; Maximum advance width value in 'hmtx' table
|
||||
'minRightSideBearing int16be ;; Minimum right sidebearing value
|
||||
'xMaxExtent int16be
|
||||
'caretSlopeRise int16be ;; Used to calculate the slope of the cursor (rise/run); 1 for vertical
|
||||
'caretSlopeRun int16be ;; 0 for vertical
|
||||
'caretOffset int16be ;; Set to 0 for non-slanted fonts
|
||||
'reserved (+Array int16be 4)
|
||||
'metricDataFormat int16be ;; 0 for current format
|
||||
'numberOfMetrics uint16be ;; Number of advance widths in 'hmtx' table
|
||||
)))
|
||||
(define hhea (+xstruct
|
||||
(dictify
|
||||
'version int32be
|
||||
'ascent int16be ;; Distance from baseline of highest ascender
|
||||
'descent int16be ;; Distance from baseline of lowest descender
|
||||
'lineGap int16be ;; Typographic line gap
|
||||
'advanceWidthMax uint16be ;; Maximum advance width value in 'hmtx' table
|
||||
'minLeftSideBearing int16be ;; Maximum advance width value in 'hmtx' table
|
||||
'minRightSideBearing int16be ;; Minimum right sidebearing value
|
||||
'xMaxExtent int16be
|
||||
'caretSlopeRise int16be ;; Used to calculate the slope of the cursor (rise/run); 1 for vertical
|
||||
'caretSlopeRun int16be ;; 0 for vertical
|
||||
'caretOffset int16be ;; Set to 0 for non-slanted fonts
|
||||
'reserved (+xarray #:type int16be #:length 4)
|
||||
'metricDataFormat int16be ;; 0 for current format
|
||||
'numberOfMetrics uint16be ;; Number of advance widths in 'hmtx' table
|
||||
)))
|
||||
|
||||
(test-module
|
||||
(require racket/serialize
|
||||
sugar/unstable/js
|
||||
sugar/unstable/port)
|
||||
(define ip (open-input-file charter-path))
|
||||
(define dir (deserialize (read (open-input-file charter-directory-path))))
|
||||
(define offset (· dir tables hhea offset))
|
||||
(define length (· dir tables hhea length))
|
||||
(check-equal? offset 292)
|
||||
(check-equal? length 36)
|
||||
(define table-bytes #"\0\1\0\0\3\324\377\22\0\0\4\311\377_\377`\4\251\0\1\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\345")
|
||||
(set-port-position! ip 0)
|
||||
(check-equal? (peek-bytes length offset ip) table-bytes)
|
||||
(define table-data (decode hhea table-bytes))
|
||||
(check-equal? (· table-data ascent) 980)
|
||||
(check-equal? (· table-data descent) -238)
|
||||
(check-equal? (· table-data numberOfMetrics) 229))
|
||||
(module+ test
|
||||
(require rackunit
|
||||
racket/serialize
|
||||
sugar/unstable/js
|
||||
sugar/unstable/port)
|
||||
(define ip (open-input-file charter-path))
|
||||
(define dir (deserialize (read (open-input-file charter-directory-path))))
|
||||
(define offset (· dir tables hhea offset))
|
||||
(define length (· dir tables hhea length))
|
||||
(check-equal? offset 292)
|
||||
(check-equal? length 36)
|
||||
(define table-bytes #"\0\1\0\0\3\324\377\22\0\0\4\311\377_\377`\4\251\0\1\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\345")
|
||||
(set-port-position! ip 0)
|
||||
(check-equal? (peek-bytes length offset ip) table-bytes)
|
||||
(define table-data (decode hhea table-bytes))
|
||||
(check-equal? (· table-data ascent) 980)
|
||||
(check-equal? (· table-data descent) -238)
|
||||
(check-equal? (· table-data numberOfMetrics) 229))
|
||||
|
||||
|
||||
Loading…
Reference in New Issue