| ½ºÅ¸ ¸µÅ© :: AST. StarLink AST ¶óÀ̺귯¸®¿¡ ´ëÇÑ ÀÎÅÍÆäÀ̽º |
Áö±Ý ´Ù¿î·Îµå |
½ºÅ¸ ¸µÅ© :: AST. ¼øÀ§ ¹× ¿ä¾à
- ƯÇã:
- Perl Artistic License
- °Ô½ÃÀÚ À¥»çÀÌÆ®:
- http://search.cpan.org/~tjenness/
½ºÅ¸ ¸µÅ© :: AST. ű×
½ºÅ¸ ¸µÅ© :: AST. ¼³¸í
StarLink :: AST´Â Perl ·¦ÆÛ¸¦ StarLink AST ¶óÀ̺귯¸®¿¡ Á¦°øÇÏ´Â Perl ¸ðµâÀÔ´Ï´Ù. StarLink AST ¶óÀ̺귯¸®´Â °´Ã¼ ÁöÇâ ¹æ½ÄÀ¸·Î ÇÑ ½Ã½ºÅÛ¿¡¼ ´Ù¸¥ ½Ã½ºÅÛÀ¸·Î ÁÂÇ¥¸¦ º¯È¯ÇϱâÀ§ÇÑ ½Ã¼³À» Á¦°øÇÕ´Ï´Ù. ´ÙÁß ÁÂÇ¥ ÇÁ·¹ÀÓÀº µ¥ÀÌÅÍ ¼¼Æ®¿Í ¿¬°ü µÉ ¼ö ÀÖÀ¸¸ç ÇÁ·¹ÀÓ°£¿¡ ÀÚµ¿ ¸ÅÇÎÀ» »ý¼º ÇÒ ¼öµµ ÀÖ½À´Ï´Ù. Coordinate ÇÁ·¹ÀÓ °´Ã¼´Â Fits Çì´õ¿Í NDF ÆÄÀÏ¿¡¼ °¡Á®¿Ã ¼ö ÀÖ½À´Ï´Ù .Synopsis StarLink :: AST; MY $ ZMAP = »õ·Î¿î StarLink :: AST :: Zoommap (2, 5, ""); $ zmap-> set (zoom => 5); My ($ xout, $ Yout) = $ zmap-> tran2 (, , 1); MY $ FCHAN = NEW StarLink :: AST :: FitsChan (); () {$ FChan-> Putfits ($ _, 0); } $ fchan-> Ŭ¸®¾î ( "Ä«µå"); $ wcs = $ fchan-> read (); ³ØŸÀÌ % ÇؽÃ, "StarLink :: AST :: Keymap"; $ hash {keyword} = $ °ª; $ km = starlink :: AST :: Keymap-> new ( ""); ³ØŸÀÌ % ÇؽÃ, $ km; Á¦Ç°ÀÇ È¨ÆäÀÌÁö
½ºÅ¸ ¸µÅ© :: AST. °ü·Ã ¼ÒÇÁÆ®¿þ¾î