Break down geometric script
This commit is contained in:
parent
a713896313
commit
795caee8c7
11 changed files with 1113 additions and 1030 deletions
|
@ -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]
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue