| GD :: Tab :: Ukulele. GD :: Tab :: UkuleleÀº ¿ìÄð·¼·¹ ÅÇ À̹ÌÁö »ý¼º±âÀÇ Perl ¸ðµâÀÔ´Ï´Ù. |
Áö±Ý ´Ù¿î·Îµå |
GD :: Tab :: Ukulele. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À̸§:
- Yuichi Tateno
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tateno/GD-Tab-Ukulele-0.01/lib/GD/Tab/Ukulele.pm
GD :: Tab :: Ukulele. ű×
GD :: Tab :: Ukulele. ¼³¸í
GD :: Tab :: UkuleleÀº ¿ìÄð·¼·¹ ÅÇ À̹ÌÁö »ý¼º±âÀÇ Perl ¸ðµâÀÔ´Ï´Ù. GD :: Tab :: UkuleleÀº Ukulele Tab Image Generator ¿ë Perl ¸ðµâÀÔ´Ï´Ù. GD :: Tab :: Ukulele; My $ UK = GD :: Tab :: Ukulele-> New; # Àμâ PNG À̹ÌÁö Àμâ $ UK-> CHORD ( 'D # SUS4') -> PNG; # GD :: À̹ÌÁö ÀνºÅϽº ³» $ im = $ UK-> CHORD ( 'C'); $ IM-> PNG Àμâ; # ±âŸ ÅÇ »ý¼º $ UK-> »ý¼º ( 'D7', ) -> png; # »ö»ó $ UK-> »ö»ó (255, 0, 0); # ¹è°æ»öÀ» ¼³Á¤ÇÏ°í ÀÎÅÍ·¹À̽º $ UK-> BGColor (200, 200, 200); $ UK-> ÀÎÅÍ·¹À̽º (0); # ¸ðµç ÅÇ À̹ÌÁö ÀúÀå ÆÄÀÏ¿¡ ÀúÀåµË´Ï´Ù. io :: ÆÄÀÏÀ» »ç¿ëÇϽʽÿÀ. MY $ CHORD (@ {$ UK-> ALL_CORDS}) {(MY $ FILENAME = $ CHORD) = ~ S / M / MAJ /; # ´ë¼Ò ¹®ÀÚ¸¦ ±¸ºÐÇÏÁö ¾Ê´Â ÆÄÀÏ ½Ã½ºÅÛ ³» $ file = io :: file-> new ( "À̹ÌÁö / $ filename.png", 'w'); $ FILE-> Àμâ ($ UK-> ÄÚµå ($ CHORD) -> PNG); } ¿ä±¸ »çÇ× : ¡¤ Perl.
GD :: Tab :: Ukulele. °ü·Ã ¼ÒÇÁÆ®¿þ¾î