surface cylinder(vector scale=(1,.25,1); vector shift=(0,0,-1.5))
{
    point p = transform("object",P)*scale + shift;
    float ss = atan(xcomp(p),zcomp(p))/(2*PI);
    float tt = ycomp(p);
    Ci = texture("checker.tx",ss,tt);
}