{"id":470565,"date":"2025-08-13T15:01:15","date_gmt":"2025-08-13T15:01:15","guid":{"rendered":"http:\/\/savepearlharbor.com\/?p=470565"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-29T21:00:00","slug":"","status":"publish","type":"post","link":"https:\/\/savepearlharbor.com\/?p=470565","title":{"rendered":"<span>GIMP Script-Fu \u041e\u041e\u041f. \u041e\u041e\u041f \u043d\u0430 \u043c\u0438\u043a\u0441\u0438\u043d\u0430\u0445 \u0438\u043b\u0438 \u0441\u043a\u0430\u0437 \u043e \u0442\u043e\u043c: \u00ab\u0414\u0430 \u0447\u0442\u043e \u043e\u043d\u043e \u043c\u043e\u0436\u0435\u0442 \u0432\u0430\u0448\u0435 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435?\u00bb<\/span>"},"content":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<p><a href=\"https:\/\/gitflic.ru\/project\/nuinu\/gimp-script-fu-ext\" rel=\"noopener noreferrer nofollow\">\u0411\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u043a Script-fu<\/a><\/p>\n<h2>\u0412\u0432\u0435\u0434\u0435\u043d\u0438\u0435<\/h2>\n<p>\u0412\u044b \u043b\u044e\u0431\u0438\u0442\u0435 \u0440\u0435\u0444\u0430\u043a\u0442\u043e\u0440\u0438\u043d\u0433? \u041d\u0443 \u0432\u043e\u0442 \u0438 \u044f \u043f\u0440\u0438\u0431\u043b\u0438\u0437\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0442\u0430\u043a \u0436\u0435. \u041e\u0441\u043d\u043e\u0432\u043d\u043e\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u043e \u0445\u043e\u0440\u043e\u0448\u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430, \u0442\u0430\u043a\u043e\u0435: &#171;\u0420\u0430\u0431\u043e\u0442\u0430\u0435\u0442, \u041d\u0415 \u0422\u0420\u041e\u0413\u0410\u0419!&#187;. \u041d\u043e \u0438\u043d\u043e\u0433\u0434\u0430, \u0432 \u0440\u0435\u0434\u043a\u0438\u0435 \u043c\u0438\u043d\u0443\u0442\u044b \u043f\u043e\u043c\u0443\u0442\u043d\u0435\u043d\u0438\u044f\/\u0432\u0434\u043e\u0445\u043d\u043e\u0432\u0435\u043d\u0438\u044f, \u0432\u043e\u0437\u043d\u0438\u043a\u0430\u0435\u0442 \u0436\u0435\u043b\u0430\u043d\u0438\u0435, \u0438\u043b\u0438 \u044f \u0431\u044b \u0434\u0430\u0436\u0435 \u0441\u043a\u0430\u0437\u0430\u043b \u0437\u0443\u0434, \u0432 \u043e\u0434\u043d\u043e\u043c \u043c\u0435\u0441\u0442\u0435, \u0438 \u043c\u044b \u0441\u0430\u0434\u0438\u043c\u0441\u044f \u0437\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u0435 \u043c\u0435\u0441\u0442\u043e, \u0431\u0435\u0440\u0451\u043c \u0432 \u0440\u0443\u043a\u0438 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u0443 \u0438 \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c &#171;\u0442\u0432\u043e\u0440\u0438\u0442\u044c \u0448\u0435\u0434\u0435\u0432\u0440\u044b&#187; \u0441 \u0447\u0438\u0441\u0442\u043e\u0433\u043e \u043b\u0438\u0441\u0442\u0430.<\/p>\n<p>\u0421\u0438\u0441\u0442\u0435\u043c\u044b \u043f\u043e\u0434\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0434\u043b\u044f  \u044f\u0437\u044b\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438 \u044f \u043f\u0438\u0441\u0430\u043b \u0442\u0440\u0438 \u0440\u0430\u0437\u0430: \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u0432 <strong>\u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u043c \u0441\u0442\u0438\u043b\u0435<\/strong>(\u0438 \u0432 \u044d\u0442\u043e\u043c \u0442\u043e \u043c\u0435\u0441\u0442\u0435 \u0438 \u0432\u043e\u0437\u043d\u0438\u043a \u043f\u0440\u0435\u0441\u043b\u043e\u0432\u0443\u0442\u044b\u0439 &#171;\u0441\u0432\u0438\u0442\u0447\u0438\u043d\u0433 \u043f\u043e \u0442\u0438\u043f\u0430\u043c&#187;, \u043f\u043e\u0442\u043e\u043c <strong>\u0432 \u0441\u0442\u0438\u043b\u0435 \u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u043d\u044b\u0445 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432<\/strong>, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0435 \u0438\u043c\u0435\u043b \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f, \u043d\u043e \u044f \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u0432 \u0445\u0430\u043a \u0441 \u0448\u0430\u0431\u043b\u043e\u043d\u043d\u044b\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u043a\u043e\u0434\u0430, \u0437\u043d\u0430\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0441\u043e\u043a\u0440\u0430\u0442\u0438\u043b \u0435\u0433\u043e \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0438 \u0442\u0435\u043f\u0435\u0440\u044c, \u043a\u043e\u0433\u0434\u0430 \u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u043b <strong>\u0440\u0430\u0437\u0432\u0438\u0442\u0443\u044e \u041e\u041e\u041f \u0441\u0438\u0441\u0442\u0435\u043c\u0443<\/strong>, \u0432\u043e \u043c\u043d\u043e\u0433\u043e\u043c \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u044e\u0449\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c CLOS. \u0418 \u044d\u0442\u043e \u0441\u043e\u0431\u044b\u0442\u0438\u0435 \u043f\u0440\u0435\u043a\u0440\u0430\u0441\u043d\u0430\u044f \u043f\u0440\u0438\u0447\u0438\u043d\u0430, \u0447\u0442\u043e\u0431\u044b \u043f\u0435\u0440\u0435\u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u041e\u041e\u041f \u043a\u043e\u0434, \u0432 \u043d\u043e\u0432\u043e\u0439 \u041e\u041e \u0441\u0438\u0441\u0442\u0435\u043c\u0435. \u0427\u0435\u043c \u043c\u044b \u0441 \u0432\u0430\u043c\u0438 \u0437\u0434\u0435\u0441\u044c \u0438 \u0437\u0430\u0439\u043c\u0451\u043c\u0441\u044f.<\/p>\n<h2>\u041c\u0438\u043a\u0441\u0438\u043d\u044b \u043a\u0430\u043a \u0441\u043f\u043e\u0441\u043e\u0431 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432.<\/h2>\n<p>\u041e\u0431\u044b\u0447\u043d\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u044b \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0438\u043c\u0435\u044e\u0442 \u043a\u0430\u043a\u0438\u0435 \u0442\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u044b \u0445\u0440\u0430\u043d\u0438\u043c \u0432 \u043f\u043e\u043b\u044f\u0445. \u041c\u0438\u043a\u0441\u0438\u043d\u044b \u044d\u0442\u043e \u043a\u043b\u0430\u0441\u0441\u044b \u0445\u0440\u0430\u043d\u044f\u0449\u0438\u0435 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0435\u0437\u0430\u0432\u0438\u0441\u0438\u043c\u044b\u0435 \u043e\u0442 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043d\u0435\u0437\u0430\u0432\u0438\u0441\u0438\u043c\u044b\u0435 \u0438\u043b\u0438 \u043d\u0435\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435. \u0414\u0430 \u0438 \u0432 \u0441\u0430\u043c\u043e\u043c \u043a\u043b\u0430\u0441\u0441\u0435 \u0435\u0441\u043b\u0438 \u0432\u043d\u0438\u043c\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c\u0441\u044f \u043c\u043e\u0433\u0443\u0442 \u043e\u0431\u043d\u0430\u0440\u0443\u0436\u0438\u0442\u044c\u0441\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043d\u0438\u043a\u0430\u043a \u0434\u0440\u0443\u0433 \u0441 \u0434\u0440\u0443\u0433\u043e\u043c \u043d\u0435 \u043f\u0435\u0440\u0435\u0441\u0435\u043a\u0430\u044e\u0449\u0438\u0435\u0441\u044f, \u0438\u043b\u0438 \u0438\u043c\u0435\u044e\u0449\u0438\u0435 \u0432\u0435\u0441\u044c\u043c\u0430 \u0441\u043b\u0430\u0431\u0443\u044e \u0441\u0432\u044f\u0437\u044c. \u0422\u0435 <strong>\u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0438\u043a\u0430\u043a \u043d\u0435 \u043a\u043e\u0440\u0440\u0435\u043b\u0438\u0440\u0443\u044e\u0442 \u0434\u0440\u0443\u0433 \u0441 \u0434\u0440\u0443\u0433\u043e\u043c<\/strong> \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043d\u0430\u0437\u044b\u0432\u0430\u0442\u044c<strong> \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438<\/strong>, \u0438 \u0438\u0445 \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u043d\u0435\u0441\u0442\u0438 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441, \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u044b\u0439 <strong>\u043c\u0438\u043a\u0441\u0438\u043d\u043e\u043c<\/strong>. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u043a \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u043c\u043e\u0436\u043d\u043e \u043e\u0442\u043d\u0435\u0441\u0442\u0438: \u0446\u0432\u0435\u0442, \u0438\u043c\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430, \u043a\u043e\u043d\u0442\u0443\u0440, \u0438\u043b\u0438 \u043a\u0438\u0441\u0442\u044c. \u0421\u043b\u0430\u0431\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0442\u043e\u0436\u0435 \u043c\u043e\u0436\u043d\u043e \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0443\u0441\u043b\u043e\u0432\u043d\u043e \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438, \u043d\u043e \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043e\u043d\u0438 \u0441\u0432\u044f\u0437\u0430\u043d\u044b, <strong>\u0438\u0445 \u0441\u0432\u044f\u0437\u044c<\/strong> \u0438\u043b\u0438 \u043a\u043e\u0440\u0440\u0435\u043b\u044f\u0446\u0438\u044e, <strong>\u0434\u043e\u043b\u0436\u0435\u043d \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u0442\u044c \u043a\u0430\u043a\u043e\u0439 \u0442\u043e \u043f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441<\/strong>, \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u0443\u0434\u0443\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c \u044d\u0442\u0443 \u0441\u0432\u044f\u0437\u044c, \u0442.\u0435 <strong>\u043a\u043e\u043d\u0441\u0438\u0441\u0442\u0435\u043d\u0442\u043d\u043e\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432<\/strong> \u043a\u043b\u0430\u0441\u0441\u0430. \u041a \u0442\u0430\u043a\u0438\u043c \u0441\u043b\u0430\u0431\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c,  \u043c\u043e\u0436\u043d\u043e \u043e\u0442\u043d\u0435\u0441\u0442\u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0438 \u043a\u043e\u043d\u0442\u0443\u0440. \u0420\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430, \u043d\u0430 \u043c\u0438\u043a\u0441\u0438\u043d\u044b, \u043c\u044b \u043f\u0440\u0435\u0441\u043b\u0435\u0434\u0443\u0435\u043c \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u0443\u044e \u0446\u0435\u043b\u044c, \u0440\u0430\u0437\u0432\u0435\u0441\u0442\u0438 \u043c\u0435\u0442\u043e\u0434\u044b \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0435 \u0438\u043b\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0449\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043f\u043e \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043a\u043b\u0430\u0441\u0441\u0430\u043c, \u0442\u0435\u043c \u0441\u0430\u043c\u044b\u043c <strong>\u0443\u0441\u0442\u0440\u0430\u043d\u0438\u0432 \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043a\u043e\u0434\u0430<\/strong>.<\/p>\n<p>\u0418\u0442\u0430\u043a, \u0440\u0430\u0437\u044a\u044f\u0441\u043d\u0438\u0432 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u044b \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u043c\u0438\u043a\u0441\u0438\u043d\u043e\u0432 \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0430\u0442\u044c \u043a \u043f\u0440\u043e\u0435\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0438 \u043c\u0435\u0442\u043e\u0434\u043e\u0432.<\/p>\n<h2>\u0421\u0438\u0441\u0442\u0435\u043c\u0430 \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0434\u043b\u044f \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f \u0432 GIMP<\/h2>\n<details class=\"spoiler\">\n<summary>\u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043c\u043e\u0433\u0430\u044e\u0449\u0438\u0435 \u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u0442\u0443\u0440\u044b \u0438 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f.<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">(define default-color '(127 127 127)) (define default-brush (make-brush1 :name \"Circle (05)\"))  ;;\u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0432\u0435\u043a\u0442\u043e\u0440\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u043f\u0440\u0438\u0433\u043e\u0434\u043d\u044b\u0445 \u0434\u043b\u044f \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0445 GIMP \u043f\u043e \u043a\u043e\u043d\u0442\u0443\u0440\u0443 (define (make-contour-vector contour num-points)    (let ((points     (make-vector (* 2 num-points) 'double))          (i   0)          (cur contour))       (while (&lt; i num-points)          (vector-set! points (* 2 i)       (p-x (car cur)))          (vector-set! points (+ (* 2 i) 1) (p-y (car cur)))          (set! i   (+ i 1))          (set! cur (cdr cur)))       points))    ;;\u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f  (define (draw-from-image-trans dest src tr)    (let* ((dw2 (car (gimp-layer-new-from-drawable                     (car (gimp-image-get-active-layer src)) dest)))          (m11 (tr2d-m11 tr))          (m12 (tr2d-m12 tr))          (m21 (tr2d-m21 tr))          (m22 (tr2d-m22 tr))          (mx  (tr2d-dx  tr))          (my  (tr2d-dy  tr)))      (gimp-image-add-layer dest dw2 0)      (gimp-item-transform-matrix dw2                                 m11 m21 mx                                 m12 m22 my                                 0   0   1)      (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)      )) <\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0411\u0430\u0437\u043e\u0432\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u044b <strong>\u043c\u0438\u043a\u0441\u0438\u043d\u044b<\/strong> \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u043a\u043b\u0430\u0441\u0441\u044b \u0444\u0438\u0433\u0443\u0440<\/p>\n<pre><code class=\"lisp\">(defclass contoured ()   (contour))  (defclass gabarited ()   ((min-x #f) (min-y #f) (max-x #f) (max-y #f)))  (defclass named ()   (name))  (defclass fliped ()   ((flip #f)))  (defclass colored ()   ((color default-color)))  (defclass brushed ()   ((brush default-brush))) <\/code><\/pre>\n<p><strong>\u041e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u043e\u0432<\/strong> \u0444\u0438\u0433\u0443\u0440 <strong>\u0447\u0435\u0440\u0435\u0437 \u043c\u0438\u043a\u0441\u0438\u043d\u044b<\/strong>:<\/p>\n<pre><code class=\"lisp\">(defclass fig (named gabarited)   ())  (defclass contour-fig (fig contoured)   ())  ;;\u043e\u0434\u043d\u043e\u043a\u043e\u043d\u0442\u0443\u0440\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0440\u0438\u0441\u0443\u0435\u043c\u0430\u044f \u043a\u0438\u0441\u0442\u044c\u044e (defclass brush-fig (contour-fig colored brushed)   ())  ;;\u0437\u0430\u043a\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430, \u043a\u0441\u0442\u044c \u0435\u0439 \u043d\u0443\u0436\u043d\u0430 \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u0432 \u043d\u0435\u0439 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u043e\u0441\u0442\u044c. (defclass shape-fig (contour-fig colored brushed)   ())  ;;\u0444\u0438\u0433\u0443\u0440\u0430 \u0440\u0438\u0441\u0443\u0435\u043c\u0430\u044f \u043a\u0440\u0430\u043d\u0434\u0430\u0448\u043e\u043c (defclass pencil-fig (contour-fig colored brushed)   ())  ;;\u0441\u043e\u0441\u0442\u0430\u0432\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 (defclass complex-fig (fig)   (figs))  ;;\u043e\u0434\u0438\u043d\u043e\u0447\u043d\u043e\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 (defclass image-fig (fig fliped)   (image))  ;;\u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0442\u0435\u043a\u0441\u0442\u0430. (defclass text-fig (colored fig fliped)   (text font (height 100)) ) <\/code><\/pre>\n<p>\u041a\u043b\u0430\u0441\u0441\u044b: brush-fig, shape-fig \u0438 pencil-fig \u0438\u043c\u0435\u044e\u0442 \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0441\u0432\u043e\u0439\u0441\u0442, \u043d\u043e \u0440\u0430\u0437\u043d\u043e\u0435 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435.<\/p>\n<figure class=\"full-width\"><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/7a3\/cd9\/5a1\/7a3cd95a1088623f65e51bc36cdbb63f.png\" alt=\"\u0418\u0435\u0440\u0430\u0440\u0445\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0444\u0438\u0433\u0443\u0440 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0449\u0438\u0445 \u044f\u0437\u044b\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438\" width=\"990\" height=\"347\" sizes=\"auto, (max-width: 780px) 100vw, 50vw\" srcset=\"https:\/\/habrastorage.org\/r\/w780\/getpro\/habr\/upload_files\/7a3\/cd9\/5a1\/7a3cd95a1088623f65e51bc36cdbb63f.png 780w,&#10;       https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/7a3\/cd9\/5a1\/7a3cd95a1088623f65e51bc36cdbb63f.png 781w\" loading=\"lazy\" decode=\"async\"\/><\/p>\n<div><figcaption>\u0418\u0435\u0440\u0430\u0440\u0445\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0444\u0438\u0433\u0443\u0440 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0449\u0438\u0445 \u044f\u0437\u044b\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438<\/figcaption><\/div>\n<\/figure>\n<details class=\"spoiler\">\n<summary>\u043a\u0430\u043a \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438\u0435\u0440\u0430\u0440\u0445\u0438\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">;;\u043a\u043e\u043f\u0438\u0440\u0443\u0435\u0442 \u0438\u0435\u0440\u0430\u0440\u0445\u0438\u044e \u043a\u043b\u0430\u0441\u0441\u043e\u0432, \u043d\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0443, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0435\u0441\u0442\u044c \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u043a\u043b\u0430\u0441\u0441\u0432. (define-m (copy-class-hierarhy lst-class class-hierarhy)   (let ((rez (make-hash 16))         (tmp-base #f))     (for-list (el lst-class)        (set! tmp-base (hash-ref class-hierarhy el))        (if (car tmp-base)            (hash-set! rez el (cdr tmp-base))            (hash-set! rez el '())))     rez))   (define-m (classes-to-pairs classes)   (let ((in-rez (make-hash 32))         (rez '()))     (for-list (cls classes)        (let* ((lst-class (cons cls (get-class-parents-all cls)))               (class-hierarhy (copy-class-hierarhy lst-class *class-hierarhy*))               (lst (hash2pairs class-hierarhy)))  (for-list (p lst)      (do ((parents (cdr p) (cdr parents)))  ((null? parents) rez)        (let ((new-pair (cons (car p) (car parents))))  (unless (car (hash-ref in-rez new-pair))    (hash-set! in-rez new-pair #t)    (push rez new-pair)))))))     rez))  (classes-to-pairs '(fig)) (classes-to-pairs '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig))   (define-m (classes-to-graphvz classes file)   (with-output-to-file (string-append file \".gv\")     (lambda ()       (prn \"digraph G{\\n\")       ;;(prn \"  rankdir=RL;\\n\")       ;;(prn \"  rankdir=LR;\\n\")       (for-list (p (classes-to-pairs classes))                 (prn \"  \\\"\" (car p) \"\\\" -&gt; \\\"\" (cdr p) \"\\\";\\n\"))       (prn \"}\\n\")))   (join-to-str \"dot -Tpng \"  file \".gv -o \"  file \".png\" ))  (classes-to-pairs '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig))  (classes-to-graphvz '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig)   (string-append path-work \"doc\/oop\/\" \"fig-obj4\")) ;;\"dot -Tpng ~\/work\/gimp\/doc\/oop\/fig-obj4.gv -o ~\/work\/gimp\/doc\/oop\/fig-obj4.png\"<\/code><\/pre>\n<\/div>\n<\/details>\n<h2>\u041f\u0440\u0438\u0441\u0442\u0443\u043f\u0438\u043c \u043a \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u044e \u043c\u0435\u0442\u043e\u0434\u043e\u0432.<\/h2>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d <code>named<\/code> \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0438\u043c\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0438\u043c\u0435\u0435\u0442 \u043c\u0435\u0442\u043e\u0434 \u0432\u044b\u0434\u0430\u0447\u0438 \u044d\u0442\u043e\u0433\u043e \u0438\u043c\u0435\u043d\u0438 \u0438 \u0442\u0430\u043a\u0436\u0435 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0435\u0433\u043e \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods named   (get-name ()     name)   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :name parsed) (set! self.name (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d &#171;\u043f\u0435\u0440\u0435\u0432\u0451\u0440\u0442\u044b\u0432\u0430\u043d\u0438\u044f&#187; \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods fliped   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :flip parsed) (set! self.flip (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d &#171;\u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432&#187; \u0444\u0438\u0433\u0443\u0440\u044b, \u0445\u0440\u0430\u043d\u0438\u0442 \u0435\u0451 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b, \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432, \u0430 \u0442\u0430\u043a \u0436\u0435, <em>\u0432\u043d\u0435\u0437\u0430\u043f\u043d\u043e<\/em>, \u0437\u0430 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0438\u0433\u0443\u0440\u044b \u0432 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043e\u0431\u044a\u0451\u043c(rect \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a, \u044d\u0442\u043e \u0441\u043a\u043e\u0440\u0435\u0435 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u043e\u0433\u0440\u0430\u043c\u043c), \u0430 \u0442\u0430\u043a\u0436\u0435 \u0432\u044b\u0434\u0430\u0451\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432 \u043f\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0443 \u0438 \u0438\u043c\u0435\u0435\u0442 \u043c\u0435\u0442\u043e\u0434 <code>assign-undefined<\/code> \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u0442 \u043d\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432.<\/p>\n<pre><code class=\"lisp\">(defmethods gabarited   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :min-x parsed)  (set! self.min-x  (cdr it)))      (awhen (assq :max-x parsed)  (set! self.max-x  (cdr it)))      (awhen (assq :min-y parsed)  (set! self.min-y  (cdr it)))      (awhen (assq :max-y parsed)  (set! self.max-y  (cdr it)))      self)   (assign-undefined (min-x min-y max-x max-y )        (unless self.min-x  (set! self.min-x   min-x))        (unless self.min-y  (set! self.min-y   min-y))        (unless self.max-x  (set! self.max-x   max-x))        (unless self.max-y  (set! self.max-y   max-y)))   (get-gabarite ()      (list self.min-x self.min-y self.max-x self.max-y))   (draw-to-rect (img r)      (let  ((delta      0.00001)             (tr  (make-tr2d-from-rect r                                       (- self.max-x self.min-x)                                       (- self.max-y self.min-y))))        (if (or (&gt; (abs self.min-x) delta)  ;;min-x                (&gt; (abs self.min-y) delta));;min-y \u0444\u0438\u0433\u0443\u0440\u044b \u0441\u0434\u0432\u0438\u043d\u0443\u0442\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e            (set! tr (comb-tr2d            ;;\u043d\u0430\u0447\u0430\u043b\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u043d\u0430\u0434\u043e \u043f\u043e\u0434\u0432\u0438\u043d\u0443\u0442\u044c \u0442\u0443\u0434\u0430!                      (make-tr2d-move (- self.min-x) (- self.min-y))                      tr)))        (draw self img tr))           )   (draw (img tr)      (prn \"draw not implemented for: \" (type-obj self) \"\\n\")      )   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d \u043a\u043e\u043d\u0442\u0443\u0440\u0430, \u0445\u0440\u0430\u043d\u0438\u0442 \u043a\u043e\u043d\u0442\u0443\u0440 \u0438 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0435\u0433\u043e \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u0435 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods contoured   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :contour parsed)  (set! self.contour  (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d\u044b \u0446\u0432\u0435\u0442\u0430 \u0438 \u043a\u0438\u0441\u0442\u0438 \u043f\u043e \u043c\u0438\u043c\u043e \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0438 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u044f \u0443\u0447\u0430\u0441\u0442\u0432\u0443\u044e\u0442 \u0432 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0438 \u0444\u0438\u0433\u0443\u0440\u044b, \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u0446\u0432\u0435\u0442 \u0438 \u043a\u0438\u0441\u0442\u044c, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e.<\/p>\n<pre><code class=\"lisp\">(defmethods colored   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :color parsed)  (set! self.color  (cdr it)))      self)   (:before draw (img tr)      (when self.color (gimp-context-set-foreground self.color)))   )  (defmethods brushed   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :brush parsed)  (set! self.brush  (cdr it)))      self)   (:before draw (img tr)      (when self.brush (self.brush)))   ) <\/code><\/pre>\n<p><strong>\u041a\u043e\u043d\u0442\u0443\u0440\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430<\/strong>, \u044d\u0442\u043e \u0443\u0436\u0435 <strong>\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441 \u0434\u0432\u0443\u0445 \u043c\u0438\u043a\u0441\u0438\u043d\u043e\u0432<\/strong>. \u041e\u043d\u0430 <strong>\u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0432 \u043c\u0435\u0436\u0434\u0443 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u0430\u043c\u0438 \u043a\u043e\u043d\u0442\u0443\u0440\u0430 \u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u0430\u043c\u0438 \u0444\u0438\u0433\u0443\u0440\u044b<\/strong>, \u0442.\u043a. \u043a\u043e\u043d\u0442\u0443\u0440 \u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442 \u0438\u043c\u0435\u044e\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0441\u0432\u044f\u0437\u044c \u043c\u0435\u0436\u0434\u0443 \u0441\u043e\u0431\u043e\u0439, \u043c\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u0441\u0438\u0441\u0442\u0435\u043d\u0442\u043d\u043e\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u0445 \u043a\u043b\u0430\u0441\u0441\u0430 \u043f\u0440\u0438 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0438 \u043a\u043e\u043d\u0442\u0443\u0440\u0430 \u0438\u043b\u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432, \u0438\u043c\u0435\u043d\u043d\u043e \u0437\u0434\u0435\u0441\u044c \u044d\u0442\u043e \u0438 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442. \u0421\u043d\u0430\u0447\u0430\u043b\u0430 \u043c\u044b \u043f\u0440\u043e\u043f\u0443\u0441\u043a\u0430\u0435\u043c \u0447\u0435\u0440\u0435\u0437 \u0441\u0435\u0431\u044f \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u044b \u0438\u0437\u043c\u0435\u043d\u044f\u044e\u0449\u0438\u0435 \u043e\u0431\u044a\u0435\u043a\u0442, \u0430 \u0437\u0430\u0442\u0435\u043c \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0432 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u043a\u043e\u043d\u0442\u0443\u0440\u0430, \u043f\u044b\u0442\u0430\u0435\u043c\u0441\u044f \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442\u044c(\u043d\u0435\u043d\u0430\u0432\u044f\u0437\u0447\u0438\u0432\u043e) \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0444\u0438\u0433\u0443\u0440\u044b. \u0422\u0430\u043a\u0438\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u043f\u0440\u0438\u0441\u0432\u043e\u0438\u0432 \u043e\u0434\u043d\u043e\u043c\u0443(\u0438\u043b\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u043c \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u0430\u043c \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 #f), \u043c\u044b \u0441\u0431\u0440\u043e\u0441\u0438\u043c \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0444\u0438\u0433\u0443\u0440\u044b \u0438 \u043e\u043d\u0430 \u0441\u0430\u043c\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u0438\u0442 \u0438\u0445 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0435 \u0438\u0437 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u0439 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432 \u043a\u043e\u043d\u0442\u0443\u0440\u0430.<\/p>\n<pre><code class=\"lisp\">(defmethods contour-fig   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (let ((min-p (min-pos self.contour))            (max-p (max-pos self.contour)))        (assign-undefined self (p-x min-p) (p-y min-p) (p-x max-p) (p-y max-p)))      self)   ) <\/code><\/pre>\n<p>\u041d\u0443 \u0430 \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u0432\u0441\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u043c\u044b \u0440\u0430\u0437\u043d\u0435\u0441\u043b\u0438 \u043f\u043e \u0440\u0430\u0437\u043d\u044b\u043c \u0443\u0440\u043e\u0432\u043d\u044f\u043c \u0438\u0435\u0440\u0430\u0440\u0445\u0438\u0438 \u043a\u043b\u0430\u0441\u0441 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u0438\u0441\u0442\u044c\u044e \u0443 \u043d\u0430\u0441 \u0438\u043c\u0435\u0435\u0442 \u043e\u0434\u0438\u043d \u043c\u0435\u0442\u043e\u0434, \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u044e\u0449\u0438\u0439 \u0444\u0438\u0433\u0443\u0440\u0443 \u0432 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u043e\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0441 \u0437\u0430\u0434\u0430\u043d\u043d\u043e\u0439 \u0442\u0440\u0430\u043d\u0441\u0444\u043e\u0440\u043c\u0430\u0446\u0438\u0435\u0439. \u0410 \u0432\u0441\u0451 \u043e\u0441\u0442\u0430\u043b\u044c\u043d\u043e\u0435(\u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b, \u0438\u043c\u044f, \u0446\u0432\u0435\u0442, \u043a\u0438\u0441\u0442\u044c, \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0432 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u043e\u0433\u0440\u0430\u043c\u043c) \u0434\u0435\u043b\u0430\u044e\u0442 \u043a\u043b\u0430\u0441\u0441\u044b \u0440\u043e\u0434\u0438\u0442\u0435\u043b\u0438.<\/p>\n<pre><code class=\"lisp\">(defmethods brush-fig   (draw (img tr)      (let* ((contour    (if tr                             (translate-contour self.contour tr)                             self.contour))             (num-points (length contour))             (points     (make-contour-vector contour  num-points))             (dw         (car (gimp-image-get-active-drawable img))))         (gimp-paintbrush-default  dw (* 2  num-points) points))      )   ) <\/code><\/pre>\n<details class=\"spoiler\">\n<summary>\u0410\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u0438\u043c\u0435\u044e\u0442 \u043a\u043b\u0430\u0441\u0441\u044b \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f \u0437\u0430\u043b\u0438\u0432\u043a\u043e\u0439 \u0438 \u043a\u0430\u0440\u0430\u043d\u0434\u0430\u0448\u043e\u043c<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">(defmethods shape-fig   (draw (img tr)      (let* ((contour    (if tr                             (translate-contour self.contour tr)                             self.contour))             (num-points (length contour))             (points     (make-contour-vector contour  num-points))             (dw         (car (gimp-image-get-active-drawable img))))         ;;\u043a\u0438\u0441\u0442\u044c \u043c\u043e\u0436\u0435\u0442 \u043f\u043e\u043d\u0430\u0434\u043e\u0431\u0438\u0442\u044c\u0441\u044f \u0435\u0441\u043b\u0438 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u043e\u0441\u0442\u044c, \u0430 \u0437\u0430\u0434\u0430\u0451\u0442\u0441\u044f \u043e\u043d\u0430 \u0442\u0430\u043c(\u0445\u043e\u0442\u044f \u043c\u043e\u0436\u043d\u043e \u0431\u044b\u043b\u043e \u0431\u044b \u0438 \u0432\u044b\u043d\u0435\u0441\u0442\u0438 \u044d\u0442\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u043e)        (gimp-free-select  img (- (* 2  num-points) 1) points  CHANNEL-OP-REPLACE 0 0 0)        (gimp-drawable-edit-fill dw  FILL-FOREGROUND)        (gimp-selection-none img))      )   )  (defmethods pencil-fig   (draw (img tr)      (let* ((contour    (if tr                             (translate-contour self.contour tr)                             self.contour))             (num-points (length contour))             (points     (make-contour-vector contour  num-points))             (dw         (car (gimp-image-get-active-drawable img))))         (gimp-pencil  dw (* 2  num-points) points))      )   ) <\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0421\u043b\u043e\u0436\u043d\u0430\u044f \u0438\u043b\u0438 \u0441\u043e\u0441\u0442\u0430\u0432\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0438\u043c\u0435\u0435\u0442 \u043e\u0431\u044b\u0447\u043d\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u0440\u0430\u0441\u0447\u0451\u0442\u0430 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432 \u043f\u043e \u0441\u043f\u0438\u0441\u043a\u0443 \u0444\u0438\u0433\u0443\u0440, \u0430 \u0442\u0430\u043a\u0436\u0435 \u043a\u0430\u043a \u0438 \u043a\u043e\u043d\u0442\u0443\u0440\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0441\u043f\u0438\u0441\u043a\u0430 \u0444\u0438\u0433\u0443\u0440 \u0438 \u0441\u0432\u043e\u0438 \u0441\u043e\u0431\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u0435 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b.<\/p>\n<pre><code class=\"lisp\">(define-m (minmax-pos-figs list-fig)    (if (not (null? list-fig))        (let ((min-x maxnum)              (min-y maxnum)              (max-x minnum)              (max-y minnum))           (do ((cur list-fig (cdr cur)))                 ((null? cur) (list (p! min-x min-y) (p! max-x max-y)))              (let ((gab (get-gabarite (car cur))))                 (if (&lt; (car gab) min-x)                     (set! min-x (car gab)))                 (if (&lt; (cadr gab) min-y)                     (set! min-y (cadr gab)))                 (if (&gt; (caddr gab) max-x)                     (set! max-x (caddr gab)))                 (if (&gt; (cadddr gab) max-y)                     (set! max-y (cadddr gab)))                 )              ))        (prn (\"error in minmax-pos-figs: list fig empty!\\n\"))))  (defmethods complex-fig   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :figs parsed)  (set! self.figs  (cdr it)))      (let ((gab (minmax-pos-figs self.figs)))        (assign-undefined self (p-x (car gab)) (p-y (car gab)) (p-x (cadr gab)) (p-y (cadr gab))))      )   (draw (img tr)      (let* ((delta      0.00001)             (dw         (car (gimp-image-get-active-drawable img))))        (do ((cur self.figs (cdr cur)))            ((null? cur) #t)          (draw (car cur) img tr))        ))   ) <\/code><\/pre>\n<p>\u0410\u043d\u0430\u043b\u043e\u0433\u0438\u0447\u043d\u043e \u0438 \u0444\u0438\u0433\u0443\u0440\u0430 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0442\u043e\u0436\u0435 \u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0441\u0432\u043e\u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0441 \u0438\u043c\u0435\u044e\u0449\u0438\u043c\u0441\u044f \u0440\u0438\u0441\u0443\u043d\u043a\u043e\u043c.<\/p>\n<pre><code class=\"lisp\">(defmethods image-fig   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :image parsed)  (set! self.image  (cdr it)))      (let ((width      (car (gimp-image-width  self.image)))            (height     (car (gimp-image-height self.image))))        (assign-undefined self 0 0 width height))           )   (draw (img tr)      (draw-from-image-trans img self.image (if self.flip                                                (comb-tr2d (make-tr2d-reflect-x) (make-tr2d-move 0 (+ self.min-y self.max-y)) tr)                                                tr))      )   ) <\/code><\/pre>\n<p>\u0422\u0435\u043a\u0441\u0442\u043e\u0432\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0438\u043c\u0435\u0435\u0442 \u0440\u044f\u0434 \u043e\u0441\u043e\u0431\u0435\u043d\u043d\u043e\u0441\u0442\u0435\u0439, \u043f\u043e \u043f\u0440\u043e\u0441\u0442\u043e\u0439 \u043f\u0440\u0438\u0447\u0438\u043d\u0435, \u043c\u044b \u043d\u0435 \u0437\u043d\u0430\u0435\u043c \u0435\u0451 \u0440\u0430\u0437\u043c\u0435\u0440\u043e\u0432 \u0434\u043e \u043c\u043e\u043c\u0435\u043d\u0442\u0430 \u043f\u043e\u043f\u044b\u0442\u043a\u0438 \u0435\u0451 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u043d\u0430 \u0440\u0438\u0441\u0443\u043d\u043a\u0435.GIMP <strong>\u043d\u0435 \u043f\u0440\u0435\u0434\u043e\u0441\u0442\u0430\u0432\u043b\u044f\u0435\u0442 \u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u043e\u0432 \u0443\u0437\u043d\u0430\u0442\u044c \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0434\u043e \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f<\/strong>, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u0430\u043d\u0438\u0435 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432 \u043f\u0440\u043e\u0438\u0441\u0445\u043e\u0434\u0438\u0442 \u043f\u0440\u044f\u043c\u043e \u0432 \u043f\u0440\u043e\u0446\u0435\u0441\u0441\u0435 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f. \u041f\u043e\u044d\u0442\u043e\u043c\u0443 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0438 \u043f\u0435\u0440\u0435\u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442 \u043c\u0435\u0442\u043e\u0434 <code>draw-to-rect<\/code> \u0431\u0430\u0437\u043e\u0432\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 <code>gabarite<\/code> \u0438 \u0443\u0436\u0435 \u043f\u043e\u0441\u043b\u0435 \u0440\u0430\u0437\u043c\u0435\u0449\u0435\u043d\u0438\u044f \u043d\u0430 \u0440\u0438\u0441\u0443\u043d\u043a\u0435 \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442 \u0441\u0432\u043e\u0438 \u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b.<\/p>\n<details class=\"spoiler\">\n<summary>\u0430\u0431\u0441\u0442\u0440\u0430\u043a\u0446\u0438\u044f \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u043e\u0439 \u0444\u0438\u0433\u0443\u0440\u044b<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">(define-m  (draw-textlayer-use-tr2d tl img tr color)   ;;(prn \"(draw-textlayer-use-tr2d tr: \" tr \"\\n\"))   (let ((m11 (tr2d-m11 tr))         (m12 (tr2d-m12 tr))         (m21 (tr2d-m21 tr))         (m22 (tr2d-m22 tr))         (mx  (tr2d-dx  tr))         (my  (tr2d-dy  tr)))     (gimp-text-layer-set-color  tl color)     (gimp-item-transform-matrix tl                                 m11 m21 mx                                 m12 m22 my                                 0   0   1)     (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))   (defmethods text-fig   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :text parsed)  (set! self.text  (cdr it)))      (awhen (assq :font parsed)  (set! self.font  (cdr it)))      (awhen (assq :height parsed)  (set! self.height  (cdr it)))      )   (draw (img tr) ;;\u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c :around \u043c\u0435\u0442\u043e\u0434\u043e\u043c \u0447\u0442\u043e\u0431\u044b \u043d\u0435 \u0432\u044b\u0437\u044b\u0432\u0430\u043b\u0441\u044f \u043c\u0435\u0442\u043e\u0434 :before draw \u0438\u0437 \u043a\u043b\u0430\u0441\u0441\u0430 colored      (let ((tl (insert-to-img self img)))        (when self.flip          (set! tr (comb-tr2d                    (make-tr2d-reflect-x)                    (make-tr2d-move 0 (+ self.min-y self.max-y))                    tr)))        (draw-textlayer-use-tr2d tl img tr self.color)        tl)      )   (draw-to-rect (img r) (let ((tl (insert-to-img self img))               (delta      0.00001)               (tr  (if self.flip                        (comb-tr2d (make-tr2d-reflect-x) (make-tr2d-move 0 (+ self.min-y self.max-y)) (make-tr2d-from-rect r                                              (- self.max-x self.min-x)                                              (- self.max-y self.min-y)))                        (make-tr2d-from-rect r                                             (- self.max-x self.min-x)                                             (- self.max-y self.min-y)))))           (if (or (&gt; (abs self.min-x) delta)  ;;min-x                   (&gt; (abs self.min-y) delta));;min-y \u0444\u0438\u0433\u0443\u0440\u044b \u0441\u0434\u0432\u0438\u043d\u0443\u0442\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e               (set! tr (comb-tr2d            ;;\u043d\u0430\u0447\u0430\u043b\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u043d\u0430\u0434\u043e \u043f\u043e\u0434\u0432\u0438\u043d\u0443\u0442\u044c \u0442\u0443\u0434\u0430! (make-tr2d-move (- self.min-x) (- self.min-y)) tr)))           (draw-textlayer-use-tr2d tl img tr self.color)           tl)         )   (insert-to-img (img)      (let ((tl (car (gimp-text-layer-new img self.text self.font self.height 0))))         (gimp-image-insert-layer img tl -1 0)         (let ((width      (car (gimp-drawable-width  tl)))               (height     (car (gimp-drawable-height tl))))       (assign-undefined self 0 0 width height))         tl))  ) <\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0412 \u043a\u043b\u0430\u0441\u0441\u0435 <code>text-fig<\/code> &#171;\u043d\u0435\u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e&#187; \u0432\u0435\u0434\u0451\u0442 \u0441\u0435\u0431\u044f \u043c\u0435\u0442\u043e\u0434 <code>draw<\/code> \u0443\u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u043e\u0442 \u043a\u043b\u0430\u0441\u0441\u0430 <code>color<\/code>. \u0414\u0435\u043b\u043e \u0432 \u0442\u043e\u043c \u0447\u0442\u043e \u043f\u0440\u0438 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0438 \u0442\u0435\u043a\u0441\u0442\u0430 \u0432 GIMP \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u0442\u0441\u044f \u0441\u0432\u043e\u044f \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0430 \u0446\u0432\u0435\u0442\u0430 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f, \u043d\u0435 \u0442\u0430\u043a\u0430\u044f \u043a\u0430\u043a \u043f\u0440\u0438 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0438 \u0434\u0440\u0443\u0433\u0438\u0445 \u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u043e\u0432. \u0427\u0442\u043e \u0441 \u044d\u0442\u0438\u043c \u043c\u043e\u0436\u043d\u043e \u0441\u0434\u0435\u043b\u0430\u0442\u044c? \u0412\u043e \u043f\u0435\u0440\u0432\u044b\u0445 \u043e\u0431\u044a\u044f\u0432\u0438\u0442\u044c \u043c\u0435\u0442\u043e\u0434 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u0430\u043a <code>:around<\/code>, \u0442\u043e\u0433\u0434\u0430 \u043d\u0438\u043a\u0430\u043a\u0438\u0435 \u0434\u0440\u0443\u0433\u0438\u0435 \u0443\u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u043d\u044b\u0435 \u043c\u0435\u0442\u043e\u0434\u044b \u0432\u044b\u0437\u044b\u0432\u0430\u0442\u044c\u0441\u044f \u043d\u0435 \u0431\u0443\u0434\u0443\u0442. \u0412\u043e \u0432\u0442\u043e\u0440\u044b\u0445 \u043d\u0435 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u0442\u044c \u043c\u0438\u043a\u0441\u0438\u043d <code>color<\/code>, \u0442.\u043a \u043a\u043b\u0430\u0441\u0441 \u043e\u043f\u0440\u0435\u0434\u0435\u043b\u044f\u0435\u0442\u0441\u044f \u043d\u0435 \u0442\u043e\u043b\u044c\u043a\u043e \u0445\u0440\u0430\u043d\u0438\u043c\u044b\u043c\u0438 \u0432 \u043d\u0451\u043c \u0434\u0430\u043d\u043d\u044b\u043c\u0438 \u043d\u043e \u0438 \u0441\u0432\u043e\u0438\u043c \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435\u043c, \u0438 \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u0439 \u043c\u0438\u043a\u0441\u0438\u043d, \u043d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 <code>text-color<\/code> \u0443 \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u0443\u0434\u0435\u0442 \u043f\u0440\u0430\u0432\u0438\u043b\u044c\u043d\u043e\u0435 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435, \u0430 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u043e \u043c\u044b \u043c\u043e\u0436\u0435\u043c \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0442\u044c \u0438 \u043f\u043e \u043a\u043b\u044e\u0447\u0443 <code>:color<\/code>. \u041d\u043e \u0432 \u0446\u0435\u043b\u043e\u043c \u044d\u0442\u043e\u0442 \u043b\u0438\u0448\u043d\u0438\u0439 \u0432\u044b\u0437\u043e\u0432 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0438 \u0446\u0432\u0435\u0442\u0430 \u043d\u0435 \u043e\u0441\u043e\u0431\u043e \u043c\u0435\u0448\u0430\u0435\u0442, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u044f \u0438 \u043e\u0441\u0442\u0430\u0432\u0438\u043b \u0435\u0433\u043e \u043a\u0430\u043a \u0435\u0441\u0442\u044c.<\/p>\n<p>\u0427\u0442\u043e\u0431\u044b \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u0438\u0442\u044c \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u043d\u0430\u043f\u0438\u0441\u0430\u043d\u0430 \u043e\u0431\u044b\u0447\u043d\u0430\u044f \u0444\u0443\u043d\u043a\u0446\u0438\u044f <code>change<\/code> \u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u044f\u0449\u0430\u044f \u0440\u0430\u0437\u0431\u043e\u0440 \u043f\u0430\u0440\u0430\u043c\u0435\u0442\u0440\u043e\u0432, \u0434\u043b\u044f \u0443\u0434\u043e\u0431\u0441\u0442\u0432\u0430 \u0440\u0430\u0431\u043e\u0442\u044b \u043c\u0435\u0442\u043e\u0434\u043e\u0432 \u043a\u043b\u0430\u0441\u0441\u043e\u0432: <code>parsed-change<\/code>.<\/p>\n<pre><code class=\"lisp\">(define-m (change obj . data)    (parsed-change obj (keyargs-to-pairs data))) <\/code><\/pre>\n<p>\u0427\u0442\u043e\u0431\u044b  \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0442\u044c \u043e\u0431\u044a\u0435\u043a\u0442\u044b, \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u043f\u043e\u043b\u0438\u043c\u043e\u0440\u0444\u043d\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u044e \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u044f <code>change<\/code> \u044f \u0441\u043e\u0437\u0434\u0430\u044e \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u043a\u0442\u043e\u0440\u044b \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u043c\u0430\u043a\u0440\u043e\u0441:<\/p>\n<pre><code class=\"lisp\">(define-macro (make-constructors . classes-list)   (cons 'begin (map (lambda (cl)   `(define-m (,(make-symbol cl \"!\") . args)      (let ((tmp (,(make-symbol \"make-\" cl \"-create\"))))        (,(make-symbol \"make-\" cl \"-initialize\") tmp)        (apply change tmp args)        tmp)))      classes-list)))  (make-constructors brush-fig shape-fig pencil-fig complex-fig image-fig text-fig) <\/code><\/pre>\n<p>\u0418 \u044d\u0442\u043e \u0432\u0441\u0451!  \u042f \u043f\u0440\u0438\u0432\u0451\u043b \u0437\u0434\u0435\u0441\u044c \u043a\u043e\u0434 \u0432\u0441\u0435\u0439 \u043e\u0431\u044a\u0435\u043a\u0442\u043d\u043e\u0439 \u0431\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0438 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0449\u0435\u0439 \u0440\u0430\u0431\u043e\u0442\u0443 \u044f\u0437\u044b\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438.<\/p>\n<h2>\u041f\u0440\u0438\u043c\u0435\u0440\u044b \u0440\u0430\u0431\u043e\u0442\u044b.<\/h2>\n<p>\u041f\u0440\u0438\u0432\u0435\u0434\u0443 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u043e \u043f\u0440\u0438\u043c\u0435\u0440\u043e\u0432 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u044f \u043f\u043e\u0441\u0442\u0440\u043e\u0435\u043d\u043d\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432.<\/p>\n<details class=\"spoiler\">\n<summary>\u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u043a\u0430 \u043a \u0440\u0430\u0431\u043e\u0442\u0435<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">(define path-home (getenv \"HOME\")) (define path-lib (string-append path-home \"\/work\/gimp\/lib\/\")) (define path-work (string-append path-home \"\/work\/gimp\/\")) (load (string-append path-lib \"util.scm\")) (load (string-append path-lib \"defun.scm\")) (load (string-append path-lib \"struct2.scm\")) (load (string-append path-lib \"storage.scm\")) (load (string-append path-lib \"cyclic.scm\")) (load (string-append path-lib \"hashtable3.scm\")) ;;\u0445\u0435\u0448 \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043c\u043e\u0436\u0435\u0442 \u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441 \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u043c\u0438 \u0432 \u043a\u0430\u0447\u0435\u0441\u0442\u0432\u0435 \u043a\u043b\u044e\u0447\u0435\u0439! (load (string-append path-lib \"sort2.scm\")) (load (string-append path-lib \"tsort.scm\")) ;;(load (string-append path-lib \"cpl-sbcl.scm\")) (load (string-append path-lib \"cpl-mro.scm\")) ;;(load (string-append path-lib \"cpl-topext.scm\")) (load (string-append path-lib \"struct2ext.scm\")) (load (string-append path-lib \"queue.scm\")) (load (string-append path-lib \"obj5.scm\")) (load (string-append path-lib \"obj\/object.scm\"))  (load (string-append path-lib \"point.scm\")) (load (string-append path-lib \"tr2d.scm\")) (load (string-append path-lib \"contour.scm\")) (load (string-append path-lib \"img.scm\")) (load (string-append path-lib \"rect.scm\")) (load (string-append path-lib \"vect.scm\")) (load (string-append path-lib \"brush.scm\")) (load (string-append path-lib \"fig-obj4.scm\")) <\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0421\u043e\u0437\u0434\u0430\u0451\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438 5 \u0444\u043e\u043d\u043e\u0432\u044b\u0445 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u043e\u0432, \u0434\u043b\u044f \u0447\u0435\u0433\u043e \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u0435\u043c \u0441\u043e\u0441\u0442\u0430\u0432\u043d\u0443\u044e \u0444\u0438\u0433\u0443\u0440\u0443(<code>complex-fig<\/code>).<\/p>\n<pre><code class=\"lisp\">(define i1 (create-1-layer-img 640 480)) ;;\u043f\u043e\u0434\u0433\u043e\u0442\u043e\u0432\u0438\u043c \u043f\u043e\u043b\u043e\u0442\u043d\u043e \u0434\u043b\u044f \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f.  (define c2 (make-rect-contour 0 0 50 50))  (define bsh4 (make-brush1 :name  \"2. Hardness 075\"  :size 5))  (define r1 (make-rect-by-vect (p! 5 210) (p! 200 0) (p! 0 -200))) (define r2 (make-rect-by-vect (p! 210 210) (p! 200 0) (p! 0 -200))) (define r3 (make-rect-by-vect (p! 420 210) (p! 200 0) (p! 0 -200))) (define r4 (make-rect-by-vect (p! 5 420) (p! 200 0) (p! 0 -200))) (define r5 (make-rect-by-vect (p! 210 420) (p! 200 0) (p! 0 -200)))  (define fon (complex-fig! :figs   (list (shape-fig! :contour c2 :color '(127 127 0))     (brush-fig! :contour c2 :color '(0 0 255))))) (draw-to-rect fon i1 r1) (draw-to-rect fon i1 r2) (draw-to-rect fon i1 r3) (draw-to-rect fon i1 r4) (draw-to-rect fon i1 r5) <\/code><\/pre>\n<p>\u0414\u0430\u043b\u0435\u0435 \u0432 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0445 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0430\u0445 \u0440\u0438\u0441\u0443\u0435\u043c \u0441\u043e\u0437\u0434\u0430\u0432\u0430\u0435\u043c\u044b\u0435 \u0444\u0438\u0433\u0443\u0440\u044b.<\/p>\n<pre><code class=\"lisp\">;;\u0441\u043e\u0437\u0434\u0430\u0451\u043c \u0437\u0432\u0435\u0437\u0434\u0443 \u0438 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0435\u0451 \u0432 1 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0435 (define c3 (translate-contour (make-star 30 5 0.3)       (make-tr2d-rot 90)))  (define f1 (brush-fig! :contour c3 :color '(255 0 0) :brush bsh4)) (draw-to-rect f1 i1 r1)  ;;\u0441\u043e\u0437\u0434\u0430\u0451\u043c \u043a\u0440\u0443\u0433, \"\u043f\u043e\u0434\u0436\u0430\u0442\u044b\u0439\" \u0441 \u0431\u043e\u043a\u043e\u0432 \u0438 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0432\u043e 2 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0435 (define c4 (make-circle-n 50 50 50 10)) ;;\u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0442\u0430\u043a\u043e\u0433\u043e \u043a\u043e\u043d\u0442\u0443\u0440\u0430 \u0431\u0443\u0434\u0443\u0442 \u043e\u0442 0 \u0434\u043e 100. (define f2 (shape-fig! :contour c4 :color '(255 0 0) :brush bsh4 :min-x -10 :max-x 110)) (draw-to-rect f2 i1 r2)  ;;\u0441\u043e\u0437\u0434\u0430\u0451\u043c \u043f\u043e\u0432\u0451\u0440\u043d\u0443\u0442\u044b \u043a\u0432\u0430\u0434\u0440\u0430\u0442 \u0440\u0438\u0441\u0443\u0435\u043c\u044b\u0439 \u043a\u0430\u0440\u0430\u043d\u0434\u0430\u0448\u043e\u043c \u0438 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0432 3 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0435 (define c5 (translate-contour (make-rect-contour 0 0 50 50) (make-tr2d-rot 45))) (define f3 (pencil-fig! :contour c5 :color '(0 127 255) :brush bsh4)) (draw-to-rect f3 i1 r3)  ;;\u0437\u0430\u0433\u0440\u0443\u0436\u0430\u0435\u043c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0435\u0433\u043e \u0432 4 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0435 (define i-george (img-load (join-to-str path-work \"george.png\"))) (define f4 (image-fig! :image i-george)) (draw-to-rect f4 i1 r4)  ;;\u0441\u043e\u0437\u0434\u0430\u0451\u043c \u0442\u0435\u043a\u0441\u0442\u043e\u0432\u0443\u044e \u043d\u0430\u0434\u043f\u0438\u0441\u044c \u0438 \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0430\u0435\u043c \u0432 5 \u043a\u0432\u0430\u0434\u0440\u0430\u0442\u0435. (define f5 (text-fig! :name 'text2  :text \"\u041f\u0440\u0438\u0432\u0435\u0442  \u041c\u0438\u0440!\"     :font \"Noto Serif Display Thin\" :color '(255 255 0)     :height 100 :flip #t))  (draw-to-rect f5 i1 r5) <\/code><\/pre>\n<figure class=\"full-width\"><img decoding=\"async\" src=\"https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/19a\/072\/1af\/19a0721afbbd8ea485ce3a05f2e01926.png\" alt=\"\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435\" width=\"640\" height=\"480\" sizes=\"auto, (max-width: 780px) 100vw, 50vw\" srcset=\"https:\/\/habrastorage.org\/r\/w780\/getpro\/habr\/upload_files\/19a\/072\/1af\/19a0721afbbd8ea485ce3a05f2e01926.png 780w,&#10;       https:\/\/habrastorage.org\/r\/w1560\/getpro\/habr\/upload_files\/19a\/072\/1af\/19a0721afbbd8ea485ce3a05f2e01926.png 781w\" loading=\"lazy\" decode=\"async\"\/><\/p>\n<div><figcaption>\u041f\u043e\u043b\u0443\u0447\u0435\u043d\u043d\u043e\u0435 \u0432 \u0440\u0435\u0437\u0443\u043b\u044c\u0442\u0430\u0442\u0435 \u0442\u0435\u0441\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435<\/figcaption><\/div>\n<\/figure>\n<h2>\u0417\u0430\u043a\u043b\u044e\u0447\u0435\u043d\u0438\u0435<\/h2>\n<p>\u0418\u0442\u0430\u043a, \u0432 \u0434\u0430\u043d\u043d\u043e\u0439 \u0441\u0442\u0430\u0442\u044c\u0435 \u044f \u043f\u0440\u0438\u0432\u0451\u043b \u043f\u0435\u0440\u0435\u0440\u0430\u0431\u043e\u0442\u0430\u043d\u043d\u044b\u0439 \u043a\u043e\u0434 \u0434\u043b\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0444\u0438\u0433\u0443\u0440, \u0441\u043e\u0437\u0434\u0430\u044e\u0449\u0438\u0445 \u0430\u0431\u0441\u0442\u0440\u0430\u043a\u0446\u0438\u0438, \u043d\u0430 \u0431\u0430\u0437\u0435 \u043a\u043e\u0442\u043e\u0440\u044b\u0445 \u0441\u0442\u0440\u043e\u0438\u0442\u0441\u044f \u044f\u0437\u044b\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438, \u0440\u0435\u0430\u043b\u0438\u0437\u043e\u0432\u0430\u043d\u043d\u044b\u0439 \u0434\u043b\u044f GIMP Script-fu. \u0422\u0430\u043a \u0436\u0435 \u0437\u0434\u0435\u0441\u044c \u043f\u043e\u043a\u0430\u0437\u0430\u043d\u044b \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u044b \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u043d\u0430 \u043e\u0441\u043d\u043e\u0432\u0435 \u0432\u044b\u044f\u0432\u043b\u0435\u043d\u0438\u044f \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u0445 \u0441\u0432\u043e\u0439\u0441\u0442\u0432 \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u0438 \u0432\u044b\u0434\u0435\u043b\u0435\u043d\u0438\u044f \u0438\u0445 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u044b &#8212; \u043c\u0438\u043a\u0441\u0438\u043d\u044b, \u043d\u0430 \u0431\u0430\u0437\u0435 \u043a\u043e\u0442\u043e\u0440\u044b\u0445, \u0432 \u0434\u0430\u043b\u044c\u043d\u0435\u0439\u0448\u0435\u043c, \u0438 \u043f\u0440\u043e\u0435\u043a\u0442\u0438\u0440\u0443\u044e\u0442\u0441\u044f \u043a\u043b\u0430\u0441\u0441\u044b \u0444\u0438\u0433\u0443\u0440. \u0414\u0430\u043d\u043d\u044b\u0435 \u043f\u0440\u0438\u043c\u0435\u0440\u044b \u043f\u043e\u043a\u0430\u0437\u044b\u0432\u0430\u044e\u0442(\u043d\u0430 \u043c\u043e\u0439 \u0432\u0437\u0433\u043b\u044f\u0434) \u0432\u0441\u044e \u043c\u043e\u0449\u044c \u041e\u041e\u041e \u0441\u0438\u0441\u0442\u0435\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0449\u0438\u0445 \u043c\u043d\u043e\u0436\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u043e\u0435 \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u0435. \u0414\u0430\u043d\u043d\u044b\u0439 \u043f\u043e\u0434\u0445\u043e\u0434 \u043f\u043e\u0437\u0432\u043e\u043b\u044f\u0435\u0442 \u043e\u043f\u0442\u0438\u043c\u0430\u043b\u044c\u043d\u044b\u043c, \u0438\u043b\u0438 \u044f \u0431\u044b \u0434\u0430\u0436\u0435 \u0441\u043a\u0430\u0437\u0430\u043b, \u0435\u0441\u0442\u0435\u0441\u0442\u0432\u0435\u043d\u043d\u044b\u043c \u043e\u0431\u0440\u0430\u0437\u043e\u043c \u0440\u0430\u0441\u043f\u0440\u0435\u0434\u0435\u043b\u0438\u0442\u044c \u043a\u043e\u0434 \u043f\u043e \u043c\u0435\u0442\u043e\u0434\u0430\u043c \u0431\u0430\u0437\u043e\u0432\u044b\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u043c\u0438\u043d\u0438\u043c\u0438\u0437\u0438\u0440\u0443\u044f \u0438\u043b\u0438 \u0434\u0430\u0436\u0435 \u0438\u0441\u043a\u043b\u044e\u0447\u0430\u044f \u0435\u0433\u043e \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435.<\/p>\n<\/div>\n<\/div>\n<\/div>\n<p><!----><!----><\/div>\n<p><!----><!----><br \/> \u0441\u0441\u044b\u043b\u043a\u0430 \u043d\u0430 \u043e\u0440\u0438\u0433\u0438\u043d\u0430\u043b \u0441\u0442\u0430\u0442\u044c\u0438 <a href=\"https:\/\/habr.com\/ru\/articles\/936636\/\"> https:\/\/habr.com\/ru\/articles\/936636\/<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"<div><!--[--><!--]--><\/div>\n<div id=\"post-content-body\">\n<div>\n<div class=\"article-formatted-body article-formatted-body article-formatted-body_version-2\">\n<div xmlns=\"http:\/\/www.w3.org\/1999\/xhtml\">\n<p><a href=\"https:\/\/gitflic.ru\/project\/nuinu\/gimp-script-fu-ext\" rel=\"noopener noreferrer nofollow\">\u0411\u0438\u0431\u043b\u0438\u043e\u0442\u0435\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u0439 \u043a Script-fu<\/a><\/p>\n<h2>\u0412\u0432\u0435\u0434\u0435\u043d\u0438\u0435<\/h2>\n<p>\u0412\u044b \u043b\u044e\u0431\u0438\u0442\u0435 \u0440\u0435\u0444\u0430\u043a\u0442\u043e\u0440\u0438\u043d\u0433? \u041d\u0443 \u0432\u043e\u0442 \u0438 \u044f \u043f\u0440\u0438\u0431\u043b\u0438\u0437\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0442\u0430\u043a \u0436\u0435. \u041e\u0441\u043d\u043e\u0432\u043d\u043e\u0435 \u043f\u0440\u0430\u0432\u0438\u043b\u043e \u0445\u043e\u0440\u043e\u0448\u0435\u0433\u043e \u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c\u0438\u0441\u0442\u0430, \u0442\u0430\u043a\u043e\u0435: &#171;\u0420\u0430\u0431\u043e\u0442\u0430\u0435\u0442, \u041d\u0415 \u0422\u0420\u041e\u0413\u0410\u0419!&#187;. \u041d\u043e \u0438\u043d\u043e\u0433\u0434\u0430, \u0432 \u0440\u0435\u0434\u043a\u0438\u0435 \u043c\u0438\u043d\u0443\u0442\u044b \u043f\u043e\u043c\u0443\u0442\u043d\u0435\u043d\u0438\u044f\/\u0432\u0434\u043e\u0445\u043d\u043e\u0432\u0435\u043d\u0438\u044f, \u0432\u043e\u0437\u043d\u0438\u043a\u0430\u0435\u0442 \u0436\u0435\u043b\u0430\u043d\u0438\u0435, \u0438\u043b\u0438 \u044f \u0431\u044b \u0434\u0430\u0436\u0435 \u0441\u043a\u0430\u0437\u0430\u043b \u0437\u0443\u0434, \u0432 \u043e\u0434\u043d\u043e\u043c \u043c\u0435\u0441\u0442\u0435, \u0438 \u043c\u044b \u0441\u0430\u0434\u0438\u043c\u0441\u044f \u0437\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u0435 \u043c\u0435\u0441\u0442\u043e, \u0431\u0435\u0440\u0451\u043c \u0432 \u0440\u0443\u043a\u0438 \u043a\u043b\u0430\u0432\u0438\u0430\u0442\u0443\u0440\u0443 \u0438 \u043d\u0430\u0447\u0438\u043d\u0430\u0435\u043c &#171;\u0442\u0432\u043e\u0440\u0438\u0442\u044c \u0448\u0435\u0434\u0435\u0432\u0440\u044b&#187; \u0441 \u0447\u0438\u0441\u0442\u043e\u0433\u043e \u043b\u0438\u0441\u0442\u0430.<\/p>\n<p>\u0421\u0438\u0441\u0442\u0435\u043c\u044b \u043f\u043e\u0434\u043f\u0440\u043e\u0433\u0440\u0430\u043c\u043c \u0434\u043b\u044f  \u044f\u0437\u044b\u043a\u0430 \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438 \u044f \u043f\u0438\u0441\u0430\u043b \u0442\u0440\u0438 \u0440\u0430\u0437\u0430: \u0441\u043d\u0430\u0447\u0430\u043b\u0430 \u0432 <strong>\u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u043c \u0441\u0442\u0438\u043b\u0435<\/strong>(\u0438 \u0432 \u044d\u0442\u043e\u043c \u0442\u043e \u043c\u0435\u0441\u0442\u0435 \u0438 \u0432\u043e\u0437\u043d\u0438\u043a \u043f\u0440\u0435\u0441\u043b\u043e\u0432\u0443\u0442\u044b\u0439 &#171;\u0441\u0432\u0438\u0442\u0447\u0438\u043d\u0433 \u043f\u043e \u0442\u0438\u043f\u0430\u043c&#187;, \u043f\u043e\u0442\u043e\u043c <strong>\u0432 \u0441\u0442\u0438\u043b\u0435 \u043f\u0440\u0438\u043c\u0438\u0442\u0438\u0432\u043d\u044b\u0445 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432<\/strong>, \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043d\u0435 \u0438\u043c\u0435\u043b \u043d\u0430\u0441\u043b\u0435\u0434\u043e\u0432\u0430\u043d\u0438\u044f, \u043d\u043e \u044f \u043f\u0440\u0438\u0434\u0443\u043c\u0430\u0432 \u0445\u0430\u043a \u0441 \u0448\u0430\u0431\u043b\u043e\u043d\u043d\u044b\u043c \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u043a\u043e\u0434\u0430, \u0437\u043d\u0430\u0447\u0438\u0442\u0435\u043b\u044c\u043d\u043e \u0441\u043e\u043a\u0440\u0430\u0442\u0438\u043b \u0435\u0433\u043e \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u0438 \u0442\u0435\u043f\u0435\u0440\u044c, \u043a\u043e\u0433\u0434\u0430 \u044f \u0440\u0430\u0437\u0440\u0430\u0431\u043e\u0442\u0430\u043b <strong>\u0440\u0430\u0437\u0432\u0438\u0442\u0443\u044e \u041e\u041e\u041f \u0441\u0438\u0441\u0442\u0435\u043c\u0443<\/strong>, \u0432\u043e \u043c\u043d\u043e\u0433\u043e\u043c \u043f\u043e\u0432\u0442\u043e\u0440\u044f\u044e\u0449\u0443\u044e \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0441\u0442\u044c CLOS. \u0418 \u044d\u0442\u043e \u0441\u043e\u0431\u044b\u0442\u0438\u0435 \u043f\u0440\u0435\u043a\u0440\u0430\u0441\u043d\u0430\u044f \u043f\u0440\u0438\u0447\u0438\u043d\u0430, \u0447\u0442\u043e\u0431\u044b \u043f\u0435\u0440\u0435\u0440\u0430\u0431\u043e\u0442\u0430\u0442\u044c \u0441\u0442\u0430\u0440\u044b\u0439 \u041e\u041e\u041f \u043a\u043e\u0434, \u0432 \u043d\u043e\u0432\u043e\u0439 \u041e\u041e \u0441\u0438\u0441\u0442\u0435\u043c\u0435. \u0427\u0435\u043c \u043c\u044b \u0441 \u0432\u0430\u043c\u0438 \u0437\u0434\u0435\u0441\u044c \u0438 \u0437\u0430\u0439\u043c\u0451\u043c\u0441\u044f.<\/p>\n<h2>\u041c\u0438\u043a\u0441\u0438\u043d\u044b \u043a\u0430\u043a \u0441\u043f\u043e\u0441\u043e\u0431 \u043a\u043e\u043d\u0441\u0442\u0440\u0443\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432.<\/h2>\n<p>\u041e\u0431\u044b\u0447\u043d\u043e \u043e\u0431\u044a\u0435\u043a\u0442\u044b \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0438\u043c\u0435\u044e\u0442 \u043a\u0430\u043a\u0438\u0435 \u0442\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u044b \u0445\u0440\u0430\u043d\u0438\u043c \u0432 \u043f\u043e\u043b\u044f\u0445. \u041c\u0438\u043a\u0441\u0438\u043d\u044b \u044d\u0442\u043e \u043a\u043b\u0430\u0441\u0441\u044b \u0445\u0440\u0430\u043d\u044f\u0449\u0438\u0435 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0435\u0437\u0430\u0432\u0438\u0441\u0438\u043c\u044b\u0435 \u043e\u0442 \u043e\u0441\u043d\u043e\u0432\u043d\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043d\u0435\u0437\u0430\u0432\u0438\u0441\u0438\u043c\u044b\u0435 \u0438\u043b\u0438 \u043d\u0435\u043e\u0431\u044f\u0437\u0430\u0442\u0435\u043b\u044c\u043d\u044b\u0435. \u0414\u0430 \u0438 \u0432 \u0441\u0430\u043c\u043e\u043c \u043a\u043b\u0430\u0441\u0441\u0435 \u0435\u0441\u043b\u0438 \u0432\u043d\u0438\u043c\u0430\u0442\u0435\u043b\u044c\u043d\u043e \u043f\u0440\u0438\u0441\u043c\u043e\u0442\u0440\u0435\u0442\u044c\u0441\u044f \u043c\u043e\u0433\u0443\u0442 \u043e\u0431\u043d\u0430\u0440\u0443\u0436\u0438\u0442\u044c\u0441\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043d\u0438\u043a\u0430\u043a \u0434\u0440\u0443\u0433 \u0441 \u0434\u0440\u0443\u0433\u043e\u043c \u043d\u0435 \u043f\u0435\u0440\u0435\u0441\u0435\u043a\u0430\u044e\u0449\u0438\u0435\u0441\u044f, \u0438\u043b\u0438 \u0438\u043c\u0435\u044e\u0449\u0438\u0435 \u0432\u0435\u0441\u044c\u043c\u0430 \u0441\u043b\u0430\u0431\u0443\u044e \u0441\u0432\u044f\u0437\u044c. \u0422\u0435 <strong>\u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043d\u0438\u043a\u0430\u043a \u043d\u0435 \u043a\u043e\u0440\u0440\u0435\u043b\u0438\u0440\u0443\u044e\u0442 \u0434\u0440\u0443\u0433 \u0441 \u0434\u0440\u0443\u0433\u043e\u043c<\/strong> \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043d\u0430\u0437\u044b\u0432\u0430\u0442\u044c<strong> \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438<\/strong>, \u0438 \u0438\u0445 \u043c\u043e\u0436\u043d\u043e \u0432\u044b\u043d\u0435\u0441\u0442\u0438 \u0432 \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441, \u043d\u0430\u0437\u044b\u0432\u0430\u0435\u043c\u044b\u0439 <strong>\u043c\u0438\u043a\u0441\u0438\u043d\u043e\u043c<\/strong>. \u041d\u0430\u043f\u0440\u0438\u043c\u0435\u0440 \u043a \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c \u043c\u043e\u0436\u043d\u043e \u043e\u0442\u043d\u0435\u0441\u0442\u0438: \u0446\u0432\u0435\u0442, \u0438\u043c\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430, \u043a\u043e\u043d\u0442\u0443\u0440, \u0438\u043b\u0438 \u043a\u0438\u0441\u0442\u044c. \u0421\u043b\u0430\u0431\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0442\u043e\u0436\u0435 \u043c\u043e\u0436\u043d\u043e \u0441\u0447\u0438\u0442\u0430\u0442\u044c \u0443\u0441\u043b\u043e\u0432\u043d\u043e \u043e\u0440\u0442\u043e\u0433\u043e\u043d\u0430\u043b\u044c\u043d\u044b\u043c\u0438, \u043d\u043e \u043f\u043e\u0441\u043a\u043e\u043b\u044c\u043a\u0443 \u043e\u043d\u0438 \u0441\u0432\u044f\u0437\u0430\u043d\u044b, <strong>\u0438\u0445 \u0441\u0432\u044f\u0437\u044c<\/strong> \u0438\u043b\u0438 \u043a\u043e\u0440\u0440\u0435\u043b\u044f\u0446\u0438\u044e, <strong>\u0434\u043e\u043b\u0436\u0435\u043d \u043e\u0442\u0441\u043b\u0435\u0436\u0438\u0432\u0430\u0442\u044c \u043a\u0430\u043a\u043e\u0439 \u0442\u043e \u043f\u0440\u043e\u043c\u0435\u0436\u0443\u0442\u043e\u0447\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441<\/strong>, \u043c\u0435\u0442\u043e\u0434\u044b \u043a\u043e\u0442\u043e\u0440\u043e\u0433\u043e \u0431\u0443\u0434\u0443\u0442 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c \u044d\u0442\u0443 \u0441\u0432\u044f\u0437\u044c, \u0442.\u0435 <strong>\u043a\u043e\u043d\u0441\u0438\u0441\u0442\u0435\u043d\u0442\u043d\u043e\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432<\/strong> \u043a\u043b\u0430\u0441\u0441\u0430. \u041a \u0442\u0430\u043a\u0438\u043c \u0441\u043b\u0430\u0431\u043e \u0441\u0432\u044f\u0437\u0430\u043d\u043d\u044b\u043c \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430\u043c,  \u043c\u043e\u0436\u043d\u043e \u043e\u0442\u043d\u0435\u0441\u0442\u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b \u0438 \u043a\u043e\u043d\u0442\u0443\u0440. \u0420\u0430\u0437\u0431\u0438\u0432\u0430\u044f \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0431\u043e\u043b\u044c\u0448\u043e\u0433\u043e \u043a\u043b\u0430\u0441\u0441\u0430, \u043d\u0430 \u043c\u0438\u043a\u0441\u0438\u043d\u044b, \u043c\u044b \u043f\u0440\u0435\u0441\u043b\u0435\u0434\u0443\u0435\u043c \u043e\u0447\u0435\u0432\u0438\u0434\u043d\u0443\u044e \u0446\u0435\u043b\u044c, \u0440\u0430\u0437\u0432\u0435\u0441\u0442\u0438 \u043c\u0435\u0442\u043e\u0434\u044b \u0440\u0430\u0431\u043e\u0442\u0430\u044e\u0449\u0438\u0435 \u0438\u043b\u0438 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044e\u0449\u0438\u0435 \u0434\u0430\u043d\u043d\u044b\u0435 \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u043f\u043e \u043e\u0442\u0434\u0435\u043b\u044c\u043d\u044b\u043c \u043d\u0435\u0431\u043e\u043b\u044c\u0448\u0438\u043c \u043a\u043b\u0430\u0441\u0441\u0430\u043c, \u0442\u0435\u043c \u0441\u0430\u043c\u044b\u043c <strong>\u0443\u0441\u0442\u0440\u0430\u043d\u0438\u0432 \u0434\u0443\u0431\u043b\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u0435 \u043a\u043e\u0434\u0430<\/strong>.<\/p>\n<p>\u0418\u0442\u0430\u043a, \u0440\u0430\u0437\u044a\u044f\u0441\u043d\u0438\u0432 \u043f\u0440\u0438\u043d\u0446\u0438\u043f\u044b \u0441\u043e\u0437\u0434\u0430\u043d\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0441 \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u043e\u0432\u0430\u043d\u0438\u0435\u043c \u043c\u0438\u043a\u0441\u0438\u043d\u043e\u0432 \u043c\u043e\u0436\u043d\u043e \u043f\u0440\u0438\u0441\u0442\u0443\u043f\u0430\u0442\u044c \u043a \u043f\u0440\u043e\u0435\u043a\u0442\u0438\u0440\u043e\u0432\u0430\u043d\u0438\u044e \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0438 \u043c\u0435\u0442\u043e\u0434\u043e\u0432.<\/p>\n<h2>\u0421\u0438\u0441\u0442\u0435\u043c\u0430 \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0434\u043b\u044f \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u044f \u0432 GIMP<\/h2>\n<details class=\"spoiler\">\n<summary>\u043d\u0435\u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0444\u0443\u043d\u043a\u0446\u0438\u0438 \u043f\u043e\u043c\u043e\u0433\u0430\u044e\u0449\u0438\u0435 \u0440\u0438\u0441\u043e\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u0442\u0443\u0440\u044b \u0438 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f.<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">(define default-color '(127 127 127)) (define default-brush (make-brush1 :name \"Circle (05)\"))  ;;\u0441\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u0432\u0435\u043a\u0442\u043e\u0440\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u043f\u0440\u0438\u0433\u043e\u0434\u043d\u044b\u0445 \u0434\u043b\u044f \u043e\u0442\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f \u0432 \u0444\u0443\u043d\u043a\u0446\u0438\u0445 GIMP \u043f\u043e \u043a\u043e\u043d\u0442\u0443\u0440\u0443 (define (make-contour-vector contour num-points)    (let ((points     (make-vector (* 2 num-points) 'double))          (i   0)          (cur contour))       (while (&lt; i num-points)          (vector-set! points (* 2 i)       (p-x (car cur)))          (vector-set! points (+ (* 2 i) 1) (p-y (car cur)))          (set! i   (+ i 1))          (set! cur (cdr cur)))       points))    ;;\u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u044f  (define (draw-from-image-trans dest src tr)    (let* ((dw2 (car (gimp-layer-new-from-drawable                     (car (gimp-image-get-active-layer src)) dest)))          (m11 (tr2d-m11 tr))          (m12 (tr2d-m12 tr))          (m21 (tr2d-m21 tr))          (m22 (tr2d-m22 tr))          (mx  (tr2d-dx  tr))          (my  (tr2d-dy  tr)))      (gimp-image-add-layer dest dw2 0)      (gimp-item-transform-matrix dw2                                 m11 m21 mx                                 m12 m22 my                                 0   0   1)      (gimp-image-merge-visible-layers dest CLIP-TO-IMAGE)      )) <\/code><\/pre>\n<\/div>\n<\/details>\n<p>\u0411\u0430\u0437\u043e\u0432\u044b\u0435 \u043a\u043b\u0430\u0441\u0441\u044b <strong>\u043c\u0438\u043a\u0441\u0438\u043d\u044b<\/strong> \u0438\u0441\u043f\u043e\u043b\u044c\u0437\u0443\u044f \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u043c\u044b \u0431\u0443\u0434\u0435\u043c \u043e\u043f\u0438\u0441\u044b\u0432\u0430\u0442\u044c \u043a\u043b\u0430\u0441\u0441\u044b \u0444\u0438\u0433\u0443\u0440<\/p>\n<pre><code class=\"lisp\">(defclass contoured ()   (contour))  (defclass gabarited ()   ((min-x #f) (min-y #f) (max-x #f) (max-y #f)))  (defclass named ()   (name))  (defclass fliped ()   ((flip #f)))  (defclass colored ()   ((color default-color)))  (defclass brushed ()   ((brush default-brush))) <\/code><\/pre>\n<p><strong>\u041e\u043f\u0438\u0441\u0430\u043d\u0438\u0435 \u043a\u043b\u0430\u0441\u0441\u043e\u0432<\/strong> \u0444\u0438\u0433\u0443\u0440 <strong>\u0447\u0435\u0440\u0435\u0437 \u043c\u0438\u043a\u0441\u0438\u043d\u044b<\/strong>:<\/p>\n<pre><code class=\"lisp\">(defclass fig (named gabarited)   ())  (defclass contour-fig (fig contoured)   ())  ;;\u043e\u0434\u043d\u043e\u043a\u043e\u043d\u0442\u0443\u0440\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 \u0440\u0438\u0441\u0443\u0435\u043c\u0430\u044f \u043a\u0438\u0441\u0442\u044c\u044e (defclass brush-fig (contour-fig colored brushed)   ())  ;;\u0437\u0430\u043a\u0440\u0430\u0448\u0438\u0432\u0430\u0435\u043c\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430, \u043a\u0441\u0442\u044c \u0435\u0439 \u043d\u0443\u0436\u043d\u0430 \u043f\u043e\u0442\u043e\u043c\u0443 \u0447\u0442\u043e \u0432 \u043d\u0435\u0439 \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u0435\u0442\u0441\u044f \u043f\u0440\u043e\u0437\u0440\u0430\u0447\u043d\u043e\u0441\u0442\u044c. (defclass shape-fig (contour-fig colored brushed)   ())  ;;\u0444\u0438\u0433\u0443\u0440\u0430 \u0440\u0438\u0441\u0443\u0435\u043c\u0430\u044f \u043a\u0440\u0430\u043d\u0434\u0430\u0448\u043e\u043c (defclass pencil-fig (contour-fig colored brushed)   ())  ;;\u0441\u043e\u0441\u0442\u0430\u0432\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430 (defclass complex-fig (fig)   (figs))  ;;\u043e\u0434\u0438\u043d\u043e\u0447\u043d\u043e\u0435 \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 (defclass image-fig (fig fliped)   (image))  ;;\u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0442\u0435\u043a\u0441\u0442\u0430. (defclass text-fig (colored fig fliped)   (text font (height 100)) ) <\/code><\/pre>\n<p>\u041a\u043b\u0430\u0441\u0441\u044b: brush-fig, shape-fig \u0438 pencil-fig \u0438\u043c\u0435\u044e\u0442 \u043e\u0434\u0438\u043d\u0430\u043a\u043e\u0432\u044b\u0439 \u043d\u0430\u0431\u043e\u0440 \u0441\u0432\u043e\u0439\u0441\u0442, \u043d\u043e \u0440\u0430\u0437\u043d\u043e\u0435 \u043f\u043e\u0432\u0435\u0434\u0435\u043d\u0438\u0435.<\/p>\n<figure class=\"full-width\">\n<div><figcaption>\u0418\u0435\u0440\u0430\u0440\u0445\u0438\u044f \u043a\u043b\u0430\u0441\u0441\u043e\u0432 \u0444\u0438\u0433\u0443\u0440 \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u044e\u0449\u0438\u0445 \u044f\u0437\u044b\u043a \u0444\u0443\u043d\u043a\u0446\u0438\u043e\u043d\u0430\u043b\u044c\u043d\u043e\u0439 \u0433\u0435\u043e\u043c\u0435\u0442\u0440\u0438\u0438<\/figcaption><\/div>\n<\/figure>\n<details class=\"spoiler\">\n<summary>\u043a\u0430\u043a \u043f\u043e\u043b\u0443\u0447\u0438\u0442\u044c \u0438\u0437\u043e\u0431\u0440\u0430\u0436\u0435\u043d\u0438\u0435 \u0438\u0435\u0440\u0430\u0440\u0445\u0438\u0438 \u043d\u0435\u0441\u043a\u043e\u043b\u044c\u043a\u0438\u0445 \u043a\u043b\u0430\u0441\u0441\u043e\u0432<\/summary>\n<div class=\"spoiler__content\">\n<pre><code class=\"lisp\">;;\u043a\u043e\u043f\u0438\u0440\u0443\u0435\u0442 \u0438\u0435\u0440\u0430\u0440\u0445\u0438\u044e \u043a\u043b\u0430\u0441\u0441\u043e\u0432, \u043d\u043e \u0442\u043e\u043b\u044c\u043a\u043e \u0442\u0443, \u043a\u043e\u0442\u043e\u0440\u044b\u0435 \u0435\u0441\u0442\u044c \u0432 \u0441\u043f\u0438\u0441\u043a\u0435 \u043a\u043b\u0430\u0441\u0441\u0432. (define-m (copy-class-hierarhy lst-class class-hierarhy)   (let ((rez (make-hash 16))         (tmp-base #f))     (for-list (el lst-class)        (set! tmp-base (hash-ref class-hierarhy el))        (if (car tmp-base)            (hash-set! rez el (cdr tmp-base))            (hash-set! rez el '())))     rez))   (define-m (classes-to-pairs classes)   (let ((in-rez (make-hash 32))         (rez '()))     (for-list (cls classes)        (let* ((lst-class (cons cls (get-class-parents-all cls)))               (class-hierarhy (copy-class-hierarhy lst-class *class-hierarhy*))               (lst (hash2pairs class-hierarhy)))  (for-list (p lst)      (do ((parents (cdr p) (cdr parents)))  ((null? parents) rez)        (let ((new-pair (cons (car p) (car parents))))  (unless (car (hash-ref in-rez new-pair))    (hash-set! in-rez new-pair #t)    (push rez new-pair)))))))     rez))  (classes-to-pairs '(fig)) (classes-to-pairs '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig))   (define-m (classes-to-graphvz classes file)   (with-output-to-file (string-append file \".gv\")     (lambda ()       (prn \"digraph G{\\n\")       ;;(prn \"  rankdir=RL;\\n\")       ;;(prn \"  rankdir=LR;\\n\")       (for-list (p (classes-to-pairs classes))                 (prn \"  \\\"\" (car p) \"\\\" -&gt; \\\"\" (cdr p) \"\\\";\\n\"))       (prn \"}\\n\")))   (join-to-str \"dot -Tpng \"  file \".gv -o \"  file \".png\" ))  (classes-to-pairs '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig))  (classes-to-graphvz '(image-fig shape-fig text-fig pencil-fig brush-fig complex-fig)   (string-append path-work \"doc\/oop\/\" \"fig-obj4\")) ;;\"dot -Tpng ~\/work\/gimp\/doc\/oop\/fig-obj4.gv -o ~\/work\/gimp\/doc\/oop\/fig-obj4.png\"<\/code><\/pre>\n<\/div>\n<\/details>\n<h2>\u041f\u0440\u0438\u0441\u0442\u0443\u043f\u0438\u043c \u043a \u043e\u043f\u0438\u0441\u0430\u043d\u0438\u044e \u043c\u0435\u0442\u043e\u0434\u043e\u0432.<\/h2>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d <code>named<\/code> \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0438\u043c\u044f \u043e\u0431\u044a\u0435\u043a\u0442\u0430, \u043f\u043e\u044d\u0442\u043e\u043c\u0443 \u0438\u043c\u0435\u0435\u0442 \u043c\u0435\u0442\u043e\u0434 \u0432\u044b\u0434\u0430\u0447\u0438 \u044d\u0442\u043e\u0433\u043e \u0438\u043c\u0435\u043d\u0438 \u0438 \u0442\u0430\u043a\u0436\u0435 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0435\u0433\u043e \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods named   (get-name ()     name)   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :name parsed) (set! self.name (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d &#171;\u043f\u0435\u0440\u0435\u0432\u0451\u0440\u0442\u044b\u0432\u0430\u043d\u0438\u044f&#187; \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0434\u0430\u043d\u043d\u043e\u0433\u043e \u0441\u0432\u043e\u0439\u0441\u0442\u0432\u0430 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods fliped   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :flip parsed) (set! self.flip (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d &#171;\u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432&#187; \u0444\u0438\u0433\u0443\u0440\u044b, \u0445\u0440\u0430\u043d\u0438\u0442 \u0435\u0451 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u044b, \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043a\u0443 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432, \u0430 \u0442\u0430\u043a \u0436\u0435, <em>\u0432\u043d\u0435\u0437\u0430\u043f\u043d\u043e<\/em>, \u0437\u0430 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0435 \u0444\u0438\u0433\u0443\u0440\u044b \u0432 \u0443\u043a\u0430\u0437\u0430\u043d\u043d\u044b\u0439 \u043e\u0431\u044a\u0451\u043c(rect \u044d\u0442\u043e \u043d\u0435 \u0441\u043e\u0432\u0441\u0435\u043c \u043f\u0440\u044f\u043c\u043e\u0443\u0433\u043e\u043b\u044c\u043d\u0438\u043a, \u044d\u0442\u043e \u0441\u043a\u043e\u0440\u0435\u0435 \u043f\u0430\u0440\u0430\u043b\u043b\u0435\u043b\u043e\u0433\u0440\u0430\u043c\u043c), \u0430 \u0442\u0430\u043a\u0436\u0435 \u0432\u044b\u0434\u0430\u0451\u0442 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432 \u043f\u043e \u0437\u0430\u043f\u0440\u043e\u0441\u0443 \u0438 \u0438\u043c\u0435\u0435\u0442 \u043c\u0435\u0442\u043e\u0434 <code>assign-undefined<\/code> \u043a\u043e\u0442\u043e\u0440\u044b\u0439 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u0435\u0442 \u043d\u0435 \u0443\u0441\u0442\u0430\u043d\u043e\u0432\u043b\u0435\u043d\u043d\u044b\u0435 \u0437\u043d\u0430\u0447\u0435\u043d\u0438\u044f \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u043e\u0432.<\/p>\n<pre><code class=\"lisp\">(defmethods gabarited   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :min-x parsed)  (set! self.min-x  (cdr it)))      (awhen (assq :max-x parsed)  (set! self.max-x  (cdr it)))      (awhen (assq :min-y parsed)  (set! self.min-y  (cdr it)))      (awhen (assq :max-y parsed)  (set! self.max-y  (cdr it)))      self)   (assign-undefined (min-x min-y max-x max-y )        (unless self.min-x  (set! self.min-x   min-x))        (unless self.min-y  (set! self.min-y   min-y))        (unless self.max-x  (set! self.max-x   max-x))        (unless self.max-y  (set! self.max-y   max-y)))   (get-gabarite ()      (list self.min-x self.min-y self.max-x self.max-y))   (draw-to-rect (img r)      (let  ((delta      0.00001)             (tr  (make-tr2d-from-rect r                                       (- self.max-x self.min-x)                                       (- self.max-y self.min-y))))        (if (or (&gt; (abs self.min-x) delta)  ;;min-x                (&gt; (abs self.min-y) delta));;min-y \u0444\u0438\u0433\u0443\u0440\u044b \u0441\u0434\u0432\u0438\u043d\u0443\u0442\u043e \u043e\u0442\u043d\u043e\u0441\u0438\u0442\u0435\u043b\u044c\u043d\u043e            (set! tr (comb-tr2d            ;;\u043d\u0430\u0447\u0430\u043b\u0430 \u043a\u043e\u043e\u0440\u0434\u0438\u043d\u0430\u0442 \u043d\u0430\u0434\u043e \u043f\u043e\u0434\u0432\u0438\u043d\u0443\u0442\u044c \u0442\u0443\u0434\u0430!                      (make-tr2d-move (- self.min-x) (- self.min-y))                      tr)))        (draw self img tr))           )   (draw (img tr)      (prn \"draw not implemented for: \" (type-obj self) \"\\n\")      )   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d \u043a\u043e\u043d\u0442\u0443\u0440\u0430, \u0445\u0440\u0430\u043d\u0438\u0442 \u043a\u043e\u043d\u0442\u0443\u0440 \u0438 \u043e\u0442\u0432\u0435\u0447\u0430\u0435\u0442 \u0437\u0430 \u0435\u0433\u043e \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u0435 \u0432 \u043a\u043b\u0430\u0441\u0441\u0435 \u043f\u043e\u0442\u043e\u043c\u043a\u0435.<\/p>\n<pre><code class=\"lisp\">(defmethods contoured   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :contour parsed)  (set! self.contour  (cdr it)))      self)   ) <\/code><\/pre>\n<p>\u041c\u0438\u043a\u0441\u0438\u043d\u044b \u0446\u0432\u0435\u0442\u0430 \u0438 \u043a\u0438\u0441\u0442\u0438 \u043f\u043e \u043c\u0438\u043c\u043e \u0445\u0440\u0430\u043d\u0435\u043d\u0438\u044f \u0438 \u043f\u0440\u0438\u0441\u0432\u0430\u0438\u0432\u0430\u043d\u0438\u044f \u0443\u0447\u0430\u0441\u0442\u0432\u0443\u044e\u0442 \u0432 \u0440\u0438\u0441\u043e\u0432\u0430\u043d\u0438\u0438 \u0444\u0438\u0433\u0443\u0440\u044b, \u0443\u0441\u0442\u0430\u043d\u0430\u0432\u043b\u0438\u0432\u0430\u044f \u0446\u0432\u0435\u0442 \u0438 \u043a\u0438\u0441\u0442\u044c, \u0441\u043e\u043e\u0442\u0432\u0435\u0442\u0441\u0442\u0432\u0435\u043d\u043d\u043e.<\/p>\n<pre><code class=\"lisp\">(defmethods colored   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :color parsed)  (set! self.color  (cdr it)))      self)   (:before draw (img tr)      (when self.color (gimp-context-set-foreground self.color)))   )  (defmethods brushed   (parsed-change (parsed)      (if (next-method-p) (call-next-method))      (awhen (assq :brush parsed)  (set! self.brush  (cdr it)))      self)   (:before draw (img tr)      (when self.brush (self.brush)))   ) <\/code><\/pre>\n<p><strong>\u041a\u043e\u043d\u0442\u0443\u0440\u043d\u0430\u044f \u0444\u0438\u0433\u0443\u0440\u0430<\/strong>, \u044d\u0442\u043e \u0443\u0436\u0435 <strong>\u043f\u0440\u043e\u0438\u0437\u0432\u043e\u0434\u043d\u044b\u0439 \u043a\u043b\u0430\u0441\u0441 \u0434\u0432\u0443\u0445 \u043c\u0438\u043a\u0441\u0438\u043d\u043e\u0432<\/strong>. \u041e\u043d\u0430 <strong>\u0441\u043e\u0433\u043b\u0430\u0441\u043e\u0432\u044b\u0432\u0430\u0435\u0442 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u044f \u0432 \u043c\u0435\u0436\u0434\u0443 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u0430\u043c\u0438 \u043a\u043e\u043d\u0442\u0443\u0440\u0430 \u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442\u0430\u043c\u0438 \u0444\u0438\u0433\u0443\u0440\u044b<\/strong>, \u0442.\u043a. \u043a\u043e\u043d\u0442\u0443\u0440 \u0438 \u0433\u0430\u0431\u0430\u0440\u0438\u0442 \u0438\u043c\u0435\u044e\u0442 \u043d\u0435\u043a\u043e\u0442\u043e\u0440\u0443\u044e \u0441\u0432\u044f\u0437\u044c \u043c\u0435\u0436\u0434\u0443 \u0441\u043e\u0431\u043e\u0439, \u043c\u044b \u0434\u043e\u043b\u0436\u043d\u044b \u043f\u043e\u0434\u0434\u0435\u0440\u0436\u0438\u0432\u0430\u0442\u044c \u043a\u043e\u043d\u0441\u0438\u0441\u0442\u0435\u043d\u0442\u043d\u043e\u0435 \u0441\u043e\u0441\u0442\u043e\u044f\u043d\u0438\u0435 \u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u0430\u0445 \u043a\u043b\u0430\u0441\u0441\u0430 \u043f\u0440\u0438 \u0438\u0437\u043c\u0435\u043d\u0435\u043d\u0438\u0438<\/p>\n<\/div>\n<\/div>\n<\/div>\n<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[],"tags":[],"class_list":["post-470565","post","type-post","status-publish","format-standard","hentry"],"_links":{"self":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/470565","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=470565"}],"version-history":[{"count":0,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=\/wp\/v2\/posts\/470565\/revisions"}],"wp:attachment":[{"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=470565"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=470565"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/savepearlharbor.com\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=470565"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}