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$

closed as off-topic by Jason B., Yves Klett, user9660, MarcoB, Dr. belisarius Jan 21 '16 at 6:39

This question appears to be off-topic. The users who voted to close gave this specific reason:

  • "This question arises due to a simple mistake such as a trivial syntax error, incorrect capitalization, spelling mistake, or other typographical error and is unlikely to help any future visitors, or else it is easily found in the documentation." – Jason B., Community, Dr. belisarius
If this question can be reworded to fit the rules in the help center, please edit the question.

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

$\endgroup$

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