synchronize => ligatures' bar wideess with equal sign

This commit is contained in:
be5invis 2016-11-11 22:41:52 +08:00
parent d1024b9c41
commit c9ee343175
13 changed files with 23 additions and 6 deletions

View File

@ -3,6 +3,7 @@ $$include '../meta/macros.ptl'
import 'unorm' as unorm
import [mix linreg clamp fallback suggestGC] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
define customDecompositions : object
# Latvians use comma instead of cedillas in several letters.

View File

@ -4,6 +4,7 @@ import '../support/transform' as : Transform && [object [transformPoint tp] [unt
import '../support/fairify' as fairify
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry

View File

@ -6,6 +6,7 @@ $$include '../meta/macros.ptl'
import '../support/transform' as : Transform && [object [transformPoint tp] [untransform utp] inverse]
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks

View File

@ -1,6 +1,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks letterBasic

View File

@ -1,6 +1,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
###### NUMBERS
export : define [apply] : begin

View File

@ -1,6 +1,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes

View File

@ -2,6 +2,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks

View File

@ -3,6 +3,7 @@ $$include '../meta/macros.ptl'
import '../support/transform' as : Transform && [object [transformPoint tp] [untransform utp] inverse]
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks

View File

@ -3,6 +3,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks letterBasic

View File

@ -2,6 +2,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks letterBasic letterExt
@ -102,8 +103,8 @@ export : define [apply] : begin
include glyphs.plus
save 'plusminus' 0xB1
turned 'minusplus' 0x2213 'plusminus' MIDDLE parenMid
local equalHalfSpace : (parenTop - parenBot) * 0.11
local equalHalfSpace : (parenTop - parenBot) * designParameters.equal_wideness
sketch # equal
include : HBar SB RIGHTSB (parenMid + equalHalfSpace) OPERATORSTROKE
include : HBar SB RIGHTSB (parenMid - equalHalfSpace) OPERATORSTROKE

View File

@ -2,6 +2,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks geometricSymbols
@ -322,9 +323,11 @@ export : define [apply] : begin
save ('lighyphen.' + subclass)
# =>
local dblarrowd : XH * [linreg 18 0.15 126 0.275 STROKE]
local sw : Math.min OPERATORSTROKE (dblarrowd * [clamp 0.45 0.75 ((1 - WHITENESS) * 1)])
local dblextend [clamp 0 WIDTH (RIGHTSB - (dblarrowd - sw / 2) * arrowheadSlope)]
# local dblarrowd : XH * [linreg 18 0.15 126 0.275 STROKE]
# local sw : Math.min OPERATORSTROKE (dblarrowd * [clamp 0.45 0.75 ((1 - WHITENESS) * 1)])
local sw OPERATORSTROKE
local dblarrowd ((parenTop - parenBot) * designParameters.equal_wideness + sw / 2)
local dblextend : clamp 0 WIDTH (RIGHTSB - (dblarrowd - sw / 2) * arrowheadSlope)
local dblarrowj : clamp 0 WIDTH (SB + (dblarrowd - sw / 2) * arrowheadSlope)
foreach [{subclass left right} : items-of [ArrowBarConfig dblextend arrowheadsKern dblarrowj]] : sketch
include : HBarTop left right (parenMid + dblarrowd) sw

View File

@ -2,6 +2,7 @@
$$include '../meta/macros.ptl'
import [mix linreg clamp fallback] from '../support/utils'
import [designParameters] from '../meta/aesthetics'
export : define [apply] : begin
glyph-module-entry commonShapes overmarks letterBasic

View File

@ -173,4 +173,7 @@ export : define [setFontMetrics para metrics font] : begin
set font.OS_2.sxHeight XH
set font.OS_2.sCapHeight CAP
set font.post.italicAngle (0 - para.slantAngle)
set font.post.italicAngle (0 - para.slantAngle)
export : define designParameters : object
equal_wideness 0.1