Mathematica Plot An Array Of 3d Points