'From etoys3.1 of 12 October 2008 [latest update: #2194] on 19 March 2009 at 10:44:53 am'! !TTFontReader methodsFor: 'processing' stamp: 'yo 3/19/2009 10:37'! processSimpleGlyph: glyph contours: nContours from: entry | endPts nPts iLength flags | endPts _ Array new: nContours. 1 to: nContours do:[:i| endPts at: i put: entry nextUShort]. glyph initializeContours: nContours with: endPts. nContours = 0 ifTrue: [^ self]. nPts _ endPts last + 1. iLength _ entry nextUShort. "instruction length" entry skip: iLength. flags _ self getGlyphFlagsFrom: entry size: nPts. self readGlyphXCoords: entry glyph: glyph nContours: nContours flags: flags endPoints: endPts. self readGlyphYCoords: entry glyph: glyph nContours: nContours flags: flags endPoints: endPts. glyph buildContours.! !