* Add characters:
- Measured Angle (`U+2221`). - Spherical Angle (`U+2222`). - Homothetic (`U+223B`). * Cleanup relation symbol code
This commit is contained in:
parent
491221f8b8
commit
0724910426
50 changed files with 556 additions and 406 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue