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