Unify config files, add capability to remember window position

src/Picture.hs

@@ -41,18 +41,9 @@ module Picture
   where
 import Geometry
 import Geometry.Vector3D
---import Geometry.Data
 import Picture.Data
 import Color
 
---import Data.List
---import Data.Bifunctor
---import qualified Data.DList as DL
---import Graphics.Rendering.OpenGL (lineWidth, ($=))
---import Control.Lens
---import Data.Foldable
---import qualified Data.Vector.Fusion.Stream.Monadic as VS
-
 blank :: Picture
 {-# INLINE blank #-}
 blank = []
@@ -157,7 +148,7 @@ translate x = map . overPos . translateH x
 
 translate3 :: Point3 -> Picture -> Picture
 {-# INLINE translate3 #-}
-translate3 v = map $ overPos (+.+.+ v)
+translate3 = map . overPos . (+.+.+)
 
 tranRot :: V2 Float -> Float -> Picture -> Picture
 {-# INLINE tranRot #-}