diff --git a/fontland/fontland/GPOS-test.coffee b/fontland/fontland/GPOS-test.coffee deleted file mode 100644 index 6af60a9d..00000000 --- a/fontland/fontland/GPOS-test.coffee +++ /dev/null @@ -1,224 +0,0 @@ -fontkit = require '../pdfkit/node_modules/fontkit' - -fira_path = "../pitfall/test/assets/fira.ttf" -f = fontkit.openSync(fira_path) -console.log "*************************** start decode" -thing = f.GPOS.lookupList.get(1) -console.log thing - -### -{ version: 65536, - scriptList: - [ { tag: 'DFLT', script: [Object] }, - { tag: 'cyrl', script: [Object] }, - { tag: 'grek', script: [Object] }, - { tag: 'latn', script: [Object] } ], - featureList: - [ { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'cpsp', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'kern', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mark', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] }, - { tag: 'mkmk', feature: [Object] } ], - lookupList: - [ { lookupType: 1, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 2 }, - { lookupType: 2, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 6, - subTables: [ [Object], [Object], [Object], [Object], [Object], [Object] ], - markFilteringSet: 2 }, - { lookupType: 2, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 7, - subTables: - [ [Object], - [Object], - [Object], - [Object], - [Object], - [Object], - [Object] ], - markFilteringSet: 2 }, - { lookupType: 2, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 6, - subTables: [ [Object], [Object], [Object], [Object], [Object], [Object] ], - markFilteringSet: 2 }, - { lookupType: 2, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 2, - subTables: [ [Object], [Object] ], - markFilteringSet: 4 }, - { lookupType: 4, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 4 }, - { lookupType: 4, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 4 }, - { lookupType: 4, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 6 }, - { lookupType: 6, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 6 }, - { lookupType: 6, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 6 }, - { lookupType: 6, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 6 }, - { lookupType: 6, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 6 }, - { lookupType: 6, - flags: - { rightToLeft: false, - ignoreBaseGlyphs: false, - ignoreLigatures: false, - ignoreMarks: false, - useMarkFilteringSet: false, - markAttachmentType: false }, - subTableCount: 1, - subTables: [ [Object] ], - markFilteringSet: 1 } ] } -### \ No newline at end of file diff --git a/fontland/fontland/GPOS-test.rkt b/fontland/fontland/GPOS-test.rkt deleted file mode 100644 index ee986aa5..00000000 --- a/fontland/fontland/GPOS-test.rkt +++ /dev/null @@ -1,15 +0,0 @@ -#lang racket/base -(require "racket.rkt") - -(require fontland fontland/gpos-processor "subset.rkt" rackunit xenomorph racket/serialize) - -(define fira-path "../pitfall/test/assets/fira.ttf") -(define f (openSync fira-path)) -(define gpos (· f GPOS)) -#;(get (· gpos lookupList) 11) - -(define gp (+GPOSProcessor f gpos)) - -(· gpos scriptList) -(send gp selectScript 'cyrl) - diff --git a/fontland/fontland/GPOS.rkt b/fontland/fontland/GPOS.rkt deleted file mode 100644 index bf6a849d..00000000 --- a/fontland/fontland/GPOS.rkt +++ /dev/null @@ -1,199 +0,0 @@ -#lang racket/base -(require "racket.rkt") - -(require xenomorph br/cond "opentype.rkt") -(provide (all-defined-out)) - -#| -approximates -https://github.com/mbutterick/fontkit/blob/master/src/tables/GPOS.js -|# - -(define ValueFormat (+Bitfield uint16be '(xPlacement yPlacement xAdvance yAdvance xPlaDevice yPlaDevice xAdvDevice yAdvDevice))) - -(define types - (mhash - 'xPlacement int16be - 'yPlacement int16be - 'xAdvance int16be - 'yAdvance int16be - 'xPlaDevice (+Pointer uint16be Device (mhash 'type 'global 'relativeTo 'rel)) - 'yPlaDevice (+Pointer uint16be Device (mhash 'type 'global 'relativeTo 'rel)) - 'xAdvDevice (+Pointer uint16be Device (mhash 'type 'global 'relativeTo 'rel)) - 'yAdvDevice (+Pointer uint16be Device (mhash 'type 'global 'relativeTo 'rel)))) - -(define-subclass object% (ValueRecord [key 'valueFormat]) - (define/public (buildStruct parent) - ;; set `struct` to the first dict in the chain of ancestors - ;; with the target key - (define struct (let loop ([x parent]) - (cond - [(and x (dict? x) (dict-ref x key #f)) x] - [(· x parent) => loop] - [else #f]))) - (and struct - (let () - (define format (dict-ref struct key)) - (define fields - (append - (dictify 'rel (λ _ (dict-ref struct '_startOffset))) - (for/list ([(key val) (in-dict format)] - #:when val) - (cons key (dict-ref types key))))) - (+Struct fields)))) - - (define/public (size val ctx) - (send (buildStruct ctx) size val ctx)) - - (define/public (decode port parent) - (define res (send (buildStruct parent) decode port parent)) - (dict-remove! res 'rel) - res) - - (define/public (encode . args) - (error 'GPOS-encode-not-implemented))) - -(define PairValueRecord (+Struct - (dictify - 'secondGlyph uint16be - 'value1 (+ValueRecord 'valueFormat1) - 'value2 (+ValueRecord 'valueFormat2)))) - -(define PairSet (+Array PairValueRecord uint16be)) - -(define Class2Record (+Struct - (dictify - 'value1 (+ValueRecord 'valueFormat1) - 'value2 (+ValueRecord 'valueFormat2)))) - -(define Anchor (+VersionedStruct uint16be - (dictify - ;; Design units only - 1 (dictify 'xCoordinate int16be - 'yCoordinate int16be) - - ;; Design units plus contour point - 2 (dictify 'xCoordinate int16be - 'yCoordinate int16be - 'anchorPoint uint16be) - ;; Design units plus Device tables - 3 (dictify 'xCoordinate int16be - 'yCoordinate int16be - 'xDeviceTable (+Pointer uint16be Device) - 'yDeviceTable (+Pointer uint16be Device))))) - -(define EntryExitRecord (+Struct - (dictify 'entryAnchor (+Pointer uint16be Anchor (mhash 'type 'parent)) - 'exitAnchor (+Pointer uint16be Anchor (mhash 'type 'parent))))) - -(define MarkRecord (+Struct - (dictify 'class uint16be - 'markAnchor uint16be))) - -(define MarkArray (+Array MarkRecord uint16be)) - -(define BaseRecord (+Array (+Pointer uint16be Anchor) (λ (t) (ref* t 'parent 'classCount)))) - -(define BaseArray (+Array BaseRecord uint16be)) - -(define ComponentRecord (+Array (+Pointer uint16be Anchor) (λ (t) (ref* t 'parent 'parent 'classCount)))) -(define LigatureAttach (+Array ComponentRecord uint16be)) -(define LigatureArray (+Array (+Pointer uint16be LigatureAttach) uint16be)) - -(define-subclass VersionedStruct (GPOSLookup-VersionedStruct)) -(define GPOSLookup - (+GPOSLookup-VersionedStruct - 'lookupType - (dictify - ;; Single Adjustment - 1 (+VersionedStruct uint16be - (dictify - ;; Single positioning value - 1 (dictify - 'coverage (+Pointer uint16be Coverage) - 'valueFormat ValueFormat - 'value (+ValueRecord)) - 2 (dictify - 'coverage (+Pointer uint16be Coverage) - 'valueFormat ValueFormat - 'valueCount uint16be - 'values (+LazyArray (+ValueRecord) 'valueCount)))) - ;; Pair Adjustment Positioning - 2 (+VersionedStruct uint16be - (dictify - ;; Adjustments for glyph pairs - 1 (dictify - 'coverage (+Pointer uint16be Coverage) - 'valueFormat1 ValueFormat - 'valueFormat2 ValueFormat - 'pairSetCount uint16be - 'pairSets (+LazyArray (+Pointer uint16be PairSet) 'pairSetCount)) - - ;; Class pair adjustment - 2 (dictify - 'coverage (+Pointer uint16be Coverage) - 'valueFormat1 ValueFormat - 'valueFormat2 ValueFormat - 'classDef1 (+Pointer uint16be ClassDef) - 'classDef2 (+Pointer uint16be ClassDef) - 'class1Count uint16be - 'class2Count uint16be - 'classRecords (+LazyArray (+LazyArray Class2Record 'class2Count) 'class1Count)))) - - ;; Cursive Attachment Positioning - 3 (dictify - 'format uint16be - 'coverage (+Pointer uint16be Coverage) - 'entryExitCount uint16be - 'entryExitRecords (+Array EntryExitRecord 'entryExitCount)) - - ;; MarkToBase Attachment Positioning - 4 (dictify - 'format uint16be - 'markCoverage (+Pointer uint16be Coverage) - 'baseCoverage (+Pointer uint16be Coverage) - 'classCount uint16be - 'markArray (+Pointer uint16be MarkArray) - 'baseArray (+Pointer uint16be BaseArray)) - - ;; MarkToLigature Attachment Positioning - 5 (dictify - 'format uint16be - 'markCoverage (+Pointer uint16be Coverage) - 'ligatureCoverage (+Pointer uint16be Coverage) - 'classCount uint16be - 'markArray (+Pointer uint16be MarkArray) - 'ligatureArray (+Pointer uint16be LigatureArray)) - - ;; MarkToMark Attachment Positioning - 6 (dictify - 'format uint16be - 'mark1Coverage (+Pointer uint16be Coverage) - 'mark2Coverage (+Pointer uint16be Coverage) - 'classCount uint16be - 'mark1Array (+Pointer uint16be MarkArray) - 'mark2Array (+Pointer uint16be BaseArray)) - - 7 Context ;; Contextual positioning - 8 ChainingContext ;; Chaining contextual positioning - - ;; Extension positioning - 9 (dictify - 'posFormat uint16be - 'lookupType uint16be ;; cannot also be 9 - 'extension (+Pointer uint32be (λ () (error 'circular-reference-unfixed)))) - ))) - -;; Fix circular reference -(ref*-set! GPOSLookup 'versions 9 'extension 'type GPOSLookup) - -(define-subclass VersionedStruct (GPOS-MainVersionedStruct)) -(define GPOS (+GPOS-MainVersionedStruct uint32be - (dictify - 'header (dictify 'scriptList (+Pointer uint16be ScriptList) - 'featureList (+Pointer uint16be FeatureList) - 'lookupList (+Pointer uint16be (LookupList GPOSLookup))) - #x00010000 (dictify) - #;#x00010001 #;(+Pointer uint32be FeatureVariations)))) - -(test-module) \ No newline at end of file diff --git a/fontland/fontland/GSUB-test.coffee b/fontland/fontland/GSUB-test.coffee deleted file mode 100644 index eaa1f373..00000000 --- a/fontland/fontland/GSUB-test.coffee +++ /dev/null @@ -1,6 +0,0 @@ -fontkit = require '../pdfkit/node_modules/fontkit' - -fira_path = "../pitfall/test/assets/fira.ttf" -f = fontkit.openSync(fira_path) -console.log f.GSUB.lookupList.get(30).subTables -console.log f.GSUB.lookupList.get(30).subTables[0].ligatureSets.get(0) \ No newline at end of file diff --git a/fontland/fontland/GSUB.rkt b/fontland/fontland/GSUB.rkt deleted file mode 100644 index 80406d02..00000000 --- a/fontland/fontland/GSUB.rkt +++ /dev/null @@ -1,91 +0,0 @@ -#lang racket/base -(require "racket.rkt") - -(require xenomorph br/cond "opentype.rkt") -(provide (all-defined-out)) - -#| -approximates -https://github.com/mbutterick/fontkit/blob/master/src/tables/GSUB.js -|# - -(define Sequence (+Array uint16be uint16be)) -(define AlternateSet Sequence) - -(define Ligature (+Struct - (dictify - 'glyph uint16be - 'compCount uint16be - 'components (+Array uint16be (λ (t) (sub1 (· t compCount))))))) - -(define LigatureSet (+Array (+Pointer uint16be Ligature) uint16be)) - -(define-subclass VersionedStruct (GSUBLookup-VersionedStruct)) -(define GSUBLookup - (+GSUBLookup-VersionedStruct - 'lookupType - (dictify - ;; Single Substitution - 1 (+VersionedStruct uint16be - (dictify - 1 (dictify - 'coverage (+Pointer uint16be Coverage) - 'deltaGlyphID int16be) - 2 (dictify - 'coverage (+Pointer uint16be Coverage) - 'glyphCount uint16be - 'substitute (+LazyArray uint16be 'glyphCount)))) - 2 ;; Multiple Substitution - (dictify - 'substFormat uint16be - 'coverage (+Pointer uint16be Coverage) - 'count uint16be - 'sequences (+LazyArray (+Pointer uint16be Sequence) 'count)) - - 3 ;; Alternate Substitution - (dictify - 'substFormat uint16be - 'coverage (+Pointer uint16be Coverage) - 'count uint16be - 'alternateSet (+LazyArray (+Pointer uint16be AlternateSet) 'count)) - - 4 ;; Ligature Substitution - (dictify - 'substFormat uint16be - 'coverage (+Pointer uint16be Coverage) - 'count uint16be - 'ligatureSets (+LazyArray (+Pointer uint16be LigatureSet) 'count)) - - 5 Context ;; Contextual Substitution - 6 ChainingContext ;; Chaining Contextual Substitution - - 7 ;; Extension Substitution - (dictify - 'substFormat uint16be - 'lookupType uint16be ; cannot also be 7 - 'extension (+Pointer uint32be (λ () (error 'circular-reference-unfixed)))) - - 8 ;; Reverse Chaining Contextual Single Substitution - (dictify - 'substFormat uint16be - 'coverage (+Pointer uint16be Coverage) - 'backTrackCoverage (+Array (+Pointer uint16be Coverage) 'backtrackGlyphCount) - 'lookaheadGlyphCount uint16be - 'lookaheadCoverage (+Array (+Pointer uint16be Coverage) 'lookaheadGlyphCount) - 'glyphCount uint16be - 'substitute (+Array uint16be 'glyphCount))))) - -;; Fix circular reference -(ref*-set! GSUBLookup 'versions 7 'extension 'type GSUBLookup) - -(define-subclass VersionedStruct (GSUB-MainVersionedStruct)) -(define GSUB (+GSUB-MainVersionedStruct uint32be - (dictify - 'header (dictify 'scriptList (+Pointer uint16be ScriptList) - 'featureList (+Pointer uint16be FeatureList) - 'lookupList (+Pointer uint16be (LookupList GSUBLookup)) - ) - #x00010000 (dictify) - #;#x00010001 #;(+Pointer uint32be FeatureVariations)))) - -(test-module) \ No newline at end of file diff --git a/fontland/fontland/default-shaper.rkt b/fontland/fontland/default-shaper.rkt deleted file mode 100644 index f6aebd7c..00000000 --- a/fontland/fontland/default-shaper.rkt +++ /dev/null @@ -1,49 +0,0 @@ -#lang racket/base -(require "racket.rkt") - -(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))) diff --git a/fontland/fontland/tables.rkt b/fontland/fontland/tables.rkt index e19a574c..7de62692 100644 --- a/fontland/fontland/tables.rkt +++ b/fontland/fontland/tables.rkt @@ -25,4 +25,4 @@ https://github.com/mbutterick/fontkit/blob/master/src/tables/index.js ;; PostScript outlines #;CFF_ #;CFF2 #;VORG ;; Advanced OpenType Tables - #;BASE #;GDEF GPOS GSUB #;JSTF) \ No newline at end of file + #;BASE #;GDEF #;GPOS #;GSUB #;JSTF) \ No newline at end of file