| Música :: Acorde :: Namer Música :: Acorde :: Namer: le das notas, nombra el acorde. |
Descargar ahora |
Música :: Acorde :: Namer Clasificación y resumen
- Licencia:
- Perl Artistic License
- Nombre del editor:
- Jimi-Carlo Bukowski-Wills
- Sitio web del editor:
- http://search.cpan.org/~jimi/Music-Chord-Namer-0.01/lib/Music/Chord/Namer.pm
Música :: Acorde :: Namer Etiquetas
Música :: Acorde :: Namer Descripción
Música :: Acorde :: Namer: le das notas, nombra el acorde. Música :: Acorde :: Namer: le das notas, nombra el chord.synopsis, use música :: ChordName QW / ChordName /; Imprimir ChordName (QW / C E G /); # Imprime C Print ChordName (Q / C E G /); # mismo (sí, matriz o cadena!) Imprimir ChordName (QW / C EB G BB D /); # Imprime CM9 Imprimir ChordName (QW / G C EB BB D /); # Impresiones CM9 / GMUSIC :: ChordName Opcionalmente exporta un Sub, ChordName, que acepta algunas notas como una cadena o una lista y devuelve el mejor nombre de acorde que puede pensar en.exportnone por defecto.$bestnamescalar|@namesarray = chordname ($ Notesstring | @Notesarray) ChordName () acepta una cadena de notas como "C EB GA #" o una lista de notas como QW / AB BB F BB D /. En un contexto escalar, devuelve el mejor nombre, podría pensar para describir el acorde hecho de las notas que le diste. En un contexto de matriz, devuelve todos los nombres que pensó, ordenado de lo mejor para los peores (más cortos a más tiempo!) Ejemplos # Para imprimir un montón de nombres de acordes de guitarra con LEST 4 NOTAS cada uno, # todo por debajo del 5º traste ... foreach mis $ 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 a menos que $ S1 EQ '-'; Push @Notes, $ S2 a menos que $ S2 EQ '-'; Push @Notes, $ S3 a menos de $ S3 EQ '-'; Push @Notes, $ S4 a menos de $ S4 EQ '-'; Push @Notes, $ S5 a menos que $ S5 EQ '-'; Push @notes, $ S6 a menos que $ S6 EQ '-'; if (@notes> = 4) {Imprimir escalar (ChordName (@Notes)), '=', Únete a ('', @ Notas), "N"; }}}}}}} Requisitos: · Perl
Música :: Acorde :: Namer Software relacionado