The Trunk: TrueType-fbs.20.mcz

Frank Shearar uploaded a new version of TrueType to project The Trunk:
http://source.squeak.org/trunk/TrueType-fbs.20.mcz

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

Name: TrueType-fbs.20
Author: fbs
Time: 30 June 2013, 11:34:38.327 am
UUID: 69ef78b0-eb3b-2049-8fec-9470754dbf4e
Ancestors: TrueType-ul.19

TrueType shouldn't depend on Morphic (because Morphic should be unloadable), and since it's display related let's put it in Multilingual-Display (for the moment).

=============== Diff against TrueType-ul.19 ===============

Item was removed:
- ----- 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 removed:
- ----- 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 removed:
- ----- 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 removed:
- ----- 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!