¹øÈ£ :: RGB. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~cwest/
¹øÈ£ :: RGB. ű×
¹øÈ£ :: RGB. ¼³¸í
RGB Æ©ÇÃÀ» Á¶ÀÛÇϽʽÿÀ ÀÌ ¸ðµâÀº RGB Æ©Çà °´Ã¼¸¦ »ý¼ºÇÏ°í ¿î¿µÀÚ¸¦ ¿À¹ö·ÎµåÇÏ¿© RGB ¼öÇÐÀ»º¸´Ù ½±°Ô ¸¸µé ¼ö ÀÖ½À´Ï´Ù. ¼Ó¼ºÀº È£ÃâÀÚ¿¡°Ôµµ ³»º¸³»¹Ç·Î ±¸ÃàÀ» ª°Ô ¸¸µì´Ï´Ù. ½Ä ³ëÇÁ°¡ »ç¿ë ¹øÈ£ :: RGB; MY $ WHITE : RGB (255); ³» $ BLACK : RGB (0); MY $ GRAY = $ BLACK + (($ Èò»ö - $ ºí·¢) / 2); my @rgb = @ {$ white-> rgb}; ³» $ 16 Áø¼ö = $ BLACK-> À°°¢; MY $ BLUE = NUMBER :: RGB-> NEW (RGB => ); MY $ GREEN = NUMBER :: RGB-> NEW (HEX => # 00FF00 '); ³ªÀÇ $ »¡°£»ö : RGB (255,0,0); My $ PURPLE = $ BLUE + $ ±×¸°; ³» $ Yellow = $ Red + $ ±×¸°; ¿ä±¸ »çÇ× : ¡¤ Perl.
¹øÈ£ :: RGB. °ü·Ã ¼ÒÇÁÆ®¿þ¾î