帽子の描画

 曲面の描画用マクロを用いて、帽子を描画します。
 //**********************************************************************************
  object { Curved_surface4(<-pi,pi,pi/12>,<-pi,pi,pi/12>,0)
     texture { T_hat } scale 4 rotate < -30, 30, 0 > translate < 6, 0.1, 0 > }
 //**********************************************************************************