Resumen

// Persistence of Vision Ray Tracer Scene Description File
// File: ?.pov
// Vers: 3.6
// Desc: Basic Scene Example
// Date: mm/dd/yy
// Auth: ?
//
         

#version 3.6;

#include "colors.inc"

global_settings {
  assumed_gamma 2.1    
  // used in global_settings, sets an overall brightness/ambient light level in the scene
  ambient_light color rgb <1,1,1>/10
}

// ----------------------------------------

camera {
  location  <+0.3, 0.5, -4.0>     // -0.2  0.0  +0.2    //  -0.3 -0.1 +0.1 +0.3
  direction 1.5*z
  right     x*image_width/image_height
  look_at   <0.0, 0.0,  0.0>
}

sky_sphere {
  pigment {
    gradient y
    color_map {
      [0.0 rgb <0.6,0.7,1.0>]
      [0.7 rgb <0.0,0.1,0.8>]
    }
  }
}

light_source {
  <-50, 40, -60>            // light's position (translated below)
  color rgb <1, 0, 0>  // light's color
}     

light_source {
  <50, 40, -60>            // light's position (translated below)
  color rgb <0, 1, 0>  // light's color
}

light_source {
  <0, 190, -60>            // light's position (translated below)
  color rgb <0, 0, 1>  // light's color
  
}

// ----------------------------------------

plane {
  y, -1.3
  pigment { color rgb <0.7,0.5,0.3> }
}

#declare ba=15;
#declare bb=15;  //6 , 9 ,    , 15
#declare b1=max(ba,bb);

#declare s=sqrt(3)/2;        

  
//tube armchair
#declare bb=bb+6;  //6 , 9 ,    , 15
#declare r=(bb-6)/pi;
#macro ab2y(b,a) sin(a/r)*r  
#end
#macro ab2x(b,a)  b 
#end
#macro ab2z(b,a)  cos(a/r)*r  -r
#end
 

    /*
//rim armchair
#declare r=(bb-6)/pi*3;
#macro ab2y(b,a) sin(a/r)*r   
#end
#macro ab2x(b,a)  b 
#end
#macro ab2z(b,a)  cos(a/r)*r  -r
#end
  */

  /*
//ribbon
#macro ab2x(a,b) a 
#end
#macro ab2y(a,b)  b 
#end
#macro ab2z(a,b)  0 
#end        
 */

    /*
//rim zizag
#declare r=(ba*s)/pi*3;
#macro ab2x(a,b) sin(a/r)*r 
#end
#macro ab2y(a,b)  b 
#end
#macro ab2z(a,b)  cos(a/r)*r -r
#end        
  */

    /*   
//tube zizag
#declare ba=ba+2;
#declare r=(ba*s)/pi;
#macro ab2x(a,b) sin(a/r)*r 
#end
#macro ab2y(a,b)  b 
#end
#macro ab2z(a,b)  cos(a/r)*r  -r
#end

  */   

union{   

#declare m = -b1;
#while (m < b1)
#declare n = -b1;
#while (n < b1)
//#declare BallCount = 0;
// #while (BallCount < 2*pi)
                #declare a0=(n*2+m)*s   ;
                #declare b0=m*1.5        ;
                
#if  ((a0<ba) & (a0>-ba) & (b0<bb) & (b0>-bb) )
        union{ 
                          

                #if (b0>-bb+2)
                sphere {< ab2x(a0,b0), ab2y(a0,b0),ab2z(a0,b0)>, 0.5         }
                #end
                #if ((b0<bb-2) & (b0>-bb+2))
                cylinder {< ab2x(a0,b0), ab2y(a0,b0),ab2z(a0,b0)>,< ab2x(a0,b0+1), ab2y(a0,b0+1),ab2z(a0,b0+1)>,  0.35 }
                #end
                #if (b0<bb-2)
                sphere {< ab2x(a0,b0+1), ab2y(a0,b0+1),ab2z(a0,b0+1)>, 0.5         }
                
                #if (a0+s<ba)
                cylinder {< ab2x(a0,b0+1), ab2y(a0,b0+1),ab2z(a0,b0+1)>,< ab2x(a0+s,b0+1.5), ab2y(a0+s,b0+1.5),ab2z(a0+s,b0+1.5)>,  0.35 }
                #end
                #if (a0-s>-ba)
                cylinder {< ab2x(a0,b0+1), ab2y(a0,b0+1),ab2z(a0,b0+1)>,< ab2x(a0-s,b0+1.5), ab2y(a0-s,b0+1.5),ab2z(a0-s,b0+1.5)>,  0.35 }
                #end
                #end
        }
        #end
               //  rotate <0,BallCount*60,0>}
               //  rotate <0,BallCount*60-30,0>}
// #declare BallCount = BallCount+pi/3;   // increment our counter
//  #end
#declare n = n+1;   // increment our counter
#end
#declare m = m+1;   // increment our counter
#end

         texture {
            pigment {
                color rgb <1,1,1>*0.7
            }
            finish{
              specular 0.6
            }
         }
     scale 0.08 //2
   //  translate 0.4*z
     rotate <90,45,0>
     rotate <-20,0,0>
   //  translate z        
}

Licencia

Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley.