-- Convert a pixel to PPM P3 format
p3color :: Color -> String
p3color (Vec3f r g b) = unwords [showC r, showC g, showC b] where
    showC c = show $ floor $ 255 * (min 1 c)
p3color :: Color -> String
p3color (Vec3f r g b) = unwords [showC r, showC g, showC b] where
    showC c = show $ floor $ 255 * (min 1 c)
p3color (Vec3f r g b) = unwords [showC r, showC g, showC b] where
    showC c = show $ floor $ 255 * (min 1 c)