Drop restriction that angles are pointing forward
authorJoachim Breitner <mail@joachim-breitner.de>
Sun, 10 May 2009 21:36:35 +0000 (23:36 +0200)
committerJoachim Breitner <mail@joachim-breitner.de>
Sun, 10 May 2009 21:36:35 +0000 (23:36 +0200)
src/Lseed/LSystem.hs

index cfab6ab..235b651 100644 (file)
@@ -41,9 +41,8 @@ applyLSystem rgen rules plant = go plant
        isValid :: GrowingPlant -> Bool
        isValid (Stipe newSize oldSize ps) = anglesOk
          where angles = sort $ map fst ps
-               -- Are all angles directed forward and not too close to each other?
-                anglesOk = all (\a -> -pi/2 <= a && a <= pi/2) angles &&
-                           all (> minAngle) (zipWith (flip (-)) angles (tail angles))
+               -- Are all angles not too close to each other?
+                anglesOk = all (> minAngle) (zipWith (flip (-)) angles (tail angles))
 
 chooseWeighted rgen list = replicated !! (c-1)
   where replicated = concatMap (\(w,e) -> replicate w e) list