sumim #1440(2007/07/24 18:12 GMT) [ Smalltalk ] Rating4/4=1.00
1 2 3 4 5 6 7 8 9 10 11
| score pitches duration loudness sequence sound | score := 'cdefedcrefgagfercrcrcrcrcdefedcr'. duration := 1/8 * 2. loudness := 500. pitches := FMSound chromaticPitchesFrom: #c4. sequence := score asArray collect: [:pName | pName = $r ifTrue: [{#rest. duration}] ifFalse: [{pitches at: ('c d ef g a b' indexOf: pName). duration. loudness}]]. sound := AbstractSound noteSequenceOn: FMSound default from: sequence. sound play
Rating4/4=1.00-0+
[ reply ]
sumim
#1440()
[
Smalltalk
]
Rating4/4=1.00
| score pitches duration loudness sequence sound | score := 'cdefedcrefgagfercrcrcrcrcdefedcr'. duration := 1/8 * 2. loudness := 500. pitches := FMSound chromaticPitchesFrom: #c4. sequence := score asArray collect: [:pName | pName = $r ifTrue: [{#rest. duration}] ifFalse: [{pitches at: ('c d ef g a b' indexOf: pName). duration. loudness}]]. sound := AbstractSound noteSequenceOn: FMSound default from: sequence. sound playRating4/4=1.00-0+
[ reply ]