Start work on lasguns

src/LensHelp.hs

@@ -5,6 +5,7 @@ module LensHelp
     , (++.~)
     , (.*.*~)
     , (.+.+~)
+    , (+.+.~)
     ) where
 import Geometry
 import Control.Lens
@@ -23,6 +24,11 @@ infixr 4 .+.+~
 {-# INLINABLE (.+.+~) #-}
 (.+.+~) m x = m %~ (x +.+)
 
+infixr 4 +.+.~
+(+.+.~) :: ASetter s t Point2 Point2 -> Point2 -> s -> t
+{-# INLINABLE (+.+.~) #-}
+(+.+.~) m x = m %~ (+.+ x)
+
 infixr 4 .++~
 (.++~) :: ASetter s t [a] [a] -> [a] -> s -> t
 (.++~) m x = m %~ (x ++)