Topic: {Challenge}Get same zone boundary index set from the Matrix

[ElpanovEvgeniy]

last version:

[ElpanovEvgeniy]

played a lot with a picture - an interesting program...
code for last version:

Code - Auto/Visual Lisp: [Select]

1. (eea-geodesic-contours-TheSwamp l '(0.5 1.5 2.5 3.5))
2.  
3. (defun eea-geodesic-contours-TheSwamp (l lst-z / X Y)
4.   ;; by ElpanovEvgeniy
5.   ;;(eea-geodesic-contours-TheSwamp l '(0.5 1.5 2.5))
6.   ;; last edit 26.09.2012
7.   ;; last edit 05.10.2012
8.   (defun min-max (a b c) (list (min a b c) (max a b c)))
9.   (defun fix-z (p z) (list (car p) (cadr p) z))
10.   (setq l (mapcar (function
11.                     (lambda (a b) (mapcar (function (lambda (a b c d)
12.                                                       (/ (+ a b c d) 4.)
13. ;;;                                                     (sqrt (sqrt (* a b c d)))
14.                                                       )) a (cdr a) b (cdr b)))
15.                   )
16.                   l
17.                   (cdr l)
18.           )
19.         y -1.
20.         l (apply (function append)
21.                  (mapcar (function
22.                            (lambda (a b)
23.                              (setq x -1.
24.                                    y (1+ y)
25.                              )
26.                              (apply (function append)
27.                                     (mapcar (function
28.                                               (lambda (a b c d / z)
29.                                                 (setq x (1+ x)
30.                                                       z (sqrt (sqrt (* a b c d)))
31. ;;;                                                      z (/ (+ a b c d) 4.)
32.                                                 )
33.                                                 (list (list (min-max a b z) (list x y a) (list (1+ x) y b) (list (+ x 0.5) (+ y 0.5) z))
34.                                                       (list (min-max a c z) (list x y a) (list x (1+ y) c) (list (+ x 0.5) (+ y 0.5) z))
35.                                                       (list (min-max b d z) (list (1+ x) y b) (list (1+ x) (1+ y) d) (list (+ x 0.5) (+ y 0.5) z))
36.                                                       (list (min-max c d z) (list x (1+ y) c) (list (1+ x) (1+ y) d) (list (+ x 0.5) (+ y 0.5) z))
37.                                                 )
38.                                               )
39.                                             )
40.                                             a
41.                                             (cdr a)
42.                                             b
43.                                             (cdr b)
44.                                     )
45.                              )
46.                            )
47.                          )
48.                          l
49.                          (cdr l)
50.                  )
51.           )
52.   )
53.   (foreach tr l
54.       (if (and
55.                (< 0.9 (-(cadar tr)(caar tr)))
56.                (setq z (/(+ (caar tr)(cadar tr))2.))
57.                (cdr (setq tr (vl-remove nil
58.                                         (list (inters (nth 1 tr) (nth 2 tr) (fix-z (nth 1 tr) z) (fix-z (nth 2 tr) z))
59.                                               (inters (nth 2 tr) (nth 3 tr) (fix-z (nth 2 tr) z) (fix-z (nth 3 tr) z))
60.                                               (inters (nth 1 tr) (nth 3 tr) (fix-z (nth 1 tr) z) (fix-z (nth 3 tr) z))
61.                                         )
62.                              )
63.                     )
64.                )
65.           )
66.         (entmakex (list '(0 . "line")
67.                         (cons 8 (rtos z 2 1))
68.                        (cons 10 (car tr))
69.                        (cons 11 (cadr tr))
70.                   )
71.         )
72.       )
73.     )
74.   (princ)
75. )

[chlh_jd]

played a lot with a picture - an interesting program...
code for last version:
...

Thanks Evgeniy .
These days , I serach Vector Pic in the NET once more , Seems that high-quality vector softwares ( Adobe Illustrator CS6 , CorelDraw , AutoDesk Raster Design ...) has constructed a series of material library (Human, landscape, object library ...) , They can quickly match the material and make more real vectorization . Because we can't write these to  do it , so yours result is good enough for me .

[chlh_jd]

Someone do a comparison :

1, Acme.TraceART.v3.5
 (Brief: Acme TraceART professionals quickly converting raster to vector format function; can convert a variety of engineering blueprint includes architectural, mechanical, geological, GIS, electronic, etc.)
 2, Algolabs.Raster.to.Vector.Conversion.Toolkit.v2.73
 (Short Description: This software can be a variety of technical drawings, picture by lines from raster format converted to vector format)
 3, Autodesk CAD Overlay 2002
 (Brief: Autocad vector software support tracking, etc.)
 4, AUTODESK RASTER DESIGN 2005
 (Brief: a new name, new features, new possibilities! Autodesk Raster Design software is the next generation of products of the former Autodesk CAD Overlay. Changed its name to better describe its application name, and it included in the Autodesk product line of digital design data. compared with CAD Overlay AutodeskRasterDesign
 There are a lot of new features to improve the efficiency of your work, and can help you take full advantage of the graphics, maps and photographs of the scan)
 5, BENTLEY IRAS-B v8.1.2
 (Short Description: vectorization tools)
 6, BENTLEY.Descartes.v8.05
 (Brief: Cartography, visualization solutions as well as professional graphics vectorization)
 7, BENTLEY.Iras-B.v8.2004.Edition
 (Brief: microstation company produced powerful scanning drawings vectorization software management, editing, conversion for scanned drawings to vector.)
 8, CASSCAN 5.0 small proportion Edition
 (Brief: is the Southern Company scan vector the soft CASSCAN40 the upgrade products CASSCAN50 compared with version 4.0, completely abandoned OverlayR14 of of platform, and CADR14 platform upgrade to CAD2000/2002, increase overall rectangular surface features extract digital intelligent identification and other powerful features; addition to using popular CAD2000/2002 platform, the same time followed of the of Southern terrain cadastral mapping software CASS50 essence of, friendly interface, clear processes; fast image processing capabilities coupled with powerful CAD graphics editing features
 Can accurately track lines, fast draw object; combined with small-format scanners work quickly and easily scanned drawing vector GIS digitized results directly. )
 9, Consistent.Software.Spotlight.PRO.v5.2
(Short Description: This software can be scanned raster image raster, vector, or a mixture of the two editors, you can also perform raster - vector conversion)
 10, Hamrick.Software.VueScan.v8.0.4
 (Brief: when suitable for professional scanning tool for businesses and home use, to provide high-quality image scanning, color balance and correction, reducing costs while increasing the scanning speed. The use VceScan can make your old scanner regained its youthful )
 11, R2V 5.6
 (Short Description: scanned raster map vector software)
 12, RX.AUTOIMAGE.PRO.R7.5
 (Brief: RxAutoImageR7 hybrid editing software is an advanced raster loss, and can perform raster graphics format conversion to the loss. Forautocad version)
 13, RX.SPOTLIGHT.PRO.R7
 (Briefly: the scanned raster image raster, vector, or a mix of both editing and ... this is forAutocad Edition)
 14, Scan2CAD V5.1c
 (Short Description: scanned raster map vector software)
 15, Vpmax pro 6.04
 (Short Description: scanned raster map vector software)
 16, VPStudio V6.75
 (Short Description: scanned raster map vector software)
 17, WinTopo2.5
 (Short Description: scanned raster map vector software)