;Modernized with ModernizeMatic7 for Gimp 2.10.22 by vitforlinux.wordpress.com - dont remove ;; Script-Fu Reflex ; Fix code for gimp 2.99.6 working in 2.10 (cond ((not (defined? 'gimp-drawable-get-width)) (define gimp-drawable-get-width gimp-drawable-width))) (cond ((not (defined? 'gimp-drawable-get-height)) (define gimp-drawable-get-height gimp-drawable-height))) (cond ((not (defined? 'gimp-drawable-get-offsets)) (define gimp-drawable-get-offsets gimp-drawable-offsets))) (cond ((not (defined? 'gimp-image-get-selected-drawables)) (define gimp-image-get-selected-drawables gimp-image-get-active-drawable))) (cond ((not (defined? 'gimp-text-fontname)) (define (gimp-text-fontname fn1 fn2 fn3 fn4 fn5 fn6 fn7 fn8 PIXELS fn9) (gimp-text-font fn1 fn2 fn3 fn4 fn5 fn6 fn7 fn8 fn9)))) (define (apply-reflex-logo image drawable gradient reverse displace merge) (let* ( (old-bg (car (gimp-context-get-background))) (old-fg (car (gimp-context-get-foreground))) (old-gradient (car (gimp-context-get-gradient))) (image-width (car (gimp-drawable-get-width drawable))) (image-height (car (gimp-drawable-get-height drawable))) (area (+ image-width image-height)) (c-x (car (gimp-drawable-get-offsets drawable))) (c-y (cadr (gimp-drawable-get-offsets drawable))) (white-layer (car (gimp-layer-new image image-width image-height RGBA-IMAGE "Blur" 100 LAYER-MODE-NORMAL-LEGACY))) (text-layer (car (gimp-layer-new-from-drawable drawable image))) (fond-layer (car (gimp-layer-new image image-width image-height RGBA-IMAGE "GRAD" 100 LAYER-MODE-NORMAL-LEGACY))) (horizon-layer (car (gimp-layer-new-from-drawable fond-layer image))) (bump-layer (car (gimp-layer-new image image-width image-height RGBA-IMAGE "Edge" 100 LAYER-MODE-OVERLAY-LEGACY))) (blur-layer 0) (layer 0) (adjust 0) ) (gimp-image-insert-layer image white-layer 0 -1) (gimp-image-insert-layer image text-layer 0 -1) (gimp-image-insert-layer image fond-layer 0 -1) (gimp-image-insert-layer image horizon-layer 0 -1) (gimp-image-insert-layer image bump-layer 0 -1) (gimp-drawable-edit-clear fond-layer) (gimp-drawable-edit-clear horizon-layer) (gimp-layer-set-offsets white-layer c-x c-y) (gimp-layer-set-offsets text-layer c-x c-y) (gimp-layer-set-offsets fond-layer c-x c-y) (gimp-layer-set-offsets horizon-layer c-x c-y) (gimp-layer-set-offsets bump-layer c-x c-y) (gimp-context-set-background '(255 255 255)) (gimp-drawable-edit-fill white-layer 1) (set! blur-layer (car (gimp-image-merge-down image text-layer 0))) (plug-in-gauss-rle2 1 image blur-layer (/ area 70) (/ area 70)) (gimp-context-set-gradient gradient) (gimp-context-set-gradient-reverse reverse) ;(gimp-edit-blend fond-layer 3 0 0 100 0 0 FALSE FALSE 0 0 FALSE 0 0 0 (+ image-height displace)) (gimp-drawable-edit-gradient-fill fond-layer GRADIENT-LINEAR 0 0 1 0 0 0 0 0 (+ image-height displace)) ; Fill with gradient (gimp-item-set-visible fond-layer FALSE) ;(gimp-edit-blend horizon-layer 3 0 0 100 0 0 FALSE FALSE 0 0 FALSE 0 0 0 image-height) (gimp-drawable-edit-gradient-fill horizon-layer GRADIENT-LINEAR 0 0 1 0 0 0 0 0 image-height) ; Fill with gradient (gimp-item-set-name horizon-layer "Reflex") (set! adjust (* displace 2)) (plug-in-displace 1 image horizon-layer (/ area (- 70 adjust)) (/ area (- 70 adjust)) TRUE TRUE blur-layer blur-layer 1) (gimp-context-set-foreground '(152 152 152)) (gimp-drawable-edit-fill bump-layer 0) (plug-in-bump-map 1 image bump-layer blur-layer 135 27 7 0 0 0 0 TRUE TRUE 2) (plug-in-gauss-rle2 1 image bump-layer 1 1) (gimp-image-remove-layer image blur-layer) ;(gimp-context-set-gradient "Three bars sin") (if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10) (gimp-context-set-gradient "Three bars sin") (gimp-context-set-gradient (car (gimp-gradient-get-by-name "Three Bars Sin"))) ) (if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10) (plug-in-gradmap 1 image bump-layer) (plug-in-gradmap 1 image 1 (vector bump-layer)) ) ;(gimp-selection-layer-alpha drawable) (gimp-image-select-item image 2 drawable) (if (> area 200) (gimp-selection-grow image (/ area 160)) (gimp-selection-grow image 1)) (gimp-selection-invert image) (gimp-drawable-edit-clear horizon-layer) (gimp-drawable-edit-clear bump-layer) (gimp-selection-none image) (if (= merge TRUE) (begin (gimp-image-remove-layer image fond-layer) (gimp-image-merge-down image horizon-layer 0) (set! layer (car (gimp-image-merge-down image bump-layer 0))) (gimp-item-set-name layer "Script-fu reflex") ) ) (gimp-context-set-background old-bg) (gimp-context-set-foreground old-fg) (gimp-context-set-gradient old-gradient) ) ) ;; ------------------------ ;; script pour ;; ------------------------ (define (script-fu-reflex-logo-alpha image drawable gradient reverse displace merge) (let* ( (if (= (string->number (substring (car(gimp-version)) 0 3)) 2.10) (drawable (car (gimp-image-get-active-drawable image))) (drawable (aref (cadr (gimp-image-get-selected-drawables image)) 0))) (var-select 0) (canal 0) (old-fg 0) ) (gimp-image-undo-group-start image) (set! var-select (car (gimp-selection-is-empty image))) (if (= var-select TRUE) (begin ) (begin (set! canal (car (gimp-selection-save image))) ) ) (gimp-selection-none image) (set! old-fg (car (gimp-context-get-foreground))) (gimp-context-set-foreground '(0 0 0)) (set! drawable (car (gimp-layer-copy drawable TRUE))) (gimp-layer-set-mode drawable LAYER-MODE-NORMAL-LEGACY) (gimp-image-insert-layer image drawable 0 -1) (gimp-layer-set-lock-alpha drawable TRUE) (gimp-drawable-edit-fill drawable FILL-FOREGROUND) (gimp-layer-set-lock-alpha drawable FALSE) (apply-reflex-logo image drawable gradient reverse displace merge) (if (= var-select TRUE) (begin ) (begin (gimp-image-select-item image 2 canal) (gimp-image-remove-channel image canal) ) ) (if (= merge TRUE) (gimp-image-merge-down image (car (gimp-image-get-selected-drawables image)) 0) (gimp-image-remove-layer image drawable)) (gimp-context-set-foreground old-fg) (gimp-image-undo-group-end image) (gimp-displays-flush) ) ) (script-fu-register "script-fu-reflex-logo-alpha" _"Reflex Alpha..." "reflection" "Expression" "Free" "2006" "RGBA" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0 SF-GRADIENT "Gradient" _"Horizon 2" SF-TOGGLE "Gradient reverse" FALSE SF-ADJUSTMENT "Shift amount" '(10 1 20 1 10 0 0) SF-TOGGLE "Flatten" TRUE ) (script-fu-menu-register "script-fu-reflex-logo-alpha" _"/Filters/Alpha to Logo" ) ;; ------------------------ ;; script pour ;; ------------------------ (define (script-fu-reflex-logo text size font justification letter-spacing line-spacing gradient reverse displace merge) (let* ( (image (car (gimp-image-new 256 256 RGB))) (bg-layer (car (gimp-layer-new image 256 256 RGBA-IMAGE "Background" 100 LAYER-MODE-NORMAL-LEGACY))) (justification (cond ((= justification 0) 2) ((= justification 1) 0) ((= justification 2) 1) ((= justification 3) 3))) (text-layer (car (gimp-text-fontname image -1 0 0 text 10 TRUE size PIXELS font)))) (gimp-text-layer-set-justification text-layer justification) ; Text Justification (Rev Value) (gimp-text-layer-set-letter-spacing text-layer letter-spacing) ; Set Letter Spacing (gimp-text-layer-set-line-spacing text-layer line-spacing) ; Set Line Spacing (gimp-image-undo-disable image) (gimp-item-set-name text-layer "Text") (gimp-image-resize image (car (gimp-drawable-get-width text-layer)) (car (gimp-drawable-get-height text-layer)) 0 0) (apply-reflex-logo image text-layer gradient reverse displace merge) (if (= merge FALSE) (begin (gimp-drawable-edit-fill text-layer FILL-WHITE) (gimp-item-set-name text-layer "Background") ) ) (gimp-image-undo-enable image) (gimp-display-new image) ) ) (script-fu-register "script-fu-reflex-logo" _"Reflex logo..." "reflective logo" "Expression" "Free" "2006" "" SF-TEXT _"Text" "Reflex" SF-ADJUSTMENT _"Font size (pixels)" '(200 2 1000 1 10 0 1) SF-FONT _"Font" "Liberation Mono Bold" SF-OPTION _"Text Justification" '("Centered" "Left" "Right" "Fill") SF-ADJUSTMENT "Letter Spacing" '(0 -50 50 1 5 0 0) SF-ADJUSTMENT "Line Spacing" '(-5 -300 300 1 10 0 0) SF-GRADIENT "Gradient" "Horizon 2" SF-TOGGLE "Gradient reverse" FALSE SF-ADJUSTMENT "Shift amount" '(10 1 20 1 10 0 0) SF-TOGGLE "Flatten" FALSE ) (script-fu-menu-register "script-fu-reflex-logo" _"/File/Create/Logos/" )