With[{sp = Normalize /@ RandomReal[{-1, 1}, {10^4, 3}]}, Graphics3D[{Point[sp, VertexNormals -> sp]}]]