Refactor beams

2022-07-21 00:32:29 +01:00
parent 39117b4dfe
commit e2ccf7296a
10 changed files with 94 additions and 54 deletions
@@ -19,6 +19,16 @@ import Picture
 import Data.Maybe
 import qualified Data.IntMap.Strict as IM

+doBeamCombine :: BeamCombineType 
+    -> (Point2,(Point2,Point2,Beam),(Point2,Point2,Beam))
+    -> World 
+    -> World
+doBeamCombine bct = case bct of
+    FlameBeamCombine -> flameBeamCombine
+    LasBeamCombine   -> lasBeamCombine
+    TeslaBeamCombine -> teslaBeamCombine
+    SplitBeamCombine -> splitBeamCombine
+    NoBeamCombine -> const id
 flameBeamCombine :: (Point2,(Point2,Point2,Beam),(Point2,Point2,Beam))
    -> World -> World
 flameBeamCombine (p,(a,b,_),(x,y,_))