cnt2pix :: RealT -> Int -> Color
cnt2pix sf cnt =
    let c       = (fromIntegral cnt)/sf in
    Vec3f c c c
cnt2pix :: RealT -> Int -> Color
cnt2pix sf cnt =
    let c       = (fromIntegral cnt)/sf in
    Vec3f c c c
cnt2pix sf cnt =
    let c       = (fromIntegral cnt)/sf in
    Vec3f c c c