; ; Mechanical texture make up ; ; ---------------------------------------- ; Changelog ; ; version 0.0.1 2014/07/06 mieki256 ; - first release ; (define (script-fu-mecha-tex-make-up img layer) (gimp-image-undo-group-start img) (let* ( (width (car (gimp-image-width img))) (height (car (gimp-image-height img))) (g-layer (car (gimp-layer-copy layer TRUE))) (gd-layer (car (gimp-layer-copy layer TRUE))) (m-layer (car (gimp-layer-copy layer TRUE))) (l-layer (car (gimp-layer-copy layer TRUE))) (c-layer (car (gimp-layer-new img width height 1 "solid noise 0" 25 17))) (d-layer (car (gimp-layer-new img width height 1 "solid noise 1" 25 4))) (e-layer (car (gimp-layer-new img width height 1 "solid noise 2" 25 17))) ) ; emboss (gimp-image-add-layer img m-layer -1) (plug-in-emboss 1 img m-layer 120 40 6 1) (gimp-layer-set-mode m-layer MULTIPLY-MODE) ; gauss and divide-mode (gimp-image-add-layer img gd-layer -1) (plug-in-gauss 1 img gd-layer 6 6 1) (gimp-layer-set-mode gd-layer DIVIDE-MODE) (gimp-layer-set-opacity gd-layer 50) ; gauss and softlight-mode (gimp-image-add-layer img g-layer -1) (plug-in-gauss 1 img g-layer 6 6 1) (gimp-layer-set-mode g-layer SOFTLIGHT-MODE) (gimp-layer-set-opacity g-layer 50) ; edge (gimp-image-add-layer img l-layer -1) (plug-in-edge 1 img l-layer 2 2 5) (gimp-invert l-layer) (gimp-layer-set-mode l-layer MULTIPLY-MODE) ; solid noise 2 (gimp-image-add-layer img e-layer -1) (plug-in-solid-noise 1 img e-layer TRUE FALSE 3767556749 1 4 4) (gimp-colorize e-layer 200 35 10) (plug-in-hsv-noise 1 img e-layer 3 13 24 30) ; HSV noise ; solid noise 1 (gimp-image-add-layer img d-layer -1) (plug-in-solid-noise 1 img d-layer TRUE FALSE 436305492 1 4 4) (gimp-colorize d-layer 126 28 0) (plug-in-rotate 1 img d-layer 2 FALSE) ; layer rotate 180 ; solid noise 0 (gimp-image-add-layer img c-layer -1) (plug-in-solid-noise 1 img c-layer TRUE FALSE 3442539593 1 4 4) (gimp-colorize c-layer 37 30 0) ) (gimp-displays-flush) (gimp-image-undo-group-end img) ) (script-fu-register "script-fu-mecha-tex-make-up" "Mecha tex make up" "Mechanical texture make up" "mieki256" "Public domain" "2014-07-06" "RGB*" SF-IMAGE "Image" 0 SF-DRAWABLE "Drawable" 0 ) (script-fu-menu-register "script-fu-mecha-tex-make-up" "/Script-Fu/Utils")