dead easy just use two stacked cones and move the second one.

for example:
$fn=100;
cylinder(d1=30,d2=15,h=30);
translate ([0,4,30]) cylinder(d1=15,d2=1,h=15);
offsetcone.jpg


You can rescale the top cylinder to give a more horsey like profile :-)