The Trunk: TrueType-mt.43.mcz

Marcel Taeumel uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-mt.43.mcz

==================== Summary ====================

Name: TrueType-mt.43
Author: mt
Time: 13 July 2016, 12:16:44.682029 pm
UUID: 571bce8d-fded-5446-bb94-a24cbf015573
Ancestors: TrueType-topa.42

Clean-up some dependencies between Graphics, Morphic, and TrueType.

=============== Diff against TrueType-topa.42 ===============

Item was added:
+ ----- Method: LinedTTCFont>>computeForm: (in category 'private') -----
+ computeForm: char
+
+ | ttGlyph scale |
+
+ char = Character tab ifTrue: [^ super computeForm: char].
+
+ "char = $U ifTrue: [self doOnlyOnce: [self halt]]."
+ scale := self pixelSize asFloat / (ttcDescription ascender - ttcDescription descender).
+ ttGlyph := ttcDescription at: char.
+ ^ ttGlyph asFormWithScale: scale ascender: ttcDescription ascender descender: ttcDescription descender fgColor: foregroundColor bgColor: Color transparent depth: self depth replaceColor: false lineGlyph: lineGlyph lingGlyphWidth: contourWidth emphasis: emphasis!

Item was added:
+ ----- Method: TTCFont>>computeForm: (in category 'private') -----
+ computeForm: char
+ "Compute the glyph form for the given character"
+ ^ttcDescription renderGlyph: char height: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth!

Item was added:
+ ----- Method: TTCFont>>fallbackForm (in category 'private') -----
+ fallbackForm
+ "Compute the glyph form for the fallback glyph"
+ ^ttcDescription renderFallbackGlyphOfHeight: self height fgColor: foregroundColor bgColor: Color transparent depth: self depth!

Item was added:
+ ----- Method: TTGlyph>>asFormWithScale:ascender:descender: (in category 'converting') -----
+ asFormWithScale: scale ascender: ascender descender: descender
+ ^ self
+ asFormWithScale: scale
+ ascender: ascender
+ descender: descender
+ fgColor: Color black
+ bgColor: Color white
+ depth: 8
+ replaceColor: true.
+ !

Item was added:
+ ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth: (in category 'converting') -----
+ asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth
+
+ ^ self
+ asFormWithScale: scale
+ ascender: ascender
+ descender: descender
+ fgColor: fgColor
+ bgColor: bgColor
+ depth: depth
+ replaceColor: false.
+ !

Item was added:
+ ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor: (in category 'converting') -----
+ asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag
+
+ ^ self
+ asFormWithScale: scale
+ ascender: ascender
+ descender: descender
+ fgColor: fgColor
+ bgColor: bgColor
+ depth: depth
+ replaceColor: replaceColorFlag
+ lineGlyph: nil
+ lingGlyphWidth: 0
+ emphasis: 0.!

Item was added:
+ ----- Method: TTGlyph>>asFormWithScale:ascender:descender:fgColor:bgColor:depth:replaceColor:lineGlyph:lingGlyphWidth:emphasis: (in category 'converting') -----
+ asFormWithScale: scale ascender: ascender descender: descender fgColor: fgColor bgColor: bgColor depth: depth replaceColor: replaceColorFlag lineGlyph: lineGlyph lingGlyphWidth: lWidth emphasis: code
+
+ | form canvas newScale |
+ form := Form extent: (advanceWidth @ (ascender - descender) * scale) rounded depth: depth.
+ form fillColor: bgColor.
+ canvas := BalloonCanvas on: form.
+ canvas aaLevel: 4.
+ canvas transformBy: (MatrixTransform2x3 withScale: scale asPoint * (1 @ -1)).
+ canvas transformBy: (MatrixTransform2x3 withOffset: 0 @ ascender negated).
+ canvas
+ drawGeneralBezierShape: self contours
+ color: fgColor
+ borderWidth: 0
+ borderColor: fgColor.
+ ((code bitAnd: 4) ~= 0 or: [(code bitAnd: 16) ~= 0]) ifTrue: [
+ newScale := (form width + 1) asFloat / lineGlyph calculateWidth asFloat.
+ canvas transformBy: (MatrixTransform2x3 withScale: (newScale / scale)@1.0).
+
+ (code bitAnd: 4) ~= 0 ifTrue: [
+ canvas
+ drawGeneralBezierShape: lineGlyph contours
+ color: fgColor
+ borderWidth: 0
+ borderColor: fgColor.
+ ].
+
+ (code bitAnd: 16) ~= 0 ifTrue: [
+ canvas transformBy: (MatrixTransform2x3 withOffset: 0@(ascender // 2)).
+ canvas
+ drawGeneralBezierShape: lineGlyph contours
+ color: fgColor
+ borderWidth: 0
+ borderColor: fgColor.
+ ].
+ ].
+
+ replaceColorFlag ifTrue: [
+ form replaceColor: bgColor withColor: Color transparent.
+ ].
+ ^ form!