HaskellでGlossライブラリーを試してみました。

いっぱいサンプルがありますが、もっと簡単の作りたいですから、
まる一個だけ作りました。

import Graphics.Gloss
import Graphics.Gloss.Interface.Pure.Simulate

data Cir = Cir     Float
                Float
                deriving (Show)

render::Cir->Picture
render (Cir x y) = ThickCircle x y

start:: Cir
start = Cir 100.0 10.0

trans::ViewPort -> Float -> Cir -> Cir
trans _ _ (Cir x y) = Cir x y

main::IO()
main = simulate (InWindow "NATZ" (800,600) (10,10))
        (makeColor 0.5 1.0 0.5 1.0)
        0
        start
        render
        trans