Move [UnicodeWeightGrade n s] to meta/aesthetics.ptl.

This commit is contained in:
John McWilliams 2025-05-01 08:09:04 -04:00
parent 181890af8e
commit 289f335b1a
22 changed files with 35 additions and 39 deletions

View file

@ -190,6 +190,13 @@ export : define [calculateMetrics para] : begin
define GeometryStroke : AdviceStroke 4 define GeometryStroke : AdviceStroke 4
define ShoulderFine : Math.min (Stroke * para.shoulderFineMin) : AdviceStroke 24 define ShoulderFine : Math.min (Stroke * para.shoulderFineMin) : AdviceStroke 24
define [UnicodeWeightGrade n s] : begin
define kw : 10 - s - n / 2
define [mulPow ss] : (0.25 + ss / 8) * [StrokeWidthBlend 2 1]
define kMul : [Math.pow n : mulPow s] / [Math.pow 4 : mulPow 2]
define kAdj : GeometryStroke / [AdviceStroke 6]
return : kMul * kAdj * [AdviceStroke kw]
define [AdviceGlottalStopArchDepth y sign] : begin define [AdviceGlottalStopArchDepth y sign] : begin
return : ((y - Stroke) * 0.24 + Stroke * 0.625) + sign * TanSlope * SmoothAdjust return : ((y - Stroke) * 0.24 + Stroke * 0.625) + sign * TanSlope * SmoothAdjust
@ -208,10 +215,10 @@ export : define [calculateMetrics para] : begin
WideWidth2 WideWidth3 WideWidth4 EssUpper EssLower EssQuestion RightSB Middle DotRadius WideWidth2 WideWidth3 WideWidth4 EssUpper EssLower EssQuestion RightSB Middle DotRadius
PeriodRadius ArchDepthA ArchDepthB SmallArchDepthA SmallArchDepthB CorrectionOMidX PeriodRadius ArchDepthA ArchDepthB SmallArchDepthA SmallArchDepthB CorrectionOMidX
CorrectionOMidS compositeBaseAnchors AdviceStroke AdviceStroke2 AdviceStrokeInSpace CorrectionOMidS compositeBaseAnchors AdviceStroke AdviceStroke2 AdviceStrokeInSpace
OverlayStroke OperatorStroke GeometryStroke ShoulderFine AdviceGlottalStopArchDepth OverlayStroke OperatorStroke GeometryStroke ShoulderFine UnicodeWeightGrade
StrokeWidthBlend ArchDepthAOf ArchDepthBOf SmoothAdjust SideJut MidJutSide MidJutCenter AdviceGlottalStopArchDepth StrokeWidthBlend ArchDepthAOf ArchDepthBOf SmoothAdjust SideJut
YSmoothMidR YSmoothMidL DToothlessRise DMBlend HSwToV VSwToH NarrowUnicodeT WideUnicodeT MidJutSide MidJutCenter YSmoothMidR YSmoothMidL DToothlessRise DMBlend HSwToV VSwToH
VERY-FAR TINY] NarrowUnicodeT WideUnicodeT VERY-FAR TINY]
export : define [setFontMetrics para metrics fm] : begin export : define [setFontMetrics para metrics fm] : begin
define [object CAP Descender XH Width SymbolMid] metrics define [object CAP Descender XH Width SymbolMid] metrics

View file

@ -387,10 +387,10 @@ define-macro glyph-block : syntax-rules
WideWidth3 WideWidth4 EssUpper EssLower EssQuestion RightSB Middle DotRadius WideWidth3 WideWidth4 EssUpper EssLower EssQuestion RightSB Middle DotRadius
PeriodRadius ArchDepthA ArchDepthB SmallArchDepthA SmallArchDepthB CorrectionOMidX PeriodRadius ArchDepthA ArchDepthB SmallArchDepthA SmallArchDepthB CorrectionOMidX
CorrectionOMidS compositeBaseAnchors AdviceStroke AdviceStroke2 AdviceStrokeInSpace CorrectionOMidS compositeBaseAnchors AdviceStroke AdviceStroke2 AdviceStrokeInSpace
OverlayStroke OperatorStroke GeometryStroke ShoulderFine AdviceGlottalStopArchDepth OverlayStroke OperatorStroke GeometryStroke ShoulderFine UnicodeWeightGrade
StrokeWidthBlend ArchDepthAOf ArchDepthBOf SmoothAdjust SideJut MidJutSide AdviceGlottalStopArchDepth StrokeWidthBlend ArchDepthAOf ArchDepthBOf SmoothAdjust
MidJutCenter YSmoothMidR YSmoothMidL DToothlessRise DMBlend HSwToV VSwToH SideJut MidJutSide MidJutCenter YSmoothMidR YSmoothMidL DToothlessRise DMBlend HSwToV
NarrowUnicodeT WideUnicodeT VERY-FAR TINY] VSwToH NarrowUnicodeT WideUnicodeT VERY-FAR TINY]
define spiroFnImports `[g4 g2 corner flat curl virt close end straight g2c cg2 flatc ccurl define spiroFnImports `[g4 g2 corner flat curl virt close end straight g2c cg2 flatc ccurl
widths disable-contrast heading unimportant important alsoThru alsoThruThem bezControls widths disable-contrast heading unimportant important alsoThru alsoThruThem bezControls

View file

@ -7,7 +7,7 @@ glyph-module
glyph-block Symbol-Arrow : for-width-kinds WideWidth1 glyph-block Symbol-Arrow : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define arrowHeight : para.arrowHeight * (Width - SB / 2) * [Math.cbrt MosaicWidthScalar] define arrowHeight : para.arrowHeight * (Width - SB / 2) * [Math.cbrt MosaicWidthScalar]
define arrowWidth : Math.min (MosaicWidth - SB / 2) arrowHeight define arrowWidth : Math.min (MosaicWidth - SB / 2) arrowHeight

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Ballot-Box : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Ballot-Box : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Dice : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Dice : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
@ -48,7 +48,7 @@ glyph-block Symbol-Geometric-Dice : for-width-kinds WideWidth1
glyph-block Symbol-Geometric-Dotted : for-width-kinds WideWidth4 glyph-block Symbol-Geometric-Dotted : for-width-kinds WideWidth4
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Masked : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Masked : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Plain : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Plain : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes ConvexPolygonOutline glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes ConvexPolygonOutline
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Rotational : begin glyph-block Symbol-Geometric-Rotational : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define [OpenRadius sw sides] : sw / 2 / [Math.tan : Math.PI / sides] define [OpenRadius sw sides] : sw / 2 / [Math.tan : Math.PI / sides]

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Rounded : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Rounded : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Shaded : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Shaded : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom
@ -135,7 +135,7 @@ glyph-block Symbol-Geometric-Shaded : for-width-kinds WideWidth1
glyph-block Symbol-Geometric-Shaded-Narrow : for-width-kinds WideWidth4 glyph-block Symbol-Geometric-Shaded-Narrow : for-width-kinds WideWidth4
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade glyph-block-import Symbol-Geometric-Shared : GeometricDim
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -26,16 +26,6 @@ glyph-block Symbol-Geometric-Shared : begin
MidY SymbolMid MidY SymbolMid
Bot : SymbolMid - size Bot : SymbolMid - size
glyph-block-export UnicodeWeightGrade
define [UnicodeWeightGrade n s] : begin
define kwPow 1
define kkw : 2 / (4 ** kwPow)
define kw : 10 - s - kkw * (n ** kwPow)
define [mulPow ss pm] : (1 / 4 + ss / 8) * [StrokeWidthBlend 2 1]
define kMul : (n ** [mulPow s]) / (4 ** [mulPow 2])
define kAdj : GeometryStroke / [AdviceStroke 6]
return : kMul * kAdj * [AdviceStroke kw]
glyph-block-export GeometricSizes glyph-block-export GeometricSizes
define [GeometricSizes Geom] : object define [GeometricSizes Geom] : object
Large {.size [DesignParameters.GeometricLargeX Geom.Width Geom.UnitWidth]} Large {.size [DesignParameters.GeometricLargeX Geom.Width Geom.UnitWidth]}

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Square-Corners : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Square-Corners : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Stars : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Stars : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Sun-And-Gear : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Sun-And-Gear : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Technical : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Technical : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
glyph-block-import Shared-Symbol-Shapes : TriangleShape Polyline glyph-block-import Shared-Symbol-Shapes : TriangleShape Polyline
glyph-block-import Symbol-Arrow : ArrowShape ArrowHead TrigArrowShape glyph-block-import Symbol-Arrow : ArrowShape ArrowHead TrigArrowShape

View file

@ -199,7 +199,6 @@ glyph-block Symbol-Letter : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Letter-Latin-X : XStrand glyph-block-import Letter-Latin-X : XStrand
glyph-block-import Symbol-Geometric-Shared : UnicodeWeightGrade
glyph-block-import Letter-Shared-Shapes : FlatHookDepth glyph-block-import Letter-Shared-Shapes : FlatHookDepth
alias 'eulerConst' 0x2107 'latn/Epsilon' alias 'eulerConst' 0x2107 'latn/Epsilon'

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Mosaic-Dentistry : begin glyph-block Symbol-Mosaic-Dentistry : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade glyph-block-import Symbol-Geometric-Shared : GeometricDim
glyph-block-import Mark-Above : TildeShape glyph-block-import Mark-Above : TildeShape
define boxDrawingStroke : AdviceStroke 3.5 define boxDrawingStroke : AdviceStroke 3.5

View file

@ -7,7 +7,7 @@ glyph-module
glyph-block Symbol-Pictograph-Checking-Marks : begin glyph-block Symbol-Pictograph-Checking-Marks : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade glyph-block-import Symbol-Geometric-Shared : GeometricDim
for-width-kinds WideWidth1 : do for-width-kinds WideWidth1 : do
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Geometric-Clock : for-width-kinds WideWidth1 glyph-block Symbol-Geometric-Clock : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Cross : for-width-kinds WideWidth1 glyph-block Symbol-Cross : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -7,7 +7,7 @@ glyph-module
glyph-block Symbol-Pictograph-IEC-Power-And-Playback : for-width-kinds WideWidth1 : begin glyph-block Symbol-Pictograph-IEC-Power-And-Playback : for-width-kinds WideWidth1 : begin
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth
define Size : GeometricSizes Geom define Size : GeometricSizes Geom

View file

@ -8,7 +8,7 @@ glyph-module
glyph-block Symbol-Telephone-Recorder : for-width-kinds WideWidth1 glyph-block Symbol-Telephone-Recorder : for-width-kinds WideWidth1
glyph-block-import CommonShapes glyph-block-import CommonShapes
glyph-block-import Common-Derivatives glyph-block-import Common-Derivatives
glyph-block-import Symbol-Geometric-Shared : GeometricDim UnicodeWeightGrade GeometricSizes glyph-block-import Symbol-Geometric-Shared : GeometricDim GeometricSizes
define Geom : GeometricDim MosaicUnitWidth MosaicWidth define Geom : GeometricDim MosaicUnitWidth MosaicWidth