(LAMBDA-BLOCK T6 (D PT OFF)
  (LET ((PTP (LIST (- (CAR PT) (CAR OFF)) (- (CADR PT) (CADR OFF)))))
    (AND (AND (> = (CAR PTP)
                  (+ -2 (+ (CAR (CADR D))
                           (MIN 0 (CAR (CADDR D))))))
              (< = (CAR PTP)
                  (+ 2
                     (+ (+ (CAR (CADR D))
                           (MIN 0 (CAR (CADDR D))))
                        (ABS (CAR (CADDR D))))))
              (> = (CADR PTP)
                  (+ -2 (+ (CADR (CADR D))
                           (MIN 0 (CADR (CADDR D))))))
              (< = (CADR PTP)
                  (+ 2
                     (+ (+ (CADR (CADR D))
                           (MIN 0 (CADR (CADDR D))))
                        (ABS (CADR (CADDR D)))))))
         (<  (ABS (LET ((DX (- (LET ((GLVAR7282 (CADR D))
                                    (GLVAR7283 (CADDR D)))
                                (+ (CAR GLVAR7282) (CAR GLVAR7283)))
                              (CAR (CADR D))))
                       (DY (- (LET ((GLVAR7284 (CADR D))
                                    (GLVAR7285 (CADDR D)))
                                (+ (CADR GLVAR7284) (CADR GLVAR7285)))
                              (CADR (CADR D)))))
                   (/ (- (* DX (- (CADR PTP) (CADR (CADR D))))
                         (* DY (- (CAR PTP) (CAR (CADR D)))))
                      (SQRT (+ (EXPT DX 2) (EXPT DY 2))))))
            5))))

Contents    Page-10    Prev    Next    Page+10    Index