- #|(cond
- ((< (- (y (graphic-centralizer obj)) 300) 0) 0)
- ((> (+ (y (graphic-centralizer obj)) 300) (height obj))
- (- 600 (height obj)))
- (T
- (- 300 (y (graphic-centralizer obj)))))|#
- (- (ash 300 (- *zoom-ash*)) (y (graphic-centralizer obj)))
- ))