Optimized stroke width for superscripts and subscripts, again
This commit is contained in:
parent
778e3a3b27
commit
81b65a93f5
|
@ -13,7 +13,7 @@ define [Miniature glyphs fold scale] : begin {
|
|||
}
|
||||
define [createCircledGlyphs records] : if [not recursive] : begin {
|
||||
local pendingGlyphs : records.map : [record] -> record.1
|
||||
local miniatureFont : Miniature pendingGlyphs 4.2 0.6
|
||||
local miniatureFont : Miniature pendingGlyphs 3.7 0.7
|
||||
|
||||
foreach (unicode glyphid) [items-of records] : create-glyph ['circled_' + glyphid] : glyph-construction {
|
||||
local sw [adviceBlackness 6]
|
||||
|
@ -33,7 +33,7 @@ define [createCircledGlyphs records] : if [not recursive] : begin {
|
|||
}
|
||||
define [createSuperscripts records] : if [not recursive] : begin {
|
||||
local pendingGlyphs : records.map : [record] -> record.1
|
||||
local miniatureFont : Miniature pendingGlyphs 4.2 0.6
|
||||
local miniatureFont : Miniature pendingGlyphs 3.7 0.7
|
||||
foreach (unicode glyphid) [items-of records] : create-glyph ['superscript_' + glyphid] : glyph-construction {
|
||||
if unicode : assign-unicode unicode
|
||||
include : create-glyph : glyph-construction {
|
||||
|
@ -48,7 +48,7 @@ define [createSuperscripts records] : if [not recursive] : begin {
|
|||
}
|
||||
define [createSubscripts records] : if [not recursive] : begin {
|
||||
local pendingGlyphs : records.map : [record] -> record.1
|
||||
local miniatureFont : Miniature pendingGlyphs 4.2 0.6
|
||||
local miniatureFont : Miniature pendingGlyphs 3.7 0.7
|
||||
foreach (unicode glyphid) [items-of records] : create-glyph ['subscript_' + glyphid] : glyph-construction {
|
||||
if unicode : assign-unicode unicode
|
||||
include : create-glyph : glyph-construction {
|
||||
|
@ -64,10 +64,10 @@ define [createSubscripts records] : if [not recursive] : begin {
|
|||
|
||||
define [createFractions records] : if [not recursive] : begin {
|
||||
local pendingGlyphs : [records.map : [record] -> record.1].concat : records.map : [record] -> record.2
|
||||
local miniatureFont : Miniature pendingGlyphs 4 0.6
|
||||
local miniatureFont : Miniature pendingGlyphs 4 0.7
|
||||
foreach (unicode numid denid) [items-of records] : create-glyph ['fraction_' + numid + '_' + denid] : glyph-construction {
|
||||
if unicode : assign-unicode unicode
|
||||
local fine : adviceBlackness 4.2
|
||||
local fine : adviceBlackness 3.7
|
||||
include : create-glyph : glyph-construction {
|
||||
include : create-glyph : glyph-construction {
|
||||
include miniatureFont.(numid)
|
||||
|
@ -98,7 +98,7 @@ createCircledGlyphs : list {
|
|||
|
||||
create-glyph 'ordfeminine' : glyph-construction {
|
||||
assign-unicode 0xAA
|
||||
include [Miniature ('a') 4.2 0.6].a
|
||||
include [Miniature ('a') 3.7 0.7].a
|
||||
include : create-stroke
|
||||
:.start-from SB DESCENDER
|
||||
:.set-width STROKE 0
|
||||
|
@ -114,7 +114,7 @@ create-glyph 'ordfeminine' : glyph-construction {
|
|||
}
|
||||
create-glyph 'ordmasculine' : glyph-construction {
|
||||
assign-unicode 0xBA
|
||||
include [Miniature ('o') 4.2 0.6].o
|
||||
include [Miniature ('o') 3.7 0.7].o
|
||||
include : create-stroke
|
||||
:.start-from SB DESCENDER
|
||||
:.set-width STROKE 0
|
||||
|
|
Loading…
Reference in New Issue
Block a user