3
$\begingroup$

enter image description here

enter image description here

I tried to draw first picture with Raster3D, but the result is strange:

enter image description here

So, what is best function to call to draw 3d polygon like that?

$\endgroup$
8
$\begingroup$

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]

enter image description here

| improve this answer | |
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.