(mkv 'line-segment 'ls1)

(gldefun tb ((l ls1) (p consv))
  (leftof-distance (line-segment l) p))

result type: REAL
(LAMBDA (L P)
  (- (* (COS (CADDDR L))
        (- (CDR P) (CADR L)))
     (* (SIN (CADDDR L))
        (- (CAR P)
           (- (FIFTH L)
              (* (CADDR L) (COS (CADDDR L))))))))

Contents    Page-10    Prev    Next    Page+10    Index