colorSurfaceInteraction :: Color -> Color -> Color
colorSurfaceInteraction (Color surfR surfG surfB) (Color lightR lightG lightB) =
  (Color (surfR * lightR / 255) (surfG * lightG / 255) (surfB * lightB / 255))
colorSurfaceInteraction :: Color -> Color -> Color
colorSurfaceInteraction (Color surfR surfG surfB) (Color lightR lightG lightB) =
  (Color (surfR * lightR / 255) (surfG * lightG / 255) (surfB * lightB / 255))
colorSurfaceInteraction (Color surfR surfG surfB) (Color lightR lightG lightB) =
  (Color (surfR * lightR / 255) (surfG * lightG / 255) (surfB * lightB / 255))