suzanne.soy/Iosevka
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fine tune /at.short

Browse Source
This commit is contained in:
be5invis 2016-12-14 01:04:24 +08:00
parent 8aafbcedc8
commit 8be67e6d7b
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
glyphs/symbol-punctuation.ptl
View File

@ -392,9 +392,9 @@ export : define [apply] : begin
sketch # at.petite
set-width WIDTH
local top CAP
local obot (-XH / 8)
local otop [mix obot top 0.7]
local top operTop
local obot operBot
local otop [mix obot top 0.675]
local sw : adviceBlackness 3.5
local m1 : [mix (SB + sw) (RIGHTSB - sw) 0.53] + sw / 2
@ -406,18 +406,22 @@ export : define [apply] : begin
local shrink 0.6
include : dispiro
widths.lhs sw
flat m1 (otop - O) [heading LEFTWARD]
curl (m2 - CORRECTION_OMIDX * sw) (otop - O)
straight.up.start (m1 - (sw * (1 - shrink) * HVCONTRAST)) (otop - smb) [widths.heading (sw * shrink) 0 UPWARD]
arcvh
g4 (m2 - sw * TANSLANT) (otop - O) [widths.heading sw 0 LEFTWARD]
archv
flat SB (otop - sma)
curl SB (obot + smb)
arcvh
g4 (m2 + CORRECTION_OMIDX * sw) (obot+ O)
g4 (m2 - sw * TANSLANT) (obot + O) [heading RIGHTWARD]
archv
straight.up.end (m1 - (sw * (1 - shrink) * HVCONTRAST)) (obot + sma) [widths.heading (sw * shrink) 0 UPWARD]
include : VBarRight m1 (otop - O) (obot + sma) sw
include : dispiro
widths.lhs sw
corner m1 (obot + sma) [heading UPWARD]
corner m1 (otop - smb) [heading UPWARD]
corner m1 otop [widths.heading (sw * shrink) 0 UPWARD]
include : dispiro
widths.lhs (sw * shrink)