De-obliquified many glyphs, especially dots.

This commit is contained in:
be5invis 2015-08-12 04:19:24 +08:00
parent 68f29a7725
commit bb01d9e0c4
5 changed files with 20 additions and 22 deletions

View File

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

View File

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

View File

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

View File

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

View File

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