５）帽子の形状

　帽子の上部、中間部、下部を結合して、帽子の形状を造ります。
//****************************************************************
#local Hat_org =
union {
　object { Hat_org1 }
　object { Hat_org2 }
　object { Hat_org3 translate -(8-5)*y }
}
#local Hat_seg =
difference {
　object { Hat_org }
　cone { 6*y 10, -12*y 14 }
}
//****************************************************************
　例）　#local Ut=34;
　　　　 object { Hat_seg texture { T_hat }
　　　　　　　　　　scale 7 rotate <-60,10,0> translate <-10,Ut*0.4+10,Ut/30> }