parent
2d3d0f083d
commit
e0534f71f5
1 changed files with 6 additions and 8 deletions
|
@ -77,7 +77,7 @@ glyph-block Autobuild-Transformed-Shared : begin
|
||||||
|
|
||||||
glyph-block-export ToSuperscript
|
glyph-block-export ToSuperscript
|
||||||
define [ToSuperscript div] : glyph-proc
|
define [ToSuperscript div] : glyph-proc
|
||||||
local df : DivFrame df
|
local df : DivFrame div
|
||||||
include [Ungizmo] true
|
include [Ungizmo] true
|
||||||
include [Translate (-df.middle) (-CAP)] true
|
include [Translate (-df.middle) (-CAP)] true
|
||||||
include [Scale ToSuperscript.crowdAdjScale] true
|
include [Scale ToSuperscript.crowdAdjScale] true
|
||||||
|
@ -88,7 +88,7 @@ glyph-block Autobuild-Transformed-Shared : begin
|
||||||
|
|
||||||
glyph-block-export ToSubscript
|
glyph-block-export ToSubscript
|
||||||
define [ToSubscript div] : glyph-proc
|
define [ToSubscript div] : glyph-proc
|
||||||
local df : DivFrame df
|
local df : DivFrame div
|
||||||
include [Ungizmo] true
|
include [Ungizmo] true
|
||||||
include [Translate (-df.middle) 0] true
|
include [Translate (-df.middle) 0] true
|
||||||
include [Scale ToSubscript.crowdAdjScale] true
|
include [Scale ToSubscript.crowdAdjScale] true
|
||||||
|
@ -368,16 +368,15 @@ glyph-block Autobuild-Transformed : begin
|
||||||
local miniatureFont : Miniature pendingGlyphs
|
local miniatureFont : Miniature pendingGlyphs
|
||||||
crowd -- ToSuperscript.crowd
|
crowd -- ToSuperscript.crowd
|
||||||
scale -- ToSuperscript.crowdAdjScale
|
scale -- ToSuperscript.crowdAdjScale
|
||||||
mono -- true
|
# mono -- true
|
||||||
sbscale -- 0.75
|
sbscale -- 0.75
|
||||||
foreach { unicode glyphid fRelated } [items-of records]
|
foreach { unicode glyphid fRelated } [items-of records]
|
||||||
if [not : query-glyph targetNameMap.(glyphid)] : begin
|
if [not : query-glyph targetNameMap.(glyphid)] : begin
|
||||||
create-glyph (targetNameMap.(glyphid)) unicode : glyph-proc
|
create-glyph (targetNameMap.(glyphid)) unicode : glyph-proc
|
||||||
if [not : miniatureFont.queryByName glyphid] : begin
|
if [not : miniatureFont.queryByName glyphid] : begin
|
||||||
throw : new Error "Cannot find glyph \(glyphid)"
|
throw : new Error "Cannot find glyph \(glyphid)"
|
||||||
local middle : [miniatureFont.queryByName glyphid].advanceWidth / 2
|
|
||||||
include [miniatureFont.queryByName glyphid] AS_BASE ALSO_METRICS
|
include [miniatureFont.queryByName glyphid] AS_BASE ALSO_METRICS
|
||||||
include : ToSuperscript
|
include : ToSuperscript (currentGlyph.advanceWidth / Width)
|
||||||
IsSuperscript.set currentGlyph
|
IsSuperscript.set currentGlyph
|
||||||
if ([not fRelated] && gr) : gr.set [query-glyph glyphid] (targetNameMap.(glyphid))
|
if ([not fRelated] && gr) : gr.set [query-glyph glyphid] (targetNameMap.(glyphid))
|
||||||
link-relations relSets
|
link-relations relSets
|
||||||
|
@ -476,14 +475,13 @@ glyph-block Autobuild-Transformed : begin
|
||||||
local miniatureFont : Miniature pendingGlyphs
|
local miniatureFont : Miniature pendingGlyphs
|
||||||
crowd -- ToSubscript.crowd
|
crowd -- ToSubscript.crowd
|
||||||
scale -- ToSubscript.crowdAdjScale
|
scale -- ToSubscript.crowdAdjScale
|
||||||
mono -- true
|
# mono -- true
|
||||||
sbscale -- 0.75
|
sbscale -- 0.75
|
||||||
foreach { unicode glyphid fRelated } [items-of records]
|
foreach { unicode glyphid fRelated } [items-of records]
|
||||||
if [not : query-glyph targetNameMap.(glyphid)] : begin
|
if [not : query-glyph targetNameMap.(glyphid)] : begin
|
||||||
create-glyph (targetNameMap.(glyphid)) unicode : glyph-proc
|
create-glyph (targetNameMap.(glyphid)) unicode : glyph-proc
|
||||||
local middle : [miniatureFont.queryByName glyphid].advanceWidth / 2
|
|
||||||
include [miniatureFont.queryByName glyphid] AS_BASE ALSO_METRICS
|
include [miniatureFont.queryByName glyphid] AS_BASE ALSO_METRICS
|
||||||
include : ToSubscript
|
include : ToSubscript (currentGlyph.advanceWidth / Width)
|
||||||
IsSubscript.set currentGlyph
|
IsSubscript.set currentGlyph
|
||||||
if ([not fRelated] && gr) : gr.set [query-glyph glyphid] (targetNameMap.(glyphid))
|
if ([not fRelated] && gr) : gr.set [query-glyph glyphid] (targetNameMap.(glyphid))
|
||||||
link-relations relSets
|
link-relations relSets
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue