Skipped content of type multipart/alternative-------------- next part --------------
'From Squeak4.2alpha of 31 December 2010 [latest update: #10845] on 2 January 2011 at 7:33:18 am'!

!KlattVoice methodsFor: 'initialization' stamp: 'edc 1/2/2011 07:27:18.002'!
initialize
	super initialize.
	synthesizer := KlattSynthesizer new cascade: 0.
	self segments: KlattSegmentSet arpabet.
	self patternFrame: self defaultPatternFrame.
	self breathiness: 0.1.
	self tract: 17.3. "Set a male vocal tract."
	self reset! !
-------------- next part --------------
'From Squeak4.2alpha of 31 December 2010 [latest update: #10845] on 2 January 2011 at 7:34:08 am'!

!HeadMorph methodsFor: 'furnitures' stamp: 'edc 1/2/2011 07:29:50.095'!
addBeret
	| beret pompon |
	beret := CurveMorph
		vertices: {66 at 1. 90 at 14. 106 at 22. 114 at 35. 98 at 43. 55 at 35. 20 at 46. 2 at 38. 8 at 23. 23 at 13. 39 at 7}
		color: Color random
		borderWidth: 1
		borderColor: Color black.
	beret extent: (beret extent * (self width / beret width * 4 / 3)) rounded.
	beret align: beret center x @ beret bottom with: self center x @ self face top.
	pompon := EllipseMorph new color: beret color; borderWidth: 1; borderColor: Color black; extent: (beret height // 2) asPoint.
	pompon align: pompon center with: beret center x @ beret top.
	beret addMorphFront: pompon.
	self addMorphFront: beret! !