Optimized stroke width for superscripts and subscripts, again

This commit is contained in:
Belleve Invis 2015-07-27 03:21:18 +08:00
parent 778e3a3b27
commit 81b65a93f5

View File

@ -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