scaleCornerPoints :: Double -> CornerPoints  -> CornerPoints
scaleCornerPoints scaleFactor (CubePoints f1 f2 f3 f4 b1 b2 b3 b4)  = 
    CubePoints 
        {
            f1=scalePoint f1 scaleFactor,
            f2=scalePoint f2 scaleFactor,
            f3=scalePoint f3 scaleFactor,
            f4=scalePoint f4 scaleFactor,
            b1=scalePoint b1 scaleFactor,
            b2=scalePoint b2 scaleFactor,
            b3=scalePoint b3 scaleFactor,
            b4=scalePoint b4 scaleFactor
        }
scaleCornerPoints :: Double -> CornerPoints  -> CornerPoints
scaleCornerPoints scaleFactor (CubePoints f1 f2 f3 f4 b1 b2 b3 b4)  = 
    CubePoints 
        {
            f1=scalePoint f1 scaleFactor,
            f2=scalePoint f2 scaleFactor,
            f3=scalePoint f3 scaleFactor,
            f4=scalePoint f4 scaleFactor,
            b1=scalePoint b1 scaleFactor,
            b2=scalePoint b2 scaleFactor,
            b3=scalePoint b3 scaleFactor,
            b4=scalePoint b4 scaleFactor
        }
scaleCornerPoints scaleFactor (CubePoints f1 f2 f3 f4 b1 b2 b3 b4)  = 
    CubePoints 
        {
            f1=scalePoint f1 scaleFactor,
            f2=scalePoint f2 scaleFactor,
            f3=scalePoint f3 scaleFactor,
            f4=scalePoint f4 scaleFactor,
            b1=scalePoint b1 scaleFactor,
            b2=scalePoint b2 scaleFactor,
            b3=scalePoint b3 scaleFactor,
            b4=scalePoint b4 scaleFactor
        }