fix U+2359
This commit is contained in:
parent
46607ba4fd
commit
e01999f6ba
|
@ -118,25 +118,26 @@ export : define [apply] : begin
|
|||
save 'gamma' 0x3B3
|
||||
|
||||
|
||||
define [LambdaShape sw] : glyph-construction
|
||||
define [LambdaShape sw _top] : glyph-construction
|
||||
local TURN (CAP * 0.1)
|
||||
local curviness 0.2
|
||||
local top : fallback _top CAP
|
||||
include : dispiro
|
||||
widths.rhs sw
|
||||
flat SB 0 [heading UPWARD]
|
||||
curl SB TURN [heading UPWARD]
|
||||
quadcontrols 0 curviness
|
||||
g4 (MIDDLE - sw / 2) CAP [widths 0 (sw * 0.8)]
|
||||
g4 (MIDDLE - sw / 2) top [widths 0 (sw * 0.8)]
|
||||
include : dispiro
|
||||
widths.lhs sw
|
||||
flat RIGHTSB 0 [heading UPWARD]
|
||||
curl RIGHTSB TURN [heading UPWARD]
|
||||
quadcontrols 0 curviness
|
||||
g4 (MIDDLE + sw / 2) CAP [widths (sw * 0.8) 0]
|
||||
g4 (MIDDLE + sw / 2) top [widths (sw * 0.8) 0]
|
||||
|
||||
start-from (MIDDLE - sw / 2) CAP
|
||||
line-to (MIDDLE + sw / 2) CAP
|
||||
line-to MIDDLE (CAP - sw)
|
||||
start-from (MIDDLE - sw / 2) top
|
||||
line-to (MIDDLE + sw / 2) top
|
||||
line-to MIDDLE (top - sw)
|
||||
|
||||
if SLAB : begin
|
||||
include : CenterBottomSerif (SB + sw / 2 * HVCONTRAST) 0 JUT
|
||||
|
@ -153,7 +154,7 @@ export : define [apply] : begin
|
|||
|
||||
sketch # Delta
|
||||
include glyphs.Lambda AS_BASE
|
||||
include : HBar (SB + HALFSTROKE) (RIGHTSB - HALFSTROKE) HALFSTROKE
|
||||
include : HBarBottom (SB + HALFSTROKE) (RIGHTSB - HALFSTROKE) 0
|
||||
eject-contour 'serif'
|
||||
save 'Delta' 0x394
|
||||
|
||||
|
|
|
@ -340,7 +340,7 @@ export : define [apply] : begin
|
|||
hollow 'smallwhitecircle' null 'smallblackcircle' [hollowScale : squareRadius * designParameters.geometric_small_x]
|
||||
hollow 'hwsmallwhitecircle' null 'hwsmallblackcircle' [hollowScale (squareRadius * designParameters.geometric_small_x) 1]
|
||||
hollow 'hwwhitecircle' null 'hwblackcircle'
|
||||
hollow 'hwwhitediamond' null 'hwblackdiamond'
|
||||
hollow 'hwwhitediamond' null 'hwblackdiamond' [hollowScale squareRadius nothing (hollowSW * [Math.sqrt 2])]
|
||||
hollow 'whitediamond' 0x25C7 'blackdiamond' [hollowScale squareRadius nothing (hollowSW * [Math.sqrt 2])]
|
||||
|
||||
let [sts 0.75]
|
||||
|
|
|
@ -438,7 +438,7 @@ export : define [apply] : begin
|
|||
curl RIGHTSB operBot
|
||||
save 'aplbackslash'
|
||||
|
||||
define aplBoxTfm : ScaleAround MIDDLE parenMid ((WIDTH - aplBoxSW * 1.75) / WIDTH)
|
||||
define aplBoxTfm : ScaleAround MIDDLE parenMid [Math.min ((WIDTH - aplBoxSW * 1.75) / WIDTH) ((operTop - operBot) / (parenTop - parenBot))]
|
||||
|
||||
composite glyphs.equal aplBoxTfm glyphs.aplsquare [into-unicode 0x2338]
|
||||
composite glyphs.divide aplBoxTfm glyphs.aplsquare [into-unicode 0x2339]
|
||||
|
@ -481,7 +481,14 @@ export : define [apply] : begin
|
|||
composite glyphs.hwarrowdown glyphs.minus [into-unicode 0x2356]
|
||||
composite glyphs.hwarrowdown aplBoxTfm glyphs.aplsquare [into-unicode 0x2357]
|
||||
composite glyphs.singleQuote markset.plus glyphs.underlineBelow [into-unicode 0x2358]
|
||||
composite glyphs.nabla glyphs.underlineBelow [into-unicode 0x2359]
|
||||
composite
|
||||
begin glyphs.space
|
||||
LambdaShape OPERATORSTROKE (plusTop - plusBot + ACCENT)
|
||||
HBarBottom (SB + OPERATORSTROKE / 2) (RIGHTSB - OPERATORSTROKE / 2) 0 OPERATORSTROKE
|
||||
Realign MIDDLE ((plusTop - plusBot) / 2) MIDDLE parenMid
|
||||
begin markset.plus
|
||||
begin glyphs.underlineBelow
|
||||
into-unicode 0x2359
|
||||
composite glyphs.hwwhitediamond markset.plus glyphs.underlineBelow [into-unicode 0x235A]
|
||||
composite glyphs.hwsmallwhitecircle markset.plus glyphs.underlineBelow [into-unicode 0x235B]
|
||||
composite glyphs.hwwhitecircle markset.plus glyphs.underlineBelow [into-unicode 0x235C]
|
||||
|
|
Loading…
Reference in New Issue
Block a user