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.
48 lines
1.7 KiB
Racket
48 lines
1.7 KiB
Racket
#lang fontkit/racket
|
|
(provide (all-defined-out))
|
|
|
|
(define VARIATION_FEATURES '(rvrn))
|
|
(define COMMON_FEATURES '(ccmp locl rlig mark mkmk))
|
|
(define FRACTIONAL_FEATURES '(frac numr dnom))
|
|
(define HORIZONTAL_FEATURES '(calt clig liga rclt curs kern))
|
|
(define VERTICAL_FEATURES '(vert))
|
|
(define DIRECTIONAL_FEATURES (mhasheq
|
|
'ltr '(ltra ltrm)
|
|
'rtl '(rtla rtlm)))
|
|
|
|
(define zeroMarkWidths 'AFTER_GPOS)
|
|
|
|
(define-subclass object% (DefaultShaper)
|
|
|
|
(define/public (plan plan_ glyphs features)
|
|
#;(report*/file plan_ glyphs features)
|
|
;; Plan the features we want to apply
|
|
(planPreprocessing plan_)
|
|
(planFeatures plan_)
|
|
(planPostprocessing plan_ features)
|
|
|
|
;; Assign the global features to all the glyphs
|
|
(send plan_ assignGlobalFeatures glyphs)
|
|
|
|
;; Assign local features to glyphs
|
|
(assignFeatures plan_ glyphs))
|
|
|
|
(define/public (planPreprocessing plan)
|
|
(send plan add (mhasheq
|
|
'global (append VARIATION_FEATURES (dict-ref DIRECTIONAL_FEATURES (· plan direction)))
|
|
'local FRACTIONAL_FEATURES)))
|
|
|
|
(define/public (planFeatures plan)
|
|
;; Do nothing by default. Let subclasses override this.
|
|
(void))
|
|
|
|
(define/public (planPostprocessing plan userFeatures)
|
|
(when userFeatures
|
|
(unless (and (list? userFeatures) (andmap symbol? userFeatures))
|
|
(raise-argument-error 'DefaultShaper:planPostprocessing "list of features" userFeatures)))
|
|
(send plan add (append COMMON_FEATURES HORIZONTAL_FEATURES (or userFeatures empty))))
|
|
|
|
(define/public (assignFeatures plan glyphs)
|
|
;; todo: Enable contextual fractions
|
|
(void)))
|