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.
24 lines
658 B
Racket
24 lines
658 B
Racket
7 years ago
|
#lang fontkit/racket
|
||
|
|
(provide (all-defined-out))
|
||
|
|
|
||
|
|
(define-subclass object% (GlyphInfo font-in id-in [codePoints-in empty] [features-in (mhasheq)])
|
||
|
|
(field [_font font-in]
|
||
|
|
[codePoints codePoints-in]
|
||
|
|
[id id-in]
|
||
|
|
[features (mhasheq)])
|
||
|
|
|
||
|
|
(cond
|
||
|
|
[(list? features-in)
|
||
|
|
(for ([feature (in-list features-in)])
|
||
|
|
(hash-set! features feature #t))]
|
||
|
|
[(object? features-in)
|
||
|
|
(hash-set! features (· features-in features))])
|
||
|
|
|
||
|
|
(field [ligatureID #f]
|
||
|
|
[ligatureComponent #f]
|
||
|
|
[ligated #f]
|
||
|
|
[cursiveAttachment #f]
|
||
|
|
[markattachment #f]
|
||
|
|
[shaperInfo #f]
|
||
|
|
[substituted #f]))
|
||
|
|
|