我正在學習如何使用Gloss庫在Haskell中製作一些動畫。 考慮下面其中碼動畫該收縮和擴大其半徑隨時間的圓。 import Graphics.Gloss
import Graphics.Gloss.Interface.Pure.Game
type Radius = Float
type RealTime = Float
data World = World Radius RealT
-- | Main function
main :: IO()
main = do
wall <- loadBMP "wall.bmp" -- loads wall image
play initialState drawState reactEvent reactTime
-- | Function that creates the game
play :
我有一個簡單的窗口中顯示兩個形狀像這樣： import Graphics.Gloss
circles = pictures [Translate 80 0 one, Translate (-80) 0 two]
main = display (InWindow "t" (400,400) (800,0)) white circles
one = Color red $ Circle 8
我想在Haskell中使用HUnit編寫一些使用Gloss圖庫的函數。 功能： makePicture :: Color -> Picture
makePicture c = Color c $ Circle 80
如果我顯示與控制檯的說法「黑」這個函數的調用你看到這樣： Color (RGBA 0.0 0.0 0.0 1.0) (Circle 80.0)
其中有一個圖片的類型。我的問題
在節目的開始，用戶可以給模擬一些「信息」： main:: IO()
main = do
putStrLn("Hallo")
val <- getLine
startGUI(read val ::Float)
功能（startGUI）： startGUI :: Float -> IO()
startGUI si = simulate window