Draw current element now actually draws current element and in

approximately the right place. It's also now calling a
DRAW-CURRENT-ELEMENT generic function so that it can be expanded for
notations and objects other than clusters.