#version unofficial MegaPov 0.6;

#include "colors.inc"

light_source{<0,0,0> color rgb<1,1,1> translate <-300, 300, -300>}

camera{location  <0.0, 1, -35.0> look_at   <0.0, 1,  0.0>}

sky_sphere{pigment{bozo scale 1/5 pigment_map{[0.2 White][0.8 Blue]}}}

#init_spline {
  "cane_spline",
  #declare x_spline = 0;
  #declare y_spline = 0.5;
  #while (x_spline <= 20)
    <x_spline, y_spline>
    #declare x_spline = x_spline + 1;
    #declare y_spline = - y_spline;
  #end
}

#declare basket_side =
union{
  #declare cane_array = 0;
  #declare stagger = 0.5;
  #while (cane_array <= 20)
    #declare cane=0;
    #while (cane <= 20)
      sphere { <cane, eval_spline ("cane_spline",cane),0>,0.25
scale<1,1,2>translate z*cane_array translate x*stagger}
      #declare cane= cane + 0.2;
    #end
    #declare stagger = - stagger;
    #declare cane_array = cane_array + 1;
  #end
  #declare strut = 0;
  #while (strut < 20)
    cylinder{<strut,0,-1>,<strut,0,21>, 0.15 translate x*0.5}
    #declare strut = strut + 1;
  #end
}

#declare basket =
union{
  object{basket_side}
  object{basket_side rotate z*-90}
  object{basket_side rotate z*-90 translate x*20}
  object{basket_side translate y*-20}
  box{<0,0,0>,<22,-22,1> translate<-1,1,1>}
  pigment{Goldenrod}
  rotate x*-90
  translate <-10,-10,-10>
}

object{basket}

Post a reply to this message