I'm trying to sort and combine points list without a lot of luck
(setq L1 '((0 0 0) (1 1 0) (1 2 1) (2 3 1))
L2 '((22 3 1) (22 2 1) (22 0 0) (23 4 5))
L3 '((3 4 5) (6 7 8) (9 10 11))
L4 '((20 0 0) (21 1 0) (21 2 1) (22 3 1))
L5 '((2 3 1) (2 2 1) (2 0 0) (3 4 5))
L6 '((9 10 11) (12 13 12) (14 15 12))
L7 '((23 4 5) (26 7 8) (29 10 11))
L8 '((29 10 11) (32 13 12) (34 15 12)))
Since '(0 0 0) and (20 0 0) only occurs once as (car) and not as (last) of any list, I know they are a starting points.
Then trying to search for the (last) of L1 as the (car) of another list is where I'm coming up short.
Needs to return:
L1 + L5 + L3 + L6
'((0 0 0) (1 1 0) (1 2 1) (2 3 1) (2 2 1) (2 0 0) (3 4 5)
(6 7 8) (9 10 11) (12 13 12) (14 15 12))
and:
L4 + L2 + L7 + L8
'((20 0 0) (21 1 0) (21 2 1) (22 3 1) (22 2 1) (22 0 0) (23 4 5)
(26 7 8) (29 10 11) (32 13 12) (34 15 12)))
(append L1 (cdr L5)) puts them together.
Then I would remove l1 from the search. I think....
And then knowing when to finish...
Any ideas or suggestions -David