I tried to draw first picture with Raster3D, but the result is strange:
So, what is best function to call to draw 3d polygon like that?
I tried to draw first picture with Raster3D, but the result is strange:
So, what is best function to call to draw 3d polygon like that?
Here is something to get you started, look at Cuboid
Show[Graphics3D[{Directive[#1], Cuboid[{0, 0, 0}, #2]}] & @@@ { {Red, {1, 1, 1}}, {Blue, {1, -1, 1}}, {Green, {-1, -1, 1}}, {Gray, {-1, 1, -1}}, {Blue, {-1, 1, 1}}} , Boxed -> False]