// Persistence of Vision Ray Tracer Scene Description File
// File: Geo_stuff.pov
// Vers: 3.1
// Desc: to build a #macro aimed to construct smooth gear_like shapes.
// Date: october,  23-24,  2001
// Auth: Pilot Alex
//

#include "colors.inc"

global_settings {
  assumed_gamma 1.95
}

#macro Geo_flower (
    rad_whole_thing, // define the radius of the whole shape
    step_num,        // ...how many pos_neg curved segments inside a 360

    // it allows a range of possibilities from 2 to "any logical
number"!
    line_thickness,  //
   // smoother,        // it should be kept between 0 and 70
!!!!!!!!!!!!!
   // I removed this keyword, so that its part of the code,
   // cause it is not working properly //
   //////////////////////////////////////////////////////////
    circonf          // does the shape do a complete 360, or only a 270,
etc...
    surface )        // texture

#local steps      = step_num;
#local rot_sampl  = 360/(steps*2);
#local x1         = rad_whole_thing;
#local y1         = 0;
#local x2         = x1*cos(radians(rot_sampl));
#local y2         = x1*sin(radians(rot_sampl));
#local tor_rad    = (sqrt(pow(x1-x2, 2)+pow(y1-y2, 2)))/2; //it gives
the rad...

#declare part_tobe_duplicated =
union {
  difference {
    torus { tor_rad, line_thickness translate x1*x
    }
    difference { plane { +x, 0 } plane { +z, 0 }
      rotate < 0, -rot_sampl/2, 0 >
      translate x1*x
    }
    difference { plane { +x, 0 } plane { -z, 0 }
      rotate < 0, +rot_sampl/2, 0 >
      translate x1*x
    }
  }
  difference {
    torus { tor_rad, line_thickness translate x1*x
      rotate -rot_sampl*y
    }
    plane { -x, 0
      rotate < 0, (-rot_sampl/2), 0 >
      translate x1*x
    }
    plane { -x, 0
      rotate -(rot_sampl/2)*y
      translate x1*x
      rotate -rot_sampl*y
    }
  }
  texture { surface }
}

#declare final_obj = union {
#local counter = 0;
#while ( counter < circonf )
  object { part_tobe_duplicated
    rotate < 0, -counter, 0 >
  }
  #local counter = counter+(360/steps);
#end
}
object { final_obj
  rotate -90*x
}
#end

#declare  surf_testing =
texture { pigment { Gray90 } finish { ambient 0.2 brilliance 1.5
specular 0.75 }}

object { Geo_flower ( 5,  3,  0.3,  360, surf_testing )
  translate < 0, 0, 0 >
}

//////////////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////////////

// #macro allowing to move a camera around any xyz vector...
// The xx,  yy,  and  zz are the vector components of the new center
point....
// The "back" keyword is the distance of the cam from the
center_point...
// ...rot_adjust allow to be more specific with the reel focus area....
#macro flying_cam ( lens, xx, yy, zz,  back, x_rot, y_rot, xrot_adjust,
yrot_adjust, y_trans )
  #declare cam_2001 =
  camera { location < 0, 0, -1 > look_at 0.000 angle lens
    rotate xrot_adjust*x rotate yrot_adjust*y
  }
  camera { cam_2001
    translate <0,y_trans,-back>
    rotate <x_rot, y_rot, 0>
    translate < xx, yy, zz >
  }
#end

flying_cam ( 30, 0, 0, 0, 40, -15, -30, 0, 0, 0 )

light_source { < 200, 200, -400 >, White*1.15 }

/////////////////////////////////////////////////////////////////////
///////////  E N D   O F   T H I S   C O D E  ///////////////////////
/////////////////////////////////////////////////////////////////////

Post a reply to this message