neingeist/arduinisten
Archived
1
0
Fork 0
Code Releases Activity

add source

Browse source
This commit is contained in:
orange 2010-03-31 04:15:34 +02:00
parent 32231a55c2
commit 788264499b
1 changed files with 62 additions and 62 deletions
Download patch file Download diff file Expand all files Collapse all files

124
projekte/soundz/arpeggio/arpeggio.pde
View file

@ -1,3 +1,65 @@
// original BASICA code by JIM LEONARD 5/8/1984
// port to arduino duemilanove by neingeist
// with some code borrowed from Joby Taffey
/*
10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
15 WIDTH 80:SCREEN 0,0,0:KEY OFF
20 READ N1,N2,N3,D:ON ERROR GOTO 10000
30 FOR I = 1 TO D
40 SOUND N1,D*.1
50 SOUND N2,D*.1
60 SOUND N3,D*.1
70 NEXT
80 GOTO 20
300 DATA 261,329,130,7
310 DATA 329,392,130,4
320 DATA 329,392,130,6
330 DATA 329,392,123,6
340 DATA 261,329,110,7
350 DATA 329,392,110,4
360 DATA 493,392,110,4
370 DATA 523,440,110,4
375 DATA 440,349,110,6
380 DATA 293,246,146,7
390 DATA 329,261,146,4
400 DATA 349,293,146,6
410 DATA 293,246,146,6
420 DATA 246,196,99,7
430 DATA 261,220,99,4
440 DATA 293,246,99,6
450 DATA 246,196,99,6
500 DATA 261,329,130,7:REM REPEAT (ALMOST)
510 DATA 329,392,130,4
520 DATA 329,392,130,6
530 DATA 329,392,123,6
540 DATA 261,329,110,7
550 DATA 329,392,110,4
560 DATA 493,392,110,4
570 DATA 523,440,110,4
575 DATA 440,349,110,6
580 DATA 293,246,146,7
590 DATA 329,261,146,4
600 DATA 349,293,146,6
620 DATA 246,196,99,6
630 DATA 261,329,110,6
640 DATA 261,329,110,6
645 DATA 261,329,110,6
650 DATA 246,196,99,6
660 DATA 174,220,82,6
670 DATA 174,220,82,6
680 DATA 174,220,82,6
690 DATA 246,196,99,6
700 DATA 261,329,110,6
710 DATA 261,329,110,6
720 DATA 261,329,110,6
730 DATA 261,329,110,6
740 DATA 261,329,110,6
750 DATA 261,329,110,6
760 DATA 261,329,110,6
10000 LOCATE 24,1:END
*/
#include <avr/io.h> #include <avr/io.h>
#include <avr/interrupt.h> #include <avr/interrupt.h>
#include <avr/delay.h> #include <avr/delay.h>
@ -120,65 +182,3 @@ int main(void) {
} }
} }
/*
10 REM ARPEGGIO BY JIM LEONARD 5/8/1984
15 WIDTH 80:SCREEN 0,0,0:KEY OFF
20 READ N1,N2,N3,D:ON ERROR GOTO 10000
30 FOR I = 1 TO D
40 SOUND N1,D*.1
50 SOUND N2,D*.1
60 SOUND N3,D*.1
70 NEXT
80 GOTO 20
300 DATA 261,329,130,7
310 DATA 329,392,130,4
320 DATA 329,392,130,6
330 DATA 329,392,123,6
340 DATA 261,329,110,7
350 DATA 329,392,110,4
360 DATA 493,392,110,4
370 DATA 523,440,110,4
375 DATA 440,349,110,6
380 DATA 293,246,146,7
390 DATA 329,261,146,4
400 DATA 349,293,146,6
410 DATA 293,246,146,6
420 DATA 246,196,99,7
430 DATA 261,220,99,4
440 DATA 293,246,99,6
450 DATA 246,196,99,6
500 DATA 261,329,130,7:REM REPEAT (ALMOST)
510 DATA 329,392,130,4
520 DATA 329,392,130,6
530 DATA 329,392,123,6
540 DATA 261,329,110,7
550 DATA 329,392,110,4
560 DATA 493,392,110,4
570 DATA 523,440,110,4
575 DATA 440,349,110,6
580 DATA 293,246,146,7
590 DATA 329,261,146,4
600 DATA 349,293,146,6
620 DATA 246,196,99,6
630 DATA 261,329,110,6
640 DATA 261,329,110,6
645 DATA 261,329,110,6
650 DATA 246,196,99,6
660 DATA 174,220,82,6
670 DATA 174,220,82,6
680 DATA 174,220,82,6
690 DATA 246,196,99,6
700 DATA 261,329,110,6
710 DATA 261,329,110,6
720 DATA 261,329,110,6
730 DATA 261,329,110,6
740 DATA 261,329,110,6
750 DATA 261,329,110,6
760 DATA 261,329,110,6
10000 LOCATE 24,1:END
*/