{-Add CornerPoints together.
Must follow all the rules of adding.
Ex: FrontFace can be added to BackFace
but
    FrontFace can't be added to a TopFace.-}
(+++) :: CornerPoints -> CornerPoints -> CornerPoints

(BottomFace b1 f1 b4 f4) +++ (TopFace b2 f2 b3 f3) = 
  CubePoints {f1=f1, f2=f2, f3=f3, f4=f4, b1=b1, b2=b2, b3=b3, b4=b4}
(+++) :: CornerPoints -> CornerPoints -> CornerPoints
(BottomFace b1 f1 b4 f4) +++ (TopFace b2 f2 b3 f3) = 
  CubePoints {f1=f1, f2=f2, f3=f3, f4=f4, b1=b1, b2=b2, b3=b3, b4=b4}
(BottomFace b1 f1 b4 f4) +++ (TopFace b2 f2 b3 f3) = 
  CubePoints {f1=f1, f2=f2, f3=f3, f4=f4, b1=b1, b2=b2, b3=b3, b4=b4}