22 lines
504 B
Haskell
22 lines
504 B
Haskell
module Main where
|
|
import Loop
|
|
import Hetris.Base
|
|
|
|
import Control.Lens
|
|
--import Foreign (Word32)
|
|
import Control.Monad
|
|
--import System.Random
|
|
import qualified Data.Map as M
|
|
import qualified Data.IntMap as IM
|
|
import Graphics.Rendering.OpenGL hiding (color, rotate, scale, translate)
|
|
import qualified SDL
|
|
import qualified SDL.Mixer as Mix
|
|
|
|
main :: IO ()
|
|
main = setupMiniLoop
|
|
(600,600)
|
|
initWorld
|
|
(const $ return ())
|
|
(\w _ -> return w)
|
|
return
|