I'm creating a macro for viewing and testing textures. I'm still a beginner, so
please excuse the messy code.

#include "colors.inc"
 #include "textures.inc"
  #include "shapes3.inc"
#include "shapes.inc"
 #include "logo.inc"

camera {
         location <1,1.5,-3>
          look_at <0,1,0>
   }
light_source {
        <1000,1000,-1000> color rgb 1
 }
light_source {
        <2,3,-10> color rgb 1
}

////////////// logo pigment ////////////
#declare Tex_Sphere_Background = texture {
    Polished_Chrome
     normal { bumps 0.1 scale 0.001 }
}

#declare Tex_Sphere_Logo = texture {
   Polished_Chrome
    pigment {Red}
     normal { dents 0.5 scale 0.02 }
   finish { reflection 0.7 metallic }
 }

 #declare Metal_Logo_Texture = texture {
     object {
      Povray_Logo_Prism
       scale <0.5, 0.5, 10> * 0.5
        translate <0,0, -1>
      texture { Tex_Sphere_Background }
       texture { Tex_Sphere_Logo }
     }
   }
    //////////////////////////////////////

      plane {
               y,0
                pigment {
                         checker
                color rgb 1
                Gray
         }
  }

    #declare F =

      difference {
               sphere {
                        <0,0,0>,1
                pigment{Red}
                translate <0,0,0>
         }
        sphere {
                 <0,0,0>0.8
                  pigment {Blue}
                   normal {bumps 0.5 scale 0.001}
                scale <1,1,0.5> * 0.7
                 translate <0,0,-1>
          }

 }
  #declare Fq =
   union{
            object {F}
        sphere {<0,0,0> 0.925
         //texture {Polished_Chrome  normal {bumps 0.1 scale 0.001}}}
          texture {Metal_Logo_Texture
                     }

     }

       };

 object{ Round_Pyramid_N_out(
             8 , // number of side faces
              <0,0.325,0>, 0.40,// A, R_out_A,
                   <0,-0.1,0>, 0.70,// B, R_out_B,
            0.1, // border radius
           1, // 1 = filled, 0 = wire
            1  // 0 = union, 1 = merge
          ) //-------------------------------------
        texture{ pigment{ rgb<1,1,1> }
                  finish { phong 1 }
                 } // end of texture --------------
         } // end of object //----------------------

           object{ Round_N_Tube_Polygon( 8, // N,
                                  0.1, // Tube_R,
                                  0.85, // Base_Width,
                           0.25, // Edge_R
                               1, // Filled,
                                1, // Merge_On
                               ) //------------
        texture{ pigment{ color rgbf<1,1,0,0>}
                 finish { phong 1
                           }
                } // end of texture
          scale 0.89
        rotate <90,0,0>
        translate<0,0,0>
       } // end of object ----------------------

   object {
        Fq
        rotate <25,-45,0>
         translate <0,1,0>
}

Post a reply to this message

Attachments:
Download 'ls4.png' (89 KB)

Preview of image 'ls4.png'