(+ (y obj) (height obj) (y bounds))
(- *current-translation-x*)
(- *current-translation-y*)
(+ (y obj) (height obj) (y bounds))
(- *current-translation-x*)
(- *current-translation-y*)
- (- +screen-width+ *current-translation-x*)
- (- +screen-height+ *current-translation-y*))
- T)))
+ (- (ash +screen-width+ (- *zoom-ash*)) *current-translation-x*)
+ (- (ash +screen-height+ (- *zoom-ash*)) *current-translation-y*))
+ T))
+)