This is slide 1 *??? These are the presenter notes for slide 1
This is slide 2 *???
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 |
structQ :: Q Info | |
structQ = reify ''Struct | |
structString = $(stringE . show =<< reify ''Struct) |