// Last edited on 2003-05-31 12:28:15 by stolfi

#include "colors.inc"
  
background{White}

camera {
  location 1.0*<3, 10, -15>
  right 1.0*x  up 0.75*y
  look_at <0, 0, 0>
}

light_source { 10*<-10, 15, -20> color 1.2*White }
light_source { 10*<+10, 10, -20> color 0.8*White }

plane {y,-5 pigment{ checker Gray70, White } }

// prisma de cima (vermelho) octogono
#declare tampa = 
prism {
    linear_sweep
    linear_spline
    5, // sweep the following shape from here ...
    4, // ... up through here
    9, // the number of points making up the shape ...
    <-2,4>,<2,4>,<4,2>,<4,-2>,<2,-4>,<-2,-4>,<-4,-2>,<-4,2>,<-2,4>
    pigment { Red }
}


// lathe central (azul)
#declare corpo =
lathe {
    linear_spline
    5,
    <3,4>,<2,3>,<5,1>,<3,-1>,<3,-3>
  pigment { Blue }
  finish {
    ambient .3
    phong .75
  }
}

// prisma de baixo (preto) hexagono
#declare fundo =
prism {
    linear_sweep
    linear_spline
    -3, // sweep the following shape from here ...
    -5, // ... up through here
    7, // the number of points making up the shape ...
    <-2,3>,<2,3>,<4,0>,<2,-3>,<-2,-3>,<-4,0>,<-2,3>
    pigment { Black }
}

#declare instrumento = 
union{
  object{tampa}
  object{fundo}
  object{corpo}
}

object {instrumento}