Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 45 lines (36 sloc) 0.847 kb
2d613e7d » Nik Nyby
2010-02-17 added some records for keeping state
1 module State (
8e06d699 » Nik Nyby
2010-04-10 working on menu
2 Env(..),
3 initialEnvironment,
4 Vars(..),
5 Mode(..),
6 ) where
1e14306a » Nik Nyby
2010-03-01 added a texture... not working yet, though
7 import Graphics.UI.GLUT
d9397cf0 » Nik Nyby
2010-03-03 reorganized
8
8e06d699 » Nik Nyby
2010-04-10 working on menu
9 import Menu
d9397cf0 » Nik Nyby
2010-03-03 reorganized
10 import Sprite
2d613e7d » Nik Nyby
2010-02-17 added some records for keeping state
11
6f6d692d » Nik Nyby
2010-02-21 finally have a system i can mess with
12 data Env = Env
8e06d699 » Nik Nyby
2010-04-10 working on menu
13 {
14 vars :: Vars,
15 sprites :: [Sprite]
16 } deriving Show
2d613e7d » Nik Nyby
2010-02-17 added some records for keeping state
17
993e3217 » Nik Nyby
2010-02-26 __
18 initialEnvironment :: Env
fec2d5a0 » Nik Nyby
2010-03-04 added intro mode with texture... still appearing as white, though
19 initialEnvironment =
8e06d699 » Nik Nyby
2010-04-10 working on menu
20 Env ( Vars {
21 clock = 0,
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
22 animClock = 0,
8e06d699 » Nik Nyby
2010-04-10 working on menu
23 mousePos = Position 0 0,
24 menu = initialMenu,
25 mode = Intro }
26 )
27 [ ]
e683dfa1 » Nik Nyby
2010-02-21 going to bed for now
28
29 data Vars = Vars
8e06d699 » Nik Nyby
2010-04-10 working on menu
30 {
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
31 -- the uptime
8e06d699 » Nik Nyby
2010-04-10 working on menu
32 clock :: Int,
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
33
34 -- current position of the Animator's clock
35 animClock :: Int,
36
8e06d699 » Nik Nyby
2010-04-10 working on menu
37 mousePos :: Position,
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
38
8e06d699 » Nik Nyby
2010-04-10 working on menu
39 menu :: MmaMenu,
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
40
8e06d699 » Nik Nyby
2010-04-10 working on menu
41 mode :: Mode
42 } deriving Show
e683dfa1 » Nik Nyby
2010-02-21 going to bed for now
43
d5872faa » Nik Nyby
2010-04-27 some progress on spritePath
44 data Mode = Animator | Intro | Play | Record
45 deriving (Show, Eq)
Something went wrong with that request. Please try again.