volles licht ├╝ber den pflanzen
authorJoachim Breitner <mail@joachim-breitner.de>
Fri, 6 Feb 2009 23:24:16 +0000 (00:24 +0100)
committerJoachim Breitner <mail@joachim-breitner.de>
Fri, 6 Feb 2009 23:24:16 +0000 (00:24 +0100)
src/Lseed/Geometry.hs

index 8103a54..ce1857e 100644 (file)
@@ -162,7 +162,7 @@ allKindsOfStuffWithAngle angle lines = (lighted, polygons)
                                              p4 = unprojectPoint x2 l1
                                         in (p1,p2,p3,p4)) sorted (tail sorted)
                        polys' = [firstPoly] ++ polys ++ [lastPoly]
-                       lightedPolys = snd $ mapAccumL shine (1*lightFalloff) polys'
+                       lightedPolys = snd $ mapAccumL shine 1 polys'
                        shine intensity (p1,p2,p3,p4) = ( intensity * lightFalloff
                                                        , (p1,p2,p3,p4,intensity))