(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) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 2 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "cond-sh" 2))) :X 0.43600000000000083D0 :Y 1.5439999985098832D0 :W 0.3159999904632569D0 :H 0.17359999 :BOX-STRING "entropy" :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) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.3159999904632569D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-BOX) :R 0.65 :G 0.65 :B 0.65 :X 0.1560000029802322D0 :Y 1.892D0 :W 0.26 :H 0.07700000037252952D0 :BOX-STRING "random-then-repeat-12345" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION) :PW-LOCK T :BOX-BUFFER (EVAL-LIST (QUOTE (1 4 1 1 4 4 3 4 4 2 4 5 4 3 1 5 3 5 1 4 4 1 3 2 2 3 3 1 4 1 4 2 4 5 4 3 3 4 1 2 1 4 4 1 2 1 1 5 1 3 5 5 1 1 2 1 4 4 5 5 5 3 5 2 2 3 4 4 5 4 2 5 2 2 2 5 3 2 1 1 1 5 3 5 1 5 4 5 5 5 5 3 4 2 4 5 5 2 5 2 2 4 5 2 3 2 4 1 1 3 3 3 3 4 1 1 5 4 5 1 4 3 1 5 5 3 3 4 3 2 2 2 3 2 2 2 1 5 5 4 2 3 5 2 1 2 2 5 1 1 3 3 5 3 3 1 1 2 3 1 2 5 4 3 5 1 4 4 2 1 4 4 4 2 1 2 3 1 4 3 4 1 2 2 1 4 5 5 1 4 3 5 5 1 4 1 1 2 1 3 2 3 2 3 2 4 1 2 5 4 5 2 1 2 5 3 4 1 4 5 4 4 3 1 5 5 1 3 3 1 3 4 1 1 5 5 3 1 3 1 4 3 5 2 5 2 5 5 2 1 2 3 1 5 5 2 2 2 1 5 1 4 5 1 1 1 1 1 5 2 2 1 4 5 1 3 2 5 1 5 1 2 2 5 5 3 1 1 4 5 3 5 3 2 4 1 4 1 2 2 3 4 5 1 2 4 5 4 1 2 1 4 4 1 4 5 5 3 1 4 1 2 5 4 5 5 4 1 3 2 4 4 1 4 4 4 2 2 4 1 3 5 1 4 3 3 5 5 2 3 3 2 2 4 1 4 2 4 5 4 1 1 5 3 4 4 2 3 1 4 3 4 2 5 1 2 3 3 2 1 1 4 5 1 4 2 2 2 2 5 3 1 1 2 5 1 5 4 4 5 1 5 1 3 1 1 1 2 1 4 3 4 3 5 1 1 1 1 4 3 4 5 4 4 1 4 4 5 1 2 4 3 4 2 4 1 4 5 4 1 2 4 3 2 1 4 4 2 2 3 4 3 5 2 3 3 2 1 1 3 5 4 1 5 5 1 4 5 3 3 1 2 1 5 5 3 5 5 3 4 3 4 2 1 1 3 3 5 3 3 2 1 1 1 3 3 2 1 3 3 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4 0 1 2 3 4))) :OPEN-STATE-W 0.26 :OPEN-STATE-H 0.07700000037252952D0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "low" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "high" :CURVAL 5 :VALUE-STRING "5")) :X 0.404000004470348D0 :Y 1.1959999970197677D0 :W 0.2839999809265139D0 :H 0.1 :BOX-STRING "g-random" :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-RANDOM) :OPEN-STATE-W 0.2839999809265139D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 500 :VALUE-STRING "500") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.1680000044703478D0 :Y 0.9919999970197679D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 50 :VALUE-STRING "50") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.7320000059604639D0 :Y 0.9839999955296519D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 0 1 2 3 4) :VALUE-STRING "(0 1 2 3 4)")) :X 0.96D0 :Y 1.2000000000000002D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1) (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.3600000000000003D0 :Y 0.7399999999999998D0 :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) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst" :CURVAL (LIST (LIST 0) (LIST 1)) :VALUE-STRING "((0) (1))" :CONNECTION NIL)) :X 0.9159999999999999D0 :Y 0.4279999999999995D0 :W 0.26 :H 0.1 :BOX-STRING "flat" :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:FLAT)) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-OUTPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-INPUT-BOX) :R 0.9 :G 0.9 :B 0.9 :BOX-STRING "out" :CONNECTION NIL)) :X 1.0879999999999997D0 :Y 0.14000000000000013D0 :W 0.1 :H 0.02 :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "1")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-OUTPUT))) :X 150 :Y 150 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :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 0 :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 3 :OUT-BOX 0 :PWBOX2 2 :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 1 :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 2 :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 4 :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))) :TITLE "random-then-repeat-12345" :X 150 :Y 150 :WIDTH 350 :HEIGHT 350))) WIN) :BOX-DOCUMENTATION "") (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 1) (1 4) (2 1) (3 1) (4 4) (5 4) (6 3) (7 4) (8 4) (9 2) (10 4) (11 5) (12 4) (13 3) (14 1) (15 5) (16 3) (17 5) (18 1) (19 4) (20 4) (21 1) (22 3) (23 2) (24 2) (25 3) (26 3) (27 1) (28 4) (29 1) (30 4) (31 2) (32 4) (33 5) (34 4) (35 3) (36 3) (37 4) (38 1) (39 2) (40 1) (41 4) (42 4) (43 1) (44 2) (45 1) (46 1) (47 5) (48 1) (49 3) (50 5) (51 5) (52 1) (53 1) (54 2) (55 1) (56 4) (57 4) (58 5) (59 5) (60 5) (61 3) (62 5) (63 2) (64 2) (65 3) (66 4) (67 4) (68 5) (69 4) (70 2) (71 5) (72 2) (73 2) (74 2) (75 5) (76 3) (77 2) (78 1) (79 1) (80 1) (81 5) (82 3) (83 5) (84 1) (85 5) (86 4) (87 5) (88 5) (89 5) (90 5) (91 3) (92 4) (93 2) (94 4) (95 5) (96 5) (97 2) (98 5) (99 2) (100 2) (101 4) (102 5) (103 2) (104 3) (105 2) (106 4) (107 1) (108 1) (109 3) (110 3) (111 3) (112 3) (113 4) (114 1) (115 1) (116 5) (117 4) (118 5) (119 1) (120 4) (121 3) (122 1) (123 5) (124 5) (125 3) (126 3) (127 4) (128 3) (129 2) (130 2) (131 2) (132 3) (133 2) (134 2) (135 2) (136 1) (137 5) (138 5) (139 4) (140 2) (141 3) (142 5) (143 2) (144 1) (145 2) (146 2) (147 5) (148 1) (149 1) (150 3) (151 3) (152 5) (153 3) (154 3) (155 1) (156 1) (157 2) (158 3) (159 1) (160 2) (161 5) (162 4) (163 3) (164 5) (165 1) (166 4) (167 4) (168 2) (169 1) (170 4) (171 4) (172 4) (173 2) (174 1) (175 2) (176 3) (177 1) (178 4) (179 3) (180 4) (181 1) (182 2) (183 2) (184 1) (185 4) (186 5) (187 5) (188 1) (189 4) (190 3) (191 5) (192 5) (193 1) (194 4) (195 1) (196 1) (197 2) (198 1) (199 3) (200 2) (201 3) (202 2) (203 3) (204 2) (205 4) (206 1) (207 2) (208 5) (209 4) (210 5) (211 2) (212 1) (213 2) (214 5) (215 3) (216 4) (217 1) (218 4) (219 5) (220 4) (221 4) (222 3) (223 1) (224 5) (225 5) (226 1) (227 3) (228 3) (229 1) (230 3) (231 4) (232 1) (233 1) (234 5) (235 5) (236 3) (237 1) (238 3) (239 1) (240 4) (241 3) (242 5) (243 2) (244 5) (245 2) (246 5) (247 5) (248 2) (249 1) (250 2) (251 3) (252 1) (253 5) (254 5) (255 2) (256 2) (257 2) (258 1) (259 5) (260 1) (261 4) (262 5) (263 1) (264 1) (265 1) (266 1) (267 1) (268 5) (269 2) (270 2) (271 1) (272 4) (273 5) (274 1) (275 3) (276 2) (277 5) (278 1) (279 5) (280 1) (281 2) (282 2) (283 5) (284 5) (285 3) (286 1) (287 1) (288 4) (289 5) (290 3) (291 5) (292 3) (293 2) (294 4) (295 1) (296 4) (297 1) (298 2) (299 2) (300 3) (301 4) (302 5) (303 1) (304 2) (305 4) (306 5) (307 4) (308 1) (309 2) (310 1) (311 4) (312 4) (313 1) (314 4) (315 5) (316 5) (317 3) (318 1) (319 4) (320 1) (321 2) (322 5) (323 4) (324 5) (325 5) (326 4) (327 1) (328 3) (329 2) (330 4) (331 4) (332 1) (333 4) (334 4) (335 4) (336 2) (337 2) (338 4) (339 1) (340 3) (341 5) (342 1) (343 4) (344 3) (345 3) (346 5) (347 5) (348 2) (349 3) (350 3) (351 2) (352 2) (353 4) (354 1) (355 4) (356 2) (357 4) (358 5) (359 4) (360 1) (361 1) (362 5) (363 3) (364 4) (365 4) (366 2) (367 3) (368 1) (369 4) (370 3) (371 4) (372 2) (373 5) (374 1) (375 2) (376 3) (377 3) (378 2) (379 1) (380 1) (381 4) (382 5) (383 1) (384 4) (385 2) (386 2) (387 2) (388 2) (389 5) (390 3) (391 1) (392 1) (393 2) (394 5) (395 1) (396 5) (397 4) (398 4) (399 5) (400 1) (401 5) (402 1) (403 3) (404 1) (405 1) (406 1) (407 2) (408 1) (409 4) (410 3) (411 4) (412 3) (413 5) (414 1) (415 1) (416 1) (417 1) (418 4) (419 3) (420 4) (421 5) (422 4) (423 4) (424 1) (425 4) (426 4) (427 5) (428 1) (429 2) (430 4) (431 3) (432 4) (433 2) (434 4) (435 1) (436 4) (437 5) (438 4) (439 1) (440 2) (441 4) (442 3) (443 2) (444 1) (445 4) (446 4) (447 2) (448 2) (449 3) (450 4) (451 3) (452 5) (453 2) (454 3) (455 3) (456 2) (457 1) (458 1) (459 3) (460 5) (461 4) (462 1) (463 5) (464 5) (465 1) (466 4) (467 5) (468 3) (469 3) (470 1) (471 2) (472 1) (473 5) (474 5) (475 3) (476 5) (477 5) (478 3) (479 4) (480 3) (481 4) (482 2) (483 1) (484 1) (485 3) (486 3) (487 5) (488 3) (489 3) (490 2) (491 1) (492 1) (493 1) (494 3) (495 3) (496 2) (497 1) (498 3) (499 3) (500 0) (501 1) (502 2) (503 3) (504 4) (505 0) (506 1) (507 2) (508 3) (509 4) (510 0) (511 1) (512 2) (513 3) (514 4) (515 0) (516 1) (517 2) (518 3) (519 4) (520 0) (521 1) (522 2) (523 3) (524 4) (525 0) (526 1) (527 2) (528 3) (529 4) (530 0) (531 1) (532 2) (533 3) (534 4) (535 0) (536 1) (537 2) (538 3) (539 4) (540 0) (541 1) (542 2) (543 3) (544 4) (545 0) (546 1) (547 2) (548 3) (549 4) (550 0) (551 1) (552 2) (553 3) (554 4) (555 0) (556 1) (557 2) (558 3) (559 4) (560 0) (561 1) (562 2) (563 3) (564 4) (565 0) (566 1) (567 2) (568 3) (569 4) (570 0) (571 1) (572 2) (573 3) (574 4) (575 0) (576 1) (577 2) (578 3) (579 4) (580 0) (581 1) (582 2) (583 3) (584 4) (585 0) (586 1) (587 2) (588 3) (589 4) (590 0) (591 1) (592 2) (593 3) (594 4) (595 0) (596 1) (597 2) (598 3) (599 4) (600 0) (601 1) (602 2) (603 3) (604 4) (605 0) (606 1) (607 2) (608 3) (609 4) (610 0) (611 1) (612 2) (613 3) (614 4) (615 0) (616 1) (617 2) (618 3) (619 4) (620 0) (621 1) (622 2) (623 3) (624 4) (625 0) (626 1) (627 2) (628 3) (629 4) (630 0) (631 1) (632 2) (633 3) (634 4) (635 0) (636 1) (637 2) (638 3) (639 4) (640 0) (641 1) (642 2) (643 3) (644 4) (645 0) (646 1) (647 2) (648 3) (649 4) (650 0) (651 1) (652 2) (653 3) (654 4) (655 0) (656 1) (657 2) (658 3) (659 4) (660 0) (661 1) (662 2) (663 3) (664 4) (665 0) (666 1) (667 2) (668 3) (669 4) (670 0) (671 1) (672 2) (673 3) (674 4) (675 0) (676 1) (677 2) (678 3) (679 4) (680 0) (681 1) (682 2) (683 3) (684 4) (685 0) (686 1) (687 2) (688 3) (689 4) (690 0) (691 1) (692 2) (693 3) (694 4) (695 0) (696 1) (697 2) (698 3) (699 4) (700 0) (701 1) (702 2) (703 3) (704 4) (705 0) (706 1) (707 2) (708 3) (709 4) (710 0) (711 1) (712 2) (713 3) (714 4) (715 0) (716 1) (717 2) (718 3) (719 4) (720 0) (721 1) (722 2) (723 3) (724 4) (725 0) (726 1) (727 2) (728 3) (729 4) (730 0) (731 1) (732 2) (733 3) (734 4) (735 0) (736 1) (737 2) (738 3) (739 4) (740 0) (741 1) (742 2) (743 3) (744 4) (745 0) (746 1) (747 2) (748 3) (749 4))))) :Y 1.0 :W 1.0 :H 1.0 :DRAW-TILED-MODE? T :GLORTHOX1 -22.47 :GLORTHOX2 771.47 :GLORTHOY1 -0.14999999 :GLORTHOY2 5.15)) :X 166 :Y 230 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 166 :Y 230 :WIDTH 1361 :HEIGHT 368))) WIN) :CONNECTION NIL :XSCALE-FC 0.9787034 :YSCALE-FC 0.9787034)) :X 1.3040000029802324D0 :Y 1.7559999985098842D0 :W 1.444D0 :H 0.1639999999999997D0 :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) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.6679999999999997D0 :OPEN-STATE-H 0.1639999999999997D0) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-BOX) :R 0.65 :G 0.65 :B 0.65 :X 0.8800000029802315D0 :Y 1.8919999985098844D0 :W 0.26 :H 0.07700000037252952D0 :BOX-STRING "random-then-repeat-2" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION) :OPEN-STATE-W 0.26 :OPEN-STATE-H 0.07700000037252952D0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "low" :CURVAL 1 :VALUE-STRING "1") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "high" :CURVAL 5 :VALUE-STRING "5")) :X 0.404000004470348D0 :Y 1.1959999970197677D0 :W 0.2839999809265139D0 :H 0.1 :BOX-STRING "g-random" :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-RANDOM) :OPEN-STATE-W 0.2839999809265139D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 500 :VALUE-STRING "500") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.1680000044703478D0 :Y 0.9919999970197679D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 250 :VALUE-STRING "250") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.7320000059604639D0 :Y 0.9839999955296519D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL 3 :VALUE-STRING "3")) :X 0.96D0 :Y 1.2000000000000002D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1) (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.3600000000000003D0 :Y 0.7399999999999998D0 :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) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst" :CURVAL (LIST (LIST 0) (LIST 1)) :VALUE-STRING "((0) (1))" :CONNECTION NIL)) :X 0.9159999999999999D0 :Y 0.4279999999999995D0 :W 0.26 :H 0.1 :BOX-STRING "flat" :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:FLAT)) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-OUTPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-INPUT-BOX) :R 0.9 :G 0.9 :B 0.9 :BOX-STRING "out" :CONNECTION NIL)) :X 1.0879999999999997D0 :Y 0.14000000000000013D0 :W 0.1 :H 0.02 :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "1")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-OUTPUT))) :X 150 :Y 150 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 5 :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 0 :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 3 :OUT-BOX 0 :PWBOX2 2 :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 1 :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 2 :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 4 :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))) :TITLE "random-then-repeat-2" :X 150 :Y 150 :WIDTH 350 :HEIGHT 350))) WIN) :BOX-DOCUMENTATION "") (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 0.86702425) (1 0.8635054) (2 0.8526682) (3 0.86702425) (4 0.8383124) (5 0.81853796) (6 0.8418312) (7 0.843731) (8 0.8519515) (9 0.8526683) (10 0.7987635) (11 0.7700517) (12 0.8274753) (13 0.86702425) (14 0.8580869) (15 0.83289385) (16 0.7747535) (17 0.7316858) (18 0.8328938) (19 0.80960066) (20 0.78982616) (21 0.83831245) (22 0.8274753) (23 0.9155104) (24 0.8472497) (25 0.8437309) (26 0.7611144) (27 0.76653296) (28 0.7933449) (29 0.90657306) (30 0.8759616) (31 0.80418206) (32 0.69169474) (33 0.6306631) (34 0.49277356) (35 0.49277356) (36 0.49277356) (37 0.49277356) (38 0.49277356) (39 0.49277356) (40 0.49277356) (41 0.49277356) (42 0.49277356) (43 0.49277356) (44 0.49277356) (45 0.49277356) (46 0.49277356) (47 0.49277356) (48 0.49277356) (49 0.48346198))))) :Y 1.0 :W 1.0 :H 1.0 :GLORTHOX1 -1.4699999 :GLORTHOX2 50.47 :GLORTHOY1 -0.016716797795320704D0 :GLORTHOY2 1.0558885140752543D0)) :X 166 :Y 230 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 166 :Y 551 :WIDTH 1359 :HEIGHT 339))) WIN) :CONNECTION NIL :XSCALE-FC 1.011717 :YSCALE-FC 1.011717)) :X 1.3040000029802324D0 :Y 1.5439999985098832D0 :W 1.444D0 :H 0.32399999999999985D0 :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) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.444D0 :OPEN-STATE-H 0.32399999999999985D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 1 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "shannon-n" 1))) :X 0.06400000298023212D0 :Y 1.5439999985098832D0 :W 0.3119999904632569D0 :H 0.17359999 :BOX-STRING "entropy" :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) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.3119999904632569D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 2 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "cond-sh" 2)) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "samples" :CURVAL 50 :VALUE-STRING "50")) :X 0.8559999999999999D0 :Y 1.5439999985098832D0 :W 0.38399999046325695D0 :H 0.24719998 :BOX-STRING "entropy" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.38399999046325695D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 2) (MAKE-INSTANCE (QUOTE PWGL-INPUT-SELECTOR) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-INPUT-SELECTOR-SUBVIEW) :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-INPUT-SELECTOR-SUBVIEW) :CONNECTION NIL)) :X 0.532D0 :Y 1.7360000000000002D0 :W 0.2 :H 0.07 :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) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-SWITCH)) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.07446577713576064D0 :Y 1.3439999985098843D0 :W 0.3 :H 0.1 :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) :USER-STRING "1" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.4424657771357605D0 :Y 1.3399999985098839D0 :W 0.3 :H 0.1 :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) :USER-STRING "2" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.8864657771357591D0 :Y 1.2639999955296526D0 :W 0.3 :H 0.1 :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) :USER-STRING "3" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (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 0.78729117) (1 0.78729117) (2 0.78729117) (3 0.78729117) (4 0.78729117) (5 0.78729117) (6 0.78729117) (7 0.54676217) (8 0.5234473) (9 0.48965198) (10 0.48965198) (11 0.48965198) (12 0.48965198) (13 0.48965198) (14 0.48965198) (15 0.48965198) (16 0.48965198) (17 0.48965198) (18 0.48965198) (19 0.48965198) (20 0.48965198) (21 0.5431074) (22 0.5251674) (23 0.53356177) (24 0.5251674) (25 0.5335618) (26 0.53356177) (27 0.53356177) (28 0.5335618) (29 0.5251674) (30 0.53356177) (31 0.5251674) (32 0.5335618) (33 0.6038723) (34 0.6741829) (35 0.6846634) (36 0.6846634) (37 0.6846634) (38 0.6846634) (39 0.6846634) (40 0.6846634) (41 0.6846634) (42 0.6846634) (43 0.6846634) (44 0.6846634) (45 0.6846634) (46 0.65542484) (47 0.55353255) (48 0.6131762) (49 0.66246367) (50 0.66861356) (51 0.6799583))))) :Y 1.0 :W 1.0 :H 1.0 :GLORTHOX1 -1.53 :GLORTHOX2 52.53 :GLORTHOY1 -0.035383160098522826D0 :GLORTHOY2 1.041142524204916D0)) :X 166 :Y 230 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 166 :Y 230 :WIDTH 965 :HEIGHT 367))) WIN) :CONNECTION NIL :XSCALE-FC 1.011717 :YSCALE-FC 1.011717)) :X 1.3040000029802324D0 :Y 0.803999997019766D0 :W 1.444D0 :H 0.32399999999999985D0 :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) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.444D0 :OPEN-STATE-H 0.32399999999999985D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 2 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "cond-sh" 2)) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "samples" :CURVAL 50 :VALUE-STRING "50")) :X 0.8599999999999999D0 :Y 0.807999997019766D0 :W 0.38399999046325695D0 :H 0.24719998 :BOX-STRING "entropy" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.38399999046325695D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 2) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 1.086465778625875D0 :Y 0.5239999940395355D0 :W 0.3 :H 0.1 :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) :USER-STRING "6" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-BOX) :R 0.65 :G 0.65 :B 0.65 :X 0.1200000044703482D0 :Y 1.0719999985098832D0 :W 0.26 :H 0.07700000037252952D0 :BOX-STRING "5-different-motifs" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION) :PW-LOCK T :BOX-BUFFER (EVAL-LIST (QUOTE (1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 3 3 4 5 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 2 3 4 3 2 1 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 1 2 1 2 3 1 1 2 1 1 2 1 2 3 1 1 2 1 1 2 1 1 2 1 2 3 1 1 2 1 1 2 1 2 3 1 1 2))) :OPEN-STATE-W 0.26 :OPEN-STATE-H 0.07700000037252952D0 :APPLICATION-WINDOW (LET ((WIN (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-WINDOW) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 30 :VALUE-STRING "30") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.1680000044703478D0 :Y 0.9919999970197679D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 20 :VALUE-STRING "20") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 1.392000005960464D0 :Y 0.9119999955296514D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 2 3 3 3 4 5) :VALUE-STRING "(1 2 3 3 3 4 5)")) :X 1.62D0 :Y 1.1279999999999997D0 :W 0.3639999904632574D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.3639999904632574D0 :OPEN-STATE-H 0.1) (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) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst?" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst?" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst?" :CURVAL (LIST 0 1) :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 0.3600000000000003D0 :Y 0.7399999999999998D0 :W 0.26 :H 0.3604 :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 1 1 1) :ORIG-GROUPING-LIST (LIST 1 1) :EXTENSION-PATTERN (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PATCH-WORK:X-APPEND) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS :CURRENT-EXTENSION-PATTERN-INDEX* 3) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "lst" :CURVAL (LIST (LIST 0) (LIST 1)) :VALUE-STRING "((0) (1))" :CONNECTION NIL)) :X 0.508D0 :Y 0.27999999999999936D0 :W 0.26 :H 0.1 :BOX-STRING "flat" :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:FLAT)) (MAKE-INSTANCE (QUOTE PWGL-ABSTRACTION-OUTPUT-BOX) :R 0.7 :G 0.7 :B 0.7 :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-INPUT-BOX) :R 0.9 :G 0.9 :B 0.9 :BOX-STRING "out" :CONNECTION NIL)) :X 0.7599999999999998D0 :Y 0.03200000000000047D0 :W 0.1 :H 0.02 :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT) :BOX-STRING "1")) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1) :ORIG-GROUPING-LIST (LIST 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-ABSTRACTION-OUTPUT)) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 30 :VALUE-STRING "30") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 0.80000000745058D0 :Y 0.9799999940395354D0 :Z -0.1 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 2 3 4 5) :VALUE-STRING "(1 2 3 4 5)")) :X 1.028000001490116D0 :Y 1.1959999985098837D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 20 :VALUE-STRING "20") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 1.85600000745058D0 :Y 0.6679999940395351D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 2 3 4 3 2 1) :VALUE-STRING "(1 2 3 4 3 2 1)")) :X 2.084000001490116D0 :Y 0.8839999985098834D0 :W 0.4039999904632574D0 :H 0.1 :BOX-STRING "list" :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) :X-PROPORTIONS (LIST (LIST 1)) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.4039999904632574D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 1 2) :VALUE-STRING "(1 1 2)")) :X 0.4000000029802324D0 :Y 1.2199999970197673D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "sequence" :CURVAL "(0 1)" :VALUE-STRING "(0 1)" :CONNECTION NIL)) :X 0.26000000000000023D0 :Y 0.05600019836425796D0 :W 0.26 :H 0.1 :BOX-STRING "length" :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 LENGTH)) (MAKE-INSTANCE (QUOTE PW-REPEAT) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "count" :CURVAL 20 :VALUE-STRING "20") (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch" :VALUE-STRING "0" :CONNECTION NIL)) :X 2.536000008940696D0 :Y 0.6319999925494195D0 :W 0.3559999809265135D0 :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) :OPEN-STATE-W 0.3559999809265135D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "arg" :CURVAL 5 :VALUE-STRING "5")) :X 2.868D0 :Y 1.1679997920989989D0 :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 PW-IF) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "test" :CURVAL (QUOTE IDENTITY) :VALUE-STRING "identity" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch1" :VALUE-STRING "0" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "patch2" :CURVAL 1 :VALUE-STRING "1" :CONNECTION NIL)) :X 3.456D0 :Y 0.803999792098999D0 :Z -0.1 :W 0.26 :H 0.24 :BOX-STRING "pwgl-if" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1 1) :ORIG-GROUPING-LIST (LIST 1 1 1) :BORDER 0.012) :PW-FUNCTION (QUOTE PWGL-IF) :INPUT-DRAW-MODE :PW-DOUBLE-INPUTS) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-NUMBOX-SUBVIEW) :BOX-STRING "num" :VALUE-STRING "0" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "args" :VALUE-STRING "0")) :X 3.268D0 :Y 1.0959997920989988D0 :W 0.26 :H 0.17359999 :BOX-STRING "=" :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 =) :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 1 2) :VALUE-STRING "(1 1 2)")) :X 3.9480000044703494D0 :Y 0.6599999955296507D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1) (MAKE-INSTANCE (QUOTE PWGL-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "argument" :CURVAL (LIST 1 2 3) :VALUE-STRING "(1 2 3)")) :X 2.9880000059604655D0 :Y 0.8399999940395349D0 :W 0.2959999904632573D0 :H 0.1 :BOX-STRING "list" :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) :BORDER 0.012) :PW-FUNCTION (QUOTE LIST) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 0.2959999904632573D0 :OPEN-STATE-H 0.1)) :X 150 :Y 150 :TRANSLY 0.13200027132034303D0 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 17 :OUT-BOX 0 :PWBOX2 14 :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 16 :OUT-BOX 0 :PWBOX2 14 :INPUT-BOX 2 :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 14 :OUT-BOX 0 :PWBOX2 12 :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 15 :OUT-BOX 0 :PWBOX2 14 :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 13 :OUT-BOX 0 :PWBOX2 15 :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 12 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 4 :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 11 :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 10 :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 8 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 3 :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 9 :OUT-BOX 0 :PWBOX2 8 :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 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 7 :OUT-BOX 0 :PWBOX2 6 :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 1 :OUT-BOX 0 :PWBOX2 3 :INPUT-BOX 2 :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 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 0 :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 3 :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))) :TITLE "5-different-motifs" :X 105 :Y 425 :WIDTH 1123 :HEIGHT 383))) WIN) :BOX-DOCUMENTATION "") (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 1) (1 1) (2 2) (3 1) (4 1) (5 2) (6 1) (7 1) (8 2) (9 1) (10 1) (11 2) (12 1) (13 1) (14 2) (15 1) (16 1) (17 2) (18 1) (19 1) (20 2) (21 1) (22 1) (23 2) (24 1) (25 1) (26 2) (27 1) (28 1) (29 2) (30 1) (31 1) (32 2) (33 1) (34 1) (35 2) (36 1) (37 1) (38 2) (39 1) (40 1) (41 2) (42 1) (43 1) (44 2) (45 1) (46 1) (47 2) (48 1) (49 1) (50 2) (51 1) (52 1) (53 2) (54 1) (55 1) (56 2) (57 1) (58 1) (59 2) (60 1) (61 1) (62 2) (63 1) (64 1) (65 2) (66 1) (67 1) (68 2) (69 1) (70 1) (71 2) (72 1) (73 1) (74 2) (75 1) (76 1) (77 2) (78 1) (79 1) (80 2) (81 1) (82 1) (83 2) (84 1) (85 1) (86 2) (87 1) (88 1) (89 2) (90 1) (91 2) (92 3) (93 4) (94 5) (95 1) (96 2) (97 3) (98 4) (99 5) (100 1) (101 2) (102 3) (103 4) (104 5) (105 1) (106 2) (107 3) (108 4) (109 5) (110 1) (111 2) (112 3) (113 4) (114 5) (115 1) (116 2) (117 3) (118 4) (119 5) (120 1) (121 2) (122 3) (123 4) (124 5) (125 1) (126 2) (127 3) (128 4) (129 5) (130 1) (131 2) (132 3) (133 4) (134 5) (135 1) (136 2) (137 3) (138 4) (139 5) (140 1) (141 2) (142 3) (143 4) (144 5) (145 1) (146 2) (147 3) (148 4) (149 5) (150 1) (151 2) (152 3) (153 4) (154 5) (155 1) (156 2) (157 3) (158 4) (159 5) (160 1) (161 2) (162 3) (163 4) (164 5) (165 1) (166 2) (167 3) (168 4) (169 5) (170 1) (171 2) (172 3) (173 4) (174 5) (175 1) (176 2) (177 3) (178 4) (179 5) (180 1) (181 2) (182 3) (183 4) (184 5) (185 1) (186 2) (187 3) (188 4) (189 5) (190 1) (191 2) (192 3) (193 4) (194 5) (195 1) (196 2) (197 3) (198 4) (199 5) (200 1) (201 2) (202 3) (203 4) (204 5) (205 1) (206 2) (207 3) (208 4) (209 5) (210 1) (211 2) (212 3) (213 4) (214 5) (215 1) (216 2) (217 3) (218 4) (219 5) (220 1) (221 2) (222 3) (223 4) (224 5) (225 1) (226 2) (227 3) (228 4) (229 5) (230 1) (231 2) (232 3) (233 4) (234 5) (235 1) (236 2) (237 3) (238 4) (239 5) (240 1) (241 2) (242 3) (243 3) (244 3) (245 4) (246 5) (247 1) (248 2) (249 3) (250 3) (251 3) (252 4) (253 5) (254 1) (255 2) (256 3) (257 3) (258 3) (259 4) (260 5) (261 1) (262 2) (263 3) (264 3) (265 3) (266 4) (267 5) (268 1) (269 2) (270 3) (271 3) (272 3) (273 4) (274 5) (275 1) (276 2) (277 3) (278 3) (279 3) (280 4) (281 5) (282 1) (283 2) (284 3) (285 3) (286 3) (287 4) (288 5) (289 1) (290 2) (291 3) (292 3) (293 3) (294 4) (295 5) (296 1) (297 2) (298 3) (299 3) (300 3) (301 4) (302 5) (303 1) (304 2) (305 3) (306 3) (307 3) (308 4) (309 5) (310 1) (311 2) (312 3) (313 3) (314 3) (315 4) (316 5) (317 1) (318 2) (319 3) (320 3) (321 3) (322 4) (323 5) (324 1) (325 2) (326 3) (327 3) (328 3) (329 4) (330 5) (331 1) (332 2) (333 3) (334 3) (335 3) (336 4) (337 5) (338 1) (339 2) (340 3) (341 3) (342 3) (343 4) (344 5) (345 1) (346 2) (347 3) (348 3) (349 3) (350 4) (351 5) (352 1) (353 2) (354 3) (355 3) (356 3) (357 4) (358 5) (359 1) (360 2) (361 3) (362 3) (363 3) (364 4) (365 5) (366 1) (367 2) (368 3) (369 3) (370 3) (371 4) (372 5) (373 1) (374 2) (375 3) (376 3) (377 3) (378 4) (379 5) (380 1) (381 2) (382 3) (383 4) (384 3) (385 2) (386 1) (387 1) (388 2) (389 3) (390 4) (391 3) (392 2) (393 1) (394 1) (395 2) (396 3) (397 4) (398 3) (399 2) (400 1) (401 1) (402 2) (403 3) (404 4) (405 3) (406 2) (407 1) (408 1) (409 2) (410 3) (411 4) (412 3) (413 2) (414 1) (415 1) (416 2) (417 3) (418 4) (419 3) (420 2) (421 1) (422 1) (423 2) (424 3) (425 4) (426 3) (427 2) (428 1) (429 1) (430 2) (431 3) (432 4) (433 3) (434 2) (435 1) (436 1) (437 2) (438 3) (439 4) (440 3) (441 2) (442 1) (443 1) (444 2) (445 3) (446 4) (447 3) (448 2) (449 1) (450 1) (451 2) (452 3) (453 4) (454 3) (455 2) (456 1) (457 1) (458 2) (459 3) (460 4) (461 3) (462 2) (463 1) (464 1) (465 2) (466 3) (467 4) (468 3) (469 2) (470 1) (471 1) (472 2) (473 3) (474 4) (475 3) (476 2) (477 1) (478 1) (479 2) (480 3) (481 4) (482 3) (483 2) (484 1) (485 1) (486 2) (487 3) (488 4) (489 3) (490 2) (491 1) (492 1) (493 2) (494 3) (495 4) (496 3) (497 2) (498 1) (499 1) (500 2) (501 3) (502 4) (503 3) (504 2) (505 1) (506 1) (507 2) (508 3) (509 4) (510 3) (511 2) (512 1) (513 1) (514 2) (515 3) (516 4) (517 3) (518 2) (519 1) (520 1) (521 1) (522 2) (523 1) (524 1) (525 2) (526 1) (527 1) (528 2) (529 1) (530 1) (531 2) (532 1) (533 1) (534 2) (535 1) (536 1) (537 2) (538 1) (539 1) (540 2) (541 1) (542 1) (543 2) (544 1) (545 2) (546 3) (547 1) (548 1) (549 2) (550 1) (551 1) (552 2) (553 1) (554 2) (555 3) (556 1) (557 1) (558 2) (559 1) (560 1) (561 2) (562 1) (563 1) (564 2) (565 1) (566 2) (567 3) (568 1) (569 1) (570 2) (571 1) (572 1) (573 2) (574 1) (575 2) (576 3) (577 1) (578 1) (579 2))))) :Y 1.0 :W 1.0 :H 1.0 :DRAW-TILED-MODE? T :GLORTHOX1 -17.369999 :GLORTHOX2 596.37 :GLORTHOY1 0.88 :GLORTHOY2 5.12)) :X 166 :Y 230 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 166 :Y 230 :WIDTH 1361 :HEIGHT 368))) WIN) :CONNECTION NIL :XSCALE-FC 0.9787034 :YSCALE-FC 0.9787034)) :X 1.3040000029802324D0 :Y 1.039999997019767D0 :W 1.444D0 :H 0.1639999999999997D0 :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) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.6679999999999997D0 :OPEN-STATE-H 0.1639999999999997D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 2 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "cond-sh" 2))) :X 0.4840000014901169D0 :Y 0.8479999970197665D0 :W 0.3159999904632569D0 :H 0.17359999 :BOX-STRING "entropy" :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) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.3159999904632569D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 1 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "shannon-n" 1))) :X 0.1160000044703482D0 :Y 0.8479999970197665D0 :W 0.3119999904632569D0 :H 0.17359999 :BOX-STRING "entropy" :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) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.3119999904632569D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 1) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.1264657786258767D0 :Y 0.6399999970197672D0 :W 0.3 :H 0.1 :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) :USER-STRING "4" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.4944657786258766D0 :Y 0.6359999970197667D0 :W 0.3 :H 0.1 :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) :USER-STRING "5" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE) (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 0.77657015) (1 0.7765701) (2 0.77657015) (3 0.77657015) (4 0.7765701) (5 0.77657015) (6 0.77657015) (7 0.7765701) (8 0.77657015) (9 0.77657015) (10 0.7765701) (11 0.77657015) (12 0.77657015) (13 0.7765701) (14 0.77657015) (15 0.77657015) (16 0.7765701) (17 0.5449905) (18 0.4814635) (19 0.4814635) (20 0.4814635) (21 0.4814635) (22 0.4814635) (23 0.4814635) (24 0.4814635) (25 0.4814635) (26 0.4814635) (27 0.4814635) (28 0.4814635) (29 0.4814635) (30 0.4814635) (31 0.4814635) (32 0.4814635) (33 0.4814635) (34 0.4814635) (35 0.4814635) (36 0.4814635) (37 0.4814635) (38 0.4814635) (39 0.4814635) (40 0.4814635) (41 0.4814635) (42 0.4814635) (43 0.4814635) (44 0.4814635) (45 0.4814635) (46 0.4814635) (47 0.5206159) (48 0.50583804) (49 0.5206159) (50 0.50583804) (51 0.48146346) (52 0.5206159) (53 0.5206159) (54 0.48146346) (55 0.50583804) (56 0.5206159) (57 0.50583804) (58 0.48146346) (59 0.5206159) (60 0.5206159) (61 0.48146346) (62 0.50583804) (63 0.5206159) (64 0.50583804) (65 0.48146346) (66 0.5206159) (67 0.5206159) (68 0.48146346) (69 0.50583804) (70 0.5206159) (71 0.50583804) (72 0.48146346) (73 0.5206159) (74 0.5206159) (75 0.5989207) (76 0.6498709) (77 0.6498709) (78 0.6498708) (79 0.6498709) (80 0.6498709) (81 0.6498709) (82 0.6498709) (83 0.6498709) (84 0.6498709) (85 0.6498708) (86 0.6498709) (87 0.6498709) (88 0.6498709) (89 0.6498709) (90 0.6498709) (91 0.6498709) (92 0.6498708) (93 0.6498709) (94 0.6498709) (95 0.6498709) (96 0.6498709) (97 0.6498709) (98 0.6498709) (99 0.6498708) (100 0.6498709) (101 0.6498709) (102 0.6498709) (103 0.58725977) (104 0.77657015) (105 0.7765701) (106 0.77657015) (107 0.77657015) (108 0.6620329) (109 0.6836821) (110 0.6620329) (111 0.5830265) (112 0.64797396) (113 0.64797396) (114 0.66697056) (115 0.5859894))))) :Y 1.0 :W 1.0 :H 1.0 :GLORTHOX1 -3.4499998 :GLORTHOX2 118.45 :GLORTHOY1 0.0041288249832232005D0 :GLORTHOY2 1.027847509894951D0)) :X 166 :Y 230 :HITS 1 :WINDOW-UPDATE? T :TITLE "2D-Editor1" :X 166 :Y 230 :WIDTH 965 :HEIGHT 367))) WIN) :CONNECTION NIL :XSCALE-FC 1.011717 :YSCALE-FC 1.011717)) :X 1.3040000029802324D0 :Y 0.4199999955296496D0 :W 1.444D0 :H 0.32399999999999985D0 :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) :SHOW-TITLE-STRING? NIL :OPEN-STATE-W 1.444D0 :OPEN-STATE-H 0.32399999999999985D0) (MAKE-INSTANCE (QUOTE FV-MORPHOLOGIE::MORPHOLOGIE-BOX) :PWGL-SUBVIEWS (LIST (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "data" :CURVAL NIL :VALUE-STRING "nil" :CONNECTION NIL) (MAKE-INSTANCE (QUOTE PWGL-MENUBOX-SUBVIEW) :BOX-STRING "mode" :CURVAL 2 :MINVAL 0 :MAXVAL 2 :MENU-LIST (LIST (LIST "shannon-2" 0) (LIST "shannon-n" 1) (LIST "cond-sh" 2)) :MENU-LIST-STRING (LIST "cond-sh" 2)) (MAKE-INSTANCE (QUOTE PWGL-VALUE-BOX-SUBVIEW) :BOX-STRING "samples" :CURVAL 100 :VALUE-STRING "100")) :X 0.8560000014901164D0 :Y 0.36799999552964957D0 :W 0.38399999046325695D0 :H 0.24719998 :BOX-STRING "entropy" :PWGL-OUTPUTS (LIST (MAKE-INSTANCE (QUOTE PWGL-OUTPUT))) :BOX-LAYOUT (MAKE-INSTANCE (QUOTE PWGL-BOX-LAYOUT) :GROUPING-LIST (LIST 1 1 1) :ORIG-GROUPING-LIST (LIST 1) :EXTENSION-PATTERN (LIST 1) :EXTENSION-LIMIT 3 :BORDER 0.012) :PW-FUNCTION (QUOTE FV-MORPHOLOGIE:ENTROPY) :OPEN-STATE-W 0.38399999046325695D0 :OPEN-STATE-H 0.17359999 :CURRENT-EXTENSION-PATTERN-INDEX* 2) (MAKE-INSTANCE (QUOTE PWGL-COMMENT-BOX) :R 0.25398874 :G 0.6081 :B 0.50764734 :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 "")) :X 0.714465780115991D0 :Y 0.23199999254941917D0 :W 0.3 :H 0.1 :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) :USER-STRING "7" :FORMAT-ARGS (LIST :FORMAT T :COLUMNS 1 :PRINT-ESCAPE T) :COMMENT-TYPE :CIRCLE)) :X 5 :Y 5 :CONNECTIONS (LIST (MAKE-INSTANCE (QUOTE PWGL-CONNECTION) :PWBOX1 14 :OUT-BOX 0 :PWBOX2 21 :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 21 :OUT-BOX 0 :PWBOX2 20 :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 14 :OUT-BOX 0 :PWBOX2 16 :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 14 :OUT-BOX 0 :PWBOX2 17 :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 14 :OUT-BOX 0 :PWBOX2 15 :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 14 :OUT-BOX 0 :PWBOX2 12 :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 12 :OUT-BOX 0 :PWBOX2 11 :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 7 :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 7 :OUT-BOX 0 :PWBOX2 2 :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 7 :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 7 :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 3 :OUT-BOX 0 :PWBOX2 7 :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 1 :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 6 :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))) :WINDOW-DOCUMENTATION "ENTROPY

" :X 105 :Y 20 :WIDTH 730 :HEIGHT 530))) (WINDOW-SELECT WIN) WIN)