.PS
cct_init

# Usual defs...
qrt=dimen_/4;
hlf=dimen_/2;
dim=dimen_;

linethick_(2);
line right_ dim
move right_ dim/6
Orig:Here
move right_ dim/6
line right_ dim
linethick_() # Default

line from Orig-(0.75*dim,0) down_ qrt then right_ (3/4-1/6)*dim \
  then down_ qrt ; dot

E1:ellipse width dim/3 height dim/6 with .w at Here

line from E1.w down_ dim
line from E1.e down_ dim
line from E1.c up_ qrt then right_ 3/4*dim then up_ qrt

"\tiny FeedGeom" at (2*dim,-dim)
.PE