SVX日記

$ hugs
__   __ __  __  ____   ___      _________________________________________
||   || ||  || ||  || ||__      Hugs 98: Based on the Haskell 98 standard
||___|| ||__|| ||__||  __||     Copyright (c) 1994-2005
||---||         ___||           World Wide Web: http://haskell.org/hugs
||   ||                         Bugs: http://hackage.haskell.org/trac/hugs
||   || Version: September 2006 _________________________________________
 
Haskell 98 mode: Restart with command line option -98 to enable extensions
 
Type :? for help
Hugs> 1 + 2
3
Hugs> :quit
[Leaving Hugs]

　定番の「hello, world」で筆下ろし。

$ vi hello.hs
 
$ cat hello.hs 
#!/usr/bin/runhugs
 
main = putStr "hello, world\n"
 
$ chmod 755 hello.hs 
 
$ ./hello.hs 
hello, world
 
$ cat hello.hs 
#!/usr/bin/runhugs
 
main = print "hello, world\n"
 
$ ./hello.hs 
"hello, world\n"

　 Haskellは「純粋関数型プログラミング言語」ということで、関数を使ってみる。

$ cat func1.hs 
#!/usr/bin/runhugs
 
ave3 :: Float -> Float -> Float -> Float
ave3 a b c = (a + b + c) / 3
 
main = print (ave3 8 10 5)
 
$ ./func1.hs 
7.666667
 
$ cat func2.hs 
#!/usr/bin/runhugs
 
cat3 :: String -> String -> String -> String
cat3 a b c = a ++ " " ++ b ++ " " ++ c ++ "."
 
main = print (cat3 "She" "sees" "sea")
 
$ ./func2.hs 
"She sees sea."

　とりあえず、目標を作らないと楽しくないので、フラクタル図形を描いて遊ぶことにする。グラフィクスライブラリをインストール。

# yum install hugs98-hgl

　まずはC曲線から……って、どこから手をつけたらいいのかさっぱり。デモプログラムでもないかと探したらあった。

# yum install hugs98-demos.x86_64

　コードを切り貼りしながら、どうにかC曲線を描くことに成功した。直後にドラゴン曲線も。まだ、文法すらあやふやだが、習作ということなら、こんなもんかと。

$ cat dcurve.hs
#!/usr/bin/runhugs
 
import System
import Graphics.HGL
 
-- /usr/lib64/hugs/packages/HGL/Graphics/HGL/Internals/Types.hs
-- type Point = (Int,Int)
 
rad :: Int -> Float
rad d = (2 * pi * (fromIntegral d) / 360)
 
vnext :: Point -> Int -> Float -> Point
vnext (x, y) r l = (x + round (cos (rad r) * l), y + round (sin (rad r) * l))
 
ccurve :: Int -> Point -> Int -> Float -> Graphic
ccurve 0 (x, y) r l = line (x, y) (vnext (x, y) r l)
ccurve d (x, y) r l = overGraphics [
	ccurve (d - 1) (x, y) (r - 45) (l / 2 * sqrt 2),
	ccurve (d - 1) (vnext (x, y) (r - 45) (l / 2 * sqrt 2)) (r + 45) (l / 2 * sqrt 2) ]
 
dcurve :: Int -> Point -> Int -> Float -> Int -> Graphic
dcurve 0 (x, y) r l w = line (x, y) (vnext (x, y) r l)
dcurve d (x, y) r l w = overGraphics [
	dcurve (d - 1) (x, y) (r - w) (l / 2 * sqrt 2) 45,
	dcurve (d - 1) (vnext (x, y) (r - w) (l / 2 * sqrt 2)) (r + w) (l / 2 * sqrt 2) (-45) ]
 
main :: IO ()
main = runGraphics $ do
	args <- getArgs
--	w <- openWindow "C Curve Window" (800, 600)
--	drawInWindow w (ccurve (read (head args)) (250, 350) 0 300)
	w <- openWindow "Dragon Curve Window" (800, 600)
	drawInWindow w (dcurve (read (head args)) (250, 350) 0 300 45)
	getKey w
	closeWindow w
 
$ ./dcurve.hs 15