Break down geometric script

This commit is contained in:
be5invis 2021-01-11 01:50:40 -08:00
parent a713896313
commit 795caee8c7
11 changed files with 1113 additions and 1030 deletions

View file

@ -164,8 +164,8 @@ define-macro glyph-block-export : syntax-rules
define-macro for-width-kinds : syntax-rules
`[for-width-kinds @_desired @::_body] : dirty `[ do \\
define WidthKinds {
{0 '.NWID' $Capture$.metrics.Width 1}
{1 '.WWID' $Capture$.metrics.WideWidth0 2}
{ 0 '.NWID' $Capture$.metrics.Width 1 }
{ 1 '.WWID' $Capture$.metrics.WideWidth0 2 }
}
foreach {FMosaicWide MosaicNameSuffix MosaicWidth MosaicWidthScalar} [items-of WidthKinds] : do
define MosaicDesiredWidth @[formOf _desired]