tag:blogger.com,1999:blog-51046778463752322652024-03-14T01:28:44.483-06:00Joe1GKGimp Scripts for Images
Script-fu scripts, .scm source code.Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.comBlogger20125tag:blogger.com,1999:blog-5104677846375232265.post-17602525903695637482011-04-17T03:31:00.001-06:002011-04-17T03:34:48.765-06:00BW Comic Effect: Photo effect using the Gimp.<span style="font-size: large;"><b><span>BW Comic Effect:</span></b> </span><br />
<br />
This will Create a B&W Comic From a Photo: <br />
<br />
Here is the code --> ;*************************************************************************************** <br />
; BW-COMIC script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-BW-Comic <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(img3 (car (gimp-image-new width height 0))) <br />
(BW (car (gimp-layer-new-from-drawable drawable img3))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP5 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-image-add-layer img3 BW -1) <br />
(gimp-desaturate-full TONES 2) <br />
(gimp-image-convert-indexed img3 NO-DITHER MONO-PALETTE 2 FALSE FALSE "0") <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .005) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-threshold TEMP3 246 255) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP3 (* width .007) .20) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 234 255 10 0 255) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 128 255) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 4 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-levels TEMP4 HISTOGRAM-VALUE 0 255 1.0 0 217) <br />
(gimp-layer-set-mode TEMP4 GRAIN-MERGE-MODE) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-add-layer img TEMP5 +1) <br />
(gimp-layer-set-mode TEMP1 GRAIN-MERGE-MODE) <br />
(gimp-edit-copy BW) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP5 0))) <br />
(gimp-image-merge-down img TEMP1 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "BW-Comic") <br />
(gimp-image-delete img2) <br />
(gimp-image-delete img3) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-BW-Comic" <br />
_"<Image>/Script-Fu/Artistic/BW-Comic" <br />
"Creates a BW-Comic Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"><a href="http://4.bp.blogspot.com/--PvJLNM8on0/Taq0KzcIsFI/AAAAAAAAADo/S1DB5evl4kk/s1600/bwcomic.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="320" src="http://4.bp.blogspot.com/--PvJLNM8on0/Taq0KzcIsFI/AAAAAAAAADo/S1DB5evl4kk/s320/bwcomic.jpg" width="211" /></a></div>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com2tag:blogger.com,1999:blog-5104677846375232265.post-14188524983492892192011-04-10T19:16:00.002-06:002011-04-14T22:07:49.907-06:00CarTOONize Effect: Photo effect using the Gimp.<div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><b><span style="font-size: medium;">CarTOONize Effect:</span></b> <br />
<br />
This will CarTOONize a Photo: Options to change line size, halftone etc...<br />
<br />
Here is the code --> <br />
<div class="separator" style="clear: both; text-align: center;"></div>;*************************************************************************************** <br />
; CarToonize Image script for GIMP 2.x<br />
; Version 1.0.1 - 17-12-2010 added halftone option, check for existence of GREYCstoration <br />
; pop up message only. Filter continues if non-existent. <br />
; Added G'MIC support as per forum request. <br />
; Version 1.0.2 - 17-12-2010 Re-did the Half-tone the same as the comic strip effect <br />
; Copyright (C) 2010 John Harris john@grynn.com> <br />
; Based on comic-book script by Joe Kitella <joe.kitella@gmail.com <br />
; Version 1.0.3 - 17-12-2010 Revised Halftone effect again... Coding problem with layers. <br />
; Version 1.0.4 - 20-12-2010 Added last resort pre-filter of Selective Gaussian Blur as per <br />
; forum request (Rob A>), tightened up the parameters from the request at <br />
; 5/15 to 4/11. There was too much edge loss at the higher values. <br />
; Version 1.0.5 - 21-12-2010 Added SF-OPTION to select the default smoothing type if all filters <br />
; are installed. (Defaults to none installed). <br />
; Version 1.0.6 - 22-12-2010 Added Despeckle smoothing option, ... to display name, and did all edit- <br />
; copy-pastes to a named buffer. Cleaned up code, removed a section that was <br />
; no longer being used. Generates better skin-tone colors than before. <br />
; 24-12-2010 Added Despeckle to filter register information. Changed levels for truer colors. <br />
; Version 1.0.7 - 31-12-2010 Added Level of colors to either flatten out the colors, or make more levels. <br />
; Fixed the active layer display issue when not using halftone. Added option to <br />
; keep image on existing layer (non haltone). Default is keep. Gimp 2.7 fixes. <br />
; --------------------------------------------------------------------------------------- <br />
(define (script-fu-CarTOONize <br />
img <br />
drawable <br />
Prefilter <br />
filter-type <br />
line-size <br />
enable-shadow <br />
shadow-intensity <br />
cdepth <br />
new-layer <br />
half-tone <br />
) <br />
<br />
(gimp-image-undo-group-start img) <br />
<br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(old-selection (car (gimp-selection-save img))) <br />
(image-type (car (gimp-image-base-type img))) <br />
(buffer (car (gimp-edit-named-copy drawable "temp-buffer"))) <br />
(toon-img (car (gimp-edit-named-paste-as-new buffer))) <br />
(layer-temp1 (car (gimp-layer-new toon-img width height 0 "temp1" 100 NORMAL-MODE))) <br />
(layer-temp2 (car (gimp-layer-new toon-img width height 0 "temp2" 100 NORMAL-MODE))) <br />
(layer-temp3 (car (gimp-layer-new toon-img width height 0 "temp3" 100 NORMAL-MODE))) <br />
(layer-temp2a (car (gimp-layer-new toon-img width height 0 "temp2a" 100 NORMAL-MODE))) <br />
(layer-temp4 (car (gimp-layer-new toon-img width height 0 "temp4" 100 NORMAL-MODE))) <br />
(layer-temp5 (car (gimp-layer-new toon-img width height 0 "temp5" 100 NORMAL-MODE))) <br />
(layer-temp6 (car (gimp-layer-new toon-img width height 0 "temp6" 100 NORMAL-MODE))) <br />
(layer-temp7 (car (gimp-layer-new toon-img width height 0 "temp7" 100 NORMAL-MODE))) <br />
(layer-gmic (car (gimp-layer-new toon-img width height 0 "gmic" 100 NORMAL-MODE))) <br />
(layer-cartoonize (car (gimp-layer-new img width height 0 "CarTOONize" 100 NORMAL-MODE))) <br />
(layer-comic (car (gimp-layer-new img width height 0 "Comic-strip" 100 NORMAL-MODE))) <br />
(cdepth (* 4 cdepth)) <br />
(isfiltered FALSE) <br />
) <br />
(gimp-image-undo-disable toon-img) <br />
(if (eqv? (car (gimp-selection-is-empty toon-img)) TRUE) <br />
(gimp-drawable-fill old-selection WHITE-IMAGE-FILL)) <br />
(gimp-image-add-layer toon-img layer-gmic -1) <br />
(gimp-image-add-layer toon-img layer-temp7 -1) <br />
(gimp-image-add-layer toon-img layer-temp6 -1) <br />
(gimp-image-add-layer toon-img layer-temp5 -1) <br />
(gimp-image-add-layer toon-img layer-temp4 -1) <br />
(gimp-image-add-layer toon-img layer-temp3 -1) <br />
(if (= enable-shadow TRUE) <br />
(begin <br />
(gimp-image-add-layer toon-img layer-temp2a -1) <br />
(gimp-layer-set-mode layer-temp2a 3) <br />
) <br />
) <br />
(gimp-image-add-layer toon-img layer-temp1 -1) <br />
(gimp-image-add-layer toon-img layer-temp2 -1) <br />
(gimp-levels-stretch drawable) <br />
(set! buffer (car (gimp-edit-named-copy drawable "temp-buffer"))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-gmic buffer 0))) <br />
(if (= Prefilter TRUE) <br />
(if (= filter-type 2) <br />
(if (defined? 'plug-in-greycstoration) <br />
(begin <br />
(plug-in-greycstoration 1 toon-img layer-gmic 60 .70 1 .6 1.1 .8 30 2 0 0 4 10 15 7 1 2) <br />
(set! isfiltered TRUE) <br />
) <br />
(gimp-message "GREYCstoration must be installed to prefilter, no filter will be applied.") <br />
<br />
) <br />
) <br />
) <br />
(if (= Prefilter TRUE) <br />
(if (= filter-type 3) <br />
(if (= isfiltered FALSE) <br />
(if (defined? 'plug-in-gmic) <br />
(begin <br />
(plug-in-gmic 1 toon-img layer-gmic 1 "-gimp_anisotropic_smoothing 60,.7,1,1.1,1,1,30,2,0,1,1,1,1") <br />
(set! isfiltered TRUE) <br />
) <br />
(gimp-message "G'MIC must be installed to prefilter, no filter will be applied.") <br />
) <br />
) <br />
) <br />
) <br />
(if (= Prefilter TRUE) <br />
(if (= filter-type 0) <br />
(if (= isfiltered FALSE) <br />
(if (defined? 'plug-in-sel-gauss) <br />
(plug-in-sel-gauss 1 toon-img layer-gmic 4 11) <br />
) <br />
) <br />
) <br />
) <br />
(if (= Prefilter TRUE) <br />
(if (= filter-type 1) <br />
(if (= isfiltered FALSE) <br />
(if (defined? 'plug-in-despeckle) <br />
(plug-in-despeckle 1 toon-img layer-gmic 7 1 -1 256) <br />
) <br />
) <br />
) <br />
) <br />
(set! buffer (car (gimp-edit-named-copy (car (gimp-image-get-active-layer toon-img)) "temp-buffer"))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp1 buffer 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp3 buffer 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp4 buffer 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp7 buffer 0))) <br />
(if (= enable-shadow TRUE) <br />
(begin <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp2a buffer 0))) <br />
(gimp-desaturate-full layer-temp2a 2) <br />
(gimp-threshold layer-temp2a shadow-intensity 255) <br />
) <br />
) <br />
(gimp-layer-set-mode layer-temp3 15) <br />
(gimp-layer-set-mode layer-temp5 15) <br />
(gimp-layer-set-mode layer-temp4 3) <br />
(gimp-layer-set-mode layer-temp6 3) <br />
(gimp-layer-set-mode layer-temp2 16) <br />
(gimp-desaturate-full layer-temp3 2) <br />
(set! buffer (car (gimp-edit-named-copy layer-temp1 "temp-buffer"))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp2 buffer 0))) <br />
(plug-in-gauss 1 toon-img layer-temp2 (/ (* height line-size 0.01 ) 6) (/ (* height line-size 0.01 ) 6) 1) <br />
(gimp-invert layer-temp2) <br />
(gimp-image-merge-down toon-img layer-temp2 0) <br />
(set! layer-temp1 (car (gimp-image-get-active-layer toon-img))) <br />
(gimp-threshold layer-temp1 245 255) <br />
(gimp-layer-set-mode layer-temp1 3) <br />
(gimp-image-merge-down toon-img layer-temp3 0) <br />
(set! layer-temp4 (car (gimp-image-get-active-layer toon-img))) <br />
(set! buffer (car (gimp-edit-named-copy layer-temp4 "temp-buffer"))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp5 buffer 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-temp6 buffer 0))) <br />
(gimp-desaturate-full layer-temp5 2) <br />
(gimp-image-merge-down toon-img layer-temp5 0) <br />
(set! layer-temp4 (car (gimp-image-get-active-layer toon-img))) <br />
(gimp-layer-set-mode layer-temp4 3) <br />
(gimp-image-raise-layer toon-img layer-temp4) <br />
(gimp-image-merge-down toon-img layer-temp4 0) <br />
(set! layer-temp6 (car (gimp-image-get-active-layer toon-img))) <br />
(gimp-layer-set-mode layer-temp6 14) <br />
(gimp-image-merge-down toon-img layer-temp6 0) <br />
(set! layer-temp7 (car (gimp-image-get-active-layer toon-img))) <br />
(gimp-levels layer-temp7 0 0 255 1 0 225) <br />
(gimp-image-flatten toon-img) <br />
(gimp-image-convert-indexed toon-img 0 0 cdepth 0 0 "") <br />
(gimp-image-convert-rgb toon-img) <br />
(set! layer-temp1 (car (gimp-image-get-active-layer toon-img))) <br />
(set! buffer (car (gimp-edit-named-copy (car (gimp-image-get-active-drawable toon-img)) "temp-buffer" ))) <br />
(if (= new-layer TRUE) <br />
(begin <br />
(gimp-image-add-layer img layer-cartoonize -1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-cartoonize buffer 0 ))) <br />
(gimp-image-set-active-layer img layer-cartoonize) <br />
) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste drawable buffer 0 ))) <br />
) <br />
(if (= half-tone TRUE) <br />
(begin <br />
(gimp-image-add-layer img layer-comic -1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-named-paste layer-comic buffer 0))) <br />
(plug-in-unsharp-mask 0 0 layer-comic 4 10 0) <br />
(plug-in-newsprint 0 0 layer-comic 1 .3 4 1 0 15 0 75 0 0 0 6) <br />
) <br />
) <br />
(gimp-displays-flush) <br />
(gimp-image-undo-group-end img) <br />
) <br />
) <br />
<br />
(script-fu-register <br />
"script-fu-CarTOONize" <br />
_"<Image>/Filters/Artistic/CarTOONize..." <br />
"Toon a Picture. Take a standard RGB or Grayscale picture, and cartoonize it. You can adjust the thickness of the lines, as well as adjust the 'black' shadow intensity. Now you can adjust the color depth, 1 is the flattest, 5 has the most levels. Prefilter option requires and uses either the GREYCstoration Filter, the newer G'MIC Filter, Despeckle or the Selective Gaussian Blur. Set it to FALSE if you don't want noise reduction. Now have the option to keep it on existing layer (non haltone). Is Gimp 2.7 ready." <br />
"" <br />
"" <br />
"2010, December" <br />
"RGB* GRAY*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
SF-TOGGLE _"Prefilter (Noise reduction)" TRUE <br />
SF-OPTION _"Filter type (Noise Reduction)" '("Selective Gaussian Blur Smoothing" "Despeckle Smoothing" "GREYCStoration Smoothing" "G'MIC Anistropic Smoothing") <br />
SF-ADJUSTMENT _"Line Thickness (pixels)" '(10 2 30 1 10 0 1) <br />
SF-TOGGLE _"Black Shadows" TRUE <br />
SF-ADJUSTMENT _"Shadow Intensity" '(35 0 50 1 10 0 1) <br />
SF-ADJUSTMENT _"Color Levels" '(4 1 5 1 10 0 1) <br />
SF-TOGGLE _"Generate as new layer" FALSE <br />
SF-TOGGLE _"Halftone" FALSE <br />
) <br />
<table cellpadding="0" cellspacing="0" class="tr-caption-container" style="float: left; margin-right: 1em; text-align: left;"><tbody>
<tr><td style="text-align: center;"><a href="http://2.bp.blogspot.com/-k_ZakUB5kac/TaJV1gUoX-I/AAAAAAAAADM/fm4Ts4aJ5Q4/s1600/cartoonizeht.jpg" imageanchor="1" style="clear: left; margin-bottom: 1em; margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://2.bp.blogspot.com/-k_ZakUB5kac/TaJV1gUoX-I/AAAAAAAAADM/fm4Ts4aJ5Q4/s320/cartoonizeht.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">CarTOONize Halftoned</td><td class="tr-caption" style="text-align: center;"><br />
</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="float: right; margin-left: 1em; text-align: right;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-neec5vFheB8/TaJT4Hy1dvI/AAAAAAAAADI/0Gk3YsBOD-0/s1600/cartoonize.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-neec5vFheB8/TaJT4Hy1dvI/AAAAAAAAADI/0Gk3YsBOD-0/s320/cartoonize.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">CarTOONize Defaults</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com1tag:blogger.com,1999:blog-5104677846375232265.post-67162211396478409842011-04-10T18:26:00.000-06:002011-04-10T18:26:33.558-06:00Toon Effect: Photo effect using the Gimp.<b><span style="font-size: large;"><span>Toon Effect:</span></span></b> <br />
<br />
This will turn a photo into a Toon effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Toon Image script for GIMP 2.2 <br />
; -------------------------------------------------------------------- <br />
<br />
(define (script-fu-Toon <br />
img <br />
drawable <br />
) <br />
<br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(layer51 (car (gimp-layer-new-from-drawable drawable img))) <br />
(layer50 (car (gimp-layer-new-from-drawable drawable img))) <br />
(layerp0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(layerp1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(layerbl (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img layer51 -1) <br />
<br />
(let* ( <br />
(image-type (car (gimp-image-base-type img))) <br />
(smoothness 8) <br />
(fidelity 5) <br />
(colors 16) <br />
(blur (/ (* width smoothness 0.001 ) fidelity)) <br />
(count 0) <br />
(layer-lock (car (gimp-layer-get-lock-alpha layer51))) <br />
(layer-type (car (gimp-drawable-type layer51))) <br />
(layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 NORMAL-MODE))) <br />
(img2 (car (gimp-image-new width height image-type))) <br />
(layer-temp2 (car (gimp-layer-new img2 width height layer-type "temp2" 100 NORMAL-MODE))) <br />
) <br />
(gimp-drawable-fill layer-temp1 TRANS-IMAGE-FILL) <br />
(gimp-image-add-layer img layer-temp1 -1) <br />
(gimp-edit-copy layer51) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) <br />
(gimp-layer-set-lock-alpha layer-temp1 TRUE) <br />
(while (< count fidelity) <br />
(plug-in-gauss 1 img layer-temp1 blur blur 0) <br />
(set! count (+ count 1)) <br />
) <br />
(gimp-layer-set-lock-alpha layer-temp1 layer-lock) <br />
(gimp-levels layer-temp1 0 0 182 1.0 0 255) <br />
(gimp-edit-copy layer-temp1) <br />
(gimp-image-add-layer img2 layer-temp2 -1) <br />
(gimp-drawable-fill layer-temp2 TRANS-IMAGE-FILL) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0))) <br />
(gimp-image-convert-indexed img2 0 0 colors 0 0 "0") <br />
(gimp-edit-copy layer-temp2) <br />
(gimp-image-delete img2) <br />
(gimp-layer-add-alpha layer-temp1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) <br />
) <br />
(gimp-image-add-layer img layerp0 -1) <br />
(gimp-image-add-layer img layerp1 -1) <br />
(plug-in-gauss 1 img layerp1 7.0 7.0 1) <br />
(gimp-layer-set-opacity layerp1 50.0) <br />
(gimp-invert layerp1) <br />
(gimp-image-merge-down img layerp1 0) <br />
(set! layerp0 (car (gimp-image-get-active-layer img))) <br />
(gimp-levels layerp0 0 100 155 1.00 0 255) <br />
(gimp-desaturate-full layerp0 1) <br />
(gimp-levels layerp0 0 39 128 .77 0 255) <br />
(gimp-levels layerp0 0 184 205 .32 0 255) <br />
(gimp-layer-set-mode layerp0 17) <br />
(gimp-image-add-layer img layer50 -1) <br />
(plug-in-normalize 1 img layer50) <br />
(gimp-threshold layer50 128 255) <br />
(gimp-layer-set-opacity layer50 40.0) <br />
(gimp-layer-set-mode layer50 17) <br />
(gimp-image-merge-down img layerp0 0) <br />
(set! drawable (car (gimp-image-get-active-layer img))) <br />
(gimp-image-merge-down img drawable 0) <br />
(gimp-image-merge-down img layer50 0) <br />
(set! drawable (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name drawable "Toon") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-Toon" _"<Image>/Script-Fu/Artistic/Toon" <br />
"Toon a Picture" <br />
"" <br />
"" <br />
"2011" <br />
"RGB* GRAY*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-ByT5Ti8Y-iA/TaJKgGtkIII/AAAAAAAAADE/HdPMD3i_jm8/s1600/toon.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-ByT5Ti8Y-iA/TaJKgGtkIII/AAAAAAAAADE/HdPMD3i_jm8/s320/toon.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Toon</td><td class="tr-caption" style="text-align: center;"> </td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-37431776855083951232011-04-10T17:54:00.000-06:002011-04-10T17:54:54.569-06:00Polarizing Filter Effect: Using the GIMP<b><span style="font-size: large;">Polarizing Filter <span>Effect:</span></span></b> <br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://3.bp.blogspot.com/-luePdWbQz_M/TaJCo_ZksxI/AAAAAAAAAC8/ev6TWLExI9M/s1600/Banff_polarized.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="232" src="http://3.bp.blogspot.com/-luePdWbQz_M/TaJCo_ZksxI/AAAAAAAAAC8/ev6TWLExI9M/s320/Banff_polarized.jpg" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Polarized</td></tr>
</tbody></table><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-6WhjGeUr_Hg/TaJCpuusoUI/AAAAAAAAADA/72EIYQk-B4w/s1600/Banff_primary.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="232" src="http://1.bp.blogspot.com/-6WhjGeUr_Hg/TaJCpuusoUI/AAAAAAAAADA/72EIYQk-B4w/s320/Banff_primary.jpg" width="320" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Original</td><td class="tr-caption" style="text-align: center;"> </td></tr>
</tbody></table><br />
<br />
This will add a digital polarizing filter effect:<br />
<br />
Here is the code --><br />
<br />
;*************************************************************************************** <br />
; Polarize script for GIMP 2.x <br />
; -------------------------------------------------------------------- <br />
(define (script-fu-polarize <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(new-img (car (plug-in-decompose 1 img drawable "Red" 1))) <br />
(new-layer (car (gimp-image-get-active-layer new-img))) <br />
(TEMP0 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP1 (car (gimp-layer-copy drawable FALSE))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP0 -1) <br />
(gimp-edit-copy new-layer) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP0 0))) <br />
(gimp-layer-set-mode TEMP0 SOFTLIGHT-MODE) <br />
(gimp-image-merge-down img TEMP0 EXPAND-AS-NECESSARY) <br />
(set! TEMP0 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP0 "Polarize") <br />
(gimp-image-delete new-img) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
<br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-polarize" <br />
_"<Image>/Script-Fu/Artistic/Polarize" <br />
"Creates a Polarize filter Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
)Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com2tag:blogger.com,1999:blog-5104677846375232265.post-8037968595874979522011-04-10T10:45:00.000-06:002011-04-10T10:45:38.189-06:00Rotoscope Effect: Photo effect using the Gimp.<span style="font-size: large;">Rotoscope Effect:</span> <br />
This will turn a photo into a RotoScope effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; RotoScope script for GIMP 2.x<br />
;*************************************************************************************** <br />
(define (script-fu-RotoScope<br />
img<br />
drawable<br />
)<br />
(gimp-undo-push-group-start img)<br />
(if (= (car (gimp-drawable-has-alpha drawable)) TRUE)<br />
(begin<br />
(gimp-image-flatten img)<br />
(set! drawable (car (gimp-image-get-active-layer img)))<br />
)<br />
)<br />
(let* (<br />
(width (car (gimp-drawable-width drawable)))<br />
(height (car (gimp-drawable-height drawable)))<br />
(img2 (car (gimp-image-new width height 0)))<br />
(tones (car (gimp-layer-new-from-drawable drawable img2)))<br />
(layer0 (car (gimp-layer-new-from-drawable drawable img)))<br />
(layer1 (car (gimp-layer-new-from-drawable drawable img)))<br />
(layer2 (car (gimp-layer-new-from-drawable drawable img)))<br />
(layer3 (car (gimp-layer-new-from-drawable drawable img)))<br />
(layer4 (car (gimp-layer-new-from-drawable drawable img)))<br />
(save-color (car (gimp-context-get-foreground)))<br />
)<br />
(gimp-image-add-layer img2 tones -1)<br />
(gimp-image-add-layer img layer4 -1)<br />
(gimp-image-add-layer img layer3 -1)<br />
(plug-in-despeckle RUN-NONINTERACTIVE img layer3 (* width .003) 1 -1 256)<br />
(plug-in-dog RUN-NONINTERACTIVE img layer3 (* height .002 7.5) (* width .002 .3) TRUE TRUE)<br />
(gimp-threshold layer3 246 255)<br />
(gimp-layer-set-mode layer3 MULTIPLY-MODE)<br />
(gimp-image-add-layer img layer2 -1)<br />
(gimp-image-add-layer img layer1 -1)<br />
(gimp-layer-set-mode layer1 SATURATION-MODE)<br />
(gimp-layer-set-mode layer2 COLOR-MODE)<br />
(gimp-layer-set-opacity layer1 67.0)<br />
(gimp-layer-set-opacity layer2 76.0)<br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 3 FALSE FALSE "0")<br />
(gimp-edit-copy tones)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer4 0)))<br />
(gimp-image-merge-down img layer3 0) ;lines<br />
(gimp-image-merge-down img layer2 0) ;saturation<br />
(gimp-image-merge-down img layer1 0) ;color<br />
(gimp-context-set-foreground '(0 0 0))<br />
(gimp-image-add-layer img layer0 -1)<br />
(gimp-by-color-select layer0 '(0 0 0) 10 0 2 0 0 0)<br />
(gimp-drawable-fill layer0 WHITE-FILL)<br />
(if (= (car (gimp-selection-is-empty img)) FALSE)<br />
(gimp-bucket-fill layer0 FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)<br />
)<br />
(gimp-context-set-foreground save-color)<br />
(gimp-selection-clear img)<br />
(gimp-layer-set-mode layer0 MULTIPLY-MODE)<br />
(gimp-image-merge-down img layer0 0) ;black info.<br />
(set! layer4 (car (gimp-image-get-active-layer img)))<br />
(gimp-image-convert-rgb img2)<br />
(gimp-edit-copy layer4)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste tones 0)))<br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 32 FALSE FALSE "0")<br />
(gimp-edit-copy tones)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer4 0)))<br />
(gimp-image-delete img2)<br />
(gimp-layer-set-name layer4 "RotoScope")<br />
(gimp-undo-push-group-end img)<br />
(gimp-displays-flush)<br />
)<br />
)<br />
<br />
(script-fu-register<br />
"script-fu-RotoScope"<br />
_"<Image>/Script-Fu/Artistic/RotoScope"<br />
"Creates a RotoScoped Effect."<br />
""<br />
""<br />
"2011"<br />
"RGB* GRAY*"<br />
SF-IMAGE "Image" 0<br />
SF-DRAWABLE "Drawable" 0<br />
)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://3.bp.blogspot.com/-16c6idxxZP4/TaCUMjjPL-I/AAAAAAAAACI/WxZYOKKQmUg/s1600/rotoscope.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://3.bp.blogspot.com/-16c6idxxZP4/TaCUMjjPL-I/AAAAAAAAACI/WxZYOKKQmUg/s320/rotoscope.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Rotoscope</td><td class="tr-caption" style="text-align: center;"></td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-28348756573178830882011-04-10T10:44:00.000-06:002011-04-10T10:44:34.755-06:00Vignette Effect: Photo effect using the Gimp.<span style="font-size: large;">Vignette Effect:</span> <br />
<br />
This will Add a Vignette layer to the Photo: Option to fade to Black or White<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Vignette script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-vignette <br />
img <br />
drawable <br />
black-shadows <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(startx (/ width 10)) <br />
(starty (/ height 10)) <br />
(color-save (car (gimp-context-get-foreground))) <br />
(temp0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp0-mask (car (gimp-layer-create-mask temp0 ADD-WHITE-MASK))) <br />
<br />
) <br />
(gimp-image-add-layer img temp0 -1) <br />
(gimp-ellipse-select img startx starty (* 0.8 width) (* 0.8 height) CHANNEL-OP-REPLACE TRUE FALSE 0.0) <br />
(gimp-layer-add-mask temp0 temp0-mask) <br />
(gimp-context-set-foreground '(0 0 0)) <br />
(if (= black-shadows TRUE) <br />
(gimp-drawable-fill temp0 FOREGROUND-FILL)) <br />
(if (= black-shadows FALSE) <br />
(gimp-drawable-fill temp0 WHITE-FILL)) <br />
(gimp-edit-bucket-fill temp0-mask FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) <br />
(gimp-selection-clear img) <br />
(gimp-layer-set-mode temp0 HARDLIGHT-MODE) <br />
(gimp-context-set-foreground color-save) <br />
(plug-in-gauss RUN-NONINTERACTIVE img temp0-mask (* width .36) (* height .36) 1) <br />
(gimp-layer-set-opacity temp0 78.0) <br />
(gimp-layer-set-name temp0 "Vignette") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-vignette" <br />
_"<Image>/Script-Fu/Artistic/Vignette..." <br />
"Creates a Vignette Layer." <br />
"" <br />
"" <br />
"2011" <br />
"RGB* GRAY*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
SF-TOGGLE "Fade to Black (Unchecked = Fade to White)" TRUE <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-E3i2YBpftLY/TaCWZU0O_jI/AAAAAAAAACQ/Iq7mQvW0_K0/s1600/beverly-mitchell-20070720-286206.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-E3i2YBpftLY/TaCWZU0O_jI/AAAAAAAAACQ/Iq7mQvW0_K0/s320/beverly-mitchell-20070720-286206.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Original</td></tr>
</tbody></table><div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-U3cNorvZj1g/TaCWAv64vJI/AAAAAAAAACM/2kgRn9FwomM/s1600/vignet2.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-U3cNorvZj1g/TaCWAv64vJI/AAAAAAAAACM/2kgRn9FwomM/s320/vignet2.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Fade to White</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-mx4AW2-d5c0/TaCWof2obII/AAAAAAAAACU/rjQpQFomZOE/s1600/vignet1.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-mx4AW2-d5c0/TaCWof2obII/AAAAAAAAACU/rjQpQFomZOE/s320/vignet1.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Fade To Black</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-23135595156736569202011-04-09T11:09:00.001-06:002011-04-09T15:49:34.558-06:00Pencil Sketch Effect: Photo effect using the Gimp.<span style="font-size: large;">Pencil Sketch Effect:</span><br />
<br />
This will turn a photo into a Pencil Sketch effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Pencil Sketch script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-PencilSketch <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(temp0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(temp5 (car (gimp-layer-new-from-drawable drawable img))) <br />
(startx (/ width 10)) <br />
(starty (/ height 10)) <br />
(color-save (car (gimp-context-get-foreground))) <br />
(vtemp0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(vtemp0-mask (car (gimp-layer-create-mask vtemp0 ADD-WHITE-MASK))) <br />
<br />
) <br />
(gimp-image-add-layer img temp1 -1) <br />
(gimp-image-add-layer img temp2 -1) <br />
(plug-in-gauss RUN-NONINTERACTIVE img temp2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode temp2 DIVIDE-MODE) <br />
(gimp-image-merge-down img temp2 0) <br />
(set! temp1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img temp1 (* width .013) .20) <br />
(gimp-desaturate-full temp1 DESATURATE-AVERAGE) <br />
(gimp-levels temp1 HISTOGRAM-VALUE 0 255 1.0 170 255) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img temp1 (* width .016) 13) <br />
(gimp-image-add-layer img temp3 -1) <br />
(gimp-desaturate-full temp3 DESATURATE-AVERAGE) <br />
(gimp-levels temp3 HISTOGRAM-VALUE 153 169 .16 247 255) <br />
(gimp-layer-set-mode temp3 MULTIPLY-MODE) <br />
(plug-in-gauss RUN-NONINTERACTIVE img temp3 (* width .033) (* height .033) 1) <br />
(gimp-image-merge-down img temp3 0) <br />
(gimp-image-add-layer img temp0 -1) <br />
(gimp-desaturate-full temp0 DESATURATE-AVERAGE) <br />
(gimp-brightness-contrast temp0 91 111) <br />
(gimp-layer-set-mode temp0 GRAIN-EXTRACT-MODE) <br />
(gimp-layer-set-opacity temp0 7.1) <br />
(gimp-image-merge-down img temp0 0) <br />
(set! temp1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img temp1 (* width .003) (* height .003) 1) <br />
(gimp-layer-set-mode temp1 MULTIPLY-MODE) <br />
(gimp-image-add-layer img temp4 +1) <br />
(gimp-desaturate-full temp4 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img temp5 +1) <br />
(gimp-desaturate-full temp5 DESATURATE-AVERAGE) <br />
(gimp-invert temp5) <br />
(plug-in-gauss 1 img temp5 (* width .09) (* height .09) 0) <br />
(gimp-layer-set-mode temp5 ADDITION-MODE) <br />
(gimp-image-merge-down img temp5 0) <br />
(gimp-image-merge-down img temp1 0) <br />
(gimp-image-add-layer img vtemp0 -1) <br />
(gimp-ellipse-select img startx starty (* 0.8 width) (* 0.8 height) CHANNEL-OP-REPLACE TRUE FALSE 0.0) <br />
(gimp-layer-add-mask vtemp0 vtemp0-mask) <br />
(gimp-context-set-foreground '(0 0 0)) <br />
(gimp-drawable-fill vtemp0 WHITE-FILL) <br />
(gimp-edit-bucket-fill vtemp0-mask FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) <br />
(gimp-selection-clear img) <br />
(gimp-layer-set-mode vtemp0 HARDLIGHT-MODE) <br />
(gimp-context-set-foreground color-save) <br />
(plug-in-gauss RUN-NONINTERACTIVE img vtemp0-mask (* width .36) (* height .36) 1) <br />
(gimp-layer-set-opacity vtemp0 78.0) <br />
(gimp-image-merge-down img vtemp0 0) <br />
(set! temp1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name temp1 "Pencil Sketch") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-PencilSketch" <br />
_"<Image>/Script-Fu/Artistic/Pencil Sketch" <br />
"Creates a Pencil Sketch Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-K7PtQoX5Ep8/TaCSzh8widI/AAAAAAAAACA/dYUQ15fgFeg/s1600/Pencilsketch.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-K7PtQoX5Ep8/TaCSzh8widI/AAAAAAAAACA/dYUQ15fgFeg/s320/Pencilsketch.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pencil Sketch</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-71731538055837310262011-04-09T11:04:00.001-06:002011-04-10T09:46:54.093-06:00Pencil Shade Effect: Photo effect using the Gimp.<span style="font-size: large;">Pencil Shade Effect:</span><br />
<br />
This will turn a photo into a Pencil Shade effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Pencil Shade script for GIMP 2.x <br />
;***************************************************************************************<br />
(define (script-fu-pencil-shade<br />
image<br />
drawable<br />
)<br />
(define (get-matrix matrix-list)<br />
(define (list-ref l n) (nth n l))<br />
(let* ((count 0)<br />
(matrix (cons-array 25 'double)))<br />
(while (< count 25)<br />
(aset matrix count (list-ref matrix-list count))<br />
(set! count (+ count 1)))<br />
matrix)) <br />
(define matrix-list<br />
(list 16.0 -1.0 -1.0 -1.0 -1.0<br />
-1.0 16.0 -1.0 -1.0 -1.0<br />
-1.0 -1.0 16.0 -1.0 -1.0<br />
-1.0 -1.0 -1.0 16.0 -1.0<br />
-1.0 -1.0 -1.0 -1.0 16.0))<br />
(gimp-undo-push-group-start image)<br />
(let* (<br />
(shadeLayer (car (gimp-layer-new-from-drawable drawable image)))<br />
(lineLayer (car (gimp-layer-new-from-drawable drawable image)))<br />
(matrix (get-matrix matrix-list))<br />
(channels (cons-array 5 'long))<br />
(aset channels 0 1)<br />
(aset channels 1 1)<br />
(aset channels 2 1)<br />
(aset channels 3 1)<br />
(aset channels 4 0)<br />
)<br />
(gimp-image-add-layer image shadeLayer -1)<br />
(gimp-image-add-layer image lineLayer -1)<br />
(gimp-layer-set-mode lineLayer MULTIPLY-MODE)<br />
(gimp-desaturate lineLayer)<br />
(gimp-desaturate shadeLayer)<br />
(plug-in-apply-canvas RUN-NONINTERACTIVE image shadeLayer 2 1)<br />
(plug-in-dog RUN-NONINTERACTIVE image shadeLayer 35 3 TRUE TRUE)<br />
(plug-in-convmatrix RUN-NONINTERACTIVE image shadeLayer 25 matrix FALSE 50 0 5 channels 2)<br />
(plug-in-sharpen RUN-NONINTERACTIVE image shadeLayer 45)<br />
(plug-in-convmatrix RUN-NONINTERACTIVE image shadeLayer 25 matrix FALSE 50 0 5 channels 2)<br />
(plug-in-sharpen RUN-NONINTERACTIVE image shadeLayer 85)<br />
(plug-in-dog RUN-NONINTERACTIVE image lineLayer 3 1 TRUE TRUE)<br />
(plug-in-unsharp-mask RUN-NONINTERACTIVE image lineLayer 4 4 5)<br />
(gimp-layer-set-opacity lineLayer 50)<br />
(gimp-image-merge-down image lineLayer 0)<br />
(set! shadeLayer (car (gimp-image-get-active-layer image)))<br />
(gimp-layer-set-name shadeLayer "Pencil-Shade")<br />
(gimp-undo-push-group-end image)<br />
(gimp-displays-flush)<br />
<br />
)<br />
)<br />
<br />
(script-fu-register <br />
"script-fu-pencil-shade"<br />
_"<Image>/Script-Fu/Artistic/Pencil-Shade"<br />
"Creates a pencil shaded style"<br />
""<br />
""<br />
"2011"<br />
"RGB* GRAY*"<br />
SF-IMAGE "Image" 0<br />
SF-DRAWABLE "Drawable" 0<br />
)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://3.bp.blogspot.com/-ToRtSvyllqs/TaCRaziZgBI/AAAAAAAAAB4/czytOC24WVI/s1600/Pencilshade.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://3.bp.blogspot.com/-ToRtSvyllqs/TaCRaziZgBI/AAAAAAAAAB4/czytOC24WVI/s320/Pencilshade.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pencil Shade</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-17526883211145773032011-04-09T10:59:00.000-06:002011-04-09T14:56:03.925-06:00Pencil Color Effect: Photo effect using the Gimp.<span style="font-size: large;">Pencil Color Effect:</span><br />
<br />
This will turn a photo into a Pencil Color effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Pencil script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-Pencil-color <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(TEMP0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP5 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP1 (* width .013) .20) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 0 255 1.0 170 255) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .016) 13) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-desaturate-full TEMP3 DESATURATE-AVERAGE) <br />
(gimp-levels TEMP3 HISTOGRAM-VALUE 153 169 .16 247 255) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP3 (* width .033) (* height .033) 1) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-add-layer img TEMP0 -1) <br />
(gimp-desaturate-full TEMP0 DESATURATE-AVERAGE) <br />
(gimp-brightness-contrast TEMP0 91 111) <br />
(gimp-layer-set-mode TEMP0 GRAIN-EXTRACT-MODE) <br />
(gimp-layer-set-opacity TEMP0 7.1) <br />
(gimp-image-merge-down img TEMP0 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP1 (* width .006) (* height .006) 1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-image-add-layer img TEMP5 -1) <br />
(gimp-layer-set-mode TEMP4 COLOR-MODE) <br />
(gimp-layer-set-opacity TEMP4 28.3) <br />
(gimp-layer-set-mode TEMP5 SATURATION-MODE) <br />
(gimp-layer-set-opacity TEMP5 8.7) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(gimp-image-merge-down img TEMP5 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "Pencil-color") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-Pencil-color" <br />
_"<Image>/Script-Fu/Artistic/Pencil-color" <br />
"Creates a Color Pencil Sketch Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://3.bp.blogspot.com/-5aHXha_p4cw/TaCPLNWDJjI/AAAAAAAAABo/O4Y41QnlPu0/s1600/PencilColor.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://3.bp.blogspot.com/-5aHXha_p4cw/TaCPLNWDJjI/AAAAAAAAABo/O4Y41QnlPu0/s320/PencilColor.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pencil Color</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-68817151585436028132011-04-09T10:58:00.001-06:002011-04-10T19:24:16.230-06:00Pencil Effect: Photo effect using the Gimp.<span style="font-size: large;">Pencil Effect:</span><br />
<br />
This will turn a photo into a Pencil effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Pencil script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-Pencil <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(TEMP0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP1 (* width .013) .20) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 0 255 1.0 170 255) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .016) 13) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-desaturate-full TEMP3 DESATURATE-AVERAGE) <br />
(gimp-levels TEMP3 HISTOGRAM-VALUE 153 169 .16 247 255) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP3 (* width .033) (* height .033) 1) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-add-layer img TEMP0 -1) <br />
(gimp-desaturate-full TEMP0 DESATURATE-AVERAGE) <br />
(gimp-brightness-contrast TEMP0 91 111) <br />
(gimp-layer-set-mode TEMP0 GRAIN-EXTRACT-MODE) <br />
(gimp-layer-set-opacity TEMP0 7.1) <br />
(gimp-image-merge-down img TEMP0 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP1 (* width .003) (* height .003) 1) <br />
(gimp-layer-set-name TEMP1 "Pencil") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-Pencil" <br />
_"<Image>/Script-Fu/Artistic/Pencil" <br />
"Creates a Pencil Trace Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-e8xRaAJYLdg/TaCQEeNbiMI/AAAAAAAAABw/a6HnSkApPpM/s1600/Pencil.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-e8xRaAJYLdg/TaCQEeNbiMI/AAAAAAAAABw/a6HnSkApPpM/s320/Pencil.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Pencil</td><td class="tr-caption" style="text-align: center;"></td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-88733554477446650712011-04-09T10:49:00.001-06:002011-04-10T19:25:12.638-06:00Line Art Effect: Photo effect using the Gimp.<span style="font-size: large;">Line Art Effect:</span><br />
<br />
This will turn a photo into a Line Art effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Lineart script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-lineart <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP5 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-despeckle RUN-NONINTERACTIVE img TEMP1 (* width .003) 1 -1 256) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .003) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .007) (* height .007) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-layer-set-mode TEMP4 MULTIPLY-MODE) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 228 255) <br />
(gimp-image-add-layer img TEMP5 -1) <br />
(gimp-desaturate-full TEMP5 DESATURATE-AVERAGE) <br />
(gimp-brightness-contrast TEMP5 83 120) <br />
(gimp-layer-set-mode TEMP5 MULTIPLY-MODE) <br />
(gimp-layer-set-opacity TEMP5 40.0) <br />
(gimp-image-merge-down img TEMP5 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "Lineart") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-lineart" <br />
_"<Image>/Script-Fu/Artistic/Lineart" <br />
"Creates a Line Drawing Fine Line Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-83F-lo1vXVQ/TaCOEmILK5I/AAAAAAAAABg/KTJTjdUNfr8/s1600/lineart.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-83F-lo1vXVQ/TaCOEmILK5I/AAAAAAAAABg/KTJTjdUNfr8/s320/lineart.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Line Art</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-34956005698281932982011-04-09T10:45:00.000-06:002011-04-09T15:08:59.634-06:00Ink Toned Effect: Photo effect using the Gimp.<span style="font-size: large;">Ink Toned Effect:</span><br />
<br />
This will turn a photo into a Ink Toned effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; INK-Toned script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-InkToned <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-desaturate-full TONES 2) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .005) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-threshold TEMP3 246 255) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP3 (* width .007) .20) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 234 255 10 0 255) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 128 255) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 4 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-levels TEMP4 HISTOGRAM-VALUE 0 255 1.0 0 217) <br />
(gimp-layer-set-mode TEMP4 GRAIN-MERGE-MODE) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "Ink-Toned") <br />
(gimp-image-delete img2) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-InkToned" <br />
_"<Image>/Script-Fu/Artistic/InkToned" <br />
"Creates a Ink Sketch with tones Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://2.bp.blogspot.com/-P6rRO4hWPpg/TaCM9sPHD6I/AAAAAAAAABY/0_WAKXB6R4E/s1600/inktoned.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://2.bp.blogspot.com/-P6rRO4hWPpg/TaCM9sPHD6I/AAAAAAAAABY/0_WAKXB6R4E/s320/inktoned.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ink Toned</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-43733752729867043472011-04-09T10:37:00.000-06:002011-04-09T15:02:16.005-06:00Ink Pen Effect: Photo effect using the Gimp.<span style="font-size: large;">Ink Pen Effect:</span><br />
<br />
This will turn a photo into a Ink Pen effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; INK-PEN script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-InkPen <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .005) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .013) (* height .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-threshold TEMP3 246 255) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP3 (* width .007) .20) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 234 255 10 0 255) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 128 255) <br />
(gimp-layer-set-name TEMP1 "InkPen") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-InkPen" <br />
_"<Image>/Script-Fu/Artistic/InkPen" <br />
"Creates a InkPen Sketch Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-BBalexx0R5I/TaCLQTd-UtI/AAAAAAAAABQ/dDS9HOC03pA/s1600/inkpen.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-BBalexx0R5I/TaCLQTd-UtI/AAAAAAAAABQ/dDS9HOC03pA/s320/inkpen.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Ink Pen</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com1tag:blogger.com,1999:blog-5104677846375232265.post-12038620520048265582011-04-09T10:31:00.000-06:002011-04-09T14:58:55.239-06:00High Contrast Effect: Photo effect using the Gimp.<span style="font-size: large;">High Contrast Effect:</span><br />
<br />
This will turn a photo into a High Contrast effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
;High Contrast for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-HighContrast <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP6 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-despeckle RUN-NONINTERACTIVE img TEMP1 (* width .003) 1 -1 256) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .003) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .007) (* height .007) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-layer-set-mode TEMP4 MULTIPLY-MODE) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 228 255) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-desaturate-full TONES DESATURATE-LIGHTNESS) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 4 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP6 +1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP6 0))) <br />
(gimp-layer-set-mode TEMP1 OVERLAY-MODE) <br />
(gimp-image-merge-down img TEMP1 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "HighContrast") <br />
(gimp-undo-push-group-end img) <br />
(gimp-image-delete img2) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-HighContrast" <br />
_"<Image>/Script-Fu/Artistic/HighContrast" <br />
"Creates a Line Drawing Fine Line Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div style="text-align: right;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-5120wrbIW0c/TaCJmNeQVuI/AAAAAAAAABI/ow_oCM1Mpps/s1600/hc.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-5120wrbIW0c/TaCJmNeQVuI/AAAAAAAAABI/ow_oCM1Mpps/s320/hc.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">High Contrast</td><td class="tr-caption" style="text-align: center;"></td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-67930782304371104652011-04-09T10:25:00.000-06:002011-04-09T14:56:44.318-06:00High Contrast Color Effect: Photo effect using the Gimp.<span style="font-size: large;">High Contrast Color Effect:</span><br />
<br />
This will turn a photo into a High Contrast Color effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
;High Contrast Color for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-HighContrastColor <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP0 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(save-color (car (gimp-context-get-foreground))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(plug-in-despeckle RUN-NONINTERACTIVE img TEMP1 (* width .003) 1 -1 256) <br />
(plug-in-dog RUN-NONINTERACTIVE img TEMP1 (* height .002 7.5) (* width .002 .3) TRUE TRUE) <br />
(gimp-threshold TEMP1 246 255) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-image-convert-grayscale img2) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 4 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP3 +1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-layer-set-mode TEMP1 OVERLAY-MODE) <br />
(gimp-image-merge-down img TEMP1 0) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(gimp-layer-set-mode TEMP2 COLOR-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(gimp-context-set-foreground '(0 0 0)) <br />
(gimp-image-add-layer img TEMP0 -1) <br />
(gimp-by-color-select TEMP0 '(0 0 0) 20 0 2 0 0 0) <br />
(gimp-drawable-fill TEMP0 WHITE-FILL) <br />
(if (= (car (gimp-selection-is-empty img)) FALSE) <br />
(gimp-bucket-fill TEMP0 FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) <br />
) <br />
(gimp-context-set-foreground save-color) <br />
(gimp-selection-clear img) <br />
(gimp-layer-set-mode TEMP0 MULTIPLY-MODE) <br />
(gimp-image-merge-down img TEMP0 0) <br />
<br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "HighContrastColor") <br />
(gimp-image-delete img2) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-HighContrastColor" <br />
_"<Image>/Script-Fu/Artistic/HighContrastColor" <br />
"Creates a High Contrast Color Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://2.bp.blogspot.com/-GXNpmENn-8Q/TaCIRevcgzI/AAAAAAAAABA/cQoAgev7r8g/s1600/hcc.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://2.bp.blogspot.com/-GXNpmENn-8Q/TaCIRevcgzI/AAAAAAAAABA/cQoAgev7r8g/s320/hcc.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">High Contrast Color</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-74610610947330140232011-04-09T10:17:00.000-06:002011-04-09T14:58:13.618-06:00Fine Line Effect: Photo effect using the Gimp.<span style="font-size: medium;">Fine Line Effect:</span><br />
<br />
This will turn a photo into a Fine Line effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; FineLine script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-fineline <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-despeckle RUN-NONINTERACTIVE img TEMP1 (* width .003) 1 -1 256) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .003) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .007) (* height .007) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-layer-set-mode TEMP4 MULTIPLY-MODE) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
; (gimp-threshold TEMP1 225 255) <br />
(gimp-threshold TEMP1 228 255) <br />
(gimp-layer-set-name TEMP1 "FineLine") <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-fineline" <br />
_"<Image>/Script-Fu/Artistic/FineLine" <br />
"Creates a Line Drawing Fine Line Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-ZiHqc-qll2M/TaCGepHV2kI/AAAAAAAAAA4/dZWbhEQF838/s1600/fineline.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-ZiHqc-qll2M/TaCGepHV2kI/AAAAAAAAAA4/dZWbhEQF838/s320/fineline.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Fine Line</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-78518133447699738412011-04-09T10:10:00.000-06:002011-04-09T15:00:19.627-06:00Comic Toned Effect: Photo effect using the Gimp.<span style="font-size: large;">Comic Toned Effect:</span><br />
<br />
This will turn a photo into a Comic Toned effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Comic-Toned script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-ComicToned <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(let* ( <br />
(WIDTH (car (gimp-drawable-width drawable))) <br />
(HEIGHT (car (gimp-drawable-height drawable))) <br />
(COLOR-SAVE '(0 0 0)) <br />
(img2 (car (gimp-image-new WIDTH HEIGHT 0))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP5 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP6 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP7 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-desaturate-full TONES DESATURATE-AVERAGE) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* WIDTH .005) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* WIDTH .013) (* HEIGHT .013) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-threshold TEMP3 246 255) <br />
(plug-in-cartoon RUN-NONINTERACTIVE img TEMP3 (* WIDTH .007) .20) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 234 255 10 0 255) <br />
(gimp-image-merge-down img TEMP3 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 128 255) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 3 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-levels TEMP4 0 0 255 1.0 0 217) <br />
(gimp-layer-set-mode TEMP4 GRAIN-MERGE-MODE) <br />
(gimp-image-merge-down img TEMP4 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-add-layer img TEMP5 -1) <br />
(set! COLOR-SAVE (car (gimp-context-get-foreground))) <br />
(gimp-context-set-foreground '(207 207 207)) <br />
(gimp-drawable-fill TEMP5 FOREGROUND-FILL) <br />
(gimp-layer-set-mode TEMP5 MULTIPLY-MODE) <br />
(gimp-context-set-foreground COLOR-SAVE) <br />
(gimp-image-merge-down img TEMP5 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-add-layer img TEMP6 -1) <br />
(gimp-layer-set-mode TEMP6 COLOR-MODE) <br />
(gimp-layer-set-opacity TEMP6 74.0) <br />
(gimp-image-merge-down img TEMP6 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-add-layer img TEMP7 -1) <br />
(gimp-layer-set-opacity TEMP7 64.6) <br />
(gimp-layer-set-mode TEMP7 SATURATION-MODE) <br />
(gimp-image-merge-down img TEMP7 EXPAND-AS-NECESSARY) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "Comic Toned") <br />
(gimp-image-delete img2) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-ComicToned" <br />
_"<Image>/Script-Fu/Artistic/ComicToned" <br />
"Creates a Comic with tones Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://2.bp.blogspot.com/-7oQTGxgubPE/TaCEm1KxdfI/AAAAAAAAAAw/BayvdAheJzM/s1600/comictoned.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://2.bp.blogspot.com/-7oQTGxgubPE/TaCEm1KxdfI/AAAAAAAAAAw/BayvdAheJzM/s320/comictoned.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Comic Toned</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-9697722533700805692011-04-09T09:59:00.000-06:002011-04-09T15:01:31.817-06:00Color Chalk Effect: Photo effect using the Gimp.<span style="font-size: large;">Color Chalk Effect:</span><br />
<br />
This will turn a photo into a Color Chalk effect:<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Color Chalk script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-color-chalk<br />
img<br />
drawable<br />
)<br />
(gimp-undo-push-group-start img)<br />
<br />
(define (get-matrix matrix-list)<br />
(define (list-ref l n) (nth n l))<br />
(let* ((count 0)<br />
(matrix (cons-array 25 'double)))<br />
(while (< count 25)<br />
(aset matrix count (list-ref matrix-list count))<br />
(set! count (+ count 1)))<br />
matrix)) <br />
(define (get-channels)<br />
(let* ((channels (cons-array 5 'long)))<br />
(aset channels 0 0)<br />
(aset channels 1 1)<br />
(aset channels 2 1)<br />
(aset channels 3 1)<br />
(aset channels 4 0)<br />
channels)) <br />
(define matrix-list <br />
(list 0 0 0 0 0<br />
0 0 1 0 0<br />
0 1 -5 1 0<br />
0 0 1 0 0<br />
0 0 0 0 0)) <br />
(let* (<br />
(width (car (gimp-drawable-width drawable)))<br />
(height (car (gimp-drawable-height drawable)))<br />
(img2 (car (gimp-image-new width height 0)))<br />
(layer-temp2 (car (gimp-layer-new-from-drawable drawable img2)))<br />
(lineLayer (car (gimp-layer-copy drawable -1)))<br />
(sketchLayer1 (car (gimp-layer-copy drawable -1)))<br />
(sketchLayer2 (car (gimp-layer-copy drawable -1)))<br />
(blackLayer (car (gimp-layer-new img width height 0 "blackLayer" 25 3)))<br />
(grayLayer (car (gimp-layer-new img width height 0 "grayLayer" 100 3)))<br />
(colorLayer (car (gimp-layer-copy drawable -1)))<br />
(satLayer (car (gimp-layer-copy drawable -1)))<br />
(liteLayer (car (gimp-layer-copy drawable -1)))<br />
(matrix (get-matrix matrix-list))<br />
(channels (get-channels)) <br />
)<br />
(gimp-image-add-layer img lineLayer -1)<br />
(gimp-image-add-layer img sketchLayer1 -1)<br />
(gimp-image-add-layer img sketchLayer2 -1)<br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img sketchLayer2 (* width .005) 13)<br />
(gimp-edit-copy sketchLayer2)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste sketchLayer1 0)))<br />
(plug-in-gauss RUN-NONINTERACTIVE img sketchLayer2 (* width .013) (* height .013) 1)<br />
(gimp-layer-set-mode sketchLayer2 DIVIDE-MODE)<br />
(gimp-image-merge-down img sketchLayer2 0)<br />
(set! sketchLayer1 (car (gimp-image-get-active-layer img)))<br />
(plug-in-cartoon RUN-NONINTERACTIVE img sketchLayer1 (* width .010) .20)<br />
(gimp-layer-set-mode sketchLayer1 MULTIPLY-MODE)<br />
(gimp-desaturate-full sketchLayer1 1)<br />
(plug-in-gauss RUN-NONINTERACTIVE img sketchLayer1 (* width .005) (* width .005) 1)<br />
(gimp-desaturate-full lineLayer 1)<br />
(plug-in-convmatrix RUN-NONINTERACTIVE img lineLayer 25 matrix FALSE 1 128 5 channels 0)<br />
(gimp-invert lineLayer)<br />
(gimp-image-merge-down img sketchLayer1 0)<br />
(set! drawable (car (gimp-image-get-active-layer img)))<br />
(gimp-levels drawable HISTOGRAM-VALUE 128 255 3.0 0 255)<br />
(gimp-image-add-layer img grayLayer -1)<br />
(gimp-context-set-foreground '(176 176 176))<br />
(gimp-drawable-fill grayLayer 0)<br />
(gimp-image-add-layer img blackLayer -1)<br />
(gimp-layer-add-alpha blackLayer)<br />
(gimp-image-add-layer img colorLayer -1)<br />
(gimp-layer-set-mode colorLayer COLOR-MODE)<br />
(gimp-by-color-select colorLayer '(0 0 0) 10.4 0 0 0 0 0)<br />
(gimp-selection-invert img)<br />
(gimp-edit-clear blackLayer)<br />
(gimp-selection-clear img)<br />
(gimp-image-add-layer img satLayer -1)<br />
(gimp-layer-set-mode satLayer SATURATION-MODE)<br />
(gimp-layer-set-opacity colorLayer 66.0)<br />
(gimp-layer-set-opacity satLayer 61.0)<br />
(plug-in-gauss RUN-NONINTERACTIVE img colorLayer (* width .003) (* height .003) 1)<br />
(plug-in-gauss RUN-NONINTERACTIVE img satLayer (* width .020) (* height .020) 1)<br />
(gimp-image-add-layer img liteLayer -1)<br />
(gimp-image-add-layer img2 layer-temp2 -1)<br />
(gimp-image-convert-indexed img2 NO-DITHER MONO-PALETTE 2 FALSE FALSE "0")<br />
(gimp-edit-copy layer-temp2)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste liteLayer 0)))<br />
(gimp-layer-set-mode liteLayer OVERLAY-MODE)<br />
(gimp-layer-set-opacity liteLayer 30.0)<br />
(plug-in-gauss RUN-NONINTERACTIVE img liteLayer (* width .017) (* height .017) 1)<br />
(gimp-image-merge-down img grayLayer 0)<br />
(gimp-image-merge-down img blackLayer 0)<br />
(gimp-image-merge-down img colorLayer 0)<br />
(gimp-image-merge-down img satLayer 0)<br />
(gimp-image-merge-down img liteLayer 0)<br />
(set! lineLayer (car (gimp-image-get-active-layer img)))<br />
(gimp-edit-copy lineLayer)<br />
(gimp-image-convert-rgb img2)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0)))<br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 34 FALSE FALSE "0")<br />
(gimp-edit-copy layer-temp2)<br />
(gimp-floating-sel-anchor (car (gimp-edit-paste lineLayer 0)))<br />
(gimp-image-delete img2)<br />
(gimp-layer-set-name lineLayer "Color Chalk")<br />
(gimp-undo-push-group-end img)<br />
(gimp-displays-flush)<br />
)<br />
)<br />
(script-fu-register <br />
"script-fu-color-chalk"<br />
_"<Image>/Script-Fu/Artistic/ColorChalk"<br />
"Creates a Color Chalk style"<br />
""<br />
""<br />
"2011"<br />
"RGB*"<br />
SF-IMAGE "Image" 0<br />
SF-DRAWABLE "Drawable" 0<br />
)<br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://1.bp.blogspot.com/-47tO2IJxf04/TaCBpyu5rFI/AAAAAAAAAAo/E8z2pFXLuis/s1600/colorchalk.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://1.bp.blogspot.com/-47tO2IJxf04/TaCBpyu5rFI/AAAAAAAAAAo/E8z2pFXLuis/s320/colorchalk.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Color Chalk</td><td class="tr-caption" style="text-align: center;"><br />
</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com0tag:blogger.com,1999:blog-5104677846375232265.post-72798285351645017382011-04-09T09:49:00.000-06:002011-04-09T14:57:20.234-06:00Cartoon Effect: Photo effect using the Gimp.<span style="font-size: large;">Cartoon Effect:</span><br />
<br />
This will turn a photo into a cartoon effect:<br />
<br />
Here is the code --><br />
<br />
;*************************************************************************************** <br />
; Cartoon script for GIMP 2.x <br />
;*************************************************************************************** <br />
(define (script-fu-cartoon <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(gimp-levels-stretch drawable) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(TONES (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP1 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP2 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP3 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP4 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP6 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP7 (car (gimp-layer-new-from-drawable drawable img))) <br />
(TEMP8 (car (gimp-layer-new-from-drawable drawable img))) <br />
) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(plug-in-despeckle RUN-NONINTERACTIVE img TEMP1 (* width .003) 1 -1 256) <br />
(plug-in-sel-gauss RUN-NONINTERACTIVE img TEMP1 (* width .003) 13) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP2 0))) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP2 (* width .007) (* height .007) 1) <br />
(gimp-layer-set-mode TEMP2 DIVIDE-MODE) <br />
(gimp-image-merge-down img TEMP2 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-layer-set-mode TEMP3 MULTIPLY-MODE) <br />
(gimp-layer-set-mode TEMP4 MULTIPLY-MODE) <br />
(gimp-edit-copy TEMP1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP3 0))) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP4 0))) <br />
(gimp-image-merge-down img TEMP3 0) <br />
(gimp-image-merge-down img TEMP4 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-threshold TEMP1 228 255) <br />
(gimp-image-add-layer img2 TONES -1) <br />
(gimp-desaturate-full TONES DESATURATE-LIGHTNESS) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 4 FALSE FALSE "0") <br />
(gimp-edit-copy TONES) <br />
(gimp-image-add-layer img TEMP6 +1) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP6 0))) <br />
(gimp-layer-set-mode TEMP1 OVERLAY-MODE) <br />
(gimp-image-merge-down img TEMP1 0) <br />
(gimp-image-add-layer img TEMP7 -1) <br />
(gimp-layer-set-mode TEMP7 COLOR-MODE) <br />
(gimp-layer-set-opacity TEMP7 77.0) <br />
(gimp-image-merge-down img TEMP7 0) <br />
(gimp-image-add-layer img TEMP8 -1) <br />
(gimp-layer-set-mode TEMP8 SATURATION-MODE) <br />
(gimp-layer-set-opacity TEMP8 67.0) <br />
(gimp-image-merge-down img TEMP8 0) <br />
(set! TEMP1 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP1 "Cartoon") <br />
(gimp-undo-push-group-end img) <br />
(gimp-image-delete img2) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-cartoon" <br />
_"<Image>/Script-Fu/Artistic/Cartoon" <br />
"Creates a Cartoon Effect." <br />
"" <br />
"" <br />
"" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><br />
<table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://2.bp.blogspot.com/-Vos1dSRqDdU/TaB_31UD4AI/AAAAAAAAAAg/s6VDLHUbe1M/s1600/cartoon.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://2.bp.blogspot.com/-Vos1dSRqDdU/TaB_31UD4AI/AAAAAAAAAAg/s6VDLHUbe1M/s320/cartoon.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Cartoon</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com2tag:blogger.com,1999:blog-5104677846375232265.post-12970155360945996302011-04-09T09:41:00.000-06:002011-04-09T14:55:13.419-06:00Comic Effect: Photo effect using the Gimp.<b><span style="font-size: large;">Comic Effect:</span></b><br />
<br />
This will turn a photo into a comic effect:<br />
<br />
<br />
Here is the code --><br />
;*************************************************************************************** <br />
; Comic script for GIMP 2.x <br />
; -------------------------------------------------------------------- <br />
(define (script-fu-Comic <br />
img <br />
drawable <br />
) <br />
(gimp-undo-push-group-start img) <br />
(gimp-levels-stretch drawable) <br />
(let* ( <br />
(width (car (gimp-drawable-width drawable))) <br />
(height (car (gimp-drawable-height drawable))) <br />
(img2 (car (gimp-image-new width height 0))) <br />
(COLOR (car (gimp-layer-new-from-drawable drawable img2))) <br />
(TEMP0 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP1 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP2 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP3 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP4 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP5 (car (gimp-layer-copy drawable FALSE))) <br />
(TEMP6 (car (gimp-layer-copy drawable FALSE))) <br />
(colorsave '(0 0 0)) <br />
) <br />
(gimp-image-add-layer img TEMP0 -1) <br />
(gimp-image-add-layer img TEMP1 -1) <br />
(gimp-image-add-layer img TEMP2 -1) <br />
(gimp-image-add-layer img TEMP4 -1) <br />
(gimp-image-add-layer img TEMP3 -1) <br />
(gimp-image-add-layer img TEMP5 -1) <br />
(set! colorsave (car (gimp-context-get-foreground))) <br />
(gimp-context-set-foreground '(177 177 177)) <br />
(gimp-drawable-fill TEMP5 FOREGROUND-FILL) <br />
(gimp-layer-set-mode TEMP5 OVERLAY-MODE) <br />
(gimp-context-set-foreground colorsave) <br />
(gimp-desaturate-full TEMP3 DESATURATE-AVERAGE) <br />
(gimp-layer-set-mode TEMP3 DODGE-MODE) <br />
(gimp-desaturate-full TEMP4 DESATURATE-AVERAGE) <br />
(gimp-desaturate-full TEMP2 DESATURATE-AVERAGE) <br />
(plug-in-gauss RUN-NONINTERACTIVE img TEMP3 (* width .013) (* height .013) 0) ;IIR <br />
(gimp-invert TEMP3) <br />
(gimp-image-merge-down img TEMP3 EXPAND-AS-NECESSARY) <br />
(set! TEMP4 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-mode TEMP4 MULTIPLY-MODE) <br />
(gimp-threshold TEMP4 237 255) <br />
(gimp-threshold TEMP2 25 255) <br />
(gimp-layer-set-mode TEMP2 MULTIPLY-MODE) <br />
(gimp-layer-set-opacity TEMP2 60.0) <br />
(gimp-desaturate-full TEMP1 DESATURATE-AVERAGE) <br />
(gimp-layer-set-mode TEMP1 DIVIDE-MODE) <br />
(gimp-levels TEMP1 HISTOGRAM-VALUE 0 181 1.0 0 255) <br />
(gimp-image-merge-down img TEMP1 EXPAND-AS-NECESSARY) <br />
(set! TEMP0 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-merge-down img TEMP2 EXPAND-AS-NECESSARY) <br />
(set! TEMP0 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-merge-down img TEMP4 EXPAND-AS-NECESSARY) <br />
(set! TEMP0 (car (gimp-image-get-active-layer img))) <br />
(gimp-image-merge-down img TEMP5 EXPAND-AS-NECESSARY) <br />
(set! TEMP0 (car (gimp-image-get-active-layer img))) <br />
(gimp-layer-set-name TEMP0 "Comic") <br />
(gimp-image-add-layer img2 COLOR -1) <br />
(gimp-edit-copy TEMP0) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste COLOR 0))) <br />
(gimp-image-convert-indexed img2 NO-DITHER MAKE-PALETTE 34 FALSE FALSE "0") <br />
(gimp-edit-copy COLOR) <br />
(gimp-floating-sel-anchor (car (gimp-edit-paste TEMP0 0))) <br />
(gimp-image-add-layer img TEMP6 -1) <br />
(gimp-desaturate-full TEMP6 DESATURATE-AVERAGE) <br />
(gimp-brightness-contrast TEMP6 83 120) <br />
(gimp-layer-set-mode TEMP6 MULTIPLY-MODE) <br />
(gimp-layer-set-opacity TEMP6 60.0) <br />
(gimp-image-merge-down img TEMP6 0) <br />
(gimp-image-delete img2) <br />
(gimp-undo-push-group-end img) <br />
(gimp-displays-flush) <br />
) <br />
) <br />
(script-fu-register <br />
"script-fu-Comic" <br />
_"<Image>/Script-Fu/Artistic/Comic" <br />
"Creates a Comic Book Effect." <br />
"" <br />
"" <br />
"2011" <br />
"RGB*" <br />
SF-IMAGE "Image" 0 <br />
SF-DRAWABLE "Drawable" 0 <br />
) <br />
<br />
<div class="separator" style="clear: both; text-align: center;"></div><div class="separator" style="clear: both; text-align: center;"></div><table align="center" cellpadding="0" cellspacing="0" class="tr-caption-container" style="margin-left: auto; margin-right: auto; text-align: center;"><tbody>
<tr><td style="text-align: center;"><a href="http://4.bp.blogspot.com/-6tcXbBXyhAI/TaB8z95I29I/AAAAAAAAAAY/TCE15itih9Y/s1600/comic.jpg" imageanchor="1" style="margin-left: auto; margin-right: auto;"><img border="0" height="320" src="http://4.bp.blogspot.com/-6tcXbBXyhAI/TaB8z95I29I/AAAAAAAAAAY/TCE15itih9Y/s320/comic.jpg" width="211" /></a></td></tr>
<tr><td class="tr-caption" style="text-align: center;">Comic</td></tr>
</tbody></table>Joe1GKhttp://www.blogger.com/profile/04611337106118600063noreply@blogger.com1