found bug! forgot to use actual positions of shapes in calculating intersections;
only used dimensions.
the debugging code is in test.hs