//candy-cane attempt - Remco de Korte
// for a simple straight candy-cane (stick) an imagemap is probably better
camera
{
  location  <0,0,-12>
  look_at   <0,0,0>
}

light_source{<-20,20,-20> rgb 1}
background{rgb .5}

#declare prec=.1; //lower this value for close-ups - needs more memory

#declare cane_part= // one segment
cylinder{<0,0,0><0,prec,0>,.5
pigment{
  checker
     rgb 1,
     rgb<1,0,0>
  }
}        

#declare cane=union{
#declare rot_ang=90;

#declare yy=-4;
#while (yy<4)
  object{cane_part rotate y*rot_ang translate y*yy}
  #declare rot_ang=rot_ang+70*prec; // 70 is the spiral-value here
  #declare yy=yy+prec;
#end  

#declare yy=0;
#while (yy<90)
  object{cane_part rotate y*rot_ang translate x*2 rotate z*yy*2 translate x*-2 translate y*4}
  #declare rot_ang=rot_ang+70*prec;
  #declare yy=yy+prec*10;
#end  
}

object{cane rotate z*30}             

//eof