(IN-PACKAGE :CCL)
;; this patch was saved with PWGL version 1.0 beta RC 16 (0.9.16-310)
(ASSERT-PATCH-SAVED-VERSION-NOT-NEWER-THAN (QUOTE ((0 9 16) 310)))
(LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-PW-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 50 :VALUE-STRING "50" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.5760000000000001D0 :Y 1.2720000000000007D0 :W 0.52 :H 0.1 :BOX-STRING "pwgl-repeat" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-REPEAT)) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "args" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.9840000000000004D0 :Y 1.6920000000000002D0 :W 0.26 :H 0.17359999 :BOX-STRING "list" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :CURVAL 1.0 :VALUE-STRING "1.0")) :X 1.1240000000000006D0 :Y 1.9480000000000004D0 :W 0.26 :H 0.1 :BOX-STRING "random" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 2 :BORDER 0.012) :PW-FUNCTION (QUOTE RANDOM)) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL "()" :VALUE-STRING "()" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "args" :VALUE-STRING "0" :CONNECTION NIL)) :X 1.5360000014901152D0 :Y 1.7039999985098846D0 :W 0.26 :H 0.17359999 :BOX-STRING "list" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 50 :VALUE-STRING "50" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 1.3360000014901168D0 :Y 1.2719999985098847D0 :W 0.52 :H 0.1 :BOX-STRING "pwgl-repeat" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-REPEAT)) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "l1?" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "l2?" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 0.42799999999999994D0 :Y 1.04D0 :W 0.26 :H 0.16 :BOX-STRING "x-append" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST 1 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PATCH-WORK:X-APPEND) :PW-LOCK T :BOX-BUFFER (LIST (LIST 0.8143141 0.64444387) (LIST 0.057923675 0.29356158) (LIST 0.3312286 0.08120835) (LIST 0.7961507 0.33368588) (LIST 0.78914536 0.50458) (LIST 0.40297818 0.16577971) (LIST 0.9437412 0.57465804) (LIST 0.25015128 0.90992857) (LIST 0.4780898 0.40448356) (LIST 0.5339298 0.5279236) (LIST 0.6422998 0.47277737) (LIST 0.18353081 0.093408704) (LIST 0.6595459 0.32465076) (LIST 0.30934978 0.9622967) (LIST 0.2707075 0.99460805) (LIST 0.7034153 0.60008204) (LIST 0.67534614 0.16469395) (LIST 0.045984388 0.3293785) (LIST 0.57933164 0.6013768) (LIST 0.7401105 0.8042761) (LIST 0.5382304 0.8105018) (LIST 0.77781284 0.706838) (LIST 0.86489296 0.13520706) (LIST 0.67727507 0.71649015) (LIST 0.8553722 0.32137895) (LIST 0.31514597 0.5410887) (LIST 0.7426281 0.3240714) (LIST 0.4143964 0.31979) (LIST 0.22261763 0.33954597) (LIST 0.66060734 0.66054) (LIST 0.39752746 0.07379639) (LIST 0.59342146 0.04281068) (LIST 0.21348 0.94359255) (LIST 0.6505792 0.439551) (LIST 0.38535833 0.5872036) (LIST 0.1945802 0.25985575) (LIST 0.855309 0.84306956) (LIST 0.18338871 0.2154057) (LIST 0.5076022 0.5078051) (LIST 0.9793359 0.5472686) (LIST 0.64889575 0.62290407) (LIST 0.9312477 0.39213574) (LIST 0.77721167 0.1935035) (LIST 0.7181568 0.3781742) (LIST 0.98957694 0.97995794) (LIST 0.01888287 0.98673535) (LIST 0.32731414 0.9988563) (LIST 0.79808617 0.6658108) (LIST 0.62088264 0.8902267) (LIST 0.08029866 0.6428095) (LIST 1.1850802 1.6958263) (LIST 1.4026408 1.9702749) (LIST 1.9380503 1.4723364) (LIST 1.1347641 1.1012831) (LIST 1.6078999 1.037947) (LIST 1.600792 1.3291229) (LIST 1.6405653 1.6794229) (LIST 1.384263 1.4011108) (LIST 1.5922778 1.8408969) (LIST 1.879291 1.5644752) (LIST 1.5408059 1.5198497) (LIST 1.0281681 1.772284) (LIST 1.8904067 1.6624968) (LIST 1.8255839 1.7811201) (LIST 1.6557254 1.3501698) (LIST 1.6088855 1.115705) (LIST 1.0172832 1.1480609) (LIST 1.9780189 1.2634696) (LIST 1.6106708 1.7763988) (LIST 1.1783227 1.7857815) (LIST 1.5590539 1.2574655) (LIST 1.5540524 1.5207639) (LIST 1.5387325 1.0149034) (LIST 1.0995984 1.889263) (LIST 1.460583 1.491395) (LIST 1.4020027 1.5459521) (LIST 1.4304684 1.251695) (LIST 1.3007854 1.7131097) (LIST 1.5507017 1.9482938) (LIST 1.2015199 1.0830072) (LIST 1.9111629 1.2796058) (LIST 1.3936814 1.5970012) (LIST 1.8582578 1.8831753) (LIST 1.1613294 1.2181556) (LIST 1.3991665 1.5007092) (LIST 1.481541 1.30148) (LIST 1.3706863 1.9664781) (LIST 1.0867583 1.9503183) (LIST 1.2798631 1.0730697) (LIST 1.6035165 1.2131986) (LIST 1.773878 1.9826402) (LIST 1.7387328 1.2613329) (LIST 1.8884915 1.5093867) (LIST 1.6142844 1.0063187) (LIST 1.8611944 1.424799) (LIST 1.8288264 1.1755655) (LIST 1.6790319 1.2673225) (LIST 1.8605342 1.6281518) (LIST 1.5205305 1.6075224) (LIST 1.4890509 1.2947666))) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "l1?" :VALUE-STRING "0" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "l2?" :CURVAL (LIST 1 1) :VALUE-STRING "(1 1)")) :X 1.6839999999999998D0 :Y 1.4520000000000004D0 :W 0.38399998092651355D0 :H 0.1 :BOX-STRING "g+" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2) :ORIG-GROUPING-LIST (LIST 2) :BORDER 0.012) :PW-FUNCTION (QUOTE G+) :OPEN-STATE-W 0.38399998092651355D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.2394307 :G 0.8235294 :B 0.21243963 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "classes" :CURVAL 2 :VALUE-STRING "2") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :MINVAL 0 :MAXVAL 0 :MENU-LIST (LIST (LIST "centroids" :CENTROIDS)) :MENU-LIST-STRING (LIST "centroids" :CENTROIDS))) :X 1.608D0 :Y 0.6039999999999997D0 :W 0.4599999809265136D0 :H 0.16 :BOX-STRING "class-num" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 2 1) :ORIG-GROUPING-LIST (LIST 2 1) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 7 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-NUM) :OPEN-STATE-W 0.4599999809265136D0 :OPEN-STATE-H 0.16) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-NUMBOX-SUBVIEW) :BOX-STRING "num" :CURVAL 50 :VALUE-STRING "50")) :X 0.2679999999999998D0 :Y 1.512D0 :W 0.26 :H 0.1 :BOX-STRING "num-box" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE NUM-BOX)) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "matrix" :CURVAL (LIST (LIST 1 2)) :VALUE-STRING "((1 2))" :CONNECTION NIL)) :X 0.4520000000000004D0 :Y 0.7479995746612538D0 :W 0.26 :H 0.1 :BOX-STRING "mat-trans" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PATCH-WORK:MAT-TRANS)) (MAKE-INSTANCE (QUOTE 2D-EDITOR) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-2D-SUBBOX) :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-FUNCTION-EDITOR-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-2D-VIEW) :R 1.0 :G 1.0 :B 1.0 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE C-BREAK-POINT-FUNCTION) :POINTS (QUOTE ((0.8143141 0.64444387) (0.057923675 0.29356158) (0.3312286 0.08120835) (0.7961507 0.33368588) (0.78914536 0.50458) (0.40297818 0.16577971) (0.9437412 0.57465804) (0.25015128 0.90992857) (0.4780898 0.40448356) (0.5339298 0.5279236) (0.6422998 0.47277737) (0.18353081 0.093408704) (0.6595459 0.32465076) (0.30934978 0.9622967) (0.2707075 0.99460805) (0.7034153 0.60008204) (0.67534614 0.16469395) (0.045984388 0.3293785) (0.57933164 0.6013768) (0.7401105 0.8042761) (0.5382304 0.8105018) (0.77781284 0.706838) (0.86489296 0.13520706) (0.67727507 0.71649015) (0.8553722 0.32137895) (0.31514597 0.5410887) (0.7426281 0.3240714) (0.4143964 0.31979) (0.22261763 0.33954597) (0.66060734 0.66054) (0.39752746 0.07379639) (0.59342146 0.04281068) (0.21348 0.94359255) (0.6505792 0.439551) (0.38535833 0.5872036) (0.1945802 0.25985575) (0.855309 0.84306956) (0.18338871 0.2154057) (0.5076022 0.5078051) (0.9793359 0.5472686) (0.64889575 0.62290407) (0.9312477 0.39213574) (0.77721167 0.1935035) (0.7181568 0.3781742) (0.98957694 0.97995794) (0.01888287 0.98673535) (0.32731414 0.9988563) (0.79808617 0.6658108) (0.62088264 0.8902267) (0.08029866 0.6428095) (1.1850802 1.6958263) (1.4026408 1.9702749) (1.9380503 1.4723364) (1.1347641 1.1012831) (1.6078999 1.037947) (1.600792 1.3291229) (1.6405653 1.6794229) (1.384263 1.4011108) (1.5922778 1.8408969) (1.879291 1.5644752) (1.5408059 1.5198497) (1.0281681 1.772284) (1.8904067 1.6624968) (1.8255839 1.7811201) (1.6557254 1.3501698) (1.6088855 1.115705) (1.0172832 1.1480609) (1.9780189 1.2634696) (1.6106708 1.7763988) (1.1783227 1.7857815) (1.5590539 1.2574655) (1.5540524 1.5207639) (1.5387325 1.0149034) (1.0995984 1.889263) (1.460583 1.491395) (1.4020027 1.5459521) (1.4304684 1.251695) (1.3007854 1.7131097) (1.5507017 1.9482938) (1.2015199 1.0830072) (1.9111629 1.2796058) (1.3936814 1.5970012) (1.8582578 1.8831753) (1.1613294 1.2181556) (1.3991665 1.5007092) (1.481541 1.30148) (1.3706863 1.9664781) (1.0867583 1.9503183) (1.2798631 1.0730697) (1.6035165 1.2131986) (1.773878 1.9826402) (1.7387328 1.2613329) (1.8884915 1.5093867) (1.6142844 1.0063187) (1.8611944 1.424799) (1.8288264 1.1755655) (1.6790319 1.2673225) (1.8605342 1.6281518) (1.5205305 1.6075224) (1.4890509 1.2947666))) :ASCENDING-XS? NIL)) :Y 1.0 :W 1.0 :H 1.0 :GLORTHOX1 -0.03989121 :GLORTHOX2 2.036793 :GLORTHOY1 -0.015384205 :GLORTHOY2 2.0408352 :SHOW-GRID NIL)) :X 642 :Y 280 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 642 :Y 280 :WIDTH 350 :HEIGHT 350))) WIN) :CONNECTION NIL)) :X 1.0039999999999996D0 :Y 0.6079995746612554D0 :W 0.5 :H 0.5 :BOX-STRING "2D-Editor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "objects") (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "active")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE 2D-EDITOR)) (MAKE-INSTANCE (QUOTE PWGL-2D-CONSTRUCTOR-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "selector" :PWGL-ACTION-FUNCTION (QUOTE 2D-CONSTRUCTOR-FUNCTION) :MINVAL 0 :MAXVAL 5 :MENU-LIST :2D-CONSTRUCTOR-CLASSES :MENU-LIST-STRING ":bpf") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "xs/l" :CURVAL (LIST (LIST 0 1 2) (LIST 0 1 0)) :VALUE-STRING "((0 1 2) (0 1 0))" :CONNECTION NIL)) :X 0.48399999999999954D0 :Y 0.5159995746612554D0 :W 0.45 :H 0.166 :BOX-STRING "2d-bpf-constructor" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1) :ORIG-GROUPING-LIST (LIST 1 1) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 5 :BORDER 0.012) :PW-FUNCTION (QUOTE 2D-BPF-CONSTRUCTOR))) :X 5 :Y 5 :TRANSLY -0.003999498605728148D0 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 9 :OUT-BOX 0 :PWBOX2 11 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 11 :OUT-BOX 0 :PWBOX2 10 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 9 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 8 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 8 :OUT-BOX 0 :PWBOX2 0 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :OUT-BOX 0 :PWBOX2 7 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 6 :OUT-BOX 0 :PWBOX2 4 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 3 :OUT-BOX 0 :PWBOX2 6 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 4 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 0 :OUT-BOX 0 :PWBOX2 5 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 1 :OUT-BOX 0 :PWBOX2 0 :INPUT-BOX 1 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2)) (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 2 :OUT-BOX 0 :PWBOX2 1 :INPUT-BOX 0 :DRAW-MODE :5POINT :BEZIER-SELECTOR1 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 1) :BEZIER-SELECTOR2 (MAKE-INSTANCE (QUOTE PWGL-BEZIER-SELECTOR) :POINT-NUM 2))) :WINDOW-DOCUMENTATION "CLASS-NUM

classification d'un ensemble de données numériques, i.e. représentées dans un espace dont chacune des dimensions est numériquement ordonnée, tel qu'un espace euclidien.
Si les données constituent un espace à une dimension, celles-ci sont représentées par autant de nombres entiers ou réels.
Si les données constituent un espace à N dimensions, elles sont représentées chacune par une liste décrivant leur position dans chaque dimension, respectivement.

Dans CLASS-NUM, le nombre de classes recherchées doit être spécifié, ainsi que l'algorithme de classification (<centroids>, par défaut).
L'output de CLASS-NUM fourni, dans une liste : la classe d'appartance de chacun des points de <data>, le centre de gravité de chacune des classes (respectivement), et enfin le nombre d'itérations nécessaires à la convergence de l'algorithme de classificiation.

Dans cet exemple, 50 points aléatoires sont générés dans la zone comprise entre coordonées [0, 0] et [1, 1], à la suite desquels 50 autres points dans la zone comprise entre les coordonées  [1, 1] et (2, 2), formant ainsi deux ensembles de points distincts.
" :X 0 :Y 22 :WIDTH 730 :HEIGHT 530))) (WINDOW-SELECT WIN) WIN)