Showing posts with label Ode to Joy. Show all posts
Showing posts with label Ode to Joy. Show all posts

Friday, February 19, 2010

RobotC Freebie

Ode to Joy in RobotC

int Notes[][]=
{
{695, 25},
{695, 25},
{788, 25},
{877, 25},
{877, 25},
{788, 25},
{695, 25},
{656, 25},
{590, 25},
{590, 25},
{656, 25},
{695, 25},
{695, 25},
{656, 13},
{656, 50},
{695, 25},
{695, 25},
{788, 25},
{877, 25},
{877, 25},
{788, 25},
{695, 25},
{656, 25},
{590, 25},
{590, 25},
{656, 25},
{695, 25},
{656, 25},
{590, 13},
{590, 50},
{656, 25},
{656, 25},
{695, 25},
{590, 25},
{656, 25},
{695, 13},
{788, 13},
{695, 25},
{590, 25},
{656, 25},
{695, 13},
{788, 13},
{695, 25},
{656, 25},
{590, 25},
{656, 25},
{440, 50},
{695, 25},
{695, 25},
{788, 25},
{877, 25},
{877, 25},
{788, 25},
{695, 25},
{656, 25},
{590, 25},
{590, 25},
{656, 25},
{695, 25},
{656, 25},
{590, 13},
{590, 50},
};

task main
{
for (int i=0; i<62; i++)
{
PlayTone(Notes[i][0], Notes[i][1]);
while(bSoundActive);
}
}