[squeak-dev] Test to Speech Synthesis in Squeak 4?
Edgar J. De Cleene
edgardec2005 at gmail.com
Sun Jan 2 09:36:58 UTC 2011
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! !
More information about the Squeak-dev
mailing list
|