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

Add feature XV__, and ligation for \/ and /\

Browse Source
This commit is contained in:
be5invis 2017-01-13 13:43:15 +08:00
parent cbe1871848
commit b7eefb1136
2 changed files with 43 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

45
glyphs/symbol-punctuation.ptl
View File

@ -516,24 +516,41 @@ export : define [apply] : begin
include : VBar [mix SB RIGHTSB 0.7] (parenBot + fine) (parenTop - fine) fine
save 'numbersign' '#'
sketch # slash
local cor : HVCONTRAST / [Math.sqrt (1 - [Math.pow ((RIGHTSB - SB - STROKE) / (parenTop - parenBot)) 2])]
start-from SB parenBot
line-to (SB + STROKE * cor) parenBot
line-to RIGHTSB parenTop
line-to (RIGHTSB - STROKE * cor) parenTop
define [SlashShape l r] : glyph-construction
local cor : (1 / 2) * HVCONTRAST / [Math.sqrt (1 - [Math.pow ((r - l - STROKE) / (parenTop - parenBot)) 2])]
start-from (l - STROKE * cor) parenBot
line-to (l + STROKE * cor) parenBot
line-to (r + STROKE * cor) parenTop
line-to (r - STROKE * cor) parenTop
reverse-last
save 'slash' '/'
alias 'solidus' 0x2044 'slash'
sketch # slash
include : SlashShape SB RIGHTSB
save 'slash' '/'
save 'solidus' 0x2044
sketch # slash.left
include : SlashShape SB WIDTH
save 'slash.left'
sketch # slash.right
include : SlashShape 0 RIGHTSB
save 'slash.right'
define [BackslashShape l r] : glyph-construction
local cor : (1 / 2) * HVCONTRAST / [Math.sqrt (1 - [Math.pow ((r - l - STROKE) / (parenTop - parenBot)) 2])]
start-from (l - STROKE * cor) parenTop
line-to (l + STROKE * cor) parenTop
line-to (r + STROKE * cor) parenBot
line-to (r - STROKE * cor) parenBot
local backslashWidth : (RIGHTSB - SB) * (1 + TANSLANT * 2)
sketch # backslash
local width : (RIGHTSB - SB) * (1 + TANSLANT * 2)
local cor : HVCONTRAST / [Math.sqrt (1 - [Math.pow ((width - STROKE) / (parenTop - parenBot)) 2])]
start-from (MIDDLE - width / 2) parenTop
line-to (MIDDLE - width / 2 + STROKE * cor) parenTop
line-to (MIDDLE + width / 2) parenBot
line-to (MIDDLE + width / 2 - STROKE * cor) parenBot
include : BackslashShape (MIDDLE - backslashWidth / 2) (MIDDLE + backslashWidth / 2)
save 'backslash' "\\"
sketch # backslash.left
include : BackslashShape (MIDDLE - backslashWidth / 2) WIDTH
save 'backslash.left'
sketch # backslash.right
include : BackslashShape 0 (MIDDLE + backslashWidth / 2)
save 'backslash.right'
### 'Dashes'

15
meta/features.ptl
View File

@ -177,6 +177,7 @@ export : define [apply para glyphList] : begin
local progLigNameMap
.XHS_ 'hask'
.XPTL 'hask'
.XV__ 'hask'
foreach
: ligationFeatureName : items-of : {'calt'}.concat [Object.keys progLigNameMap]
: do
@ -210,18 +211,23 @@ export : define [apply para glyphList] : begin
chain-rule ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) ({'asterisk'} ~> {'asterisk.low'}) # :::*
chain-rule ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) ({'asterisk'} ~> {'asterisk.low'}) # ::*
chain-rule ({'colon'} ~> {'colon.mid'}) ({'asterisk'} ~> {'asterisk.low'}) # :*
chain-rule {'asterisk.low'} ({'asterisk'} ~> {'asterisk.low'}) # **
chain-rule ({'asterisk'} ~> {'asterisk.low'}) ({'colon'} ~> {'colon.mid'}) # *:
chain-rule ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) {'greater' 'less' 'hyphen' 'equal' 'plus' 'colon.mid'} # :::> :::- :::= :::< :::+
chain-rule ({'colon'} ~> {'colon.mid'}) ({'colon'} ~> {'colon.mid'}) {'greater' 'less' 'hyphen' 'equal' 'plus' 'colon.mid'} # ::> ::- ::= ::< ::+
chain-rule ({'colon'} ~> {'colon.mid'}) {'greater' 'less' 'hyphen' 'equal' 'plus' 'colon.mid'} # :> :- := :< :+
chain-rule {'greater' 'less' 'hyphen' 'equal' 'plus' 'colon.mid'} ({'colon'} ~> {'colon.mid'}) # <: >: -: =: +:
chain-rule {'colon.mid'} ({'colon'} ~> {'colon.mid'}) # ::
# Colon chains
chain-rule {'colon.dright' 'colon.dmid'} ({'colon'} ~> {'colon.dmid'}) {'colon'}
chain-rule {'colon.dright' 'colon.dmid'} ({'colon'} ~> {'colon.dleft'})
chain-rule ({'colon'} ~> {'colon.dright'}) {'colon'}
# Trailings
includeLookup
.type 'gsub_chaining'
.subtables : list
chain-rule {'colon.mid'} ({'colon'} ~> {'colon.mid'}) # ::
chain-rule {'asterisk.low'} ({'asterisk'} ~> {'asterisk.low'}) # **
includeLookup
.type 'gsub_chaining'
@ -256,7 +262,10 @@ export : define [apply para glyphList] : begin
:> only {'hask'}
chain-rule (stick ~> [lsx 'fj']) less # -<, =<
:> only {'hask'}
chain-rule ({'slash'} ~> {'slash.left'}) ({'backslash'} ~> {'backslash.right'}) # /\
:> only {'hask'}
chain-rule ({'backslash'} ~> {'backslash.left'}) ({'slash'} ~> {'slash.right'}) # \/
:> only {'hask'}
#opbd
local fwclose {'fwlcloseDoubleQuote' 'fwlcloseSingleQuote' 'dwlcjkSingleQuoteRight' 'dwlcjkDoubleQuoteRight' 'dwlparenRight'}