De-obliquified many glyphs, especially dots.
This commit is contained in:
parent
68f29a7725
commit
bb01d9e0c4
|
@ -22,7 +22,7 @@ define [oRight] : glyph-construction {
|
|||
create-glyph 'p' : glyph-construction {
|
||||
set-width WIDTH
|
||||
assign-unicode 'p'
|
||||
include eMarks
|
||||
include pMarks
|
||||
|
||||
include : oLeft
|
||||
include : create-stroke
|
||||
|
@ -48,7 +48,7 @@ create-glyph 'b' : glyph-construction {
|
|||
create-glyph 'q' : glyph-construction {
|
||||
set-width WIDTH
|
||||
assign-unicode 'q'
|
||||
include eMarks
|
||||
include pMarks
|
||||
|
||||
include : oRight
|
||||
include : create-stroke
|
||||
|
|
|
@ -23,7 +23,7 @@ create-glyph 'dotAbove' : glyph-construction {
|
|||
this.shortName = 'dot'
|
||||
set-anchor 'above' MARK markMiddle XH markMiddle aboveMarkTop
|
||||
include : list {
|
||||
Ring [XH + ACCENT + DOTRADIUS] [XH + ACCENT - DOTRADIUS] [markMiddle - DOTRADIUS] [markMiddle + DOTRADIUS]
|
||||
Ring [XH + ACCENT + DOTRADIUS] [XH + ACCENT - DOTRADIUS] [markMiddle - DOTRADIUS] [markMiddle + DOTRADIUS] true
|
||||
}
|
||||
}
|
||||
create-glyph 'dieresisAbove' : glyph-construction {
|
||||
|
@ -32,8 +32,8 @@ create-glyph 'dieresisAbove' : glyph-construction {
|
|||
this.shortName = 'dieresis'
|
||||
set-anchor 'above' MARK markMiddle XH markMiddle aboveMarkTop
|
||||
include : list {
|
||||
Ring [XH + ACCENT + markDotsRadius] [XH + ACCENT - markDotsRadius] [markMiddle - markDotsRadius - markExtend] [markMiddle + markDotsRadius - markExtend]
|
||||
Ring [XH + ACCENT + markDotsRadius] [XH + ACCENT - markDotsRadius] [markMiddle - markDotsRadius + markExtend] [markMiddle + markDotsRadius + markExtend]
|
||||
Ring [XH + ACCENT + markDotsRadius] [XH + ACCENT - markDotsRadius] [markMiddle - markDotsRadius - markExtend] [markMiddle + markDotsRadius - markExtend] true
|
||||
Ring [XH + ACCENT + markDotsRadius] [XH + ACCENT - markDotsRadius] [markMiddle - markDotsRadius + markExtend] [markMiddle + markDotsRadius + markExtend] true
|
||||
}
|
||||
}
|
||||
create-glyph 'ringAbove' : glyph-construction {
|
||||
|
@ -45,8 +45,8 @@ create-glyph 'ringAbove' : glyph-construction {
|
|||
local radiusIn : ACCENT * 0.24
|
||||
local radiusOut : radiusIn + markFine * 1.75
|
||||
include : list {
|
||||
Ring [XH + ACCENT + radiusOut] [XH + ACCENT - radiusOut] [markMiddle - radiusOut] [markMiddle + radiusOut]
|
||||
Ring [XH + ACCENT + radiusIn] [XH + ACCENT - radiusIn] [markMiddle - radiusIn] [markMiddle + radiusIn]
|
||||
Ring [XH + ACCENT + radiusOut] [XH + ACCENT - radiusOut] [markMiddle - radiusOut] [markMiddle + radiusOut] true
|
||||
Ring [XH + ACCENT + radiusIn] [XH + ACCENT - radiusIn] [markMiddle - radiusIn] [markMiddle + radiusIn] true
|
||||
}
|
||||
reverse-last
|
||||
apply-transform : Upright
|
||||
|
@ -155,9 +155,7 @@ create-glyph 'macronAbove' : glyph-construction {
|
|||
include : create-stroke
|
||||
:.start-from leftEnd [XH + ACCENT]
|
||||
:.set-width markHalfStroke markHalfStroke
|
||||
:.heads-to RIGHTWARD
|
||||
:.line-to rightEnd [XH + ACCENT]
|
||||
:.heads-to RIGHTWARD
|
||||
}
|
||||
create-glyph 'breveAbove' : glyph-construction {
|
||||
set-width 0
|
||||
|
|
|
@ -192,12 +192,12 @@ create-glyph 'period' : glyph-construction {
|
|||
set-width WIDTH
|
||||
assign-unicode '.'
|
||||
|
||||
include : list : Ring [PERIODSIZE - O] O [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O]
|
||||
include : list : Ring [PERIODSIZE - O] O [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O] true
|
||||
}
|
||||
|
||||
create-glyph 'xhdot' : glyph-construction {
|
||||
set-width WIDTH
|
||||
include : list : Ring [XH - O] [XH - PERIODSIZE + O] [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O]
|
||||
include : list : Ring [XH - O] [XH - PERIODSIZE + O] [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O] true
|
||||
}
|
||||
|
||||
create-glyph 'comma' : glyph-construction {
|
||||
|
@ -241,7 +241,7 @@ create-glyph 'question' : glyph-construction {
|
|||
assign-unicode '?'
|
||||
include : xsStrand [MIDDLE - HALFSTROKE] [mix [DOTSIZE + STROKE] [XH / 2] 0.5] RIGHTSB [CAP - SMOOTHB]
|
||||
include : twoHookUpper CAP SMOOTHB HOOK
|
||||
include : list : Ring [DOTSIZE - O] O [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O]
|
||||
include : list : Ring [DOTSIZE - O] O [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O] true
|
||||
}
|
||||
create-glyph 'exclam' : glyph-construction {
|
||||
set-width WIDTH
|
||||
|
@ -252,7 +252,7 @@ create-glyph 'exclam' : glyph-construction {
|
|||
:.heads-to DOWNWARD
|
||||
:.line-to MIDDLE [mix [DOTSIZE + STROKE] [XH / 2] 0.5]
|
||||
:.heads-to DOWNWARD
|
||||
include : list : Ring [DOTSIZE - O] O [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O]
|
||||
include : list : Ring [DOTSIZE - O] O [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O] true
|
||||
}
|
||||
|
||||
### Symbols with bars
|
||||
|
|
|
@ -107,8 +107,8 @@ create-glyph 'divide' : glyph-construction {
|
|||
include glyphs.minus
|
||||
local radius : [RIGHTSB - SB] / 2
|
||||
include : list {
|
||||
Ring [parenMid + radius + DOTRADIUS] [parenMid + radius - DOTRADIUS] [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O]
|
||||
Ring [parenMid - radius + DOTRADIUS] [parenMid - radius - DOTRADIUS] [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O]
|
||||
Ring [parenMid + radius + DOTRADIUS] [parenMid + radius - DOTRADIUS] [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O] true
|
||||
Ring [parenMid - radius + DOTRADIUS] [parenMid - radius - DOTRADIUS] [MIDDLE - DOTRADIUS + O] [MIDDLE + DOTRADIUS - O] true
|
||||
}
|
||||
}
|
||||
create-glyph 'negate' : glyph-construction {
|
||||
|
|
|
@ -53,7 +53,7 @@ create-glyph 'softhyphen' : glyph-construction {
|
|||
}
|
||||
create-glyph 'interpunct' : glyph-construction {
|
||||
assign-unicode 0xB7
|
||||
include : list : Ring [parenMid + PERIODRADIUS - O] [parenMid - PERIODRADIUS + O] [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O]
|
||||
include : list : Ring [parenMid + PERIODRADIUS - O] [parenMid - PERIODRADIUS + O] [MIDDLE - PERIODRADIUS + O] [MIDDLE + PERIODRADIUS - O] true
|
||||
}
|
||||
create-glyph 'brokenbar' : glyph-construction {
|
||||
assign-unicode 0xA6
|
||||
|
@ -227,7 +227,7 @@ create-glyph 'onedotLeader' : glyph-construction {
|
|||
assign-unicode 0x2024
|
||||
local radius : 0.5 * [adviceBlackness 3.25] * PERIODSIZE / DOTSIZE
|
||||
include : list {
|
||||
Ring [radius * 2 - O] O [MIDDLE - radius + O] [MIDDLE + radius - O]
|
||||
Ring [radius * 2 - O] O [MIDDLE - radius + O] [MIDDLE + radius - O] true
|
||||
}
|
||||
}
|
||||
create-glyph 'twodotsLEader' : glyph-construction {
|
||||
|
@ -236,8 +236,8 @@ create-glyph 'twodotsLEader' : glyph-construction {
|
|||
local left : mix 0 WIDTH [1 / 4]
|
||||
local right : mix 0 WIDTH [3 / 4]
|
||||
include : list {
|
||||
Ring [radius * 2 - O] O [left - radius + O] [left + radius - O]
|
||||
Ring [radius * 2 - O] O [right - radius + O] [right + radius - O]
|
||||
Ring [radius * 2 - O] O [left - radius + O] [left + radius - O] true
|
||||
Ring [radius * 2 - O] O [right - radius + O] [right + radius - O] true
|
||||
}
|
||||
}
|
||||
create-glyph 'ellipsis' : glyph-construction {
|
||||
|
@ -246,9 +246,9 @@ create-glyph 'ellipsis' : glyph-construction {
|
|||
local left : mix 0 WIDTH [1 / 6]
|
||||
local right : mix 0 WIDTH [5 / 6]
|
||||
include : list {
|
||||
Ring [radius * 2 - O] O [left - radius + O] [left + radius - O]
|
||||
Ring [radius * 2 - O] O [MIDDLE - radius + O] [MIDDLE + radius - O]
|
||||
Ring [radius * 2 - O] O [right - radius + O] [right + radius - O]
|
||||
Ring [radius * 2 - O] O [left - radius + O] [left + radius - O] true
|
||||
Ring [radius * 2 - O] O [MIDDLE - radius + O] [MIDDLE + radius - O] true
|
||||
Ring [radius * 2 - O] O [right - radius + O] [right + radius - O] true
|
||||
}
|
||||
}
|
||||
alias 'bullet' 0x2022 'interpunct'
|
||||
|
|
Loading…
Reference in New Issue
Block a user