ref: 731595bb10f2d57217e8c3850611fcc0ed81a586
parent: 9fa76896ce8ec96f3f6e76a0b23732be660b71bb
author: Sigrid Solveig Haflínudóttir <sigrid@ftrv.se>
date: Sun Jun 16 20:28:58 EDT 2024
define maxp fully
--- a/otf.rkt
+++ b/otf.rkt
@@ -409,9 +409,21 @@
#:tag "head")
(mkcmplx TableMaxp
- (mkfields {Version16Dot16 version (= #x05000 #x10000) hex}- {uint16 numGlyphs} ; FIXME there are more fields here, depending on the version- )
+ (mkfields {Version16Dot16 version (= #x05000 #x10000)}+ {uint16 numGlyphs}+ {uint16 maxPoints (>= version #x10000)}+ {uint16 maxContours (>= version #x10000)}+ {uint16 maxCompositePoints (>= version #x10000)}+ {uint16 maxCompositeContours (>= version #x10000)}+ {uint16 maxZones (>= version #x10000)}+ {uint16 maxTwilightPoints (>= version #x10000)}+ {uint16 maxStorage (>= version #x10000)}+ {uint16 maxFunctionDefs (>= version #x10000)}+ {uint16 maxInstructionDefs (>= version #x10000)}+ {uint16 maxStackElements (>= version #x10000)}+ {uint16 maxSizeOfInstructions (>= version #x10000)}+ {uint16 maxComponentElements (>= version #x10000)}+ {uint16 maxComponentDepth (>= version #x10000)})#:tag "maxp")
(mkcmplx TableOS∕2