Topic: ConvexHull----bug？

[well20152016]

Code - Auto/Visual Lisp: [Select]

1. (defun c:test()
2. (setq lst (LM:ConvexHull (mapcar 'cdr  (vl-remove-if-not'(lambda(x)(=(car x)10))(entget (car(entsel)))))))
3. (entmakex (append
4.               (list (cons 0 "LWPOLYLINE")
5.                     (cons 100 "AcDbEntity")
6.                     (cons 100 "AcDbPolyline")
7.                     (cons 90 (length lst))
8.                     (cons 70 1 )
9.                     (cons 62 1 )
10.               )
11.               (mapcar(function (lambda (p) (cons 10 p))) lst)
12.             )
13. )
14. )
15.  
16.  
17.  
18.  
19. ;; Convex Hull  -  Lee Mac
20. ;; Implements the Graham Scan Algorithm to return the Convex Hull of a list of points.
21.  
22. (defun LM:ConvexHull ( lst / ch p0 )
23.     (cond
24.         (   (< (length lst) 4) lst)
25.         (   (setq p0 (car lst))
26.             (foreach p1 (cdr lst)
27.                 (if (or (< (cadr p1) (cadr p0))
28.                         (and (equal (cadr p1) (cadr p0) 1e-8) (< (car p1) (car p0)))
29.                     )
30.                     (setq p0 p1)
31.                 )
32.             )
33.             (setq lst
34.                 (vl-sort lst
35.                     (function
36.                         (lambda ( a b / c d )
37.                             (if (equal (setq c (angle p0 a)) (setq d (angle p0 b)) 1e-8)
38.                                 (< (distance p0 a) (distance p0 b))
39.                                 (< c d)
40.                             )
41.                         )
42.                     )
43.                 )
44.             )
45.             (setq ch (list (caddr lst) (cadr lst) (car lst)))
46.             (foreach pt (cdddr lst)
47.                 (setq ch (cons pt ch))
48.                 (while (and (caddr ch) (LM:Clockwise-p (caddr ch) (cadr ch) pt))
49.                     (setq ch (cons pt (cddr ch)))
50.                 )
51.             )
52.             ch
53.         )
54.     )
55. )
56.  
57. ;; Clockwise-p  -  Lee Mac
58. ;; Returns T if p1,p2,p3 are clockwise oriented or collinear
59.                  
60. (defun LM:Clockwise-p ( p1 p2 p3 )
61.     (<  (-  (* (- (car  p2) (car  p1)) (- (cadr p3) (cadr p1)))
62.             (* (- (cadr p2) (cadr p1)) (- (car  p3) (car  p1)))
63.         )
64.         1e-8
65.     )
66. )

[ribarm]

Refer to this post :
http://www.theswamp.org/index.php?topic=53116.msg578882#msg578882

Also for ConvexHull - pts on Hull refer to my latest codes posted for TSP started by Evgeniy Elpanov

HTH., M.R.

[well20152016]

thank！