From bdcf1ba22ffaab45634754c00641b047025c1e79 Mon Sep 17 00:00:00 2001 From: lloyd konneker Date: Fri, 25 Oct 2024 11:54:29 -0400 Subject: [PATCH] ScriptFu: scripts: add Clothify v2 back as a test plugin After we converted most scripts in the repo to use new registration functions, there are no *filters* left from version 2. But version 2 filters are still supported, with a warning to the console like "image procedures ... only one drawable ... are deprecated." A version 2 filter uses the deprecated registration function script-fu-register and declares args img and drawable (singular) explicitly (contrary to encouraged multi-layer capable.) Until we actually obsolete scripts of this ilk, we need this test plugin for testing. --- .../script-fu/scripts/test/clothify-v2.scm | 74 +++++++++++++++++++ plug-ins/script-fu/scripts/test/meson.build | 1 + 2 files changed, 75 insertions(+) create mode 100644 plug-ins/script-fu/scripts/test/clothify-v2.scm diff --git a/plug-ins/script-fu/scripts/test/clothify-v2.scm b/plug-ins/script-fu/scripts/test/clothify-v2.scm new file mode 100644 index 0000000000..9be1de2f45 --- /dev/null +++ b/plug-ins/script-fu/scripts/test/clothify-v2.scm @@ -0,0 +1,74 @@ + + + +; !!!! This is the version from v2, one drawable +; For testing only. + + + + +(define (script-fu-clothify-old timg tdrawable bx by azimuth elevation depth) + (let* ( + (width (car (gimp-drawable-get-width tdrawable))) + (height (car (gimp-drawable-get-height tdrawable))) + (img (car (gimp-image-new width height RGB))) +; (layer-two (car (gimp-layer-new img width height RGB-IMAGE "Y Dots" 100 LAYER-MODE-MULTIPLY))) + (layer-one (car (gimp-layer-new img width height RGB-IMAGE "X Dots" 100 LAYER-MODE-NORMAL))) + (layer-two 0) + (bump-layer 0) + ) + + (gimp-context-push) + (gimp-context-set-defaults) + + (gimp-image-undo-disable img) + + (gimp-image-insert-layer img layer-one 0 0) + + (gimp-context-set-background '(255 255 255)) + (gimp-drawable-edit-fill layer-one FILL-BACKGROUND) + + (plug-in-noisify RUN-NONINTERACTIVE img layer-one FALSE 0.7 0.7 0.7 0.7) + + (set! layer-two (car (gimp-layer-copy layer-one 0))) + (gimp-layer-set-mode layer-two LAYER-MODE-MULTIPLY) + (gimp-image-insert-layer img layer-two 0 0) + + (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one bx TRUE FALSE) + (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE) + (gimp-image-flatten img) + (set! bump-layer (vector-ref (cadr (gimp-image-get-selected-layers img)) 0)) + + (plug-in-c-astretch RUN-NONINTERACTIVE img bump-layer) + (plug-in-noisify RUN-NONINTERACTIVE img bump-layer FALSE 0.2 0.2 0.2 0.2) + + (plug-in-bump-map RUN-NONINTERACTIVE img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0) + (gimp-image-delete img) + (gimp-displays-flush) + + (gimp-context-pop) + ) +) + +; !!! deprecated register function +(script-fu-register "script-fu-clothify-old" + "Clothify v2..." + "Add a cloth-like texture to the selected region (or alpha)" + "Tim Newsome " + "Tim Newsome" + "4/11/97" + "RGB* GRAY*" + ; !!! no sensitivity + SF-IMAGE "image" 0 + ; !!! one drawable + SF-DRAWABLE "drawable" 0 + SF-ADJUSTMENT "Blur X" '(9 3 100 1 10 0 1) + SF-ADJUSTMENT "Blur Y" '(9 3 100 1 10 0 1) + SF-ADJUSTMENT "Azimuth" '(135 0 360 1 10 1 0) + SF-ADJUSTMENT "Elevation" '(45 0 90 1 10 1 0) + SF-ADJUSTMENT "Depth" '(3 1 50 1 10 0 1) +) + +; !!! in Demo menu +(script-fu-menu-register "script-fu-clothify-old" + "/Filters/Development/Demos") diff --git a/plug-ins/script-fu/scripts/test/meson.build b/plug-ins/script-fu/scripts/test/meson.build index db3a136b31..7f798a41d1 100644 --- a/plug-ins/script-fu/scripts/test/meson.build +++ b/plug-ins/script-fu/scripts/test/meson.build @@ -18,6 +18,7 @@ endif # scripts interpreted by extension-script-fu, installed to /scripts scripts = [ 'contactsheet.scm', + 'clothify-v2.scm', 'clothify-v3.scm', 'test-sphere.scm', 'test-v3.scm',