Skip to content

Instantly share code, notes, and snippets.

View sseefried's full-sized avatar

Sean Seefried sseefried

View GitHub Profile

Writing games for Android in Haskell


Slide 1

This is slide 1 *??? These are the presenter notes for slide 1

Slide 2

This is slide 2 *???

@sseefried
sseefried / gist:1150802
Created August 17, 2011 04:16
Snippets for Mark
structQ :: Q Info
structQ = reify ''Struct
structString = $(stringE . show =<< reify ''Struct)
@sseefried
sseefried / gist:1074229
Created July 10, 2011 03:37
Code for PlaySpace
effect = surfBProg eyePosE test
a0 :: T -> SurfD
a0 _ = hfSurf 1
simple3 :: SurfD -> FullSurf
simple3 surf = (lighter,view,surf,img)
where
lighter = basicStd
view = view1
img = toColor . img3 . surf . p2T2