À½¾Ç :: Chord :: Namer.

À½¾Ç :: CHORD :: NAMER - ¸Þ¸ð¸¦ ÁÖ¸é, Äڵ尡 ¸íĪµË´Ï´Ù.
Áö±Ý ´Ù¿î·Îµå

À½¾Ç :: Chord :: Namer. ¼øÀ§ ¹× ¿ä¾à

±¤°í

  • Rating:
  • ƯÇã:
  • Perl Artistic License
  • °¡°Ý:
  • FREE
  • °Ô½ÃÀÚ À̸§:
  • Jimi-Carlo Bukowski-Wills
  • °Ô½ÃÀÚ À¥»çÀÌÆ®:
  • http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm

À½¾Ç :: Chord :: Namer. ű×


À½¾Ç :: Chord :: Namer. ¼³¸í

À½¾Ç :: Chord :: Namer - ¸Þ¸ð¸¦ ºÎ¿©ÇÕ´Ï´Ù. ÄÚµå À̸§À» ÁöÁ¤ÇÕ´Ï´Ù. À½¾Ç :: Chord :: Namer - ¸Þ¸ð¸¦ ºÎ¿©ÇÕ´Ï´Ù. Chord.synopsis´Â À½¾ÇÀ» »ç¿ëÇÕ´Ï´Ù :: ChordName QW / ChordName /; CHORDNAME Àμâ (QW / C e G /); # p Àμâ CHORDNAME (Q / C E G /)À» ÀμâÇÕ´Ï´Ù. # µ¿ÀÏ (¿¹, ¹è¿­ ¶Ç´Â ¹®ÀÚ¿­!) print choordname (qw / c eb g bb d /); # CM9 Àμâ CHORDNAME (QW / G C EB BB D /)À» ÀμâÇÕ´Ï´Ù. # cm9 / gmusic :: ChordName ¼±ÅÃÀûÀ¸·Î ¹®ÀÚ¿­ ¶Ç´Â ¸ñ·ÏÀ¸·Î ÀϺΠ³ëÆ®¸¦ ¼ö¶ôÇÏ°í ±âº»ÀûÀ¸·Î ´ÙÀ½°ú °°Àº ÃÖ»óÀÇ ÄÚµå À̸§À» ¹ÝȯÇÏ´Â ÇϳªÀÇ Sub, ChoordNameÀ» ³» º¸³À´Ï´Ù. @notesArray) ChordName () "C EB GA #"¶Ç´Â QW / AB BB F BB D /¿Í °°Àº ³ëÆ® ¸ñ·Ï°ú °°Àº ³ëÆ® ¹®ÀÚ¿­À» ¼ö¶ôÇÕ´Ï´Ù. ½ºÄ®¶ó ÄÁÅؽºÆ®¿¡¼­´Â ÁÖ¾îÁø ¸Þ¸ð¿¡¼­ ¸¸µç Äڵ带 ¹¦»ç ÇÒ ¼öÀÖ´Â °¡Àå ÁÁÀº À̸§À» ¹ÝȯÇÕ´Ï´Ù. ¹è¿­ ÄÁÅؽºÆ®¿¡¼­ ITÀÇ ¸ðµç À̸§ÀÌ °¡Àå ÃÖ¾ÇÀÇ °æ¿ì ÃÖ¾ÇÀÇ °æ¿ì (°¡Àå ªÀº!) ¿¹Á¦ ¹øÈ£°¡ °¡Àå ªÀº 4 °³ÀÇ ¸Þ¸ð¿Í ÇÔ²² ±âŸ ÄÚµå À̸§À» Àμâ ÇÒ ¼ö ÀÖ½À´Ï´Ù. foreach my $ s1 (qw / - ef gb g ab /) {foreach my $ s2 (qw / - bb bc db / - qw / - qw / - def gb /) {foreach my $ s4 (foreach my $ s4) qw / - g ab a bb /) {foreach my $ s5 (qw / - bc db d eb /) {foreach my $ s6 (qw / - ef gb g ab /) {@notes = (); $ S1 eq '-'°¡¾ø´Â ÇÑ @notes, $ s1À» ´©¸£½Ê½Ã¿À. @notes, $ s2 $ s2 eq '-' $ s3 eq '-'°¡¾ø´Â ÇÑ @notes, $ s3À» ´©¸£½Ê½Ã¿À. $ S4 EQ '-'°¡ ¾Æ´Ñ °æ¿ì @notes, $ s4¸¦ ´©¸£½Ê½Ã¿À. @notes, $ s5 $ s5 eq '-'; Push @notes, $ s6 $ s6 eq '-'; if (@notes> = 4) {PRINT SCALAR (CHORDNAME (@NOTES)), '=', °¡ÀÔ ( '', @ notes), "n"); }}}}}}} ¿ä±¸ »çÇ× : ¡¤ Perl.


À½¾Ç :: Chord :: Namer. °ü·Ã ¼ÒÇÁÆ®¿þ¾î