| ¹Ìµð MIDI´Â MIDI ÆÄÀÏÀ» Àаí ÀÛ¼º, ±¸¼º, ¼öÁ¤ ¹× ¾²±â ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
¹Ìµð ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Sean M. Burke
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~sburke/
¹Ìµð ű×
¹Ìµð ¼³¸í
MIDI´Â MIDI ÆÄÀÏÀ» Àаí ÀÛ¼º, ±¸¼º, ¼öÁ¤ ¹× ¾²±â ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù. MIDI´Â MIDI ÆÄÀÏÀ» Àаí ÀÛ¼º, ±¸¼º, ¼öÁ¤ ¹× ¾²±â ÇÒ ¼öÀÖ´Â Perl ¸ðµâÀÔ´Ï´Ù .Snopsis MIDI¸¦ »ç¿ëÇϽʽÿÀ. ¾ö°ÝÇÑ »ç¿ë; °æ°í¸¦ »ç¿ëÇϽʽÿÀ. @events = (, , # 1qn = .45 ÃÊ); (1 .. 20) {Ǫ½Ã @Events, , ,; } ³» $ DELAY (Reverse (1..96)) {Ǫ½Ã @Events, , ,; } MY $ COWBELL_TRACK = MIDI :: TRACK -> NEW ({ 'À̺¥Æ®'=> @Events}); $ opus = midi :: opus-> new ({ 'Çü½Ä'=> 0, 'ƽ'=> 96, 'Æ®·¢'=> }); $ opus-> write_to_file ( 'cowbell.mid'); ¿ä±¸ »çÇ× : ¡¤ Perl.
¹Ìµð °ü·Ã ¼ÒÇÁÆ®¿þ¾î