Tiny MML in Smalltalk DouKaku?

Tiny MML

文字列の入力をとり、音を鳴らすプログラムを作ってください。

入力はcがド、dがレ、eがミ、fがファ、gがソ、aがラ、bがシ、rが休符とします。この8文字以外の文字は入力に含まれていないと仮定して構いません。おのおのの音符・休符は八分音符・八分休符とします。

オクターブや音の長さの変更、同時発音などの機能は不要です。

サンプル入力(カエルの歌)

cdefedcrefgagfercrcrcrcrcdefedcr

post comment

Posted feedbacks - Smalltalk

Squeak Smalltalk で。

| 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

DouKaku?

Tiny MML

Posted feedbacks - Smalltalk

Index

Feed

Other

Link

Pathtraq