(/ (- (posn-y point1) (posn-y point2))
     (- (posn-x point1) (posn-x point2))