From 5093cd8fef4213219742c5a6a9c48d313e266139 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Fri, 30 Nov 2018 12:49:37 -0800 Subject: [PATCH] farewell --- fontland/fontland/info.rkt | 1 - fontland/fontland/main.rkt | 1 - fontland/fontland/opentype.rkt | 196 --------------------------------- 3 files changed, 198 deletions(-) delete mode 100644 fontland/fontland/info.rkt delete mode 100644 fontland/fontland/opentype.rkt diff --git a/fontland/fontland/info.rkt b/fontland/fontland/info.rkt deleted file mode 100644 index e0c94f27..00000000 --- a/fontland/fontland/info.rkt +++ /dev/null @@ -1 +0,0 @@ -#lang info diff --git a/fontland/fontland/main.rkt b/fontland/fontland/main.rkt index fc80ba4d..f5e9c098 100644 --- a/fontland/fontland/main.rkt +++ b/fontland/fontland/main.rkt @@ -1,7 +1,6 @@ #lang racket/base (require "racket.rkt") - (r+p "font.rkt" "glyph-position.rkt" "subset.rkt" diff --git a/fontland/fontland/opentype.rkt b/fontland/fontland/opentype.rkt deleted file mode 100644 index cc7962f7..00000000 --- a/fontland/fontland/opentype.rkt +++ /dev/null @@ -1,196 +0,0 @@ -#lang racket/base -(require "racket.rkt") - -(require xenomorph) -(provide (all-defined-out)) - -#| -approximates -https://github.com/mbutterick/fontkit/blob/master/src/tables/opentype.js -|# - -;;######################## -;; Scripts and Languages # -;;######################## - -(define-subclass Array (FeatIdxArray)) - -(define LangSysTable (+Struct - (dictify 'reserved uint16be - 'reqFeatureIndex uint16be - 'featureCount uint16be - 'featureIndexes (+FeatIdxArray uint16be 'featureCount)))) - -(define-subclass Pointer (LSR-Pointer)) -(define LangSysRecord (+Struct - (dictify 'tag (+Symbol 4) - 'langSys (+LSR-Pointer uint16be LangSysTable (mhash 'type 'parent))))) - -(define-subclass Pointer (DLS-Pointer)) -(define-subclass Array (DLS-Array)) -(define Script (+Struct - (dictify 'defaultLangSys (+DLS-Pointer uint16be LangSysTable) - 'count uint16be - 'langSysRecords (+DLS-Array LangSysRecord 'count)))) - -(define-subclass Struct (ScriptRecord-Struct)) -(define-subclass Pointer (ScriptRecord-Pointer)) -(define ScriptRecord (+ScriptRecord-Struct - (dictify 'tag (+Symbol 4) - 'script (+ScriptRecord-Pointer uint16be Script (mhash 'type 'parent))))) - -(define ScriptList (+Array ScriptRecord uint16be)) - -;;####################### -;; Features and Lookups # -;;####################### - - -(define Feature (+Struct (dictify - 'featureParams uint16be - 'lookupCount uint16be - 'lookupListIndexes (+Array uint16be 'lookupCount)))) - -(define-subclass Struct (FeatureRec)) -(define-subclass Pointer (FeatureRec-Pointer)) -(define FeatureRecord (+FeatureRec (dictify - 'tag (+Symbol 4) - 'feature (+FeatureRec-Pointer uint16be Feature (mhash 'type 'parent))))) - -(define FeatureList (+Array FeatureRecord uint16be)) - -(define LookupFlags (+Bitfield uint16be '(rightToLeft ignoreBaseGlyphs ignoreLigatures ignoreMarks useMarkFilteringSet #f markAttachmentType))) - -(define (LookupList SubTable) - (define Lookup (+Struct - (dictify - 'lookupType uint16be - 'flags LookupFlags - 'subTableCount uint16be - 'subTables (+Array (+Pointer uint16be SubTable) 'subTableCount) - 'markFilteringSet uint16be))) - (+LazyArray (+Pointer uint16be Lookup) uint16be)) - - -;;################# -;; Coverage Table # -;;################# - -(define RangeRecord - (+Struct - (dictify - 'start uint16be - 'end uint16be - 'startCoverageIndex uint16be))) - -(define Coverage - (+VersionedStruct uint16be - (dictify - 1 (dictify - 'glyphCount uint16be - 'glyphs (+Array uint16be 'glyphCount)) - - 2 (dictify - 'rangeCount uint16be - 'rangeRecords (+Array RangeRecord 'rangeCount))))) - -;;######################### -;; Class Definition Table # -;;######################### - -(define ClassRangeRecord (+Struct - (dictify - 'start uint16be - 'end uint16be - 'class uint16be))) - -(define ClassDef (+VersionedStruct uint16be - (dictify - 1 ;; Class array - (dictify - 'startGlyph uint16be - 'glyphCount uint16be - 'classValueArray (+Array uint16be 'glyphCount)) - 2 ;; Class ranges - (dictify - 'classRangeCount uint16be - 'classRangeRecord (+Array ClassRangeRecord 'classRangeCount))))) - - -;;############### -;; Device Table # -;;############### - -(define Device (+Struct - (dictify - 'startSize uint16be - 'endSize uint16be - 'deltaFormat uint16be))) - -;;############################################# -;; Contextual Substitution/Positioning Tables # -;;############################################# - - -(define LookupRecord (+Struct - (dictify - 'sequenceIndex uint16be - 'lookupListIndex uint16be))) - -(define Context - (+VersionedStruct - uint16be - (dictify - ;; Simple context - 1 (dictify - 'coverage (+Pointer uint16be Coverage) - 'ruleSetCount uint16be - 'ruleSets (+Array (+Pointer uint16be 'RuleSet) 'ruleSetCount)) - - ;; Class-based context - 2 (dictify - 'coverage (+Pointer uint16be Coverage) - 'classDef (+Pointer uint16be 'ClassDef) - 'classSetCnt uint16be - 'classSet (+Array (+Pointer uint16be 'ClassSet) 'classSetCnt)) - - 3 (dictify - 'glyphCount uint16be - 'lookupCount uint16be - 'coverages (+Array (+Pointer uint16be Coverage) 'glyphCount) - 'lookupRecords (+Array LookupRecord 'lookupCount))))) - - -;;###################################################### -;; Chaining Contextual Substitution/Positioning Tables # -;;###################################################### - -(define ChainingContext - (+VersionedStruct - uint16be - (dictify - ;; Simple context glyph substitution - 1 (dictify - 'coverage (+Pointer uint16be Coverage) - 'chainCount uint16be - 'chainRuleSets (+Array (+Pointer uint16be 'ChainRuleSet) 'chainCount)) - - ;; Class-based chaining context - 2 (dictify - 'coverage (+Pointer uint16be Coverage) - 'backtrackClassDef (+Pointer uint16be 'ClassDef) - 'inputClassDef (+Pointer uint16be 'ClassDef) - 'lookaheadClassDef (+Pointer uint16be 'ClassDef) - 'chainCount uint16be - 'chainClassSet (+Array (+Pointer uint16be 'ChainRuleSet) 'chainCount)) - - ;; Coverage-based chaining context - 3 (dictify - 'backtrackGlyphCount uint16be - 'backtrackCoverage (+Array (+Pointer uint16be Coverage) 'backtrackGlyphCount) - 'inputGlyphCount uint16be - 'inputCoverage (+Array (+Pointer uint16be Coverage) 'inputGlyphCount) - 'lookaheadGlyphCount uint16be - 'lookaheadCoverage (+Array (+Pointer uint16be Coverage) 'lookaheadGlyphCount) - 'lookupCount uint16be - 'lookupRecords (+Array LookupRecord 'lookupCount)))))