-- Bar: glass, Tatsushi Someya, graduate school, Hosei University, 2004
glass(x[3], a[1])
{
array vertex01[3];
array vertex02[3];

array center01[3];
array center02[3];
array center03[3];

array xt01[3];
array xt02[3];

center01=[0, 0, 0];
obj01 = hfEllipsoid(x, center01, 3, 5, 3);
obj02 = hfEllipsoid(x, center01, 2.9, 4.9, 2.9);
obj03 = hfCylinderY(x, center01, 0.4);
center02[1]=center01[1];center02[2]=center01[2]-9;center02[3]=center01[3];
obj04 = hfEllipsoid(x, center02, 3, 0.8, 3);
vertex01=[-7,-9,-7];
obj05 = hfBlock(x,vertex01,14,12,14);
blend01 = hfBlendUni(obj01,obj03,0.3,0.3,0.3);
blend02 = hfBlendUni(blend01,obj04,0.5,0.5,0.5);
glass = (blend02\obj02)&obj05;
}