(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 FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.31986976 :G 0.6696832 :B 0.4021843 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "mark" :CURVAL NIL :VALUE-STRING "nil")) :X 1.1040000014901162D0 :Y 1.7319994201660159D0 :W 0.52 :H 0.099999994 :BOX-STRING "mark-list" :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) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 6 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:MARK-LIST)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.31986976 :G 0.6696832 :B 0.4021843 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "out" :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST ":struct" :STRUCT) (LIST ":pos" :POS) (LIST ":raw" :RAW)) :MENU-LIST-STRING (LIST ":struct" :STRUCT))) :X 1.1040000014901162D0 :Y 1.471999677658082D0 :W 0.52 :H 0.1 :BOX-STRING "mark-structure" :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) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 8 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:MARK-STRUCTURE)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.30790746 :G 0.760181 :B 0.24519788 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "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" :CENTRIODS)) :MENU-LIST-STRING (LIST "centroids" :CENTRIODS))) :X 0.19999999999999885D0 :Y 0.7839996776580813D0 :W 0.52 :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)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.30790746 :G 0.760181 :B 0.24519788 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "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 1 :MENU-LIST (LIST (LIST "edit-nn" :EDIT-NN) (LIST "edit-norm" :EDIT-NORM)) :MENU-LIST-STRING (LIST "edit-nn" :EDIT-NN))) :X 0.19999999999999885D0 :Y 0.519999677658082D0 :W 0.52 :H 0.16 :BOX-STRING "class-sym" :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 9 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:CLASS-SYM)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.2693082 :G 0.61085976 :B 0.31239253 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "out" :MINVAL 0 :MAXVAL 1 :MENU-LIST (LIST (LIST ":length" :LENGTH) (LIST ":freq" :FREQ)) :MENU-LIST-STRING (LIST ":length" :LENGTH))) :X 2.1280000029802318D0 :Y 1.7319994201660159D0 :W 0.52 :H 0.1 :BOX-STRING "motif-list" :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) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 16 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:MOTIF-LIST)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.2693082 :G 0.61085976 :B 0.31239253 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "mot" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil")) :X 2.1280000029802318D0 :Y 1.471999677658082D0 :W 0.52 :H 0.1 :BOX-STRING "motif-find" :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) :EXTENSION-PATTERN (LIST 2) :EXTENSION-LIMIT 14 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:MOTIF-FIND)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.2693082 :G 0.61085976 :B 0.31239253 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil")) :X 2.1280000029802318D0 :Y 1.2359996776580818D0 :W 0.26 :H 0.1 :BOX-STRING "motif-structure" :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 FV-MORPHOLOGIE:MOTIF-STRUCTURE)) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "Intensites
" :XSCALE-FC 1.2597001 :YSCALE-FC 1.2597001)) :X 0.20399999999999974D0 :Y 1.9519994201660156D0 :W 0.38400001192092903D0 :H 0.11200000149011658D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 0.38400001192092903D0 :OPEN-STATE-H 0.11200000149011658D0) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "Classification
" :XSCALE-FC 1.2597001 :YSCALE-FC 1.2597001)) :X 0.19999999999999885D0 :Y 0.9839994201660156D0 :W 0.5600000119209292D0 :H 0.11200000149011658D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 0.5600000119209292D0 :OPEN-STATE-H 0.11200000149011658D0) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING " Marques
" :XSCALE-FC 1.2597001 :YSCALE-FC 1.2597001)) :X 1.1040000014901162D0 :Y 1.9519994201660156D0 :W 0.39200001192092904D0 :H 0.12000000149011703D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 0.39200001192092904D0 :OPEN-STATE-H 0.12000000149011703D0) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX-SUBVIEW) :R 1.0 :G 1.0 :B 1.0 :BOX-STRING "auto-evaluate" :APPLICATION-WINDOW (MAKE-INSTANCE (QUOTE PWGL-FRED-WINDOW) :TITLE "Text-Editor" :X 100 :Y 100 :WIDTH 500 :HEIGHT 600) :VALUE-STRING "Motifs
" :XSCALE-FC 1.2597001 :YSCALE-FC 1.2597001)) :X 2.1280000029802318D0 :Y 1.9519994201660156D0 :W 0.352000011920929D0 :H 0.11200000149011658D0 :BOX-STRING "1" :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.0084) :PW-FUNCTION (QUOTE PWGL-COMMENT-BOX) :OPEN-STATE-W 0.352000011920929D0 :OPEN-STATE-H 0.11200000149011658D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.027270887 :G 0.6081 :B 0.07397425 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :MINVAL 0 :MAXVAL 3 :MENU-LIST (LIST (LIST ":minflexmax" :MINFLEXMAX) (LIST ":minmax" :MINMAX) (LIST ":important-extrema" :IMPORTANT-EXTREMA) (LIST ":mdpp" :MDPP)) :MENU-LIST-STRING (LIST ":minflexmax" :MINFLEXMAX)) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "thres" :VALUE-STRING "0.0")) :X 0.20399999999999974D0 :Y 1.7319994201660159D0 :W 0.52 :H 0.16 :BOX-STRING "int-signature" :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 1) :EXTENSION-LIMIT 4 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:INT-SIGNATURE)) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :R 0.04364201 :G 0.71945704 :B 0.09603257 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "seq" :CURVAL NIL :VALUE-STRING "nil") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "test" :CURVAL (QUOTE EQUALP) :VALUE-STRING "equalp")) :X 2.1280000029802318D0 :Y 0.9959994201660156D0 :W 0.52 :H 0.1 :BOX-STRING "motif-group" :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) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:MOTIF-GROUP))) :X 5 :Y 5 :TRANSLY -0.007999531507492133D0 :WINDOW-DOCUMENTATION "Menu \"Différentiation\"

Ce menu regroupe les fonctions permettant de différencier les éléments ou les motifs d'une séquence selon différents critères ou procédés, soit :

- la segmentation, selon :
  - les variations d'intensité (int-*)
  - la répétition de marques (mark-*)
  - la répétition de motifs (motif-*)

- la classification des \"objets\" (musicaux) représenté dans un espace qui les représente, de dimensionalité arbitraire, normé, euclidien ou symbolique (class-).

- la reconcaténation de segments prédéfinis ou obtenus par segmentation ou classification (conc-).


" :X 88 :Y 51 :WIDTH 730 :HEIGHT 530))) (WINDOW-SELECT WIN) WIN)