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$
3
  • $\begingroup$ Graphics3D[{Directive[Blue], Cuboid[]}] to start with $\endgroup$ Commented Jan 20, 2016 at 16:29
  • 1
    $\begingroup$ Related (if quite the superset of this question): Mathematica Minecraft. $\endgroup$ Commented Jan 20, 2016 at 17:00
  • 2
    $\begingroup$ Also a possible duplicate of Plotting Voxel in mathematica. $\endgroup$ Commented Jan 20, 2016 at 17:08

1 Answer 1

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$

Start asking to get answers

Find the answer to your question by asking.

Ask question

Explore related questions

See similar questions with these tags.