| Musique :: Accord :: Namer Musique :: Accord :: Namer - Vous donnez des notes, elle nomme l'accord. |
Télécharger maintenant |
Musique :: Accord :: Namer Classement & Résumé
- Licence:
- Perl Artistic License
- Nom de l'éditeur:
- Jimi-Carlo Bukowski-Wills
- Site Internet de l'éditeur:
- http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm
Musique :: Accord :: Namer Mots clés
Musique :: Accord :: Namer La description
Musique :: Accord :: Namer - Vous lui donnez des notes, il nomme l'accord. Musique :: Accord :: Namer - Vous donnez des notes, il nomme le chord.synopsis Utilisation de la musique :: Chordname QW / Name /; Nom d'impression (qw / c e g /); # imprime cmordname d'impression (q / c e g /); # idem (oui, matrice ou chaîne!) Imprimer Nom d'impression (QW / C EB G BB D /); # Imprime CM9 Imprimer Name (QW / G C EB BB D /); # Prints CM9 / GMUSIC :: Nom d'exportation Eventue One SUB, Nom, qui accepte des notes comme une chaîne ou une liste et renvoie le nom de l'accord le mieux que cela puisse penser.exportnone par défaut.$BESTNAMESCALAR|@namesarray = ComputerName ($ NOTESSTESSTRING | @NOTESARRAY) CHORDNAME () Accepte une chaîne de notes telles que "C Eb Ga #" ou une liste de notes telles que QW / AB BB F BB D /. Dans un contexte scalaire, il renvoie le meilleur nom que cela pourrait penser pour décrire la corde faite à partir des notes que vous avez données. Dans un contexte de tableau, il renvoie tous les noms qu'ils ont pensé, triés du mieux au pire (le plus court au plus long!) Exemples # Pour imprimer un groupe de noms d'accords de guitare avec Lest 4 note chacun, # tout-dessous 5e fret ... foreach mon $ S1 (qw / - ef gb g ab /) {foreach My $ S2 (QW / - A BB BC DB /) {Foreach My $ S3 (QW /-D EB EF GB /) {Foreach My $ S4 ( QW / - G AB A BB /) {Foreach My $ S5 (QW / - BC DB D EB /) {Foreach My $ S6 (QW / - EF GB G AB /) {My @notes = (); Push @notes, $ S1 Sauf $ S1 EQ '-'; PUSH @NOTES, $ S2 Sauf $ S2 EQ '-'; PUSH @NOTES, $ S3 Sauf $ S3 EQ '-'; PUSH @NOTES, $ S4 Sauf $ S4 EQ '-'; PUSH @NOTES, $ S5 Sauf $ S5 EQ '-'; PUSH @NOTES, $ S6 Sauf $ S6 EQ '-'; if (@notes> = 4) {scalaire d'impression (chordname (@notes)), '=', rejoindre ('', @ notes), "n"; } } } } } } } Exigences: · Perl
Musique :: Accord :: Namer Logiciels associés