Tweak dual beams

2022-04-07 09:28:52 +01:00
parent 1da07f1c4a
commit 4e80e73f13
3 changed files with 25 additions and 9 deletions
@@ -525,6 +525,10 @@ data Beam = Beam
 data BeamType 
    = BeamCombine 
        {_beamCombine :: (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World}
+    | BeamItemParamsCombine 
+        {_beamCombine   :: (Point2 , (Point2,Point2,Beam) , (Point2,Point2,Beam)) -> World -> World
+        ,_beamItemParams :: ItemParams
+        }
    | BeamSimple

 {- Objects without ids.