Oops. Check this code instead.





#local Tiles_Width = 64;
#local Tube_Radius = Tiles_Width/2/cos(pi/4) * 5/4;
#local Wid = Tiles_Width/2;
#local Angle_Start = acos(Wid/Tube_Radius);
#local Angle_Incrm = 2/8 * Angle_Start;
sor
{
   11,
   <
     cos(Angle_Start - 8 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 8 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 8 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 8 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 7 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 7 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 6 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 6 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 5 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 5 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 4 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 4 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 3 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 3 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 2 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 2 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 1 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 1 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 0 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 0 * Angle_Incrm) * Tube_Radius,
   >
   <
     cos(Angle_Start - 0 * Angle_Incrm) * Tube_Radius - Wid,
     sin(Angle_Start - 0 * Angle_Incrm) * Tube_Radius,
   >
   pigment {rgb 1}
   translate Wid
}

Post a reply to this message