Graphics3D[{Blue,Cylinder[],Red,Sphere[{0,0,2}], Black,Sphere[{0,-1,1.75}, .25],Black,Sphere[{-.35,-.75,2.25}, .25],Black,Sphere[{.35,-.75,2.25}, .25], Black,Thick, Line[{{-.5,-.5, 1.5}, {0, -.85, 1.25}, {.5, -.5, 1.5}}]}]