* Add characters:

- Measured Angle (`U+2221`).
   - Spherical Angle (`U+2222`).
   - Homothetic (`U+223B`).
 * Cleanup relation symbol code
This commit is contained in:
be5invis 2021-05-15 21:45:09 -07:00
parent 491221f8b8
commit 0724910426
50 changed files with 556 additions and 406 deletions

View file

@ -97,16 +97,16 @@ define-macro create-aliased-glyph : syntax-rules
[this.include currentGlyph true true]
[this.cloneRankFromGlyph currentGlyph] ]]
define-macro create-derived : syntax-rules
`[create-derived @body] : begin
define-macro create-forked-glyph : syntax-rules
`[create-forked-glyph @body] : begin
if [not externEnv.$nWFGlyphs$] : set externEnv.$nWFGlyphs$ 0
inc externEnv.$nWFGlyphs$
local f0 : '.' + [[env.macros.get 'input-path']].1 + '.'
local tcn {".quote" (".WF" + f0 + externEnv.$nWFGlyphs$)}
dirty `[create-derived @tcn null @[formOf body]]
`[create-derived @name @body] : begin
dirty `[create-derived @[formOf name] null @[formOf body]]
`[create-derived @name @code @body] : begin
dirty `[create-forked-glyph @tcn null @[formOf body]]
`[create-forked-glyph @name @body] : begin
dirty `[create-forked-glyph @[formOf name] null @[formOf body]]
`[create-forked-glyph @name @code @body] : begin
dirty `[$createAndSaveGlyphImpl$ @[formOf name] @[formOf code] [lambda : begin
[this.include currentGlyph true true]
[this.cloneRankFromGlyph currentGlyph]
@ -129,7 +129,7 @@ define-macro glyph-block-import : syntax-rules
define allExports : object
Common-Derivatives `[select-variant orthographic-italic refer-glyph query-glyph
alias turned HDual HCombine VDual VCombine with-related-glyphs build-related-composite
alias turned HDual HCombine VDual VCombine derive-glyphs derive-composites
glyph-is-needed HalfAdvance TurnMarks]
CommonShapes `[Rect SquareAt Ring RingAt DotAt RingStroke RingStrokeAt DotStrokeAt