How to draw a 3D polygon like this?

Question

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?

Answer 1

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]