A new version of Graphics was added to project The Inbox: http://source.squeak.org/inbox/Graphics-nice.181.mcz
==================== Summary ====================
Name: Graphics-nice.181 Author: nice Time: 29 April 2011, 2:35:20.972 am UUID: 501ef332-95aa-4ea6-bb4c-74a4a6b884ff Ancestors: Graphics-ul.180
Horrible hack to let Pen>>print:withFont: work with an antialiased font if ever character form depth is 16 or 24.
The hack hopefully works with legacy depth 1 fonts.
Though, the result won't be that nice, letters being rendered by replacing nice antialiasing shadows with dumb thick monochrome paths.
Not sure the whole hack is worth !
=============== Diff against Graphics-ul.180 ===============
Item was changed: ----- Method: Pen>>print:withFont: (in category 'operations') ----- print: str withFont: font "Print the given string in the given font at the current heading" | lineStart scale wasDown | scale := sourceForm width. wasDown := penDown. lineStart := location. str do: + [:char | - [:char | | charStart pix rowStart form bb | char = Character cr ifTrue: [self place: lineStart; up; turn: 90; go: font height*scale; turn: -90; down] ifFalse: + [ | charStart pix rowStart form bb backgroundCode | + form := font characterFormAt: char. + backgroundCode := 1<< (form depth // 3 * 3) - 1. - [form := font characterFormAt: char. charStart := location. wasDown ifTrue: [ self up; turn: -90; go: font descent*scale; turn: 90; down. 0 to: form height-1 do: [:y | rowStart := location. bb := BitBlt current bitPeekerFromForm: form. pix := RunArray newFrom: ((0 to: form width-1) collect: [:x | bb pixelAt: x@y]). pix runs with: pix values do: [:run :value | + value = backgroundCode - value = 0 ifTrue: [self up; go: run*scale; down] ifFalse: [self go: run*scale]]. self place: rowStart; up; turn: 90; go: scale; turn: -90; down]. ]. self place: charStart; up; go: form width*scale; down]. ]. wasDown ifFalse: [self up] " Display restoreAfter: [Pen new squareNib: 2; color: Color red; turn: 45; print: 'The owl and the pussycat went to sea in a beautiful pea green boat.' withFont: TextStyle defaultFont] "!
squeak-dev@lists.squeakfoundation.org