本帖最后由 Gu_xl 于 2011-3-12 19:57 编辑
回复 xinrstar 的帖子
圆弧始终是逆时针,下面是判断三点的时钟方向函数:
 - ;p1 圆心 p2 起点 p3 终点,逆时针返回T,顺时针返回nil
- (defun test (p1 p2 p3)
- (> (- (+ (* (car p1) (cadr p2)) (* (car p2) (cadr p3)) (* (car p3)
- (cadr p1)
- )
- ) (* (car p1) (cadr p3)) (* (car p2) (cadr p1)) (* (car p3)
- (cadr p2)
- )
- )
- 0
- )
- )
|