Wolfram Technology Guide: Real-Time 3D Graphics  previous | next 
Use Real-Time 3D Graphics as Input
Mathematica allows you to treat 3D graphics just like any other form of input to any computation.
In[1]:=

Click for copyable input
Options[\!\(\*

Graphics3DBox[

    GraphicsComplex3DBox[

     NCache[{{

       0, 0, (Rational[

          9, 8] + Rational[3, 8] 5^Rational[1, 2])^Rational[1, 2]}, {

       0, 0, Rational[-1, 2] (

          Rational[3, 2] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(

         Rational[1, 8] + Rational[-1, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (-3 - 5^Rational[1, 2]), (

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {(

         Rational[1, 8] + Rational[-1, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (3 + 5^Rational[1, 2]), (

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {(

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (1 + 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(

         Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (-1 - 5^Rational[1, 2]), (

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {(

         Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 4] (1 + 5^Rational[1, 2]), (

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {-(

          Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[

          1, 2], Rational[-1, 2], (

         Rational[1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {-(

          Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[

          1, 2], Rational[

        1, 2], (Rational[

          1, 8] + Rational[1, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {(

         Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[

         1, 2], Rational[-1, 2], 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {(

         Rational[3, 4] + Rational[1, 3] 5^Rational[1, 2])^Rational[

         1, 2], Rational[1, 2], 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {-(

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 0, 

        Rational[-1, 2] (

          Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {

       Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 

        Rational[1, 4] (-1 - 5^Rational[1, 2]), (

         Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {

       Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 

        Rational[1, 4] (1 + 5^Rational[1, 2]), (

         Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {(Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[

         1, 2], 0, (

         Rational[5, 8] + Rational[5, 24] 5^Rational[1, 2])^Rational[

         1, 2]}, {

       Rational[-1, 2] (

          Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 

        Rational[1, 4] (-1 - 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {

       Rational[-1, 2] (

          Rational[5, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2], 

        Rational[1, 4] (1 + 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {

       Root[1 - 36 #^2 + 144 #^4& , 2, 0], 

        Rational[1, 4] (-3 - 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}, {

       Root[1 - 36 #^2 + 144 #^4& , 2, 0], 

        Rational[1, 4] (3 + 5^Rational[1, 2]), 

        Rational[-1, 2] (

          Rational[1, 6] (3 + 5^Rational[1, 2]))^Rational[1, 2]}}, {{

       0, 0, 1.4012585384440737`}, {0, 0, -1.4012585384440737`}, {

       0.17841104488654497`, -1.3090169943749475`, 

       0.46708617948135783`}, {0.17841104488654497`, 

       1.3090169943749475`, 0.46708617948135783`}, {

       0.46708617948135783`, -0.8090169943749475, \

-1.0444364486709836`}, {0.46708617948135783`, 

       0.8090169943749475, -1.0444364486709836`}, {

       1.0444364486709836`, -0.8090169943749475, 

       0.46708617948135783`}, {1.0444364486709836`, 

       0.8090169943749475, 

       0.46708617948135783`}, {-1.2228474935575286`, -0.5, 

       0.46708617948135783`}, {-1.2228474935575286`, 0.5, 

       0.46708617948135783`}, {

       1.2228474935575286`, -0.5, -0.46708617948135783`}, {

       1.2228474935575286`, 

       0.5, -0.46708617948135783`}, {-0.9341723589627157, 

        0, -1.0444364486709836`}, {-0.46708617948135783`, \

-0.8090169943749475, 1.0444364486709836`}, {-0.46708617948135783`, 

       0.8090169943749475, 1.0444364486709836`}, {

       0.9341723589627157, 0, 

        1.0444364486709836`}, {-1.0444364486709836`, \

-0.8090169943749475, -0.46708617948135783`}, {-1.0444364486709836`, 

       0.8090169943749475, -0.46708617948135783`}, \

{-0.17841104488654494`, -1.3090169943749475`, -0.46708617948135783`}, \

{-0.17841104488654494`, 1.3090169943749475`, -0.46708617948135783`}}],

      Polygon3DBox[{{15, 10, 9, 14, 1}, {2, 6, 12, 11, 5}, {5, 11, 7, 

      3, 19}, {11, 12, 8, 16, 7}, {12, 6, 20, 4, 8}, {6, 2, 13, 18, 

      20}, {2, 5, 19, 17, 13}, {4, 20, 18, 10, 15}, {18, 13, 17, 9, 

      10}, {17, 19, 3, 14, 9}, {3, 7, 16, 1, 14}, {16, 8, 4, 15, 

      1}}]],

ImageSize->{90., 104.12199652403548`},

ViewPoint->{-0.9624197700327529, -3.07580610224535, \

-1.031098932033377},

ViewVertical->{0.1306488041034501, -0.9156018302076686, 

     0.5053824851317418}]\), ViewPoint]
Out[1]=