Haskellã§ã‚¹ã‚¯ãƒ©ãƒƒãƒã‹ã‚‰ä½œæ›²ã—ã¦ã¿ãŸ - Qiitaå…ƒãƒã‚¿ã¨ã—ã¦è²¼ã£ãŸå‹•ç”»ãŒéžå¸¸ã«é¢ç™½ã‹ã£ãŸã®ã§ã€è‡ªåˆ†ã§ã‚‚真似をã—ã¦ã¿ã¾ã—ãŸã€‚ ã“ã®è¨˜äº‹ã§ã¯ã€sin波を直接ゴニョゴニョã—ã¦éŸ³ã‚’作ã£ã¦ã„ãã¾ã™ã€‚最終的ã«ã¯ã€ç°¡æ˜“çš„ãªæ¥½èœãƒ¢ãƒŠãƒ‰ã‚’作りã€æ¥½èœã«æ›¸ã„ãŸé€šã‚Šã®æ›²ã‚’å†ç”Ÿã—ã¦è€³ã§è´ã‘ã‚‹ã“ã¨ã‚’確èªã—ã¾ã™ã€‚ 最åˆã®éŸ³ ã¾ãšã¯éŸ³ã‚’出ã›ã‚‹ã‚ˆã†ã«ã—ã¾ã™ã€‚0ã‹ã‚‰44800ã¾ã§ã®æ•°ã‚’sinã«ã¶ã¡è¾¼ã¿ã€sin波を生æˆã—ã¾ã™ã€‚ 44800ã¨ã„ã†æ•°å—ã¯ã‚µãƒ³ãƒ—ルレートã§ã™ã€‚å˜ä½æ™‚é–“ã‚ãŸã‚Šã«44800回sinã‹ã‚‰å€¤ã‚’å–り出ã™ã¨ã„ã†ã“ã¨ã§ã™ã€‚ sampleRate :: Float sampleRate = 44800.0 wave :: [Float] wave = sin <$> [0.0 .. sampleRate] ã“ã‚Œã¯æ—¢ã«å†ç”Ÿå¯èƒ½ãªä¸€ç§’é–“ã®éŸ³ã§ã™ã€‚å†ç”Ÿã—ã¦ã¿ã¾ã—ょã†ã€‚ 一度ファイルã«æ›¸ã出ã—ã¦ã‹ã‚‰FFmpegã‚’å©ãã“ã¨ã§ã“れをå†ç”Ÿã—よã†ã¨æ€ã„ã¾ã™ã€‚å†ç”Ÿã«ã¯FFmpegãŒ
{{#tags}}- {{label}}
{{/tags}}