Code for PlaySpace

gistfile1.txt

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
   img3    = checker3 . (2 *^)
   p2T2 (u :+ v) = pureD u :+ pureD v


checker3 :: V3 T -> BoolE
checker3 (a,b,c) = (f a /=* f b) /=* f c
  where f = (>* 0.5) . frac . powVal

test :: SurfB
test = simple3 . a0

eyePos :: EyePos
eyePos = (0, 0.75, 2.5)     -- tweak

eyePosE :: EyePosE
eyePosE = pureE (V.vec3 ex ey ez) where (ex,ey,ez) = eyePos