float $bottomrad = 1;
float $toprad = .5;
float $height = 1;

float $raddif = $bottomrad - $toprad;
float $angle = atand($height/$raddif);
float $lidheight = ($bottomrad * tand($angle)) - $height;

circle -nr 0 1 0 -r $bottomrad;

circle -c 0 $height 0 -nr 0 1 0 -r $toprad;

select -tgl nurbsCircle1;

loft;

select -tgl nurbsCircle1;

planarSrf;

select -cl;

select -tgl nurbsCircle1 nurbsCircle2;

doDelete;

polyCone -r $toprad -ax 0 1 0 -h ($lidheight);

move 0 ($height + .25 + ($lidheight/2));

sphere -r ($toprad/3);

move -r 0 ($height + $lidheight + .25) 0;

polyPipe -r .2 -h 1 -t 0.05;

rotate -r 0 0 (-$angle);

move ($toprad + ($raddif)/2) ($height/2) 0;

torus -r ($lidheight + .25 + ($raddif/3)) -hr (.025 * $bottomrad) 
	-ssw (90 - (1.01 * $angle)) -esw (270 + (1.01 * $angle));

rotate -r -90 -90 0;

move 0 ($height + $lidheight) (.1 * $bottomrad);

duplicate;

move -r -os -wd (-0.2 * $bottomrad) 0 0;

select -all;

makeIdentity -apply true -t 1 -r 1 -s 1 -n 0;

select -cl;