├── .DS_Store ├── README.md ├── gimp_scripts-2.10 ├── 1_INSTALL ├── 210_Shapes_circle-create.scm ├── 210_add-pointer.scm ├── 210_artist_angled-strokes.scm ├── 210_artist_color-pencil.scm ├── 210_artist_conte.scm ├── 210_artist_crosshatch.scm ├── 210_artist_cutout.scm ├── 210_artist_inkpen.scm ├── 210_artist_notepaper.scm ├── 210_artist_palette-knife.scm ├── 210_artist_pastel.scm ├── 210_artist_water-paint-effect.scm ├── 210_calendar.scm ├── 210_color-invert_invert.scm ├── 210_color-invert_solarisation.scm ├── 210_color-saturation_lighten_saturate.scm ├── 210_color_bw-from-graphic.scm ├── 210_color_color-temp.scm ├── 210_color_funky-color.scm ├── 210_color_grey-point.scm ├── 210_color_index-from-selection.scm ├── 210_color_saturation_ColorSaturation.scm ├── 210_color_tone-mapping.scm ├── 210_color_warming-or-cooling.scm ├── 210_color_xpro.scm ├── 210_colorize-prep.scm ├── 210_contrast_Contrast-Fix.scm ├── 210_contrast_auto-contrast.scm ├── 210_contrast_change-contrast.scm ├── 210_contrast_change-shadow-highlights.scm ├── 210_contrast_high-pass.scm ├── 210_contrast_iso-noise-reduction.scm ├── 210_contrast_shadow-recovery.scm ├── 210_create-new_animated-letters.scm ├── 210_create-new_circletext.scm ├── 210_create-new_glass-text.scm ├── 210_create-new_glossy-orb.scm ├── 210_create-new_scribbled-text.scm ├── 210_create-new_text-balloon.scm ├── 210_distorts_amazing-circles.scm ├── 210_distorts_photocopy.scm ├── 210_distorts_wrap-effect.scm ├── 210_edges_art-border.scm ├── 210_edges_fade-outline.scm ├── 210_edges_frames.scm ├── 210_edges_fuzzy-border.scm ├── 210_edges_jagged-border.scm ├── 210_edges_mats-and-frames.scm ├── 210_edges_photo-border-fancy.scm ├── 210_edges_photoframe.scm ├── 210_edges_picture-frame.scm ├── 210_edges_tasty-frame.scm ├── 210_edges_trans-border.scm ├── 210_effects-selection_add-bevel.scm ├── 210_effects-selection_chisel.scm ├── 210_effects-selection_glass-selection.scm ├── 210_effects-selection_glow-selection.scm ├── 210_effects-selection_highlight-from-selection.scm ├── 210_effects_CarTOONize.scm ├── 210_effects_blackboard-effect.scm ├── 210_effects_cartoon-quick.scm ├── 210_effects_cartoon2.scm ├── 210_effects_chrome-image.scm ├── 210_effects_crosslight.scm ├── 210_effects_fog.scm ├── 210_effects_landscape-illustrator.scm ├── 210_effects_lomo.scm ├── 210_effects_reflection.scm ├── 210_effects_sepoina.scm ├── 210_effects_thicken-lines.scm ├── 210_effects_toonator.scm ├── 210_effects_water-reflection.scm ├── 210_photo_BlueSkyClouds.scm ├── 210_photo_EZRedSkinFix.scm ├── 210_photo_copyright.scm ├── 210_photo_film-grain.scm ├── 210_photo_fix-overblown.scm ├── 210_photo_halftone.scm ├── 210_photo_infrared-simulation.scm ├── 210_photo_pastel-portrait.scm ├── 210_photo_red-eye.scm ├── 210_photo_vintage-effect.scm ├── 210_photo_web-photo-edit.scm ├── 210_remove-paths.scm ├── 210_remove-settings.scm ├── 210_save-as-jpg.scm ├── 210_save-as-png.scm ├── 210_shapes_cd-mask.scm ├── 210_shapes_old-paper.scm ├── 210_shapes_stampify.scm ├── 210_sharpness-sharper_BSSS_sharpening.scm ├── 210_sharpness-sharper_high-pass-sharpen.scm ├── 210_sharpness-sharper_midtone-sharp.scm ├── 210_sharpness-sharper_smart_sharpen.scm ├── 210_sharpness-sharper_wisest-sharpen.scm ├── 210_sharpness-softer_blur-non-edges.scm ├── 210_sharpness-softer_orton.scm ├── 210_sharpness-softer_pixel-gradient.scm ├── 210_sharpness-softer_sharp-blur.scm ├── 210_sharpness-softer_soft-focus-simple.scm ├── 210_sharpness-softer_softfocus.scm ├── 210_sharpness-softer_wonderful.scm ├── 210_sharpness_warp-sharp.scm ├── 210_sketch_Roy-Lichtenstein.scm ├── 210_sketch_pen-sketch.scm ├── 210_sketch_pencil-sketch-BW.scm ├── 210_sketch_quick-sketch.scm ├── 210_sketch_sketch-drawing.scm ├── 210_sketch_synthetic_edge.scm ├── 210_stroked_text.scm ├── 210_texture_patchwork.scm ├── 210_texture_stained-glass.scm ├── 210_texture_texturizer.scm ├── 210_watermark.scm ├── README.txt ├── gimpressionist │ └── Presets │ │ ├── ev_angledstrokes.txt │ │ ├── ev_coloredpencil.txt │ │ ├── ev_crayon_full.txt │ │ ├── ev_crayon_half.txt │ │ ├── ev_crosshatched.txt │ │ ├── ev_cubic.txt │ │ ├── ev_drybrush.txt │ │ ├── ev_inkpen.txt │ │ ├── ev_oilpaint.txt │ │ ├── ev_painted.txt │ │ ├── ev_paletknife.txt │ │ ├── ev_paletknife2.txt │ │ ├── ev_pointilize.txt │ │ ├── ev_roughpastels.txt │ │ ├── ev_smudgestick.txt │ │ ├── ev_spatter.txt │ │ ├── ev_sponge.txt │ │ ├── ev_sprayedstrokes.txt │ │ ├── ev_sprayedstrokes2.txt │ │ ├── ev_strokes45r.txt │ │ ├── ev_vangogh_rays.txt │ │ └── graphite2.txt ├── gradients │ └── PictureFrames │ │ ├── Crown-Moulding-01.ggr │ │ ├── Crown-Moulding-02.ggr │ │ ├── Crown-Moulding-03.ggr │ │ ├── Crown-Moulding-04.ggr │ │ ├── Crown-Moulding-05.ggr │ │ ├── Crown-Moulding-06.ggr │ │ ├── Crown-Moulding-07.ggr │ │ ├── Crown-Moulding-08.ggr │ │ ├── Crown-Moulding-09.ggr │ │ ├── Crown-Moulding-10.ggr │ │ └── Crown-Moulding-11.ggr ├── images │ ├── pointer-click-effect.png │ ├── pointer-drag-and-drop-move.png │ ├── pointer-drag-and-drop.png │ ├── pointer-editor.png │ ├── pointer-link-select.png │ └── pointer-normal-select.png ├── patterns │ └── Pencil-Sketch.pat └── plug-ins │ └── 210_arrow_draw.py ├── plugins ├── save_for_web_0.28.6_win32.zip ├── webexport └── webexport.exe └── scripts ├── 210_effects-selection_glow-selection-outline.scm ├── 210_effects-selection_glow-selection-shadow.scm ├── 210_save-as-jpg.scm └── 210_save-as-png.scm /.DS_Store: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/.DS_Store -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # gimphelp a mirror of gimphelp.org scripts and custom scripts modified by myself 2 | 3 | I made this because I had issues with the gimphelp.org website and wanted a safe place for all scripts to download and store. I also made custom scripts and added a custom save for web plugin for those running websites. 4 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/1_INSTALL: -------------------------------------------------------------------------------- 1 | TO_INSTALL: 2 | 3 | 4 | 5 | Put the scripts in : 6 | 7 | Windows 7/10 8 | C:\Program Files\GIMP 2\share\gimp\2.0\scripts 9 | or 10 | C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 11 | 12 | 13 | Linux 14 | /home/yourname/.config/GIMP/2.10/scripts 15 | or 16 | Linux system-wide 17 | /usr/share/gimp/2.0/scripts 18 | 19 | 20 | 21 | 22 | Put the Gimpressionist presets in : 23 | 24 | Windows 7/10 25 | C:\Program Files\GIMP 2\share\gimp\2.0\gimpressionist\preset 26 | or 27 | C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gimpressionist\presets 28 | 29 | 30 | Linux 31 | /home/yourname/.config/GIMP/2.10/gimpressionist/presets 32 | or 33 | Linux - system-wide 34 | /usr/share/gimp/2.0/gimpressionist/Presets 35 | 36 | 37 | 38 | Put the Gradients in : 39 | 40 | Windows 7/10 41 | C:\Program Files\GIMP 2\share\gimp\2.0\gradients 42 | or 43 | C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gradients 44 | 45 | 46 | Linux 47 | /home/yourname/.config/GIMP/2.10/gradients 48 | or 49 | Linux - system-wide 50 | /usr/share/gimp/2.0/gradients 51 | 52 | 53 | 54 | Put the patterns in : 55 | 56 | Windows 7/10 57 | C:\Program Files\GIMP 2\share\gimp\2.0\patterns 58 | or 59 | C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\patterns 60 | 61 | 62 | Linux 63 | /home/yourname/.config/GIMP/2.10/patterns 64 | or 65 | Linux - system-wide 66 | /usr/share/gimp/2.0/patterns 67 | 68 | 69 | Python script installation (plug-ins): 70 | 71 | This script should be placed in the user or system-wide plug-ins folder. 72 | 73 | Windows Vista/7/8/10) 74 | C:\Program Files\GIMP 2\lib\gimp\2.0\plug-ins 75 | or 76 | C:\Users\YOUR-NAME\AppData\Roaming\gimp-2.10\plug-ins 77 | (AppData is a hidden directory, you have to "Show Hidden Directories" 78 | under folder options in order to see it.) 79 | 80 | 81 | Linux 82 | Make sure to set the file as executable! 83 | 84 | /home/yourname/.config/GIMP/2.10/plug-ins 85 | or 86 | Linux system-wide 87 | /usr/lib64/gimp/2.0/plug-ins 88 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_Shapes_circle-create.scm: -------------------------------------------------------------------------------- 1 | ; 210_Shapes_circle-creator.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; (c)2010 by Paul Sherman 42 | ; uploaded to gimphelp.org 43 | ; 44 | ; initial idea based upon: 45 | ; Plugin : draw-circle.scm 46 | ; Author : Arch. Giuseppe Conte 47 | ;============================================================== 48 | 49 | 50 | (define (210-circle-creator image layer Radius FeatherRadius isSolid circlethick sfcolor) 51 | (let* ( 52 | (sx 0) 53 | (sy 0) 54 | (diameter 0) 55 | (dx 0) 56 | (dy 0) 57 | (image-width (car (gimp-drawable-width layer))) 58 | (image-height (car (gimp-drawable-height layer))) 59 | (center-x (/ image-width 2)) 60 | (center-y (/ image-height 2)) 61 | (layer1 '()) 62 | ) 63 | 64 | 65 | ; make sure thickness of circle outline is not larger than the radius 66 | ; just knock it down rather than bother the user... 67 | 68 | (while (> circlethick Radius) 69 | (set! circlethick (- circlethick 1)) 70 | ) 71 | 72 | 73 | ; make sure radius fits inside image (width then height) 74 | 75 | (while (>= Radius (- center-x 2)) 76 | (set! Radius (- Radius 1)) 77 | ) 78 | 79 | (while (>= Radius (- center-y 2)) 80 | (set! Radius (- Radius 1)) 81 | ) 82 | 83 | ; since size is now asured to fit in the image, 84 | ; we can now center it in the image, since circle will be on it' own layer, 85 | ; dragging it where wanted is easier than setting x and y coordinates. 86 | 87 | (set! sx (- center-x Radius)) 88 | (set! sy (- center-y Radius)) 89 | (set! diameter (* Radius 2)) 90 | (set! dx diameter) 91 | (set! dy diameter) 92 | 93 | (set! layer1 (car (gimp-layer-copy layer 1))) 94 | (gimp-image-undo-group-start image) 95 | 96 | (gimp-image-insert-layer image layer1 0 -1) 97 | (gimp-image-set-active-layer image layer1) 98 | (gimp-edit-clear layer1) 99 | (gimp-image-select-ellipse image CHANNEL-OP-REPLACE sx sy dx dy) 100 | (gimp-context-set-foreground sfcolor) 101 | (gimp-edit-fill layer1 0) 102 | 103 | ; punch appropriate-size hole in circle, if not solid 104 | (if (not (= isSolid 1)) 105 | (begin 106 | (gimp-selection-shrink image circlethick) 107 | (gimp-edit-cut layer1))) 108 | 109 | (gimp-selection-none image) 110 | (plug-in-autocrop-layer 1 image layer1) 111 | 112 | ; tidy up 113 | (gimp-image-undo-group-end image) 114 | (gimp-displays-flush) 115 | 116 | ) ;;let 117 | ) ;;def 118 | 119 | (script-fu-register 120 | "210-circle-creator" 121 | "Circle Draw" 122 | "Draw a circle" 123 | "Paul Sherman" 124 | "Paul Sherman" 125 | "15 October 2010" 126 | "*" 127 | SF-IMAGE "Image" 0 128 | SF-DRAWABLE "Layer" 0 129 | SF-ADJUSTMENT "Radius" '(16 0 9999 1 10 0 1) 130 | SF-ADJUSTMENT "Feather Edge" '(1 0 9999 1 10 0 1) 131 | SF-TOGGLE "\nSolid Circle?\n" FALSE 132 | SF-ADJUSTMENT "Circle Thickness (used if not solid)" '(1 0 200 1 10 0 1) 133 | SF-COLOR "SF-COLOR" '(0 0 0) 134 | ) 135 | (script-fu-menu-register "210-circle-creator" "/Script-Fu/Shapes") 136 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_angled-strokes.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_angled-strokes.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; ALSO NEED TO PUT: 24 | ; ev_angledstrokes.txt 25 | ; 26 | ; Windows 7/10 27 | ; C:\Program Files\GIMP 2\share\gimp\2.0\gimpressionist\presets 28 | ; or 29 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gimpressionist\presets 30 | ; 31 | ; 32 | ; Linux 33 | ; /home/yourname/.config/GIMP/2.10/gimpressionist\presets 34 | ; or 35 | ; Linux system-wide 36 | ; /usr/share/gimp/2.0/gimpressionist\presets 37 | 38 | ;============================================================== 39 | ; 40 | ; LICENSE 41 | ; 42 | ; This program is free software: you can redistribute it and/or modify 43 | ; it under the terms of the GNU General Public License as published by 44 | ; the Free Software Foundation, either version 3 of the License, or 45 | ; (at your option) any later version. 46 | ; 47 | ; This program is distributed in the hope that it will be useful, 48 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 49 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 50 | ; GNU General Public License for more details. 51 | ; 52 | ; You should have received a copy of the GNU General Public License 53 | ; along with this program. If not, see . 54 | ; 55 | ;============================================================== 56 | ; Original information 57 | ; 58 | ; Angled Strokes image script for GIMP 2.2 59 | ; Copyright (C) 2007 Eddy Verlinden 60 | ;============================================================== 61 | 62 | (define (210-angled-strokes 63 | img 64 | drawable 65 | inMerge 66 | ) 67 | 68 | (gimp-image-undo-group-start img) 69 | 70 | (define indexed (car (gimp-drawable-is-indexed drawable))) 71 | 72 | (if (= indexed TRUE) 73 | (begin 74 | (gimp-image-convert-rgb img) 75 | ) 76 | ) 77 | 78 | (let* ( 79 | (width (car (gimp-drawable-width drawable))) 80 | (height (car (gimp-drawable-height drawable))) 81 | (old-selection (car (gimp-selection-save img))) 82 | (image-type (car (gimp-image-base-type img))) 83 | (layer-type (car (gimp-drawable-type drawable))) 84 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 85 | ) 86 | 87 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 88 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 89 | (gimp-selection-none img) 90 | (gimp-drawable-fill layer-temp1 3) 91 | (gimp-image-insert-layer img layer-temp1 0 -1) 92 | (gimp-layer-add-alpha layer-temp1) 93 | (gimp-edit-copy drawable) 94 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 95 | 96 | (plug-in-gimpressionist 1 img layer-temp1 "ev_angledstrokes.txt") 97 | (plug-in-unsharp-mask 1 img layer-temp1 5.0 1.0 0) 98 | 99 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 100 | (gimp-selection-invert img) 101 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 102 | (begin 103 | (gimp-edit-clear layer-temp1) 104 | )) 105 | 106 | (gimp-item-set-name layer-temp1 "Angled strokes") 107 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 108 | (gimp-image-remove-channel img old-selection) 109 | 110 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 111 | (gimp-image-undo-group-end img) 112 | (gimp-displays-flush) 113 | ) 114 | ) 115 | 116 | (script-fu-register "210-angled-strokes" 117 | "Angled strokes" 118 | "Creates a drawing effect, based on the Gimpressionist." 119 | "Eddy Verlinden " 120 | "Eddy Verlinden" 121 | "2007, juli" 122 | "*" 123 | SF-IMAGE "Image" 0 124 | SF-DRAWABLE "Drawable" 0 125 | SF-TOGGLE "Merge layers when complete?" FALSE 126 | ) 127 | (script-fu-menu-register "210-angled-strokes" "/Script-Fu/Artist") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_color-pencil.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_color-pencil.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; ALSO NEED TO COPY: 24 | ; ev_coloredpencil.txt 25 | ; 26 | ; Windows 7/10 27 | ; C:\Program Files\GIMP 2\share\gimp\2.0\gimpressionist\presets 28 | ; or 29 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gimpressionist\presets 30 | ; 31 | ; 32 | ; Linux 33 | ; /home/yourname/.config/GIMP/2.10/gimpressionist\presets 34 | ; or 35 | ; Linux system-wide 36 | ; /usr/share/gimp/2.0/gimpressionist\presets 37 | ;====================================================== 38 | ; 39 | ; LICENSE 40 | ; 41 | ; This program is free software: you can redistribute it and/or modify 42 | ; it under the terms of the GNU General Public License as published by 43 | ; the Free Software Foundation, either version 3 of the License, or 44 | ; (at your option) any later version. 45 | ; 46 | ; This program is distributed in the hope that it will be useful, 47 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 48 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 49 | ; GNU General Public License for more details. 50 | ; 51 | ; You should have received a copy of the GNU General Public License 52 | ; along with this program. If not, see . 53 | ; 54 | ;============================================================== 55 | ; Original information 56 | ; 57 | ; Color pencil image script for GIMP 2.2 58 | ; Copyright (C) 2007 Eddy Verlinden 59 | ; 60 | ;============================================================== 61 | 62 | (define (210-color-pencil 63 | img 64 | drawable 65 | inMerge 66 | ) 67 | 68 | (gimp-image-undo-group-start img) 69 | (define indexed (car (gimp-drawable-is-indexed drawable))) 70 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 71 | 72 | (let* ( 73 | (width (car (gimp-drawable-width drawable))) 74 | (height (car (gimp-drawable-height drawable))) 75 | (old-selection (car (gimp-selection-save img))) 76 | (image-type (car (gimp-image-base-type img))) 77 | (layer-type (car (gimp-drawable-type drawable))) 78 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 79 | ) 80 | 81 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 82 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 83 | (gimp-selection-none img) 84 | (gimp-drawable-fill layer-temp1 3) 85 | (gimp-image-insert-layer img layer-temp1 0 -1) 86 | (gimp-layer-add-alpha layer-temp1) 87 | (gimp-edit-copy drawable) 88 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 89 | 90 | (plug-in-gimpressionist 1 img layer-temp1 "ev_coloredpencil.txt") 91 | (gimp-hue-saturation layer-temp1 0 0 0 60) 92 | 93 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 94 | (gimp-selection-invert img) 95 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 96 | (begin 97 | (gimp-edit-clear layer-temp1) 98 | )) 99 | 100 | (gimp-item-set-name layer-temp1 "Col Pencil") 101 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 102 | (gimp-image-remove-channel img old-selection) 103 | 104 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 105 | (gimp-image-undo-group-end img) 106 | (gimp-displays-flush) 107 | ) 108 | ) 109 | 110 | (script-fu-register 111 | "210-color-pencil" 112 | "Color Pencil" 113 | "Creates a drawing effect like made with colored pencils" 114 | "Eddy Verlinden " 115 | "Eddy Verlinden" 116 | "2007, juli" 117 | "*" 118 | SF-IMAGE "Image" 0 119 | SF-DRAWABLE "Drawable" 0 120 | SF-TOGGLE "Merge layers when complete?" FALSE 121 | ) 122 | (script-fu-menu-register "210-color-pencil" "/Script-Fu/Artist") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_crosshatch.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_crosshatch.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; ALSO NEED TO COPY: 24 | ; ev_crosshatched.txt 25 | ; 26 | ; Windows 7/10 27 | ; C:\Program Files\GIMP 2\share\gimp\2.0\gimpressionist\presets 28 | ; or 29 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gimpressionist\presets 30 | ; 31 | ; 32 | ; Linux 33 | ; /home/yourname/.config/GIMP/2.10/gimpressionist\presets 34 | ; or 35 | ; Linux system-wide 36 | ; /usr/share/gimp/2.0/gimpressionist\presets 37 | ;============================================================== 38 | ; 39 | ; LICENSE 40 | ; 41 | ; This program is free software: you can redistribute it and/or modify 42 | ; it under the terms of the GNU General Public License as published by 43 | ; the Free Software Foundation, either version 3 of the License, or 44 | ; (at your option) any later version. 45 | ; 46 | ; This program is distributed in the hope that it will be useful, 47 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 48 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 49 | ; GNU General Public License for more details. 50 | ; 51 | ; You should have received a copy of the GNU General Public License 52 | ; along with this program. If not, see . 53 | ; 54 | ;============================================================== 55 | ; Original information 56 | ; 57 | ; Crosshatch image script for GIMP 2.2 58 | ; Copyright (C) 2007 Eddy Verlinden 59 | ;============================================================== 60 | 61 | (define (210-crosshatch 62 | img 63 | drawable 64 | inMerge 65 | ) 66 | (gimp-image-undo-group-start img) 67 | (define indexed (car (gimp-drawable-is-indexed drawable))) 68 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 69 | (let* ( 70 | (width (car (gimp-drawable-width drawable))) 71 | (height (car (gimp-drawable-height drawable))) 72 | (old-selection (car (gimp-selection-save img))) 73 | (image-type (car (gimp-image-base-type img))) 74 | (layer-type (car (gimp-drawable-type drawable))) 75 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 76 | ) 77 | 78 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 79 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 80 | (gimp-selection-none img) 81 | (gimp-drawable-fill layer-temp1 3) 82 | (gimp-image-insert-layer img layer-temp1 0 -1) 83 | (gimp-layer-add-alpha layer-temp1) 84 | (gimp-edit-copy drawable) 85 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 86 | 87 | (plug-in-gimpressionist 1 img layer-temp1 "ev_crosshatched.txt") 88 | 89 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 90 | (gimp-selection-invert img) 91 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 92 | (begin 93 | (gimp-edit-clear layer-temp1) 94 | )) 95 | 96 | (gimp-item-set-name layer-temp1 "Crosshatch") 97 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 98 | (gimp-image-remove-channel img old-selection) 99 | 100 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 101 | (gimp-image-undo-group-end img) 102 | (gimp-displays-flush) 103 | ) 104 | ) 105 | 106 | (script-fu-register 107 | "210-crosshatch" 108 | "Crosshatched..." 109 | "Creates a crosshatched blur effect, based on the Gimpressionist." 110 | "Eddy Verlinden " 111 | "Eddy Verlinden" 112 | "2007, juli" 113 | "*" 114 | SF-IMAGE "Image" 0 115 | SF-DRAWABLE "Drawable" 0 116 | SF-TOGGLE "Merge layers when complete?" FALSE 117 | ) 118 | (script-fu-menu-register "210-crosshatch" "/Script-Fu/Artist") 119 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_cutout.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_cutout.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; Cutout image script for GIMP 2.2 41 | ; Copyright (C) 2007 Eddy Verlinden 42 | ;============================================================== 43 | 44 | (define (210-cutout 45 | img 46 | drawable 47 | colors 48 | smoothness 49 | inMerge 50 | ) 51 | (gimp-image-undo-group-start img) 52 | (define indexed (car (gimp-drawable-is-indexed drawable))) 53 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 54 | (let* ( 55 | (width (car (gimp-drawable-width drawable))) 56 | (height (car (gimp-drawable-height drawable))) 57 | (old-selection (car (gimp-selection-save img))) 58 | (image-type (car (gimp-image-base-type img))) 59 | (blur (* width smoothness 0.001 )) 60 | (layer-type (car (gimp-drawable-type drawable))) 61 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 62 | (img2 (car (gimp-image-new width height image-type))) 63 | (layer-temp2 (car (gimp-layer-new img2 width height layer-type "temp2" 100 LAYER-MODE-NORMAL-LEGACY))) 64 | ) 65 | 66 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 67 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 68 | (gimp-selection-none img) 69 | (gimp-drawable-fill layer-temp1 3) 70 | (gimp-image-insert-layer img layer-temp1 0 -1) 71 | (gimp-edit-copy drawable) 72 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 73 | 74 | (plug-in-gauss 1 img layer-temp1 blur blur 0) 75 | (gimp-edit-copy layer-temp1) 76 | 77 | (gimp-image-insert-layer img2 layer-temp2 0 -1) 78 | (gimp-drawable-fill layer-temp2 3) 79 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0))) 80 | (gimp-image-convert-indexed img2 0 0 colors 0 0 "0") 81 | (gimp-edit-copy layer-temp2) 82 | (gimp-image-delete img2) 83 | 84 | (gimp-layer-add-alpha layer-temp1) 85 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 86 | 87 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 88 | (gimp-selection-invert img) 89 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 90 | (begin 91 | (gimp-edit-clear layer-temp1) 92 | )) 93 | 94 | (gimp-item-set-name layer-temp1 "Cutout") 95 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 96 | (gimp-image-remove-channel img old-selection) 97 | 98 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 99 | (gimp-image-undo-group-end img) 100 | (gimp-displays-flush) 101 | ) 102 | ) 103 | 104 | (script-fu-register 105 | "210-cutout" 106 | "Cutout" 107 | "Creates a drawing effect of soft-edged, simplified colors." 108 | "Eddy Verlinden " 109 | "Eddy Verlinden" 110 | "2007, juli" 111 | "*" 112 | SF-IMAGE "Image" 0 113 | SF-DRAWABLE "Drawable" 0 114 | SF-ADJUSTMENT "Colors" '(10 4 32 1 10 0 0) 115 | SF-ADJUSTMENT "Smoothness" '(8 1 20 1 1 0 0) 116 | SF-TOGGLE "Merge layers when complete?" FALSE 117 | ) 118 | (script-fu-menu-register "210-cutout" "/Script-Fu/Artist") 119 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_palette-knife.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_palette-knife.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; ALSO NEED TO COPY: 24 | ; ev_paletknife2.txt 25 | ; 26 | ; Windows 7/10 27 | ; C:\Program Files\GIMP 2\share\gimp\2.0\gimpressionist\presets 28 | ; or 29 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\gimpressionist\presets 30 | ; 31 | ; 32 | ; Linux 33 | ; /home/yourname/.config/GIMP/2.10/gimpressionist\presets 34 | ; or 35 | ; Linux system-wide 36 | ; /usr/share/gimp/2.0/gimpressionist\presets 37 | ;============================================================== 38 | ; 39 | ; LICENSE 40 | ; 41 | ; This program is free software: you can redistribute it and/or modify 42 | ; it under the terms of the GNU General Public License as published by 43 | ; the Free Software Foundation, either version 3 of the License, or 44 | ; (at your option) any later version. 45 | ; 46 | ; This program is distributed in the hope that it will be useful, 47 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 48 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 49 | ; GNU General Public License for more details. 50 | ; 51 | ; You should have received a copy of the GNU General Public License 52 | ; along with this program. If not, see . 53 | ; 54 | ;============================================================== 55 | ; Original information 56 | ; Palette Knife image script for GIMP 2.2 57 | ; Copyright (C) 2007 Eddy Verlinden 58 | ;============================================================== 59 | 60 | (define (210-paletteknife 61 | img 62 | drawable 63 | inMerge 64 | ) 65 | 66 | (gimp-image-undo-group-start img) 67 | (define indexed (car (gimp-drawable-is-indexed drawable))) 68 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 69 | 70 | (let* ( 71 | (width (car (gimp-drawable-width drawable))) 72 | (height (car (gimp-drawable-height drawable))) 73 | (old-selection (car (gimp-selection-save img))) 74 | (image-type (car (gimp-image-base-type img))) 75 | (layer-type (car (gimp-drawable-type drawable))) 76 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 77 | ) 78 | 79 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 80 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 81 | (gimp-selection-none img) 82 | (gimp-drawable-fill layer-temp1 3) 83 | (gimp-image-insert-layer img layer-temp1 0 -1) 84 | (gimp-layer-add-alpha layer-temp1) 85 | (gimp-edit-copy drawable) 86 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 87 | 88 | (plug-in-gimpressionist 1 img layer-temp1 "ev_paletknife2.txt") 89 | (gimp-levels layer-temp1 0 0 255 0.5 0 255) 90 | 91 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 92 | (gimp-selection-invert img) 93 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 94 | (begin 95 | (gimp-edit-clear layer-temp1) 96 | )) 97 | 98 | (gimp-item-set-name layer-temp1 "Palette knife") 99 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 100 | (gimp-image-remove-channel img old-selection) 101 | 102 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 103 | (gimp-image-undo-group-end img) 104 | (gimp-displays-flush) 105 | ) 106 | ) 107 | 108 | (script-fu-register "210-paletteknife" 109 | "Palette Knife" 110 | "Creates a drawing effect like made with a palette knife, based on the Gimpressionist." 111 | "Eddy Verlinden " 112 | "Eddy Verlinden" 113 | "2007, juli" 114 | "*" 115 | SF-IMAGE "Image" 0 116 | SF-DRAWABLE "Drawable" 0 117 | SF-TOGGLE "Merge layers when complete?" FALSE 118 | ) 119 | (script-fu-menu-register "210-paletteknife" "/Script-Fu/Artist") 120 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_artist_water-paint-effect.scm: -------------------------------------------------------------------------------- 1 | ; 210_artist_water-paint-effect.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; - Changelog - 41 | ; version 0.1 2001/04/15 iccii 42 | ; - Initial relased 43 | ; version 0.1a 2001/07/20 iccii 44 | ; - more simple 45 | ; Receved as completely broken, doing just gausian blur. Fixed to 46 | ; do something that may have been the authors intent. 47 | ;============================================================== 48 | 49 | (define (210-water-paint-effect 50 | inImage 51 | inDrawable 52 | inEffect 53 | inMerge 54 | ) 55 | 56 | (define theNewlayer) 57 | (define origlayer) 58 | (define nlayer) 59 | (gimp-image-undo-group-start inImage) 60 | 61 | (define indexed (car (gimp-drawable-is-indexed inDrawable))) 62 | (if (= indexed TRUE)(gimp-image-convert-rgb inImage)) 63 | 64 | (set! theNewlayer (car (gimp-layer-copy inDrawable 1))) 65 | (set! origlayer (car (gimp-layer-copy inDrawable 1))) 66 | 67 | (plug-in-gauss-iir2 1 inImage inDrawable inEffect inEffect) 68 | (gimp-image-insert-layer inImage theNewlayer 0 -1) 69 | (plug-in-laplace 1 inImage theNewlayer) 70 | (gimp-layer-set-mode theNewlayer SUBTRACT-MODE) 71 | (gimp-image-merge-down inImage theNewlayer EXPAND-AS-NECESSARY) 72 | 73 | (set! nlayer (car (gimp-image-get-active-layer inImage))) 74 | (gimp-image-insert-layer inImage origlayer 0 -1) 75 | (gimp-image-lower-item-to-bottom inImage origlayer) 76 | (gimp-image-set-active-layer inImage nlayer) 77 | (gimp-item-set-name nlayer "Watercolor Layer") 78 | 79 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers inImage EXPAND-AS-NECESSARY)) 80 | (gimp-image-undo-group-end inImage) 81 | (gimp-displays-flush) 82 | ) 83 | 84 | (script-fu-register "210-water-paint-effect" 85 | "WaterColor" 86 | "draw with water paint effect" 87 | "Iccii " 88 | "Iccii" 89 | "Jul, 2001" 90 | "*" 91 | SF-IMAGE "Image" 0 92 | SF-DRAWABLE "Drawable" 0 93 | SF-ADJUSTMENT "Effect Size (pixels)" '(5 0 32 1 10 0 0) 94 | SF-TOGGLE "Merge layers when complete?" FALSE 95 | ) 96 | (script-fu-menu-register "210-water-paint-effect" "/Script-Fu/Artist") 97 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_color-invert_solarisation.scm: -------------------------------------------------------------------------------- 1 | ; 210_color-invert_solarisation.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Solarization script for GIMP 1.2 42 | ; Copyright (C) 2001 Iccii 43 | ; 44 | ; version 0.1 by Iccii 2001/12/08 45 | ; - Initial relase 46 | ; version 0.1a by Iccii 2001/12/09 47 | ; - Added Threshold adjuster 48 | ;============================================================== 49 | 50 | 51 | (define (210-solarisation 52 | img 53 | drawable 54 | threshold 55 | target-channel 56 | invert? 57 | value-change? 58 | ) 59 | 60 | (gimp-image-undo-group-start img) 61 | (if (not (= RGB (car (gimp-image-base-type img)))) 62 | (gimp-image-convert-rgb img)) 63 | 64 | (define (apply-solarization channel) 65 | (let* ((point-num 256) 66 | (control_pts (cons-array point-num 'byte)) 67 | (start-value (if (< threshold 128) (- 255 (* threshold 2)) 0)) 68 | (end-value (if (< threshold 128) 0 (* (- threshold 128) 2))) 69 | (grad (if (< threshold 128) 70 | (/ (- 127 start-value) 127) 71 | (/ (- end-value 127) 127))) 72 | (count 0)) 73 | (while (< count point-num) 74 | (let* ((value1 (if (< threshold 128) 75 | (if (< count 128) 76 | (+ start-value (* grad count)) 77 | (- 255 count)) 78 | (if (< count 128) 79 | count 80 | (+ 127 (* grad (- count 128)))))) 81 | (value2 (if (equal? value-change? TRUE) (+ value1 127) value1)) 82 | (value (if (equal? invert? TRUE) (- 255 value2) value2))) 83 | (aset control_pts count value) 84 | (set! count (+ count 1)))) 85 | (gimp-curves-explicit drawable channel point-num control_pts))) 86 | 87 | 88 | (let* ( 89 | (image-type (car (gimp-image-base-type img))) 90 | (has-alpha? (car (gimp-drawable-has-alpha drawable))) 91 | ) ; end variable definition 92 | 93 | (if (or (= target-channel 0) (equal? image-type GRAY)) 94 | (apply-solarization HISTOGRAM-VALUE) 95 | (cond ((= target-channel 1) 96 | (apply-solarization HISTOGRAM-RED)) 97 | ((= target-channel 2) 98 | (apply-solarization HISTOGRAM-GREEN)) 99 | ((= target-channel 3) 100 | (apply-solarization HISTOGRAM-BLUE )) 101 | ((= target-channel 4) 102 | (if (equal? has-alpha? TRUE) 103 | (apply-solarization HISTOGRAM-ALPHA) 104 | (gimp-message "Drawable doesn't have an alpha channel! Abort."))) )) 105 | 106 | (gimp-image-undo-group-end img) 107 | (gimp-displays-flush) 108 | )) 109 | 110 | (script-fu-register 111 | "210-solarisation" 112 | "Solarisation" 113 | "Apply solarization effect, basically a tone reversal. This version has several parameters that can be tweaked." 114 | "Iccii " 115 | "Iccii" 116 | "2001, Dec" 117 | "*" 118 | SF-IMAGE "Image" 0 119 | SF-DRAWABLE "Drawable" 0 120 | SF-ADJUSTMENT "Threshold" '(127 0 255 1 1 0 0) 121 | SF-OPTION "Target Channel" '("RGB (Value)" "Red" "Green" "Blue" "Alpha") 122 | SF-TOGGLE "Invert" FALSE 123 | SF-TOGGLE "Value Change" FALSE 124 | ) 125 | (script-fu-menu-register "210-solarisation" "/Script-Fu/Color/Invert") 126 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_color_saturation_ColorSaturation.scm: -------------------------------------------------------------------------------- 1 | ; 210_color-saturation_ColorSaturation.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Color Saturation, V2.02 42 | ; 43 | ; Martin Egger (martin.egger@gmx.net) 44 | ; (C) 2005, Bern, Switzerland 45 | ;============================================================== 46 | 47 | 48 | (define (210-ColorSaturation 49 | InImage 50 | InLayer 51 | InIntensity 52 | InFlatten 53 | ) 54 | 55 | (gimp-image-undo-group-start InImage) 56 | (if (not (= RGB (car (gimp-image-base-type InImage)))) 57 | (gimp-image-convert-rgb InImage)) 58 | 59 | (let* ( 60 | (factor (* InIntensity .025)) 61 | (plus (+ 1 (* 2 factor))) 62 | (minus (* -1 factor)) 63 | (ColorLayer (car (gimp-layer-copy InLayer TRUE))) 64 | ) 65 | (gimp-image-insert-layer InImage ColorLayer 0 -1) 66 | ; 67 | ; Apply new color mappings to image 68 | ; 69 | (plug-in-colors-channel-mixer TRUE InImage ColorLayer FALSE plus minus minus minus plus minus minus minus plus) 70 | ; 71 | ; Flatten the image, if we need to 72 | ; 73 | (cond 74 | ((= InFlatten TRUE) (gimp-image-merge-down InImage ColorLayer CLIP-TO-IMAGE)) 75 | ((= InFlatten FALSE) (gimp-item-set-name ColorLayer "Saturated")) 76 | ) 77 | ) 78 | ; 79 | ; Finish work 80 | ; 81 | (gimp-image-undo-group-end InImage) 82 | (gimp-displays-flush) 83 | ; 84 | ) 85 | ; 86 | ; Register the function with the GIMP 87 | ; 88 | (script-fu-register 89 | "210-ColorSaturation" 90 | "Color Saturation" 91 | "Saturate or desaturate color images" 92 | "Martin Egger (martin.egger@gmx.net)" 93 | "2005, Martin Egger, Bern, Switzerland" 94 | "15.05.2005" 95 | "*" 96 | SF-IMAGE "The Image" 0 97 | SF-DRAWABLE "The Layer" 0 98 | SF-ADJUSTMENT "Intensity" '(1 -7 7 0.5 0 2 0) 99 | SF-TOGGLE "Merge Layers when complete?" FALSE 100 | ) 101 | (script-fu-menu-register "210-ColorSaturation" "/Script-Fu/Color/Saturation") 102 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_color_tone-mapping.scm: -------------------------------------------------------------------------------- 1 | ; 210_color_tone-mapping.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Tonemapping is a script for The GIMP 42 | ; 43 | ; Reduce global contrast while increasing local contrast 44 | ; and shadow/highlight detail. 45 | ; 46 | ; Copyright (C) 2007 Harry Phillips 47 | ;============================================================== 48 | 49 | 50 | (define (my-duplicate-layer image layer) 51 | (let* ((dup-layer (car (gimp-layer-copy layer 1)))) 52 | (gimp-image-insert-layer image dup-layer 0 0) 53 | dup-layer)) 54 | 55 | (define (210-tone-mapping 56 | theImage 57 | theLayer 58 | blurAmount 59 | opacityAmount 60 | inMerge 61 | ) 62 | 63 | ;Start an undo group so the process can be undone with one undo 64 | (gimp-image-undo-group-start theImage) 65 | ; convert to RGB if neeeded 66 | (if (not (= RGB (car (gimp-image-base-type theImage)))) 67 | (gimp-image-convert-rgb theImage)) 68 | (let 69 | ( 70 | (copy1 (my-duplicate-layer theImage theLayer)) 71 | (copy2 (my-duplicate-layer theImage theLayer)) 72 | ) 73 | 74 | ;Apply the desaturate and invert to the top layer 75 | (gimp-desaturate copy2) 76 | (gimp-invert copy2) 77 | 78 | ;Apply the blur with the supplied blur amount 79 | (plug-in-gauss 1 theImage copy2 blurAmount blurAmount 0) 80 | 81 | ;Set the layers opacity 82 | (gimp-layer-set-opacity copy2 75) 83 | 84 | ;Merge the top layer down and keep track of the newly merged layer 85 | (let ((merged (car (gimp-image-merge-down theImage copy2 0)))) 86 | 87 | ;Change the merged layers mode to SOFT LIGHT (19) 88 | (gimp-layer-set-mode merged 19) 89 | 90 | ;Change the merged layers opacity 91 | (gimp-layer-set-opacity merged opacityAmount)) 92 | 93 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers theImage EXPAND-AS-NECESSARY)) 94 | ;Finish the undo group for the process 95 | (gimp-image-undo-group-end theImage) 96 | 97 | ;Ensure the updated image is displayed now 98 | (gimp-displays-flush) 99 | 100 | ) 101 | ) 102 | 103 | (script-fu-register "210-tone-mapping" 104 | "Tone Mapping" 105 | "Performs a tone mapping operation with a specified blur on the open image" 106 | "David Meiklejohn, Harry Phillips (Process)" 107 | "2006, David Meiklejohn, Harry Phillips (Process)" 108 | "Feb. 02 2006" 109 | "*" 110 | SF-IMAGE "Image" 0 111 | SF-DRAWABLE "Drawable" 0 112 | SF-ADJUSTMENT "Blur:" '(100 100 500 10 10 1 0) 113 | SF-ADJUSTMENT "Opacity" '(90 0 100 1 10 1 0) 114 | SF-TOGGLE "Merge layers when complete?" FALSE 115 | ) 116 | (script-fu-menu-register "210-tone-mapping" "/Script-Fu/Color") 117 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_color_warming-or-cooling.scm: -------------------------------------------------------------------------------- 1 | ; 210_color_warming-or-cooling.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; tone-adjust 42 | ; 43 | ; Copyright (C) 2010 Howard Roberts(howardroberts@comcast.net) 44 | ;============================================================== 45 | 46 | 47 | (define (210-tone-adjust 48 | img 49 | drawable 50 | tone 51 | method 52 | density 53 | inMerge 54 | ) 55 | 56 | (gimp-image-undo-group-start img) 57 | (if (not (= RGB (car (gimp-image-base-type img)))) 58 | (gimp-image-convert-rgb img)) 59 | 60 | (let* ( 61 | (width (car (gimp-image-width img))) 62 | (height (car (gimp-image-height img))) 63 | (old-color (car (gimp-context-get-foreground))) 64 | (fill-color '(255 255 255)) 65 | (overlay-layer (car (gimp-layer-new img width height RGB-IMAGE "Tone" 100 OVERLAY-MODE))) 66 | (myChannel 0) 67 | ) 68 | (set! myChannel (car (gimp-channel-new-from-component img GRAY-CHANNEL "Value"))) 69 | (gimp-image-add-channel img myChannel 0) 70 | (gimp-image-add-layer img overlay-layer 0) 71 | (gimp-image-raise-layer-to-top img overlay-layer) 72 | (if (or (= tone 6)(= method 1)) 73 | (gimp-selection-combine myChannel CHANNEL-OP-REPLACE) 74 | ) 75 | (cond ((= tone 0) 76 | (set! fill-color '(0 109 255)) 77 | ) 78 | ((= tone 1) 79 | (set! fill-color '(0 181 255)) 80 | ) 81 | ((= tone 2) 82 | (set! fill-color '(235 177 19)) 83 | ) 84 | ((= tone 3) 85 | (set! fill-color '(237 138 0)) 86 | ) 87 | ((= tone 4) 88 | (gimp-image-remove-layer img overlay-layer) 89 | (gimp-color-balance drawable 1 TRUE 0 -5 -20) 90 | 91 | ) 92 | ((= tone 5) 93 | (gimp-image-remove-layer img overlay-layer) 94 | (let* ( 95 | (warmed-layer (car (gimp-layer-copy drawable FALSE))) 96 | ) 97 | (gimp-image-add-layer img warmed-layer -1) 98 | (gimp-colorize warmed-layer 40 50 0) 99 | (gimp-layer-set-opacity warmed-layer density) 100 | ) 101 | ) 102 | ((= tone 6) 103 | (set! fill-color '(255 255 255)) 104 | ) 105 | ) 106 | (unless (or (= tone 4)(= tone 5)) 107 | (if (= tone 6) 108 | (gimp-layer-set-opacity overlay-layer 100) 109 | (gimp-layer-set-opacity overlay-layer density) 110 | )) 111 | (cond ((or (< tone 4)(= tone 6)) 112 | (gimp-context-set-background fill-color) 113 | (gimp-edit-bucket-fill-full overlay-layer BG-BUCKET-FILL LAYER-MODE-NORMAL-LEGACY 100 255 FALSE FALSE SELECT-CRITERION-COMPOSITE 0 0) 114 | (gimp-context-set-background old-color) 115 | )) 116 | ) ; end LET 117 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 118 | (gimp-selection-none img) 119 | (gimp-displays-flush) 120 | (gimp-image-undo-group-end img) 121 | ) 122 | 123 | (script-fu-register "210-tone-adjust" 124 | "Warming or Cooling" 125 | "Warm or cool an image using one of several methods" 126 | "Howard Roberts " 127 | "(c) 2010 Howard D. Roberts" 128 | "May 24,2010" 129 | "*" 130 | SF-IMAGE "Image" 0 131 | SF-DRAWABLE "Layer" 0 132 | SF-OPTION "Tone" '("Cooling - Wratten 80" 133 | "Cooling - Wratten 82" 134 | "Warming - Wratten 81" 135 | "Warming - Wratten 85" 136 | "Roy's Warm" 137 | "Brauer's Warm" 138 | "Pasty Cadaveric Look") 139 | SF-OPTION "Overlay Fill Method\nApplies only to Wratten filters" '("Fill Entire layer" "Fill Red Channel") 140 | SF-ADJUSTMENT "Opacity\nPasty Cadaveric defaults to 100%" '(25 1 100 0 1 0 0 0) 141 | SF-TOGGLE "Merge layers when complete?" FALSE 142 | ) 143 | (script-fu-menu-register "210-tone-adjust" "/Script-Fu/Color") 144 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_colorize-prep.scm: -------------------------------------------------------------------------------- 1 | ; 210_colorize-prep.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Creates layer over original to use for 42 | ; colorization, both layers in MULTIPLY-MODE. 43 | ; Will flatten any layers prior to starting... 44 | ; After script is run, choose your color and brush 45 | ; and start painting. Just a handy shortcut, 46 | ; especially useful when colorizing line art. 47 | ; 48 | ; (c)2008-2014 by Paul Sherman 49 | ; distributed by gimphelp.org 50 | ;============================================================== 51 | 52 | ; 53 | 54 | (define (210-colorize-prep 55 | image 56 | layer 57 | ) 58 | (gimp-image-undo-group-start image) 59 | (if (not (= RGB (car (gimp-image-base-type image)))) 60 | (gimp-image-convert-rgb image)) 61 | 62 | (gimp-selection-all image) 63 | (gimp-layer-flatten layer) 64 | ; now ready to go... 65 | (gimp-layer-add-alpha layer) 66 | (define new-layer (car (gimp-layer-copy layer TRUE))) 67 | (gimp-image-insert-layer image new-layer 0 0) 68 | (gimp-item-set-name new-layer "Color-Me") 69 | (gimp-drawable-fill new-layer TRANSPARENT-FILL) 70 | 71 | (gimp-selection-all image) 72 | (gimp-image-set-active-layer image new-layer) 73 | 74 | (gimp-layer-set-mode layer MULTIPLY-MODE) 75 | (gimp-layer-set-mode new-layer MULTIPLY-MODE) 76 | (gimp-displays-flush) 77 | (gimp-image-undo-group-end image)) 78 | 79 | 80 | (script-fu-register "210-colorize-prep" 81 | "Prepare for Colorize" 82 | "Creates layer to paint over original, both layers set to multiply-mode. Top layer is transparent and you can use brush to paint without destroying edges of artwork on the original layer underneath.\n\nby Paul Sherman\ngimphelp.org" 83 | "Paul Sherman" 84 | "(C) 2008, Paul Sherman " 85 | "01/07/2008" 86 | "*" 87 | SF-IMAGE "The image" 0 88 | SF-DRAWABLE "The Layer" 0 89 | ) 90 | (script-fu-menu-register "210-colorize-prep" "/Script-Fu") 91 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_contrast_auto-contrast.scm: -------------------------------------------------------------------------------- 1 | ; 210_contrast_auto-contrast.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Automatically adjusts contrast of the current 42 | ; drawable by duplicating the layer, setting the 43 | ; new layer to Value blend mode, then running 44 | ; Auto Levels on the Value layer. 45 | ;============================================================== 46 | 47 | (define (210-auto-contrast 48 | img 49 | drawable 50 | merge-flag 51 | ) 52 | (gimp-image-undo-group-start img) 53 | (if (not (= RGB (car (gimp-image-base-type img)))) 54 | (gimp-image-convert-rgb img)) 55 | ; Create a new layer 56 | (define value-layer (car (gimp-layer-copy drawable 0))) 57 | ; Give it a name 58 | (gimp-item-set-name value-layer "Contrast Adjustment Layer") 59 | ; Add the new layer to the image 60 | (gimp-image-insert-layer img value-layer 0 0) 61 | ; Set opacity to 100% 62 | (gimp-layer-set-opacity value-layer 100) 63 | ; Set the layer mode to Value 64 | (gimp-layer-set-mode value-layer 14) 65 | ; Adjust contrast 66 | (gimp-levels-stretch value-layer) 67 | ; Merge down, if required 68 | (if (equal? merge-flag TRUE) 69 | (gimp-image-merge-down img value-layer 1 ) 70 | () 71 | ) 72 | (gimp-image-undo-group-end img) 73 | (gimp-displays-flush) 74 | ) 75 | (script-fu-register "210-auto-contrast" 76 | "Auto Contrast" 77 | "Automatically adjust contrast of drawable" 78 | "Mark Lowry" 79 | "Mark Lowry" 80 | "2006" 81 | "*" 82 | SF-IMAGE "Image" 0 83 | SF-DRAWABLE "Current Layer" 0 84 | SF-TOGGLE "Merge Layers?" FALSE 85 | ) 86 | (script-fu-menu-register "210-auto-contrast" "/Script-Fu/Contrast") 87 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_contrast_change-contrast.scm: -------------------------------------------------------------------------------- 1 | ; 210_contrast_change-contrast.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; Original was "Vivid saturation" script for GIMP 2.4 23 | ; by Dennis Bond with thanks to Jozef Trawinski 24 | ; Modified for use in GMP-2.4 by Paul Sherman 25 | ; This is modification 2 made on 11/15/2007 26 | ; distributed by gimphelp.org 27 | ; 28 | (define (210-change-contrast image drawable shadows highlights) 29 | 30 | ;Start an undo group so the process can be undone with one undo 31 | (gimp-image-undo-group-start image) 32 | 33 | ; create a highlights layer 34 | (let ((highlights-layer (car (gimp-layer-copy drawable 1)))) 35 | (gimp-item-set-name highlights-layer "fix highlights (adjust opacity)") 36 | (gimp-image-insert-layer image highlights-layer 0 -1) 37 | 38 | ;process shadows/highlights layer 39 | (gimp-desaturate highlights-layer) 40 | (gimp-invert highlights-layer) 41 | (gimp-layer-set-mode highlights-layer 5) 42 | (plug-in-gauss-iir2 1 image highlights-layer 25 25) 43 | 44 | ;copy highlights layer to create shadows layer 45 | (define shadows-layer (car (gimp-layer-copy highlights-layer 1))) 46 | (gimp-item-set-name shadows-layer "fix shadows (adjust opacity)") 47 | (gimp-image-insert-layer image shadows-layer 0 -1) 48 | 49 | ;process highlights layer 50 | (plug-in-colortoalpha 1 image highlights-layer '(255 255 255)) 51 | (gimp-layer-set-opacity highlights-layer highlights) 52 | 53 | ;process shadows layer 54 | (plug-in-colortoalpha 1 image shadows-layer '(0 0 0)) 55 | (gimp-layer-set-opacity shadows-layer shadows) 56 | 57 | ;Finish the undo group for the process 58 | (gimp-image-undo-group-end image) 59 | 60 | ;update image window 61 | (gimp-displays-flush))) 62 | 63 | 64 | (script-fu-register "210-change-contrast" 65 | "Change Contrast" 66 | "Removes shadows and highlights from a photograph, makes image feel more saturated" 67 | "Dennis Bond - thanks to Jozef Trawinski" 68 | "Dennis Bond - thanks to Jozef Trawinski" 69 | "October 26, 2006" 70 | "RGB*" 71 | SF-IMAGE "Image" 0 72 | SF-DRAWABLE "Drawable" 0 73 | SF-ADJUSTMENT "Shadows" '(50 0 100 1 1 0 0) 74 | SF-ADJUSTMENT "Highlights" '(0 0 100 1 1 0 0) 75 | ) 76 | (script-fu-menu-register "210-change-contrast" "/Script-Fu/Contrast") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_contrast_change-shadow-highlights.scm: -------------------------------------------------------------------------------- 1 | ; 210_contrast_change-contrast.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Original was "Vivid saturation" script for GIMP 2.4 42 | ; by Dennis Bond with thanks to Jozef Trawinski 43 | ; Modified for use in GMP-2.4 by Paul Sherman 44 | ; This is modification 2 made on 11/15/2007 45 | ; distributed by gimphelp.org 46 | ;============================================================== 47 | 48 | ; 49 | (define (210-shadows-highlights 50 | image 51 | drawable 52 | shadows 53 | highlights 54 | inMerge 55 | ) 56 | 57 | ;Start an undo group so the process can be undone with one undo 58 | (gimp-image-undo-group-start image) 59 | (if (not (= RGB (car (gimp-image-base-type image)))) 60 | (gimp-image-convert-rgb image)) 61 | ; create a highlights layer 62 | (let ((highlights-layer (car (gimp-layer-copy drawable 1)))) 63 | (gimp-item-set-name highlights-layer "fix highlights (adjust opacity)") 64 | (gimp-image-insert-layer image highlights-layer 0 -1) 65 | 66 | ;process shadows/highlights layer 67 | (gimp-desaturate highlights-layer) 68 | (gimp-invert highlights-layer) 69 | (gimp-layer-set-mode highlights-layer 5) 70 | (plug-in-gauss-iir2 1 image highlights-layer 25 25) 71 | 72 | ;copy highlights layer to create shadows layer 73 | (define shadows-layer (car (gimp-layer-copy highlights-layer 1))) 74 | (gimp-item-set-name shadows-layer "fix shadows (adjust opacity)") 75 | (gimp-image-insert-layer image shadows-layer 0 -1) 76 | 77 | ;process highlights layer 78 | (plug-in-colortoalpha 1 image highlights-layer '(255 255 255)) 79 | (gimp-layer-set-opacity highlights-layer highlights) 80 | 81 | ;process shadows layer 82 | (plug-in-colortoalpha 1 image shadows-layer '(0 0 0)) 83 | (gimp-layer-set-opacity shadows-layer shadows) 84 | 85 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY)) 86 | (gimp-image-undo-group-end image) 87 | (gimp-displays-flush)) 88 | ) 89 | 90 | 91 | (script-fu-register "210-shadows-highlights" 92 | "Change Shadows-Highlights" 93 | "Removes shadows and highlights from a photograph, makes image feel more saturated" 94 | "Dennis Bond - thanks to Jozef Trawinski" 95 | "Dennis Bond - thanks to Jozef Trawinski" 96 | "October 26, 2006" 97 | "*" 98 | SF-IMAGE "Image" 0 99 | SF-DRAWABLE "Drawable" 0 100 | SF-ADJUSTMENT "Shadows" '(50 0 100 1 1 0 0) 101 | SF-ADJUSTMENT "Highlights" '(0 0 100 1 1 0 0) 102 | SF-TOGGLE "Merge layers when complete?" FALSE 103 | ) 104 | (script-fu-menu-register "210-shadows-highlights" "/Script-Fu/Contrast") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_contrast_shadow-recovery.scm: -------------------------------------------------------------------------------- 1 | ; 210_contrast_shadow-recovery.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Shadow Recovery script for GIMP 2.4 42 | ; Original author: Martin Egger (martin.egger@gmx.net) 43 | ; (C) 2005, Bern, Switzerland 44 | ; 45 | ; by Paul Sherman 46 | ; august 2007 - fixed for gimp 2.4 47 | ; -------------------------------------------------------------------- 48 | ; by paul Sherman 49 | ; Nov 2008 - no fix, just menu item change to fit with 50 | ; gimphelp.org scripts release 51 | ; 02/14/2014, edited to convert to RGB if not.... 52 | ;============================================================== 53 | 54 | (define (210-ShadowRecovery 55 | InImage 56 | InLayer 57 | InMethod 58 | InOpacity 59 | InFlatten 60 | ) 61 | 62 | (gimp-image-undo-group-start InImage) 63 | (if (not (= RGB (car (gimp-image-base-type InImage)))) 64 | (gimp-image-convert-rgb InImage)) 65 | 66 | (let* ( 67 | (CopyLayer (car (gimp-layer-copy InLayer TRUE))) 68 | (ShadowLayer (car (gimp-layer-copy InLayer TRUE))) 69 | ) 70 | ; Create new layer and add it to the image 71 | (gimp-image-insert-layer InImage CopyLayer 0 -1) 72 | (gimp-layer-set-mode CopyLayer ADDITION-MODE) 73 | (gimp-layer-set-opacity CopyLayer InOpacity) 74 | (gimp-image-insert-layer InImage ShadowLayer 0 -1) 75 | ; 76 | (gimp-desaturate ShadowLayer) 77 | (gimp-invert ShadowLayer) 78 | (let* ( 79 | (CopyMask (car (gimp-layer-create-mask CopyLayer ADD-WHITE-MASK))) 80 | (ShadowMask (car (gimp-layer-create-mask ShadowLayer ADD-WHITE-MASK))) 81 | ) 82 | (gimp-layer-add-mask CopyLayer CopyMask) 83 | (gimp-layer-add-mask ShadowLayer ShadowMask) 84 | (gimp-selection-all InImage) 85 | (gimp-edit-copy ShadowLayer) 86 | (gimp-floating-sel-anchor (car (gimp-edit-paste CopyMask TRUE))) 87 | (gimp-floating-sel-anchor (car (gimp-edit-paste ShadowMask TRUE))) 88 | ) 89 | (gimp-layer-set-mode ShadowLayer OVERLAY-MODE) 90 | (gimp-layer-set-opacity ShadowLayer InOpacity) 91 | (if (= InMethod 0) (gimp-image-remove-layer InImage CopyLayer)) 92 | ; Flatten the image, if we need to 93 | (cond 94 | ((= InFlatten TRUE) 95 | (begin 96 | (if (= InMethod 1) (gimp-image-merge-down InImage CopyLayer CLIP-TO-IMAGE)) 97 | (gimp-image-merge-down InImage ShadowLayer CLIP-TO-IMAGE) 98 | ) 99 | ) 100 | ((= InFlatten FALSE) 101 | (begin 102 | (if (= InMethod 1) (gimp-item-set-name CopyLayer "Shadowfree strong")) 103 | (gimp-item-set-name ShadowLayer "Shadowfree normal") 104 | ) 105 | ) 106 | ) 107 | ) 108 | (gimp-image-undo-group-end InImage) 109 | (gimp-displays-flush) 110 | ) 111 | (script-fu-register "210-ShadowRecovery" 112 | "Shadow Recovery" 113 | "Lighten-up Shadows" 114 | "Martin Egger (martin.egger@gmx.net)" 115 | "2005, Martin Egger, Bern, Switzerland" 116 | "2.06.2005" 117 | "*" 118 | SF-IMAGE "The Image" 0 119 | SF-DRAWABLE "The Layer" 0 120 | SF-OPTION "Shadow Recovery Method" '("Normal" "Strong") 121 | SF-ADJUSTMENT "Layer Opacity" '(60.0 1.0 100.0 1.0 0 2 0) 122 | SF-TOGGLE "Flatten Image" FALSE 123 | ) 124 | (script-fu-menu-register "210-ShadowRecovery" "/Script-Fu/Contrast/") 125 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_distorts_wrap-effect.scm: -------------------------------------------------------------------------------- 1 | ; 210_distorts_wrap-effect.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Wrap paint effect Script for GIMP 1.2 42 | ; 43 | ; -------------------------------------------------------------------- 44 | ; - Changelog - 45 | ; version 0.1 by Iccii 2001/04/15 46 | ; - Initial relase 47 | ; version 0.2 by Iccii 2001/10/01 48 | ; - Changed menu path because this script attempts to PS's filter 49 | ; - Added some code (if selection exists...) 50 | ;============================================================== 51 | 52 | 53 | (define (210-wrap-effect 54 | inImage 55 | inDrawable 56 | inRadius 57 | inGamma1 58 | inGamma2 59 | inSmooth 60 | ) 61 | 62 | (gimp-image-undo-group-start inImage) 63 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 64 | (gimp-image-convert-rgb inImage)) 65 | (let* ( 66 | (theOld-bg (car (gimp-context-get-background))) 67 | (theNewlayer (car (gimp-layer-copy inDrawable 1))) 68 | (old-selection (car (gimp-selection-save inImage))) 69 | (theLayermask (car (gimp-layer-create-mask theNewlayer ADD-MASK-BLACK))) 70 | ) 71 | 72 | (gimp-item-set-name theNewlayer "Wrap effect") 73 | (gimp-layer-set-mode theNewlayer LAYER-MODE-NORMAL-LEGACY) 74 | (gimp-image-insert-layer inImage theNewlayer 0 -1) 75 | 76 | (gimp-desaturate theNewlayer) 77 | (plug-in-gauss-iir2 1 inImage theNewlayer inRadius inRadius) 78 | (plug-in-edge 1 inImage theNewlayer 6.0 0 4) 79 | (gimp-invert theNewlayer) 80 | 81 | 82 | (if (eqv? inSmooth TRUE) 83 | (plug-in-gauss-iir2 0 inImage theNewlayer 5 5)) 84 | (gimp-edit-copy theNewlayer) 85 | 86 | (if (< 0 (car (gimp-layer-get-mask theNewlayer))) 87 | (gimp-layer-remove-mask theNewlayer MASK-APPLY)) 88 | ; (set! theLayermask (car (gimp-layer-create-mask theNewlayer BLACK-MASK))) 89 | (gimp-layer-add-mask theNewlayer theLayermask) 90 | (gimp-floating-sel-anchor (car (gimp-edit-paste theLayermask 0))) 91 | 92 | (gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255) 93 | (gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255) 94 | (gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255) 95 | (gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255) 96 | 97 | (gimp-layer-remove-mask theNewlayer MASK-APPLY) 98 | (gimp-image-select-item inImage CHANNEL-OP-REPLACE old-selection) 99 | (gimp-edit-copy theNewlayer) 100 | (gimp-image-remove-layer inImage theNewlayer) 101 | (gimp-floating-sel-anchor (car (gimp-edit-paste inDrawable 0))) 102 | (gimp-image-select-item inImage CHANNEL-OP-REPLACE old-selection) 103 | (gimp-image-remove-channel inImage old-selection) 104 | 105 | (gimp-context-set-background theOld-bg) 106 | ;(gimp-image-set-active-layer inImage inDrawable) 107 | (gimp-image-undo-group-end inImage) 108 | (gimp-displays-flush) 109 | ) 110 | ) 111 | 112 | (script-fu-register 113 | "210-wrap-effect" 114 | "Wrap Effect" 115 | "Draws with wrap effect, which simulates Photoshop's Wrap filter" 116 | "Iccii " 117 | "Iccii" 118 | "Oct, 2001" 119 | "*" 120 | SF-IMAGE "Image" 0 121 | SF-DRAWABLE "Drawable" 0 122 | SF-ADJUSTMENT "Randomness" '(10 0 32 1 10 0 0) 123 | SF-ADJUSTMENT "Highlight Balance" '(3.0 1.0 10 0.5 0.1 1 0) 124 | SF-ADJUSTMENT "Edge Amount" '(3.0 1.0 10 0.5 0.1 1 0) 125 | SF-TOGGLE "Smooth" FALSE 126 | ) 127 | (script-fu-menu-register "210-wrap-effect" "/Script-Fu/Distorts") 128 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_edges_art-border.scm: -------------------------------------------------------------------------------- 1 | ; 210_edges_art-border.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; Last update reintroduced a modified drop-shadow effect 23 | ; to give slight "dark glow" to inner border. This is optional. 24 | ; Also pulled the flatten image on start, so you can retain an 25 | ; alpha layer image if present. 26 | ; Dropped remnant selection when finished, 27 | ; changed menu location, added version for reference. 28 | ; convert to RGB if needed. 29 | ;============================================================== 30 | ; 31 | ; LICENSE 32 | ; 33 | ; This program is free software: you can redistribute it and/or modify 34 | ; it under the terms of the GNU General Public License as published by 35 | ; the Free Software Foundation, either version 3 of the License, or 36 | ; (at your option) any later version. 37 | ; 38 | ; This program is distributed in the hope that it will be useful, 39 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 40 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 41 | ; GNU General Public License for more details. 42 | ; 43 | ; You should have received a copy of the GNU General Public License 44 | ; along with this program. If not, see . 45 | ; 46 | ;============================================================== 47 | ; Original information 48 | ; 49 | ; Do a cool fade to a given colour at the border of an image (optional shadow) 50 | ; Will make image RGB if it isn't already. 51 | ; 52 | ; Chris Gutteridge (cjg@ecs.soton.ac.uk) 53 | ; At ECS Dept, University of Southampton, England. 54 | ; 55 | ; Modified for use in GIMP-2.4+ by Paul Sherman 56 | ; distributed by gimphelp.org 57 | ; improved UNDO while testing for GIMP-2.6 58 | ; last modified 10/02/2008 59 | ;============================================================== 60 | 61 | 62 | (define (210-art-border 63 | inImage 64 | inLayer 65 | inSize 66 | inCopy 67 | inDesaturate 68 | inShadow 69 | inInvert 70 | inBlur 71 | ) 72 | (if (= inCopy FALSE) 73 | (begin 74 | (gimp-image-undo-group-start inImage) 75 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 76 | (gimp-image-convert-rgb inImage)) 77 | )) 78 | 79 | (define theImage (if (= inCopy TRUE) 80 | (car (gimp-image-duplicate inImage)) 81 | inImage)) 82 | (define theWidth (car (gimp-image-width inImage))) 83 | (define theHeight (car (gimp-image-height inImage))) 84 | (define theLayer (car (gimp-image-get-active-layer theImage))) 85 | 86 | (if (not (= RGB (car (gimp-image-base-type theImage)))) 87 | (gimp-image-convert-rgb theImage)) 88 | (gimp-selection-all theImage) 89 | (gimp-selection-shrink theImage inSize) 90 | (gimp-selection-invert theImage) 91 | 92 | (if (= inDesaturate TRUE) 93 | (gimp-desaturate theLayer) 94 | ) 95 | 96 | (if (= inInvert TRUE) 97 | (gimp-invert theLayer) 98 | ) 99 | 100 | (if (= inBlur TRUE) 101 | (plug-in-blur 1 theImage theLayer) 102 | ) 103 | 104 | (gimp-selection-invert theImage) 105 | (gimp-selection-border theImage 1) 106 | (gimp-edit-fill theLayer 0) 107 | 108 | (if (= inShadow TRUE) 109 | (script-fu-drop-shadow theImage theLayer 0 0 8 '(0 0 0) 70 TRUE) 110 | ) 111 | 112 | (if (= inCopy TRUE) 113 | (begin (gimp-image-clean-all theImage) 114 | (gimp-selection-none theImage) 115 | (gimp-display-new theImage) 116 | ) 117 | () 118 | ) 119 | (gimp-displays-flush) 120 | (if (= inCopy FALSE) 121 | (begin 122 | (gimp-selection-none inImage) 123 | (gimp-image-undo-group-end inImage)) 124 | ) 125 | ) 126 | 127 | (script-fu-register "210-art-border" 128 | "Art Border" 129 | "Add art border to the image" 130 | "Antony Dovgal" 131 | "2006, Antony Dovgal. This script is based on 'fuzzy border' by Chris Gutteridge" 132 | "21 April 2006" 133 | "*" 134 | SF-IMAGE "The image" 0 135 | SF-DRAWABLE "The layer" 0 136 | SF-ADJUSTMENT "Border size" '(12 1 300 1 10 0 1) 137 | SF-TOGGLE "Work on copy" TRUE 138 | SF-TOGGLE "Desaturate border" TRUE 139 | SF-TOGGLE "Lightly Shadow Inner Border" TRUE 140 | SF-TOGGLE "Invert border colors" FALSE 141 | SF-TOGGLE "Blur border" FALSE 142 | ) 143 | (script-fu-menu-register "210-art-border" "/Script-Fu/Edges") 144 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects-selection_highlight-from-selection.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects-selection_highlight-from-selection.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ;highlight-from-selection.scm 42 | ; by Dirk Sohler 43 | ; https://0x7be.de 44 | 45 | ; Version 1.0 (2013-01-21) 46 | 47 | ; Description 48 | ; 49 | ; This script adds a filter for highlighting the contents of a selection by 50 | ; adding blur and desaturation (both optional) to the other contents. 51 | ;============================================================== 52 | 53 | 54 | (define ( 55 | 210-highlight-from-selection 56 | inImage 57 | inLayer 58 | inRadius 59 | inBlur 60 | inOpacity 61 | inDesaturate 62 | inFlatten) 63 | 64 | 65 | (if (= (car (gimp-selection-is-empty inImage)) TRUE) 66 | (begin 67 | (message-box "The current image doesn't have a selection.\n\nThis plugin works on a \nSELECTED AREA of the image.\n\nSelect an area and try again :-)")) 68 | (begin 69 | 70 | (gimp-image-undo-group-start inImage) 71 | 72 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 73 | (gimp-image-convert-rgb inImage)) 74 | 75 | (let 76 | 77 | ( 78 | (colorLayer (car (gimp-layer-copy inLayer TRUE))) 79 | (grayLayer (car (gimp-layer-copy inLayer TRUE))) 80 | (layername (car (gimp-drawable-get-name inLayer))) 81 | ) 82 | 83 | (gimp-image-add-layer inImage colorLayer -1) 84 | (gimp-image-add-layer inImage grayLayer -1) 85 | (gimp-layer-set-name colorLayer (string-append layername _" highlight layer")) 86 | 87 | (gimp-selection-feather inImage inRadius) 88 | (gimp-edit-clear colorLayer) 89 | (gimp-edit-clear grayLayer) 90 | (gimp-selection-none inImage) 91 | 92 | (gimp-layer-set-opacity grayLayer inOpacity) 93 | 94 | (if (= inDesaturate TRUE) 95 | (gimp-desaturate grayLayer) 96 | ) 97 | 98 | (if (> inBlur 0) 99 | (plug-in-gauss 1 inImage (car (gimp-image-merge-down inImage grayLayer 2)) inBlur inBlur 0) 100 | ) 101 | 102 | (if (= inBlur 0) 103 | (car (gimp-image-merge-down inImage grayLayer 2)) 104 | ) 105 | 106 | ) 107 | 108 | (if (= inFlatten TRUE)(gimp-image-flatten inImage)) 109 | (gimp-image-undo-group-end inImage) 110 | (gimp-displays-flush) 111 | ) 112 | )) 113 | 114 | (script-fu-register 115 | "210-highlight-from-selection" 116 | "Highlight from selection" 117 | "Highlights the selection by adding blur and desaturation to other contents." 118 | "Dirk Sohler " 119 | "Dirk Sohler" 120 | "2013-01-21" 121 | "*" 122 | SF-IMAGE "Image" 0 123 | SF-DRAWABLE "Drawable" 0 124 | SF-ADJUSTMENT "Highlight Radius" '(100 0 500 1 10 0 0) 125 | SF-ADJUSTMENT "Blur strenght" '(3 0 10 1 10 0 0) 126 | SF-ADJUSTMENT "Opacity of desaturation" '(50 0 100 1 10 0 0) 127 | SF-TOGGLE "Desaturate the not highlighted parts" TRUE 128 | SF-TOGGLE "Flatten image" TRUE 129 | ) 130 | (script-fu-menu-register "210-highlight-from-selection" "/Script-Fu/Effects Selection") 131 | 132 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_cartoon-quick.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects_cartoon-quick.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Cartoon script for GIMP 2.2 42 | ; Copyright (C) 2007 Eddy Verlinden 43 | ;============================================================== 44 | 45 | 46 | (define (210-cartoon-quick 47 | img 48 | drawable 49 | inMerge 50 | ) 51 | 52 | (gimp-image-undo-group-start img) 53 | (if (not (= RGB (car (gimp-image-base-type img)))) 54 | (gimp-image-convert-rgb img)) 55 | (let* ( 56 | (width (car (gimp-drawable-width drawable))) 57 | (height (car (gimp-drawable-height drawable))) 58 | (old-selection (car (gimp-selection-save img))) 59 | (image-type (car (gimp-image-base-type img))) 60 | (layer-type (car (gimp-drawable-type drawable))) 61 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 62 | (layer-temp2 (car (gimp-layer-new img width height layer-type "temp2" 100 LAYER-MODE-NORMAL-LEGACY))) 63 | ) 64 | 65 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 66 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 67 | (gimp-selection-none img) 68 | (gimp-image-insert-layer img layer-temp1 0 -1) 69 | (gimp-image-insert-layer img layer-temp2 0 -1) 70 | (gimp-edit-copy drawable) 71 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 72 | (gimp-edit-copy layer-temp1) 73 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0))) 74 | 75 | (plug-in-photocopy 1 img layer-temp2 8.0 1.0 0.0 0.8) 76 | (gimp-levels layer-temp2 0 215 235 1.0 0 255) 77 | (gimp-layer-set-mode layer-temp2 3) 78 | (gimp-levels layer-temp1 0 25 225 2.25 0 255) 79 | (gimp-image-merge-down img layer-temp2 0) 80 | (set! layer-temp1 (car (gimp-image-get-active-layer img))) 81 | 82 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 83 | (gimp-selection-invert img) 84 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 85 | (begin 86 | (gimp-edit-clear layer-temp1) 87 | )) 88 | 89 | (gimp-item-set-name layer-temp1 "Cartoon") 90 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 91 | (gimp-image-remove-channel img old-selection) 92 | 93 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 94 | (gimp-image-undo-group-end img) 95 | (gimp-displays-flush) 96 | ) 97 | ) 98 | 99 | (script-fu-register "210-cartoon-quick" 100 | "Cartoon Quick" 101 | "Creates a light cartoon." 102 | "Eddy Verlinden " 103 | "Eddy Verlinden" 104 | "2007, juli" 105 | "*" 106 | SF-IMAGE "Image" 0 107 | SF-DRAWABLE "Drawable" 0 108 | SF-TOGGLE "Merge layers when complete?" FALSE 109 | ) 110 | (script-fu-menu-register "210-cartoon-quick" "/Script-Fu/Effects") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_chrome-image.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects_chrome-image.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Chrome image script for GIMP 1.2 42 | ; Copyright (C) 2001-2002 Iccii 43 | ;============================================================== 44 | 45 | 46 | (define (210-chrome-image 47 | img 48 | drawable 49 | contrast 50 | deform 51 | random 52 | emboss? 53 | ) 54 | 55 | (gimp-image-undo-group-start img) 56 | (if (not (= RGB (car (gimp-image-base-type img)))) 57 | (gimp-image-convert-rgb img)) 58 | 59 | (let* ( 60 | (width (car (gimp-drawable-width drawable))) 61 | (height (car (gimp-drawable-height drawable))) 62 | (old-fg (car (gimp-context-get-foreground))) 63 | (image-type (if (eqv? (car (gimp-drawable-is-gray drawable)) TRUE) 64 | GRAYA-IMAGE 65 | RGBA-IMAGE)) 66 | (point-num (+ 2 (* random 2))) 67 | (step (/ 255 (+ (* random 2) 1))) 68 | (control_pts (cons-array (* point-num 2) 'byte)) 69 | (count 0) 70 | ) 71 | 72 | (if (eqv? (car (gimp-drawable-is-gray drawable)) FALSE) 73 | (gimp-desaturate drawable)) 74 | (plug-in-gauss-iir2 1 img drawable deform deform) 75 | (if (eqv? emboss? TRUE) 76 | (plug-in-emboss 1 img drawable 30 45.0 20 1)) 77 | 78 | (while (< count random) 79 | (aset control_pts (+ (* count 4) 2) (* step (+ (* count 2) 1))) 80 | (aset control_pts (+ (* count 4) 3) (+ 128 contrast)) 81 | (aset control_pts (+ (* count 4) 4) (* step (+ (* count 2) 2))) 82 | (aset control_pts (+ (* count 4) 5) (- 128 contrast)) 83 | (set! count (+ count 1))) 84 | (aset control_pts 0 0) 85 | (aset control_pts 1 0) 86 | (aset control_pts (- (* point-num 2) 2) 255) 87 | (aset control_pts (- (* point-num 2) 1) 255) 88 | (gimp-curves-spline drawable 0 (* point-num 2) control_pts) 89 | 90 | 91 | (gimp-context-set-foreground old-fg) 92 | (gimp-image-undo-group-end img) 93 | (gimp-displays-flush) 94 | ) 95 | ) 96 | 97 | (script-fu-register 98 | "210-chrome-image" 99 | "Chrome Image" 100 | "Create chrome image. Usefull when you want to create metallic surfaces" 101 | "Iccii " 102 | "Iccii" 103 | "2002, Feb" 104 | "*" 105 | SF-IMAGE "Image" 0 106 | SF-DRAWABLE "Drawable" 0 107 | SF-ADJUSTMENT "Contrast" '(20 0 127 1 1 0 0) 108 | SF-ADJUSTMENT "Deformation" '(3 1 50 1 10 0 0) 109 | SF-ADJUSTMENT "Ramdomeness" '(4 1 7 1 10 0 1) 110 | SF-TOGGLE "Enable Emboss" FALSE 111 | ) 112 | (script-fu-menu-register "210-chrome-image" "/Script-Fu/Effects") 113 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_fog.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects_fog.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 09/12/2018 on GIMP 2.10.6 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; fog script-fu, 42 | ; original by ~kward1979uk (on Deviantart, see url below:) 43 | ; http://kward1979uk.deviantart.com/art/fog-script-fu-42504446?q=boost%3Apopular%20in%3Aresources%2Fapplications%2Fgimpactions&qo=72 44 | ; 45 | ;============================================================== 46 | 47 | 48 | (define (210-fog 49 | inImage 50 | inLayer 51 | color 52 | turb 53 | opac 54 | inMerge 55 | ) 56 | (gimp-image-undo-group-start inImage) 57 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 58 | (gimp-image-convert-rgb inImage)) 59 | (define flat (car (gimp-image-flatten inImage))) 60 | (gimp-context-set-background color) 61 | (define width (car (gimp-drawable-width flat))) 62 | (define height (car (gimp-drawable-height flat))) 63 | (define white-layer (car (gimp-layer-new inImage width height 1 "white" opac 0))) 64 | (gimp-drawable-fill white-layer 1) 65 | (gimp-image-add-layer inImage white-layer -1) 66 | 67 | (define mask (car (gimp-layer-create-mask white-layer 0))) 68 | (gimp-layer-add-mask white-layer mask) 69 | (plug-in-plasma 1 inImage mask (rand 569432) turb) 70 | 71 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers inImage EXPAND-AS-NECESSARY)) 72 | (gimp-image-undo-group-end inImage) 73 | (gimp-displays-flush) 74 | 75 | ); end DEFINE 76 | 77 | (script-fu-register "210-fog" 78 | "Fog" 79 | "Applies a fog of chosen colour over image" 80 | "Karl Ward" 81 | "Karl Ward" 82 | "Nov 2006" 83 | "*" 84 | SF-IMAGE "SF-IMAGE" 0 85 | SF-DRAWABLE "SF-DRAWABLE" 0 86 | SF-COLOR "Fog Colour" '(255 255 255) 87 | SF-ADJUSTMENT "Turbulance" '(1.0 0 7 0.1 1 1 0) 88 | SF-ADJUSTMENT "Opacity" '(100 0 100 1 5 1 0) 89 | SF-TOGGLE "Merge layers when complete?" FALSE 90 | ) 91 | (script-fu-menu-register "210-fog" "/Script-Fu/Effects") 92 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_sepoina.scm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/210_effects_sepoina.scm -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_thicken-lines.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects_thicken-lines.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 10/13/2018 on GIMP 2.10.6 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | 40 | (define (210-thicken-lines 41 | inImage 42 | inLayer 43 | Strength 44 | ) 45 | (gimp-image-undo-group-start inImage) 46 | (if (= Strength 0)(plug-in-vpropagate TRUE inImage inLayer 1 255 0.15 15 0 255)) 47 | (if (= Strength 1)(plug-in-vpropagate TRUE inImage inLayer 1 255 0.25 15 0 255)) 48 | (if (= Strength 2)(plug-in-vpropagate TRUE inImage inLayer 1 255 0.5 15 0 255)) 49 | (plug-in-unsharp-mask 1 inImage inLayer 1.1 0.15 0) 50 | (gimp-image-undo-group-end inImage) 51 | (gimp-displays-flush) 52 | ) 53 | (script-fu-register "210-thicken-lines" 54 | "Thicken Lines" 55 | "Thickens lines/increases contrast in lineart" 56 | "Paul Sherman " 57 | "Paul Sherman" 58 | "2018, Oct" 59 | "*" 60 | SF-IMAGE "Image" 0 61 | SF-DRAWABLE "Drawable" 0 62 | SF-OPTION "Strength" '("Normal" "Stronger" "Strongest") 63 | ) 64 | (script-fu-menu-register "210-thicken-lines" "/Script-Fu/Effects") 65 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_effects_toonator.scm: -------------------------------------------------------------------------------- 1 | ; 210_effects_toonator.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 01/08/2019 on GIMP 2.10.8 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; based upon an original script by Saul Goode 42 | ; sg-tooninator.scm 43 | ; http://chiselapp.com/user/saulgoode/repository/script-fu/home 44 | ;============================================================== 45 | 46 | (define (210-effects-tooninator image drawable) 47 | 48 | (unless (zero? (car (gimp-drawable-is-layer drawable))) 49 | (gimp-image-undo-group-start image) 50 | 51 | (let ((gray-mode? (= (car (gimp-image-base-type image)) 1)) 52 | (retinex-layer 0) 53 | (edge-layer 0) ) 54 | (if gray-mode? 55 | (gimp-image-convert-rgb image) ) 56 | 57 | (if (= 1 (car (gimp-drawable-is-indexed drawable))) 58 | (gimp-image-convert-rgb image)) 59 | 60 | (set! retinex-layer (car (gimp-layer-copy drawable TRUE))) 61 | (gimp-drawable-set-name retinex-layer "Retinex") 62 | (gimp-image-add-layer image retinex-layer -1) 63 | (plug-in-retinex RUN-NONINTERACTIVE image retinex-layer 16 3 0 0.1) 64 | (gimp-image-set-active-layer image retinex-layer) 65 | (gimp-layer-set-mode retinex-layer VALUE-MODE) 66 | (set! edge-layer (car (gimp-layer-copy drawable TRUE))) 67 | (gimp-drawable-set-name edge-layer "Edges") 68 | (gimp-image-add-layer image edge-layer -1) 69 | (let ((retinex-mask (car (gimp-layer-create-mask retinex-layer 0))) 70 | (buffer (car (gimp-edit-named-copy drawable "orig"))) ) 71 | (gimp-layer-add-mask retinex-layer retinex-mask) 72 | (gimp-floating-sel-anchor (car (gimp-edit-named-paste retinex-mask buffer TRUE))) 73 | (gimp-threshold retinex-mask 36 255) ) 74 | (let ((temp-layer (car (gimp-layer-copy retinex-layer TRUE)))) 75 | (gimp-image-set-active-layer image edge-layer) 76 | (gimp-image-add-layer image temp-layer -1) 77 | (set! edge-layer (car (gimp-image-merge-down image temp-layer EXPAND-AS-NECESSARY))) ) 78 | (plug-in-gauss RUN-NONINTERACTIVE image edge-layer 2.0 2.0 0) 79 | (plug-in-gauss RUN-NONINTERACTIVE image edge-layer 2.0 2.0 0) 80 | (gimp-image-remove-layer image edge-layer) 81 | 82 | (when (zero? (car (gimp-selection-is-empty image))) 83 | (gimp-selection-invert image) 84 | ; (gimp-edit-clear edge-layer) 85 | (gimp-edit-clear retinex-layer) 86 | (gimp-selection-invert image) ) 87 | ) 88 | (gimp-image-undo-group-end image) 89 | ) 90 | (gimp-displays-flush) 91 | ) 92 | 93 | (script-fu-register "210-effects-tooninator" 94 | "Toon-inator" 95 | "Add two layers which result in a cartoon-like appearance, \nleft un-flattened to enable adjusting layers after script runs." 96 | "Paul Sherman" 97 | "Paul Sherman" 98 | "February, 2014" 99 | "*" 100 | SF-IMAGE "Image" 0 101 | SF-DRAWABLE "Layer" 0 102 | ) 103 | (script-fu-menu-register "210-effects-tooninator" "/Script-Fu/Effects") 104 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_photo_fix-overblown.scm: -------------------------------------------------------------------------------- 1 | ; 210_photo_fix-overblown.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 10/15/2010 - restricted to RGB to eliminate errors on indexed and gray 23 | ; 02/12/2014 - added strength option as well as flatten. 24 | ; 02/14/2014 - convert to RGB if needed 25 | ;================================================== 26 | ; 27 | ; LICENSE 28 | ; 29 | ; This program is free software: you can redistribute it and/or modify 30 | ; it under the terms of the GNU General Public License as published by 31 | ; the Free Software Foundation, either version 3 of the License, or 32 | ; (at your option) any later version. 33 | ; 34 | ; This program is distributed in the hope that it will be useful, 35 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 36 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 37 | ; GNU General Public License for more details. 38 | ; 39 | ; You should have received a copy of the GNU General Public License 40 | ; along with this program. If not, see . 41 | ; 42 | ;============================================================== 43 | ; Original information 44 | ; 45 | ; FixOverblown is a script for Gimp 46 | ; This script helps fix overblown areas of an image. 47 | ; The script is located in " / Script-Fu / Photo / Fix Overblown" 48 | ; Last changed: 2009 June 18 49 | ; Copyright (C) 2009 Jonathan Denning 50 | ;============================================================== 51 | 52 | 53 | (define (210-FixOverblown 54 | inImage 55 | inLayer 56 | strength 57 | flatten 58 | ) 59 | 60 | (gimp-image-undo-group-start inImage) 61 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 62 | (gimp-image-convert-rgb inImage)) 63 | 64 | (let* 65 | ( 66 | (overlayLayer (car (gimp-layer-copy inLayer FALSE))) 67 | (mask 0) 68 | ) 69 | (gimp-image-insert-layer inImage overlayLayer 0 -1) 70 | (gimp-layer-set-mode overlayLayer OVERLAY-MODE) 71 | (gimp-item-set-name overlayLayer "Fix Overblown") 72 | (set! mask (car (gimp-layer-create-mask overlayLayer ADD-COPY-MASK))) 73 | (gimp-layer-add-mask overlayLayer mask) 74 | (plug-in-vinvert RUN-NONINTERACTIVE inImage overlayLayer) 75 | 76 | (cond ((= strength 1) 77 | (gimp-curves-spline mask 0 6 #(0 0 128 0 255 255)) 78 | ) 79 | ((= strength 2) 80 | (gimp-curves-spline mask 0 8 #(0 0 55 27 176 197 255 255)) 81 | ) 82 | ((= strength 3) 83 | (gimp-curves-spline mask 0 16 #(0 0 63 73 95 125 127 31 156 188 191 151 223 227 255 255)) 84 | ) 85 | ) 86 | 87 | (if (= flatten TRUE)(gimp-image-flatten inImage)) 88 | (gimp-image-undo-group-end inImage) 89 | (gimp-displays-flush) 90 | (list overlayLayer) 91 | ) 92 | ) 93 | 94 | (script-fu-register "210-FixOverblown" 95 | "Fix Overblown" 96 | "Helps fix overblown areas" 97 | "Jon Denning " 98 | "Jon Denning" 99 | "2009-06-18" 100 | "*" 101 | SF-IMAGE "Image" 0 102 | SF-DRAWABLE "Layer" 0 103 | SF-ADJUSTMENT "Adjustment Strength" '(1 1 3 1 1 0 0) 104 | SF-TOGGLE "Flatten image" FALSE 105 | ) 106 | (script-fu-menu-register "210-FixOverblown" "/Script-Fu/Photo") 107 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_photo_infrared-simulation.scm: -------------------------------------------------------------------------------- 1 | ; 210_photo_infrared-simulation.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Infrared, V2.1 for GIMP 2.4 42 | ; Original author: Martin Egger (martin.egger@gmx.net) 43 | ; (C) 2005, Bern, Switzerland 44 | ; 45 | ; You can find more about simulating IR at 46 | ; http://www.gimpguru.org/Tutorials/SimulatedInfrared/ 47 | ; http://epaperpress.com/psphoto/ 48 | ;============================================================== 49 | 50 | 51 | (define (210-Infrared InImage InLayer InOpacity InContrast InNoise InBlur InFlatten) 52 | 53 | ; Save history 54 | (gimp-image-undo-group-start InImage) 55 | (if (not (= RGB (car (gimp-image-base-type InImage)))) 56 | (gimp-image-convert-rgb InImage)) 57 | 58 | (let* ( 59 | (CopyLayer (car (gimp-layer-copy InLayer TRUE))) 60 | (IRLayer (car (gimp-layer-copy InLayer TRUE))) 61 | (IRLayer2 (car (gimp-layer-copy InLayer TRUE))) 62 | (IRLayer3 (car (gimp-layer-copy InLayer TRUE))) 63 | ) 64 | (gimp-image-insert-layer InImage CopyLayer 0 -1) 65 | 66 | (gimp-image-insert-layer InImage IRLayer3 0 -1) 67 | (gimp-layer-set-mode IRLayer3 SCREEN-MODE) 68 | (gimp-layer-set-opacity IRLayer3 InContrast) 69 | (gimp-image-insert-layer InImage IRLayer2 0 -1) 70 | (gimp-layer-set-mode IRLayer2 BURN-MODE) 71 | (gimp-layer-set-opacity IRLayer2 InContrast) 72 | (gimp-image-insert-layer InImage IRLayer 0 -1) 73 | (gimp-layer-set-mode IRLayer SCREEN-MODE) 74 | (gimp-layer-set-opacity IRLayer InOpacity) 75 | 76 | ; Dreamy IR 77 | (gimp-desaturate CopyLayer) 78 | (gimp-desaturate IRLayer3) 79 | (plug-in-colors-channel-mixer TRUE InImage IRLayer2 TRUE 1.0 1.0 -1.0 0 0 0 0 0 0) 80 | (plug-in-colors-channel-mixer TRUE InImage IRLayer TRUE -.3 2.0 -.7 0 0 0 0 0 0) 81 | (gimp-brightness-contrast IRLayer -25 70) 82 | 83 | ; Add noise to the image, if we need to 84 | (if (and (= InNoise TRUE) (defined? 'plug-in-scatter-rgb) ) (plug-in-scatter-rgb TRUE InImage IRLayer FALSE FALSE 0.1 0.1 0.1 0)) 85 | 86 | ; Blur the IR layer, if we need to 87 | (if (= InBlur TRUE) (plug-in-gauss TRUE InImage IRLayer 4.0 4.0 0)) 88 | 89 | ; Flatten the image, if we need to 90 | (cond 91 | ((= InFlatten TRUE) 92 | (begin 93 | (gimp-image-merge-down InImage CopyLayer CLIP-TO-IMAGE) 94 | (gimp-image-merge-down InImage IRLayer3 CLIP-TO-IMAGE) 95 | (gimp-image-merge-down InImage IRLayer2 CLIP-TO-IMAGE) 96 | (gimp-image-merge-down InImage IRLayer CLIP-TO-IMAGE) 97 | ) 98 | ) 99 | 100 | ((= InFlatten FALSE) 101 | (begin 102 | (gimp-item-set-name IRLayer "Infrared (Green)") 103 | (gimp-item-set-name IRLayer2 "Infrared (Sky Contrast)") 104 | (gimp-item-set-name IRLayer3 "Infrared (Green Glow)") 105 | (gimp-item-set-name CopyLayer "BW-Copy") 106 | ) 107 | ) 108 | ) 109 | ) 110 | 111 | ; Finish work 112 | (gimp-image-undo-group-end InImage) 113 | (gimp-displays-flush) 114 | ) 115 | 116 | (script-fu-register 117 | "210-Infrared" 118 | "Infrared Simulation" 119 | "Simulate digital Infrared" 120 | "Martin Egger (martin.egger@gmx.net)" 121 | "2005, Martin Egger, Bern, Switzerland" 122 | "12.07.2005" 123 | "*" 124 | SF-IMAGE "The Image" 0 125 | SF-DRAWABLE "The Layer" 0 126 | SF-ADJUSTMENT "IR Layer Opacity" '(80.0 1.0 100.0 1.0 0 2 0) 127 | SF-ADJUSTMENT "Contrast/Glow Layer Opacity" '(50.0 1.0 100.0 1.0 0 2 0) 128 | SF-TOGGLE "Film grain simulation(requires RGB scater plug-in)" FALSE 129 | SF-TOGGLE "Blur Image" FALSE 130 | SF-TOGGLE "Flatten Image" FALSE 131 | ) 132 | (script-fu-menu-register "210-Infrared" "/Script-Fu/Photo") 133 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_photo_web-photo-edit.scm: -------------------------------------------------------------------------------- 1 | ; 210_photo_web-photo-edit.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Web Photo Editor Script-fu plugin for The Gimp 42 | ; Copyright (C) 2007 Justin Watt http://justinsomnia.org/ 43 | ;============================================================== 44 | 45 | (define (210-web-photo-editor 46 | image 47 | drawable 48 | newwidth 49 | shadows 50 | midtones 51 | highlights 52 | contrast 53 | saturation 54 | sharpen 55 | ) 56 | (gimp-image-undo-group-start image) 57 | (if (not (= RGB (car (gimp-image-base-type image)))) 58 | (gimp-image-convert-rgb image)) 59 | (let* ((drawable (car (gimp-image-get-active-drawable image))) 60 | (oldwidth (car (gimp-image-width image))) 61 | (oldheight (car (gimp-image-height image))) 62 | (newheight (* newwidth (/ oldheight oldwidth))) 63 | ) 64 | (if (> oldwidth newwidth)(gimp-image-scale image newwidth newheight)) 65 | (gimp-selection-none image) 66 | (gimp-color-balance drawable 0 0 shadows shadows shadows) 67 | (gimp-color-balance drawable 1 0 midtones midtones midtones) 68 | (gimp-color-balance drawable 2 0 highlights highlights highlights) 69 | (gimp-brightness-contrast drawable 0 contrast) 70 | (gimp-hue-saturation drawable 0 0 0 saturation) 71 | (if (= sharpen TRUE)(plug-in-unsharp-mask 1 image drawable 0.4 0.2 0)) 72 | (gimp-image-undo-group-end image) 73 | ) 74 | ) 75 | (script-fu-register "210-web-photo-editor" 76 | "Web Photo Editor" 77 | "Brings together some common operations to edit a photo for the web, including resizing, contrast, color balancing, saturation, and sharpening. For more information, see:\nhttp://justinsomnia.org/2007/09/web-photo-editor-extension-for-the-gimp/" 78 | "Justin Watt http://justinsomnia.org/" 79 | "Copyright 2007 by Justin Watt; GNU GPL" 80 | "2007-11-07" 81 | "*" 82 | SF-IMAGE "Image" 0 83 | SF-DRAWABLE "Drawable" 0 84 | SF-VALUE "Width" "450" ; defaults to 450 85 | SF-ADJUSTMENT "Shadows" '(5 -100 100 5 10 0 0) ; defaults to 5 86 | SF-ADJUSTMENT "Midtones" '(10 -100 100 5 10 0 0) ; defaults to 10 87 | SF-ADJUSTMENT "Highlights" '(5 -100 100 5 10 0 0) ; defaults to 5 88 | SF-ADJUSTMENT "Contrast" '(10 -127 127 5 10 0 0) ; defaults to 10 89 | SF-ADJUSTMENT "Saturation" '(15 -100 100 5 10 0 0) ; defaults to 15 90 | SF-TOGGLE "Sharpen" TRUE 91 | ) 92 | (script-fu-menu-register "210-web-photo-editor" "/Script-Fu/Photo") 93 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_remove-paths.scm: -------------------------------------------------------------------------------- 1 | ; 210_remove-paths.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; Save time, skip the paths dialog to remove paths 6 | ; last modified/tested by Paul Sherman [gimphelp.org] 7 | ; 05/11/2019 on GIMP 2.10.10 8 | ;================================================== 9 | ; 10 | ; Installation: 11 | ; This script should be placed in the user or system-wide script folder. 12 | ; 13 | ; Windows 7/10 14 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 15 | ; or 16 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 17 | ; 18 | ; 19 | ; Linux 20 | ; /home/yourname/.config/GIMP/2.10/scripts 21 | ; or 22 | ; Linux system-wide 23 | ; /usr/share/gimp/2.0/scripts 24 | ; 25 | ;================================================== 26 | 27 | ; 28 | ; LICENSE 29 | ; 30 | ; This program is free software: you can redistribute it and/or modify 31 | ; it under the terms of the GNU General Public License as published by 32 | ; the Free Software Foundation, either version 3 of the License, or 33 | ; (at your option) any later version. 34 | ; 35 | ; This program is distributed in the hope that it will be useful, 36 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 37 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 38 | ; GNU General Public License for more details. 39 | ; 40 | ; You should have received a copy of the GNU General Public License 41 | ; along with this program. If not, see . 42 | ; 43 | ;============================================================== 44 | ; Original information 45 | ; 46 | ; by Paul Sherman, gimphelp.org 47 | ;============================================================== 48 | 49 | (define (210-remove-paths image drawable) 50 | (gimp-image-undo-group-start image) 51 | 52 | (let* ( 53 | (all-paths (gimp-image-get-vectors image)) 54 | (i (car all-paths)) 55 | (path 0) 56 | (GTK_STOCK_ABOUT "gtk_about") 57 | ) 58 | (set! all-paths (cadr all-paths)) 59 | (while (> i 0) 60 | (set! i (- i 1)) 61 | (set! path (vector-ref all-paths i)) 62 | (gimp-image-remove-vectors image path) 63 | )) 64 | 65 | ;Finish the undo group for the process 66 | (gimp-image-undo-group-end image) 67 | ;Update the display 68 | (gimp-displays-flush) 69 | ) 70 | 71 | (script-fu-register "210-remove-paths" 72 | "Remove Paths" 73 | "Removes all image paths" 74 | "Paul Sherman" 75 | "Paul Sherman" 76 | "2010/10/14" 77 | "*" 78 | SF-IMAGE "Image" 0 79 | SF-DRAWABLE "Drawable" 0 80 | ) 81 | (script-fu-menu-register "210-remove-paths" "/Script-Fu") 82 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_remove-settings.scm: -------------------------------------------------------------------------------- 1 | ; 210_remove-settings.scm 2 | 3 | ; Speeds loading of the color tools that keep track of old settings. 4 | ; 5 | ; last modified/tested by Paul Sherman [gimphelp.org] 6 | ; 05/11/2019 on GIMP 2.10.10 7 | ;================================================== 8 | ; 9 | ; Installation: 10 | ; This script should be placed in the user or system-wide script folder. 11 | ; 12 | ; Windows 7/10 13 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 14 | ; or 15 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 16 | ; 17 | ; 18 | ; Linux 19 | ; /home/yourname/.config/GIMP/2.10/scripts 20 | ; or 21 | ; Linux system-wide 22 | ; /usr/share/gimp/2.0/scripts 23 | ; 24 | ;================================================== 25 | ; 26 | ; LICENSE 27 | ; 28 | ; This program is free software: you can redistribute it and/or modify 29 | ; it under the terms of the GNU General Public License as published by 30 | ; the Free Software Foundation, either version 3 of the License, or 31 | ; (at your option) any later version. 32 | ; 33 | ; This program is distributed in the hope that it will be useful, 34 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 35 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 36 | ; GNU General Public License for more details. 37 | ; 38 | ; You should have received a copy of the GNU General Public License 39 | ; along with this program. If not, see . 40 | ; 41 | ;============================================================== 42 | ; Original information 43 | ; 44 | ; by Paul Sherman, gimphelp.org 45 | ;============================================================== 46 | 47 | (define (210-remove-settings s_bright? s_balance? s_colorize? s_curves? s_hue? s_levels?) 48 | 49 | (define path_brightness-contrast) 50 | (define path_color-balance) 51 | (define path_colorize) 52 | (define path_curves) 53 | (define path_hue-saturation) 54 | (define path_levels) 55 | 56 | (if (eqv? s_bright? TRUE) 57 | (begin 58 | (let*((path_brightness-contrast (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-brightness-contrast-tool.settings"))) 59 | (file-delete path_brightness-contrast) 60 | ) 61 | )) 62 | 63 | (if (eqv? s_balance? TRUE) 64 | (begin 65 | (let*((path_color-balance (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-color-balance-tool.settings"))) 66 | (file-delete path_color-balance) 67 | ) 68 | )) 69 | 70 | (if (eqv? s_colorize? TRUE) 71 | (begin 72 | (let*((path_colorize (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-colorize-tool.settings"))) 73 | (file-delete path_colorize) 74 | ) 75 | )) 76 | 77 | (if (eqv? s_curves? TRUE) 78 | (begin 79 | (let*((path_curves (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-curves-tool.settings"))) 80 | (file-delete path_curves) 81 | ) 82 | )) 83 | 84 | (if (eqv? s_hue? TRUE) 85 | (begin 86 | (let*((path_hue-saturation (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-hue-saturation-tool.settings"))) 87 | (file-delete path_hue-saturation) 88 | ) 89 | )) 90 | 91 | (if (eqv? s_levels? TRUE) 92 | (begin 93 | (let*((path_levels (string-append gimp-directory DIR-SEPARATOR "tool-options" DIR-SEPARATOR "gimp-levels-tool.settings"))) 94 | (file-delete path_levels) 95 | ) 96 | )) 97 | ) 98 | 99 | (script-fu-register "210-remove-settings" 100 | "Remove Settings" 101 | "Removes all Color Tool Settings 102 | (speeds up loading of tools)" 103 | "Paul Sherman" 104 | "Paul Sherman" 105 | "2012/04/22" 106 | "*" 107 | SF-TOGGLE "Brightnesss-Contrast" TRUE 108 | SF-TOGGLE "Color Balance" TRUE 109 | SF-TOGGLE "Colorize" TRUE 110 | SF-TOGGLE "Curves" TRUE 111 | SF-TOGGLE "Hue-Saturation" TRUE 112 | SF-TOGGLE "Levels" TRUE 113 | ) 114 | (script-fu-menu-register "210-remove-settings" "/Script-Fu") 115 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_save-as-jpg.scm: -------------------------------------------------------------------------------- 1 | ; 210_save-as-jpg.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Original script by Saul Goode 42 | ; script-fu-quick-jpeg-save.scm 43 | ; http://chiselapp.com/user/saulgoode/repository/script-fu/home 44 | ;============================================================== 45 | 46 | 47 | (define (210_save-as-jpg image) 48 | (let* ((nameparts (strbreakup (car (gimp-image-get-filename image)) ".")) 49 | (filename "") 50 | ) 51 | (unless (and (> (length nameparts) 1) 52 | (member (car (last nameparts)) '("jpg" "jpeg" "JPG" "JPEG")) 53 | ) 54 | (set! nameparts (append (butlast nameparts) '("jpg"))) ) 55 | (set! filename (unbreakupstr nameparts ".")) 56 | (let* ((buffer (car (gimp-edit-named-copy-visible image "jpg buffer"))) 57 | (new-image (car (gimp-edit-named-paste-as-new buffer))) 58 | (layer (car (gimp-image-flatten new-image))) ) 59 | (unless (zero? (car (gimp-image-base-type new-image))) 60 | (gimp-image-convert-rgb new-image) ) 61 | (file-jpeg-save RUN-NONINTERACTIVE 62 | new-image 63 | layer 64 | filename 65 | filename 66 | 0.92 ; JPEG compression level 67 | 0 ; smoothing 68 | 1 ; optimize 69 | 0 ; progressive 70 | "" ; comment 71 | 0 ; subsmp (0-4) 72 | 1 ; baseline 73 | 0 ; restart 74 | 0 ;dct 75 | ) 76 | (gimp-image-delete new-image) 77 | (gimp-image-clean-all image) 78 | ))) 79 | 80 | (script-fu-register "210_save-as-jpg" 81 | "Save as JPG" 82 | "Save the image as a JPG file\n\nFor more options and a proper file overwrite protected dialog, \nuse the FILE > EXPORT menu item when saving as a JPG.\n" 83 | "Paul Sherman" 84 | "Paul Sherman" 85 | "February 2014" 86 | "*" 87 | SF-IMAGE "Image" 0 88 | ) 89 | (script-fu-menu-register "210_save-as-jpg" "/File/Save/") -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_save-as-png.scm: -------------------------------------------------------------------------------- 1 | ; 210_save-as-png.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Original script by Saul Goode 42 | ; sg-snapshot.scm 43 | ; http://chiselapp.com/user/saulgoode/repository/script-fu/home 44 | ;============================================================== 45 | 46 | 47 | (define (210_save-as-png orig-image drawable) 48 | ;; Save a copy of the image without affecting the UNDO HISTORY 49 | (let* ( 50 | (buffer-name (car (gimp-edit-named-copy-visible orig-image "png_copy"))) 51 | (image (car (gimp-edit-named-paste-as-new buffer-name))) 52 | (layer (car (gimp-image-get-active-layer image))) 53 | (filename 54 | (if (zero? (strcmp "" (car (gimp-image-get-filename orig-image)) )) 55 | "Untitled.png" 56 | (car (gimp-image-get-filename orig-image)) )) 57 | (fn-components (strbreakup filename ".")) 58 | ) 59 | (set! fn-components (unbreakupstr (butlast fn-components) ".")) 60 | (set! filename (string-append fn-components 61 | ".png" )) 62 | 63 | (if (= 1 (car (gimp-drawable-is-indexed drawable))) 64 | (gimp-image-convert-indexed image 65 | NO-DITHER 66 | MAKE-PALETTE 67 | 255 68 | FALSE 69 | FALSE 70 | "")) 71 | 72 | (file-png-save-defaults RUN-NONINTERACTIVE image layer filename filename) 73 | (gimp-image-delete image) 74 | (gimp-buffer-delete buffer-name) 75 | (gimp-image-clean-all orig-image) 76 | ) 77 | ) 78 | 79 | (script-fu-register "210_save-as-png" 80 | "save as PNG" 81 | "Save the image as a PNG file.\n\nFor more options and a proper file overwrite protected dialog, \nuse the FILE > EXPORT menu item when saving as a PNG.\n" 82 | "Paul Sherman" 83 | "Paul Sherman" 84 | "Aug 2011" 85 | "*" 86 | SF-IMAGE "Image" 0 87 | SF-DRAWABLE "The Layer" 0 88 | ) 89 | (script-fu-menu-register "210_save-as-png" "/File/Save/") 90 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_shapes_cd-mask.scm: -------------------------------------------------------------------------------- 1 | ; 210_shapes_cd-mask.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; tweaked for GIMP-2.4.x by Paul Sherman 10/24/2007 23 | ; Oct 1,2008 removed deprecated foreground function 24 | ; 09/27/2010 - added adjustable inner diameter (by %) 25 | ; 26 | ; 27 | ; LICENSE 28 | ; 29 | ; This program is free software: you can redistribute it and/or modify 30 | ; it under the terms of the GNU General Public License as published by 31 | ; the Free Software Foundation, either version 3 of the License, or 32 | ; (at your option) any later version. 33 | ; 34 | ; This program is distributed in the hope that it will be useful, 35 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 36 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 37 | ; GNU General Public License for more details. 38 | ; 39 | ; You should have received a copy of the GNU General Public License 40 | ; along with this program. If not, see . 41 | ; 42 | ;============================================================== 43 | ; Original information 44 | ; 45 | ; Make a CD label shape. 46 | ; Copyright (C) 2002 by Akkana Peck, akkana@shallowsky.com. 47 | ;============================================================== 48 | 49 | ; Utility to calculate the inner radius 50 | (define (inner-diam diameter mini adj) 51 | (let* ( 52 | (j (/ adj 100)) 53 | ) 54 | (if (= mini TRUE) (* (/ diameter 2.2) j) (* (/ diameter 3.1) j)) 55 | )) 56 | 57 | 58 | ;; Select the CD shape. Then you can cut, or whatever. 59 | (define (CD-select img diameter mini adj) 60 | (gimp-image-select-ellipse img CHANNEL-OP-REPLACE 0 0 diameter diameter) 61 | (let* ( 62 | (inner (inner-diam diameter mini adj)) 63 | (offset (/ (- diameter inner) 2)) 64 | ) 65 | (gimp-image-select-ellipse img CHANNEL-OP-SUBTRACT offset offset inner inner) 66 | )) 67 | 68 | ;; Actually make a CD shape, in a solid color. 69 | (define (210-CD-label diameter color mini adj) 70 | (let* ((old-fg-color (car (gimp-context-get-foreground))) 71 | (img (car (gimp-image-new diameter diameter RGB))) 72 | (cdlayer (car (gimp-layer-new img diameter diameter 73 | RGBA-IMAGE "CD" 100 LAYER-MODE-NORMAL-LEGACY)))) 74 | (gimp-image-undo-disable img) 75 | (gimp-image-insert-layer img cdlayer 0 -1) 76 | (gimp-selection-all img) 77 | (gimp-edit-clear cdlayer) 78 | 79 | (gimp-context-set-foreground color) 80 | (CD-select img diameter mini adj) 81 | (gimp-edit-bucket-fill cdlayer FG-BUCKET-FILL LAYER-MODE-NORMAL-LEGACY 100 0 FALSE 0 0) 82 | 83 | ;; Clean up 84 | (gimp-selection-none img) 85 | (gimp-image-set-active-layer img cdlayer) 86 | (gimp-context-set-foreground old-fg-color) 87 | (gimp-image-undo-enable img) 88 | (gimp-display-new img))) 89 | 90 | 91 | 92 | 93 | ;; Cut out a CD shape from the current image. 94 | (define (210-CD-mask img drawable mini adj) 95 | (gimp-image-undo-group-start img) 96 | (CD-select img 97 | (min (car (gimp-image-width img)) (car (gimp-image-height img))) 98 | mini adj) 99 | (gimp-selection-invert img) 100 | (gimp-edit-clear drawable) 101 | (gimp-image-undo-group-end img) 102 | (gimp-displays-flush) 103 | ) 104 | 105 | (script-fu-register "210-CD-label" 106 | "CD label" 107 | "CD label shape" 108 | "Akkana Peck" 109 | "Akkana Peck" 110 | "December 2002" 111 | "" 112 | SF-ADJUSTMENT _"Diameter" '(800 1 2000 10 50 0 1) 113 | SF-COLOR _"Color" '(174 201 255) 114 | SF-TOGGLE _"Mini CD" FALSE 115 | SF-ADJUSTMENT _"Adjust Size of Center (%) " '(100 10 300 1 10 0 0) 116 | ) 117 | (script-fu-menu-register "210-CD-label" "/Script-Fu/Create New") 118 | 119 | (script-fu-register "210-CD-mask" 120 | "CD mask" 121 | "Select a CD label shape out of the current layer" 122 | "Akkana Peck" 123 | "Akkana Peck" 124 | "December 2002" 125 | "RGB* GRAY* INDEXED*" 126 | SF-IMAGE "Image" 0 127 | SF-DRAWABLE "Drawable" 0 128 | SF-TOGGLE _"Mini CD" FALSE 129 | SF-ADJUSTMENT _"Adjust Size of Center (%) " '(100 10 300 1 10 0 0) 130 | ) 131 | (script-fu-menu-register "210-CD-mask" "/Script-Fu/Shapes") 132 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_shapes_stampify.scm: -------------------------------------------------------------------------------- 1 | ; 210_shapes_stampify.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; adapted for GIMP-2 by Eddy Verlinden 42 | ; filter found at: http://users.telenet.be/ev1/gimpphotoeffects_en.html 43 | ;============================================================== 44 | 45 | 46 | (define (210-stampify img drawable paper hole diameter gap marg) 47 | (let* ( 48 | (owidth (car (gimp-image-width img))) 49 | (oheight (car (gimp-image-height img))) 50 | (nw (+ diameter (+ owidth (* 2 marg)))) 51 | (nh (+ diameter (+ oheight (* 2 marg)))) 52 | (img2 (car (gimp-image-new nw nh RGB))) 53 | (layer1 (car (gimp-layer-new img2 nw nh 0 "Layer1" 100 LAYER-MODE-NORMAL-LEGACY))) 54 | (nholes 0) 55 | (pos 0) 56 | (i 0) 57 | (dist 0) 58 | ) 59 | 60 | (gimp-image-insert-layer img2 layer1 0 0) 61 | (gimp-image-set-active-layer img2 layer1) 62 | (gimp-context-set-background paper) 63 | (gimp-drawable-fill layer1 1) 64 | (gimp-selection-none img2) 65 | 66 | ; calculate number of horisontal holes 67 | (set! nholes (/ (+ nw gap) (+ diameter gap))) 68 | (set! pos 0) 69 | (set! i 0) 70 | 71 | ; loop horisontally 72 | (while (< i nholes) 73 | (gimp-image-select-ellipse img2 CHANNEL-OP-ADD pos 0 diameter diameter) 74 | (set! pos (+ pos diameter gap)) 75 | (set! i (+ i 1)) 76 | ) 77 | 78 | ; calculate number of vertical holes 79 | (set! nholes (/ (+ nh gap) (+ diameter gap))) 80 | (set! pos 0) 81 | (set! i 0) 82 | 83 | ; loop vertically 84 | (while (< i nholes) 85 | (gimp-image-select-ellipse img2 CHANNEL-OP-ADD 0 pos diameter diameter) 86 | (set! pos (+ pos diameter gap)) 87 | (set! i (+ i 1)) 88 | ) 89 | 90 | ; and fill the holes with a colour 91 | (gimp-context-set-background hole) 92 | (gimp-edit-fill layer1 1) 93 | (gimp-selection-none img2) 94 | 95 | ; and here comes the clever part: 96 | ; offset horis and vert holes by half the diameter 97 | (set! dist (* -1 (/ diameter 2))) 98 | (gimp-drawable-offset layer1 1 0 dist dist) 99 | 100 | ; insert old image into a new layer in img2 101 | (gimp-selection-all img) 102 | (gimp-edit-copy drawable) 103 | (let ((floating-sel (car (gimp-edit-paste layer1 0)))) 104 | (gimp-floating-sel-anchor floating-sel) 105 | ) 106 | ; and return command to The Gimp 107 | (gimp-image-clean-all img2) 108 | (gimp-display-new img2) 109 | ) 110 | ) 111 | 112 | (script-fu-register "210-stampify" 113 | "Stampify" 114 | "Will hopefully make an image look like a postage stamp." 115 | "Claes G Lindblad " 116 | "Claes G Lindblad " 117 | "990330" 118 | "*" 119 | SF-IMAGE "Input Image" 0 120 | SF-DRAWABLE "Input Drawable" 0 121 | SF-COLOR "Paper colour" '(242 242 242) 122 | SF-COLOR "Hole colour" '(153 153 153) 123 | SF-VALUE "Diameter of perforation" "10" 124 | SF-VALUE "Gap between perforations" "5" 125 | SF-VALUE "Marginal between art and perforations" "7" 126 | ) 127 | (script-fu-menu-register "210-stampify" "/Script-Fu/Shapes") 128 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_blur-non-edges.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_blur-non-edges.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; Original information 23 | ; 24 | ; Blur Non-Edges version 0.9.1 25 | ; 26 | ; Blurs those areas of a picture which are considered not edges, that 27 | ; is are more or less uniform color areas. This is somewhat like the 28 | ; standard Selective Gaussian Blur plugin, but gives better results in 29 | ; some situations. Also try running this script first, and then 30 | ; Selective Gaussian Blur on the resulting image. 31 | ; 32 | ; Technically, the script works as following. 33 | ; 34 | ; - find edges 35 | ; - make a selection that doesn't include the edges 36 | ; - shrink and feather the selection in proportion to blur radius 37 | ; - perform gaussian blur 38 | ; 39 | ; End original information ------------------------------------------ 40 | 41 | 42 | (define (210-blur-non-edges image layer select-threshold blur-strength show-used-selection) 43 | (gimp-image-undo-group-start image) 44 | (let* ((saved-selection (car (gimp-selection-save image))) 45 | (saved-selection-empty (car (gimp-selection-is-empty image)))) 46 | (let* ((dup-layer (car (gimp-layer-copy layer 1)))) 47 | (gimp-image-insert-layer image dup-layer 0 -1) 48 | (plug-in-edge 1 image dup-layer 2 2 0) 49 | (gimp-image-select-color image CHANNEL-OP-REPLACE dup-layer '(0 0 0)) 50 | (if (= TRUE saved-selection-empty) 51 | '() 52 | (gimp-selection-combine saved-selection CHANNEL-OP-INTERSECT)) 53 | (gimp-image-remove-layer image dup-layer) 54 | ) 55 | (gimp-selection-shrink image (/ blur-strength 2)) 56 | (gimp-selection-feather image blur-strength) 57 | (gimp-image-set-active-layer image layer) 58 | (plug-in-gauss-iir2 1 image layer blur-strength blur-strength) 59 | 60 | (if (= TRUE show-used-selection) 61 | '() 62 | (gimp-image-select-item image CHANNEL-OP-REPLACE saved-selection)) 63 | (gimp-image-remove-channel image saved-selection) 64 | (gimp-displays-flush) 65 | (gimp-image-undo-group-end image)) 66 | ) 67 | 68 | (script-fu-register "210-blur-non-edges" 69 | "Blur Non-Edges" 70 | "Gaussian blur smooth, non-edge areas of the image" 71 | "Samuli Kärkkäinen" 72 | "Samuli Kärkkäinen" 73 | "2005-01-08" 74 | "RGB* GRAY*" 75 | SF-IMAGE "Font" 0 76 | SF-DRAWABLE "Font Size" 0 77 | SF-ADJUSTMENT "Non-edge selection threshold" '(60 0 255 1 10 0 0) 78 | SF-ADJUSTMENT "Blur radius" '(5 0.1 999 0.1 1 1 1) 79 | SF-TOGGLE "Show used selection" FALSE 80 | ) 81 | (script-fu-menu-register "210-blur-non-edges" "/Script-Fu/Sharpness/Softer") 82 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_orton.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_orton.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Simulates the Orton effect on your image. 42 | ; Last changed: 5 August 2007 43 | ; Copyright (C) 2007 Harry Phillips 44 | ; 45 | ; Changelog: 46 | ; Version 1.3 (5th August 2007) 47 | ; - Added GPL3 licence 48 | ; - Menu location at the top of the script 49 | ; - Removed the "script-fu-menu-register" section 50 | ; 51 | ; Version 1.2 52 | ; - Made the script compatible with GIMP 2.3 53 | ;============================================================== 54 | 55 | 56 | (define (210-orton-effect 57 | theImage 58 | theLayer 59 | blurAmount 60 | 20on 61 | opacityLevel 62 | ) 63 | 64 | ;Start an undo group so the process can be undone with one undo 65 | (gimp-image-undo-group-start theImage) 66 | (define indexed (car (gimp-drawable-is-indexed theLayer))) 67 | (if (= indexed TRUE)(gimp-image-convert-rgb theImage)) 68 | ;Select none 69 | (gimp-selection-none theImage) 70 | 71 | ;Initiate some variables 72 | (let* 73 | ( 74 | (sharp (car (gimp-layer-copy theLayer 0))) 75 | (sharp-screen (car (gimp-layer-copy theLayer 0))) 76 | (imageWidth) 77 | (imageHeight) 78 | (merged) 79 | (sharpCopy) 80 | ) 81 | 82 | ;Read the image width and height 83 | (set! imageWidth (car (gimp-image-width theImage))) 84 | (set! imageHeight (car (gimp-image-height theImage))) 85 | 86 | ;Add the first layer to the image 87 | (gimp-image-insert-layer theImage sharp 0 0) 88 | 89 | ;Rename the layer 90 | (gimp-item-set-name sharp "Sharp") 91 | 92 | ;Add the second layer to the image 93 | (gimp-image-insert-layer theImage sharp-screen 0 0) 94 | 95 | ;Change the mode of the second layer 96 | (gimp-layer-set-mode sharp-screen 4) 97 | 98 | ;Merge the top layer down and keep track of the newly merged layer 99 | (set! merged (car (gimp-image-merge-down theImage sharp-screen 0))) 100 | 101 | ;Copy the merged layer 102 | (set! sharpCopy (car (gimp-layer-copy merged 0))) 103 | 104 | ;Add the copy of the merged layer 105 | (gimp-image-insert-layer theImage sharpCopy 0 0) 106 | 107 | ;Rename the copied layer 108 | (gimp-item-set-name sharpCopy "Out of focus") 109 | 110 | 111 | ;Setblur factor to 20% of the longest side 112 | (if (= 20on TRUE) 113 | (begin 114 | (if (> imageHeight imageWidth) (set! blurAmount (/ imageWidth 5)) (set! blurAmount (/ imageHeight 5)) 115 | ) 116 | ) 117 | ) 118 | 119 | ;Apply the blur with the supplied blur amount 120 | (plug-in-gauss 1 theImage sharpCopy blurAmount blurAmount 0) 121 | 122 | ;Change the mode of the sharpCopy 123 | (gimp-layer-set-mode sharpCopy 3) 124 | 125 | ;Change the sharpCopy layers opacity 126 | (gimp-layer-set-opacity sharpCopy opacityLevel) 127 | 128 | ;Finish the undo group for the process 129 | (gimp-image-undo-group-end theImage) 130 | 131 | ;Ensure the updated image is displayed now 132 | (gimp-displays-flush) 133 | ) 134 | ) 135 | 136 | (script-fu-register "210-orton-effect" 137 | "Orton effect" 138 | "Gives the Orton effect on a photo" 139 | "Harry Phillips" 140 | "Harry Phillips" 141 | "Feb. 07 2006" 142 | "*" 143 | SF-IMAGE "Image" 0 144 | SF-DRAWABLE "Drawable" 0 145 | SF-ADJUSTMENT "Blur" '(100 5 10000 1 10 0 1) 146 | SF-TOGGLE "Use 20% of the shortest side for Blur" FALSE 147 | SF-ADJUSTMENT "Opacity" '(90 0 100 1 10 1 0) 148 | ) 149 | (script-fu-menu-register "210-orton-effect" "/Script-Fu/Sharpness/Softer") 150 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_pixel-gradient.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_pixel-gradient.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; pixel-gradient.scm 42 | ; Jeff Trefftzs 43 | ;============================================================== 44 | 45 | 46 | (define (210-pixelgradient 47 | inImage 48 | inLayer 49 | minsize 50 | maxsize 51 | nsteps 52 | ) 53 | ;; If there isn't already a selection, select the whole thing 54 | (let* ( 55 | (noselection 0) 56 | ) 57 | (if (car (gimp-selection-bounds inImage)) 58 | (begin 59 | (set! noselection FALSE) 60 | ) 61 | (begin 62 | (gimp-selection-all inImage) 63 | (set! noselection TRUE) 64 | ) 65 | ) 66 | ; start undo group and convert to RGB if image is indexed 67 | (gimp-image-undo-group-start inImage) 68 | (define indexed (car (gimp-drawable-is-indexed inLayer))) 69 | (if (= indexed TRUE)(gimp-image-convert-rgb inImage)) 70 | 71 | (let* ( 72 | (selchannel (car (gimp-selection-save inImage))) 73 | (selstuff (gimp-selection-bounds inImage)) 74 | (width 75 | (cond ((car selstuff) 76 | (- (nth 3 selstuff) (nth 1 selstuff))) 77 | (t (car (gimp-image-width inImage))))) 78 | (height 79 | (cond ((car selstuff) 80 | (- (nth 4 selstuff) (nth 2 selstuff))) 81 | (t (car (gimp-image-height inImage))))) 82 | (x0 83 | (cond ((car selstuff) 84 | (nth 1 selstuff)) 85 | (t 0))) 86 | (y0 87 | (cond ((car selstuff) 88 | (nth 2 selstuff)) 89 | (t 0))) 90 | (x1 width) 91 | (y1 height) 92 | (stepwidth (/ width nsteps)) 93 | (pixstep (/ (- maxsize minsize) nsteps)) 94 | (startx x0) 95 | (startsize minsize) 96 | ) 97 | 98 | ;; Step across the selection (or image), pixelizing as we go 99 | (while (< startx x1) 100 | (begin 101 | (gimp-image-select-item inImage CHANNEL-OP-REPLACE selchannel) 102 | (gimp-image-select-rectangle inImage CHANNEL-OP-INTERSECT startx y0 stepwidth height) 103 | (plug-in-pixelize TRUE inImage inLayer startsize) 104 | (set! startx (+ startx stepwidth)) 105 | (set! startsize (+ startsize pixstep)) 106 | ) 107 | ) 108 | 109 | (if (equal? TRUE noselection) 110 | (gimp-selection-none inImage) 111 | (gimp-image-select-item inImage CHANNEL-OP-REPLACE selchannel) 112 | ) 113 | ) 114 | (gimp-image-set-active-layer inImage inLayer) 115 | (gimp-image-undo-group-end inImage) 116 | (gimp-displays-flush) 117 | ) 118 | ) 119 | 120 | (script-fu-register "210-pixelgradient" 121 | "Pixel Gradient" 122 | "Pixelizes a selection (or layer) from left to right with increasing pixel sizes." 123 | "Jeff Trefftzs" 124 | "Copyright 2003, Jeff Trefftzs" 125 | "November 17, 2003" 126 | "*" 127 | SF-IMAGE "The Image" 0 128 | SF-DRAWABLE "The Layer" 0 129 | SF-ADJUSTMENT "Minimum Pixel Size" '(2 1 256 1 5 0 1) 130 | SF-ADJUSTMENT "Maximum Pixel Size" '(12 1 256 1 5 0 1) 131 | SF-ADJUSTMENT "Number of Steps" '(5 1 256 1 5 0 1) 132 | ) 133 | (script-fu-menu-register "210-pixelgradient" "/Script-Fu/Sharpness/Softer") 134 | 135 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_sharp-blur.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_sharp-blur.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Script by Mark Probst 42 | ;============================================================== 43 | 44 | 45 | (define (210-sharp-blur 46 | img 47 | drw 48 | image-blur-radius 49 | edge-blur-radius 50 | edge-detect-amount 51 | edge-gamma-correction 52 | inMerge 53 | ) 54 | 55 | 56 | (let* ((drawable-width (car (gimp-drawable-width drw))) 57 | (drawable-height (car (gimp-drawable-height drw))) 58 | (image (car (gimp-image-new drawable-width drawable-height RGB))) 59 | (drawable (car (gimp-layer-new image drawable-width drawable-height RGB-IMAGE "Original" 100 LAYER-MODE-NORMAL-LEGACY)))) 60 | 61 | (gimp-image-undo-disable image) 62 | (gimp-image-insert-layer image drawable 0 0) 63 | 64 | (gimp-selection-all img) 65 | (gimp-edit-copy drw) 66 | (gimp-floating-sel-anchor (car (gimp-edit-paste drawable FALSE))) 67 | 68 | (let* ((overlay-layer (car (gimp-layer-copy drawable TRUE))) 69 | (mask-layer (car (gimp-layer-copy drawable TRUE)))) 70 | 71 | (gimp-image-insert-layer image overlay-layer 0 0) 72 | (gimp-image-insert-layer image mask-layer 0 0) 73 | 74 | (if (> edge-blur-radius 0) 75 | (plug-in-gauss-iir TRUE img mask-layer edge-blur-radius TRUE TRUE)) 76 | (plug-in-edge 1 img mask-layer edge-detect-amount 1 0) 77 | 78 | (let* ((mask-channel (car (gimp-layer-create-mask overlay-layer 0)))) 79 | 80 | (gimp-layer-add-mask overlay-layer mask-channel) 81 | 82 | (gimp-edit-copy mask-layer) 83 | (gimp-layer-set-opacity overlay-layer 70.0) 84 | 85 | (gimp-floating-sel-anchor (car (gimp-edit-paste mask-channel FALSE))) 86 | 87 | (gimp-image-remove-layer image mask-layer) 88 | 89 | (plug-in-gauss-iir TRUE image drawable image-blur-radius TRUE TRUE) 90 | (gimp-levels mask-channel 0 0 255 edge-gamma-correction 0 255) 91 | 92 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers image EXPAND-AS-NECESSARY)) 93 | (gimp-image-undo-enable image) 94 | (gimp-display-new image) 95 | (gimp-displays-flush))))) 96 | 97 | (script-fu-register 98 | "210-sharp-blur" 99 | "Sharp Blur" 100 | "Blur image but retain edges." 101 | "Mark Probst (schani@complang.tuwien.ac.at)" 102 | "Mark Probst" 103 | "2004/08/24" 104 | "*" 105 | SF-IMAGE "Image" 0 106 | SF-DRAWABLE "Drawable" 0 107 | SF-ADJUSTMENT "Image blur radius" '(8 0 100 1 10 0 1) 108 | SF-ADJUSTMENT "Edge blur radius" '(4 0 100 1 10 0 1) 109 | SF-ADJUSTMENT "Edge detect amount" '(4 0 50 1 5 0 1) 110 | SF-ADJUSTMENT "Edge gamma correction" '(2 0 10 1 2 0 1) 111 | SF-TOGGLE "Merge layers when complete?" FALSE 112 | ) 113 | (script-fu-menu-register "210-sharp-blur" "/Script-Fu/Sharpness/Softer") 114 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_soft-focus-simple.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_soft-focus-simple.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Soft focus script for GIMP 1.2 42 | ; Copyright (C) 2001 Iccii 43 | ; -------------------------------------------------------------------- 44 | ; version 0.1 by Iccii 2001/07/22 45 | ; - Initial relase 46 | ;============================================================== 47 | 48 | 49 | (define (210-soft-focus-simple 50 | img 51 | drawable 52 | blur 53 | inMerge 54 | ) 55 | 56 | (gimp-image-undo-group-start img) 57 | (define indexed (car (gimp-drawable-is-indexed drawable))) 58 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 59 | 60 | (let* ( 61 | (layer-copy (car (gimp-layer-copy drawable TRUE))) 62 | (layer-mask (car (gimp-layer-create-mask layer-copy ADD-MASK-WHITE ))) 63 | ) 64 | 65 | (gimp-image-insert-layer img layer-copy 0 -1) 66 | (gimp-layer-add-mask layer-copy layer-mask) 67 | (gimp-edit-copy layer-copy) 68 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-mask 0))) 69 | (gimp-layer-remove-mask layer-copy MASK-APPLY) 70 | (plug-in-gauss-iir2 1 img layer-copy blur blur) 71 | (gimp-layer-set-opacity layer-copy 80) 72 | (gimp-layer-set-mode layer-copy LAYER-MODE-SCREEN-LEGACY) 73 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)) 74 | (gimp-image-undo-group-end img) 75 | (gimp-displays-flush) 76 | ) 77 | ) 78 | 79 | (script-fu-register 80 | "210-soft-focus-simple" 81 | "Soft Focus Simple" 82 | "Soft focus effect" 83 | "Iccii " 84 | "Iccii" 85 | "2001, Jul" 86 | "*" 87 | SF-IMAGE "Image" 0 88 | SF-DRAWABLE "Drawable" 0 89 | SF-ADJUSTMENT "Blur Amount" '(10 1 100 1 10 0 0) 90 | SF-TOGGLE "Merge layers when complete?" FALSE 91 | ) 92 | (script-fu-menu-register "210-soft-focus-simple" "/Script-Fu/Sharpness/Softer") 93 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sharpness-softer_wonderful.scm: -------------------------------------------------------------------------------- 1 | ; 210_sharpness-softer_wonderful.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Copyright (C) 2000 Ingo Ruhnke 42 | ;============================================================== 43 | 44 | 45 | (define (210-wonderful 46 | inImage 47 | inDrawable 48 | blurfactor 49 | brightness 50 | contrast 51 | flatten 52 | ) 53 | 54 | (gimp-image-undo-group-start inImage) 55 | (if (not (= RGB (car (gimp-image-base-type inImage)))) 56 | (gimp-image-convert-rgb inImage)) 57 | 58 | (let ((new-layer (car (gimp-layer-copy inDrawable 1)))) 59 | (gimp-image-insert-layer inImage new-layer 0 0) 60 | (plug-in-gauss-iir 1 inImage new-layer blurfactor 1 1) 61 | (gimp-brightness-contrast new-layer brightness contrast) 62 | 63 | (let ((layer-mask (car (gimp-layer-create-mask inDrawable 0)))) 64 | (gimp-layer-add-mask new-layer layer-mask) 65 | (gimp-edit-copy new-layer) 66 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-mask 0))) 67 | (gimp-layer-set-mode new-layer 7) 68 | ) 69 | ) 70 | 71 | (if (= flatten TRUE)(gimp-image-flatten inImage)) 72 | (gimp-displays-flush) 73 | (gimp-image-undo-group-end inImage)) 74 | 75 | (script-fu-register "210-wonderful" 76 | "Make wonderful" 77 | "Creates a new tuxracer level. Version de abcdugimp.free.fr" 78 | "Ingo Ruhnke" 79 | "1999, Ingo Ruhnke" 80 | "2000" 81 | "*" 82 | SF-IMAGE "Image" 0 83 | SF-DRAWABLE "Drawable" 0 84 | SF-ADJUSTMENT "Blur" '(35 0 5600 1 100 0 1) 85 | SF-ADJUSTMENT "Luminosity" '(0 -127 127 1 10 0 1) 86 | SF-ADJUSTMENT "Contrast" '(0 -127 127 1 10 0 1) 87 | SF-TOGGLE "Flatten Image" FALSE 88 | ) 89 | (script-fu-menu-register "210-wonderful" "/Script-Fu/Sharpness/Softer") 90 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sketch_pen-sketch.scm: -------------------------------------------------------------------------------- 1 | ; 210_sketch_pen-sketch.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; 11/23/2007: adapted to GIMP-2.4 by Paul Sherman 24 | ; 10/02/2008: Updated again for v2.6, needed another define... 25 | ; 12/15/2008 - accepts RGB* only, to prevent errors 26 | ; 27 | ; Original information ----------------------------------------------- 28 | ; script by Karl Ward 29 | ; End original information ----------------------------------------- 30 | 31 | (define (210-pen inimage indraw blur) 32 | (define theImage inimage) 33 | (define theDraw indraw) 34 | (gimp-image-undo-group-start theImage) 35 | (define flush (car(gimp-image-flatten theImage))) 36 | (define flush-copy (car(gimp-layer-copy flush 1))) 37 | (gimp-image-insert-layer theImage flush-copy 0 -1) 38 | (define second-copy (car(gimp-layer-copy flush 1))) 39 | (gimp-image-insert-layer theImage second-copy 0 -1) 40 | (gimp-layer-set-mode second-copy 20) 41 | (plug-in-gauss 1 theImage second-copy blur blur 0) 42 | (define width (car (gimp-drawable-width flush))) 43 | (define height (car (gimp-drawable-height flush))) 44 | (define white-layer (car (gimp-layer-new theImage width height 1 "white" 100 13))) 45 | (gimp-drawable-fill white-layer 2) 46 | (gimp-image-insert-layer theImage white-layer 0 -1) 47 | (gimp-item-set-visible flush 0) 48 | (define flat-grey (car(gimp-image-merge-visible-layers theImage 0))) 49 | (define (plug-in-color-map 1 theImage flat-grey '(0 0 0) '(128 128 128) '(00 00 00) '(256 256 256) 0)) 50 | (define outline-copy (car(gimp-layer-copy flat-grey 1))) 51 | (gimp-image-insert-layer theImage outline-copy 0 -1) 52 | (plug-in-colortoalpha 1 theImage outline-copy '(256 256 256)) 53 | (gimp-layer-set-mode outline-copy 17) 54 | (define final-outline (car(gimp-image-merge-visible-layers theImage 0))) 55 | (define copy-count 1) 56 | (while (<= copy-count 4 ) 57 | (define copy (car(gimp-layer-copy final-outline 1))) 58 | (gimp-image-insert-layer theImage copy 0 -1) 59 | (gimp-layer-set-mode copy 17) 60 | (set! copy-count (+ copy-count 1))) 61 | (gimp-layer-set-mode final-outline 17) 62 | 63 | (gimp-item-set-visible flush 1) 64 | (gimp-layer-add-alpha flush) 65 | (gimp-layer-set-opacity flush 70) 66 | (set! white-layer (car (gimp-layer-new theImage width height 1 "white" 100 0))) 67 | (gimp-drawable-fill white-layer 2) 68 | (gimp-image-insert-layer theImage white-layer 0 -1) 69 | (gimp-image-lower-item-to-bottom theImage white-layer) 70 | (gimp-image-flatten theImage) 71 | (gimp-image-undo-group-end theImage) 72 | (gimp-displays-flush) 73 | ) 74 | (script-fu-register "210-pen" 75 | "Pen Drawn" 76 | "This filter changes any image into a image that appears to have been drawn woth ink" 77 | "Karl Ward" 78 | "Karl Ward" 79 | "OCT 2006" 80 | "RGB*" 81 | SF-IMAGE "SF-IMAGE" 0 82 | SF-DRAWABLE "SF-DRAWABLE" 0 83 | SF-ADJUSTMENT "Line thickess" '(25 1 100 1 5 0 0) 84 | ) 85 | (script-fu-menu-register "210-pen" "/Script-Fu/Sketch") 86 | 87 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sketch_quick-sketch.scm: -------------------------------------------------------------------------------- 1 | ; 210_sketch_quick-sketch.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; 10/14/2008 24 | ; Modified by Paul Sherman 25 | ; in accordence with post by char101 on 26 | ; http://registry.gimp.org/node/5921 27 | ; Also changed menu location. 28 | ; 10/15/2010 - bumped INDEXED* to prevent errors 29 | ; 02/15/2014 - accommodated indexed images properly 30 | ; 31 | ; LICENSE 32 | ; 33 | ; This program is free software: you can redistribute it and/or modify 34 | ; it under the terms of the GNU General Public License as published by 35 | ; the Free Software Foundation, either version 3 of the License, or 36 | ; (at your option) any later version. 37 | ; 38 | ; This program is distributed in the hope that it will be useful, 39 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 40 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 41 | ; GNU General Public License for more details. 42 | ; 43 | ; You should have received a copy of the GNU General Public License 44 | ; along with this program. If not, see . 45 | ; 46 | ;============================================================== 47 | ; Original information 48 | ; 49 | ; Quick sketch is a script for The GIMP 50 | ; Quick sketch turns a photo into what looks like a artists sketch 51 | ; The script is located in " / Script-Fu / Artistic / Quick sketch..." 52 | ; Last changed: 14 June 2008 53 | ; Copyright (C) 2007 Harry Phillips 54 | ;============================================================== 55 | 56 | 57 | (define (210-quick-sketch 58 | theImage 59 | theLayer 60 | blurAmount 61 | ) 62 | 63 | (gimp-image-undo-group-start theImage) 64 | (define indexed (car (gimp-drawable-is-indexed theLayer))) 65 | (if (= indexed TRUE)(gimp-image-convert-rgb theImage)) 66 | 67 | ;Initiate some variables 68 | (let* ( 69 | (layerCopy 0) 70 | (layerGrey (car (gimp-drawable-is-gray theLayer))) 71 | ) 72 | 73 | ;Rename the layer 74 | (gimp-item-set-name theLayer "Original") 75 | 76 | ;Select none 77 | (gimp-selection-none theImage) 78 | 79 | ;Change the layer Greyscale if it isn't already 80 | (if (= layerGrey 0) (gimp-desaturate theLayer)) 81 | 82 | (set! layerCopy (car (gimp-layer-copy theLayer 1))) 83 | 84 | ;Copy the layer 85 | (gimp-image-insert-layer theImage layerCopy 0 0) 86 | 87 | ;Rename the layer 88 | (gimp-item-set-name layerCopy "Dodge layer") 89 | 90 | ;Invert the layer 91 | (gimp-invert layerCopy) 92 | 93 | ;Change the layers mode 94 | (gimp-layer-set-mode layerCopy 16) 95 | 96 | ;Blur the dodge layer 97 | (plug-in-gauss 1 theImage layerCopy blurAmount blurAmount 0) 98 | 99 | ) 100 | 101 | (gimp-image-undo-group-end theImage) 102 | (gimp-displays-flush) 103 | ) 104 | 105 | (script-fu-register "210-quick-sketch" 106 | "Quick sketch" 107 | "Create a sketch from a photo" 108 | "Harry Phillips" 109 | "Harry Phillips" 110 | "Sep. 9 2007" 111 | "*" 112 | SF-IMAGE "Image" 0 113 | SF-DRAWABLE "Drawable" 0 114 | SF-ADJUSTMENT "Blur factor" '(30 5 200 1 1 0 1) 115 | ) 116 | 117 | (script-fu-menu-register "210-quick-sketch" "/Script-Fu/Sketch") 118 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sketch_sketch-drawing.scm: -------------------------------------------------------------------------------- 1 | ; 210_sketch_sketch-drawing.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; 02/15/2014 - accommodated indexed images, 24 | ; added option to flatten upon completion (and made flatten default) 25 | ; 26 | ; LICENSE 27 | ; 28 | ; This program is free software: you can redistribute it and/or modify 29 | ; it under the terms of the GNU General Public License as published by 30 | ; the Free Software Foundation, either version 3 of the License, or 31 | ; (at your option) any later version. 32 | ; 33 | ; This program is distributed in the hope that it will be useful, 34 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 35 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 36 | ; GNU General Public License for more details. 37 | ; 38 | ; You should have received a copy of the GNU General Public License 39 | ; along with this program. If not, see . 40 | ; 41 | ;============================================================== 42 | ; Original information 43 | ; 44 | ; Drawing script for GIMP 2.2 45 | ; Copyright (C) 2007 Eddy Verlinden 46 | ;============================================================== 47 | 48 | 49 | (define (210-drawing 50 | img 51 | drawable 52 | thickness 53 | inFlatten 54 | ) 55 | 56 | (gimp-image-undo-group-start img) 57 | (define indexed (car (gimp-drawable-is-indexed drawable))) 58 | (if (= indexed TRUE)(gimp-image-convert-rgb img)) 59 | 60 | (let* ( 61 | (width (car (gimp-drawable-width drawable))) 62 | (height (car (gimp-drawable-height drawable))) 63 | (old-selection (car (gimp-selection-save img))) 64 | (thf (* height 0.005 thickness )) 65 | (image-type (car (gimp-image-base-type img))) 66 | (layer-type (car (gimp-drawable-type drawable))) 67 | (layer-temp1 (car (gimp-layer-new img width height layer-type "temp1" 100 LAYER-MODE-NORMAL-LEGACY))) 68 | (layer-temp2 (car (gimp-layer-new img width height layer-type "temp2" 100 LAYER-MODE-NORMAL-LEGACY))) 69 | ) 70 | 71 | (if (eqv? (car (gimp-selection-is-empty img)) TRUE) 72 | (gimp-drawable-fill old-selection 2)) ; so Empty and All are the same. 73 | (gimp-selection-none img) 74 | (gimp-image-insert-layer img layer-temp1 0 -1) 75 | (gimp-image-insert-layer img layer-temp2 0 -1) 76 | (gimp-edit-copy drawable) 77 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp1 0))) 78 | 79 | (if (eqv? (car (gimp-drawable-is-gray drawable)) FALSE) 80 | (gimp-desaturate layer-temp1)) 81 | (gimp-edit-copy layer-temp1) 82 | (gimp-floating-sel-anchor (car (gimp-edit-paste layer-temp2 0))) 83 | (gimp-invert layer-temp2) 84 | (plug-in-gauss 1 img layer-temp2 thf thf 0) 85 | (gimp-layer-set-mode layer-temp2 16) 86 | (gimp-image-merge-down img layer-temp2 0) 87 | (set! layer-temp1 (car (gimp-image-get-active-layer img))) 88 | (gimp-levels layer-temp1 0 215 235 1.0 0 255) 89 | 90 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 91 | (gimp-selection-invert img) 92 | (if (eqv? (car (gimp-selection-is-empty img)) FALSE) ; both Empty and All are denied 93 | (begin 94 | (gimp-edit-clear layer-temp1) 95 | )) 96 | 97 | (gimp-item-set-name layer-temp1 "Drawing") 98 | (gimp-image-select-item img CHANNEL-OP-REPLACE old-selection) 99 | (gimp-image-remove-channel img old-selection) 100 | 101 | (if (= inFlatten TRUE)(gimp-image-flatten img)) 102 | (gimp-image-undo-group-end img) 103 | (gimp-displays-flush) 104 | ) 105 | ) 106 | 107 | (script-fu-register 108 | "210-drawing" 109 | "Drawing" 110 | "Creates a drawing.\n\nThis version lets you adjust the line thickness." 111 | "Eddy Verlinden " 112 | "Eddy Verlinden" 113 | "2007, juli" 114 | "*" 115 | SF-IMAGE "Image" 0 116 | SF-DRAWABLE "Drawable" 0 117 | SF-ADJUSTMENT "thickness" '(2 1 5 1 1 0 0) 118 | SF-TOGGLE "Flatten image when complete?" TRUE 119 | ) 120 | (script-fu-menu-register "210-drawing" "/Script-Fu/Sketch") 121 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_sketch_synthetic_edge.scm: -------------------------------------------------------------------------------- 1 | ; 210_sketch_synthetic-edges.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 02/15/2014 - accommodate indexed images, 23 | ; added option to merge layers upon completion 24 | ; 25 | ; LICENSE 26 | ; 27 | ; This program is free software: you can redistribute it and/or modify 28 | ; it under the terms of the GNU General Public License as published by 29 | ; the Free Software Foundation, either version 3 of the License, or 30 | ; (at your option) any later version. 31 | ; 32 | ; This program is distributed in the hope that it will be useful, 33 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 34 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 35 | ; GNU General Public License for more details. 36 | ; 37 | ; You should have received a copy of the GNU General Public License 38 | ; along with this program. If not, see . 39 | ; 40 | ;============================================================== 41 | ; Original information 42 | ; 43 | ; version 0.1 by Jeff Trefftzs 44 | ; - Initial relase 45 | ; version 0.2 Raymond Ostertag 46 | ; - ported to Gimp 2.0, changed menu entry 47 | ;============================================================== 48 | 49 | 50 | (define (210-synthetic-edges 51 | inImage 52 | inLayer 53 | inWeight 54 | inMono 55 | inMerge 56 | ) 57 | 58 | (gimp-image-undo-group-start inImage) 59 | (define indexed (car (gimp-drawable-is-indexed inLayer))) 60 | (if (= indexed TRUE)(gimp-image-convert-rgb inImage)) 61 | 62 | (let* 63 | ( 64 | (EdgeLayer (car (gimp-layer-copy inLayer TRUE))) 65 | (tmpLayer (car (gimp-layer-copy inLayer TRUE))) 66 | ) 67 | (gimp-image-insert-layer inImage EdgeLayer 0 -1) 68 | (gimp-item-set-name EdgeLayer "Synthetic Edges") 69 | 70 | ; Real work goes in here 71 | (gimp-image-insert-layer inImage tmpLayer 0 -1) 72 | (gimp-layer-set-mode tmpLayer DIVIDE-MODE) 73 | (plug-in-gauss-iir TRUE inImage tmpLayer inWeight TRUE TRUE) 74 | (set! EdgeLayer 75 | (car (gimp-image-merge-down inImage tmpLayer 76 | EXPAND-AS-NECESSARY))) 77 | (gimp-levels EdgeLayer HISTOGRAM-VALUE 78 | (- 255 inWeight) ; low input 79 | 255 ; high input 80 | 1.0 ; gamma 81 | 0 255) ; output 82 | 83 | (gimp-layer-set-mode EdgeLayer LAYER-MODE-NORMAL-LEGACY) 84 | (if (= inMono TRUE) 85 | (gimp-desaturate EdgeLayer) 86 | ) 87 | 88 | (gimp-image-set-active-layer inImage inLayer) 89 | (if (= inMerge TRUE)(gimp-image-merge-visible-layers inImage EXPAND-AS-NECESSARY)) 90 | (gimp-image-undo-group-end inImage) 91 | (gimp-displays-flush) 92 | ) 93 | ) 94 | 95 | (script-fu-register "210-synthetic-edges" 96 | "Synthetic Edges" 97 | "Synthetic edge detection merges a blurred copy in DIVIDE-MODE with a copy of the original image. The edges are then enhanced with levels (255 - blur radius) becomes the lower limit for input." 98 | "Jeff Trefftzs" 99 | "Copyright 2002, Jeff Trefftzs" 100 | "January 12, 2002" 101 | "*" 102 | SF-IMAGE "The Image" 0 103 | SF-DRAWABLE "The Layer" 0 104 | SF-ADJUSTMENT "Line Weight (Fine) 1 <----> 128 (Thick)" '(5 1 128 1 8 0 1) 105 | SF-TOGGLE "Monochrome?" FALSE 106 | SF-TOGGLE "Merge layers when complete?" TRUE 107 | ) 108 | (script-fu-menu-register "210-synthetic-edges" "/Script-Fu/Sketch") 109 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_stroked_text.scm: -------------------------------------------------------------------------------- 1 | ; 210_stroked_text.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 10/01/2008 23 | ; Modified to remove deprecated procedures as listed: 24 | ; gimp-text-fontname ==> gimp-text-fontname-fontname 25 | ; 26 | ; Updated to Gimp2.4 (11-2007) http://gimpscripts.com 27 | ; 28 | ; Updated again to not throw error - 11/30/2007 29 | ; 30 | ; 10/15/2010 - added routine to change non-RGB to RGB image 31 | ; text is basically worthless if not color, and throws an 32 | ; error if not... so what the hell. Also changed some default values 33 | ; for better looking text. 34 | ; 02/15/2014 - accommodate indexed images, cleaned code, relabeled to "Outlined text" 35 | ; 36 | ; LICENSE 37 | ; 38 | ; This program is free software: you can redistribute it and/or modify 39 | ; it under the terms of the GNU General Public License as published by 40 | ; the Free Software Foundation, either version 3 of the License, or 41 | ; (at your option) any later version. 42 | ; 43 | ; This program is distributed in the hope that it will be useful, 44 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 45 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 46 | ; GNU General Public License for more details. 47 | ; 48 | ; You should have received a copy of the GNU General Public License 49 | ; along with this program. If not, see . 50 | ; 51 | ;============================================================== 52 | ; Original information 53 | ; 54 | ; NOT AVAILABLE 55 | ;============================================================== 56 | ; 57 | 58 | (define (210-stroked-text 59 | theImage 60 | theDraw 61 | text 62 | font 63 | font-size 64 | stroke 65 | text-colour 66 | stroke-colour 67 | ) 68 | 69 | (let* 70 | ( 71 | (text-layer 0) 72 | (textheight 0) 73 | (textheight2 0) 74 | (textwidth 0) 75 | (textwidth2 0) 76 | (stroke-layer 0) 77 | ) 78 | 79 | (gimp-image-undo-group-start theImage) 80 | (if (not (= RGB (car (gimp-image-base-type theImage)))) 81 | (gimp-image-convert-rgb theImage)) 82 | 83 | (gimp-context-set-foreground text-colour) 84 | (set! text-layer (gimp-text-fontname theImage -1 0 0 text 0 TRUE font-size PIXELS font)) 85 | (set! textheight (car (gimp-drawable-height (car text-layer)))) 86 | (set! textwidth (car (gimp-drawable-width (car text-layer)))) 87 | (gimp-layer-resize (car text-layer) (+ textwidth (* 2 stroke)) (+ textheight (* 2 stroke)) stroke stroke) 88 | (gimp-layer-translate (car text-layer) stroke stroke) 89 | (gimp-image-select-item theImage CHANNEL-OP-REPLACE (car text-layer)) 90 | (gimp-selection-grow theImage stroke) 91 | (gimp-context-set-foreground stroke-colour) 92 | (set! textheight2 (car (gimp-drawable-height (car text-layer)))) 93 | (set! textwidth2 (car (gimp-drawable-width (car text-layer)))) 94 | 95 | (set! stroke-layer (gimp-layer-new theImage textwidth2 textheight2 1 "inset" 100 0) ) 96 | (gimp-drawable-fill (car stroke-layer) 3) 97 | (gimp-image-insert-layer theImage (car stroke-layer) 0 -1) 98 | (gimp-edit-bucket-fill (car stroke-layer) 0 LAYER-MODE-NORMAL-LEGACY 100 0 0 0 0 ) 99 | (gimp-image-lower-item theImage (car stroke-layer)) 100 | (gimp-selection-none theImage) 101 | (gimp-image-merge-down theImage (car text-layer) 0 ) 102 | 103 | (gimp-image-undo-group-end theImage) 104 | (gimp-displays-flush) 105 | )) 106 | (script-fu-register "210-stroked-text" 107 | "Outlined text" 108 | "Creates outlined (stroked) text on image." 109 | "Karl Ward" 110 | "Karl Ward" 111 | "Feb 2006" 112 | "*" 113 | SF-IMAGE "SF-IMAGE" 0 114 | SF-DRAWABLE "SF-DRAWABLE" 0 115 | SF-STRING "Text" "Stroked" 116 | SF-FONT "Font" "Sans" 117 | SF-ADJUSTMENT "Font-size" '(80 1 300 1 10 0 1) 118 | SF-ADJUSTMENT "Stroke" '(3 1 20 1 1 1 0) 119 | SF-COLOR "Text colour" '(70 180 243) 120 | SF-COLOR "Stroke colour" '(0 0 0) 121 | ) 122 | (script-fu-menu-register "210-stroked-text" "/Script-Fu") 123 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_texture_stained-glass.scm: -------------------------------------------------------------------------------- 1 | ; 210_texture_stained-glass.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Stained glass script for GIMP 1.2 42 | ; Copyright (C) 2001 Iccii 43 | ; 44 | ; You'll find that this script isn't "real" staind glass effect 45 | ; Plese tell me how to create if you know more realistic effect 46 | ; This script is only applying the mosac plugin ;-( 47 | ; --> Eddy Verlinden : tile spacing bigger and light-direction set to 270 + added copy-layer3 in screenmode 48 | ; -------------------------------------------------------------------- 49 | ; version 0.1 by Iccii 2001/07/21 50 | ; - Initial relase 51 | ; this version 9 april 2006 52 | ;============================================================== 53 | 54 | 55 | (define (210-stained-glass 56 | img 57 | drawable 58 | tile-size 59 | ) 60 | (gimp-image-undo-group-start img) 61 | (if (not (= RGB (car (gimp-image-base-type img))))(gimp-image-convert-rgb img)) 62 | (plug-in-mosaic 1 img drawable tile-size 1 2.5 0.65 0 270.0 0.25 TRUE TRUE 1 0 0) 63 | (let* ( 64 | (copy-layer1 (car (gimp-layer-copy drawable 1))) 65 | (copy-layer2 (car (gimp-layer-copy drawable 1))) 66 | (copy-layer3 (car (gimp-layer-copy drawable 1))) 67 | ) 68 | (gimp-image-insert-layer img copy-layer1 0 -1) 69 | (gimp-image-insert-layer img copy-layer2 0 -1) 70 | (gimp-layer-set-mode copy-layer1 OVERLAY-MODE) 71 | (gimp-layer-set-mode copy-layer2 OVERLAY-MODE) 72 | (gimp-layer-set-opacity copy-layer1 100) 73 | (gimp-layer-set-opacity copy-layer2 100) 74 | (gimp-image-merge-down img (car (gimp-image-merge-down img copy-layer2 EXPAND-AS-NECESSARY)) EXPAND-AS-NECESSARY) 75 | (gimp-image-insert-layer img copy-layer3 0 -1) 76 | (gimp-layer-set-mode copy-layer3 SCREEN-MODE) 77 | (gimp-layer-set-opacity copy-layer3 100) 78 | (gimp-image-merge-down img copy-layer3 EXPAND-AS-NECESSARY) 79 | ) 80 | (gimp-image-undo-group-end img) 81 | (gimp-displays-flush) 82 | ) 83 | (script-fu-register "210-stained-glass" 84 | "Stained Glass" 85 | "Create stained glass image" 86 | "Iccii " 87 | "Iccii" 88 | "2001, Jul" 89 | "*" 90 | SF-IMAGE "Image" 0 91 | SF-DRAWABLE "Drawable" 0 92 | SF-ADJUSTMENT "Cell Size (pixels)" '(18 5 100 1 10 0 1) 93 | ) 94 | (script-fu-menu-register "210-stained-glass" "/Script-Fu/Texture") 95 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/210_watermark.scm: -------------------------------------------------------------------------------- 1 | ; 210_watermark.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; 10/01/2008 - by Paul Sherman 24 | ; Modified to remove deprecated procedures 25 | ; 26 | ; 12/15/2008 - by Paul Sherman 27 | ; modified to merge watermark layer rather than flatten image 28 | ; 29 | ; 02/15/2014 - accommodate indexed images, add option to leave on separate layer 30 | ; add copyright symbol and added information about "Copyright text" script. 31 | ; 32 | ; LICENSE 33 | ; 34 | ; This program is free software: you can redistribute it and/or modify 35 | ; it under the terms of the GNU General Public License as published by 36 | ; the Free Software Foundation, either version 3 of the License, or 37 | ; (at your option) any later version. 38 | ; 39 | ; This program is distributed in the hope that it will be useful, 40 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 41 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 42 | ; GNU General Public License for more details. 43 | ; 44 | ; You should have received a copy of the GNU General Public License 45 | ; along with this program. If not, see . 46 | ; 47 | ;============================================================== 48 | ; Original information 49 | ; 50 | ; Write a watermark in a corner of the image 51 | ; script by Doug Reynolds 52 | ;============================================================== 53 | 54 | 55 | (define (210-watermark 56 | image 57 | drawable 58 | text 59 | font 60 | pixsize 61 | location 62 | opacity 63 | inSeparate-layer 64 | ) 65 | 66 | (gimp-image-undo-group-start image) 67 | (define indexed (car (gimp-drawable-is-indexed drawable))) 68 | (if (= indexed TRUE)(gimp-image-convert-rgb image)) 69 | 70 | (let* 71 | ;Save the foreground color 72 | ((old-fg (car (gimp-context-get-foreground)))) 73 | 74 | ;Set the foreground color to white 75 | (gimp-context-set-foreground '(255 255 255)) 76 | 77 | (let* 78 | 79 | ;Set the X and Y locations offset by 10 pixels from the chosen corner 80 | ((imagewid (car (gimp-image-width image))) 81 | (imagehgt (car (gimp-image-height image))) 82 | (ytext 83 | (cond ((<= location 1) (- (- imagehgt pixsize) 10)) 84 | ((>= location 2) 0))) 85 | (textwid (car (gimp-text-get-extents-fontname text pixsize 0 font))) 86 | (xtext 87 | (cond ((= (fmod location 2) 0) 10) 88 | ((= (fmod location 2) 1) (- (- imagewid textwid) 10)))) 89 | 90 | ;Create a layer with the watermark text 91 | (tlayer (car (gimp-text-fontname image -1 xtext ytext text -1 TRUE pixsize 0 font))) 92 | ) 93 | 94 | ;Bump map the watermark layer 95 | (plug-in-bump-map 1 image tlayer tlayer 135 45 3 0 0 0 0 1 0 0) 96 | 97 | ;Set the opacity of the watermark layer 98 | (gimp-layer-set-opacity tlayer opacity) 99 | 100 | ; Merge watermark layer with bottom layer 101 | (if (= inSeparate-layer FALSE)(gimp-image-merge-down image tlayer 2)) 102 | 103 | ); end let 104 | 105 | ;Restore the old foreground color 106 | (gimp-context-set-foreground old-fg) 107 | ) 108 | 109 | ;Finish the undo group for the process 110 | (gimp-image-undo-group-end image) 111 | 112 | ;Update the display 113 | (gimp-displays-flush) 114 | ) 115 | 116 | (script-fu-register "210-watermark" 117 | "Watermark" 118 | "Watermark on corner of your choice.\nNice transparent emboss effect.\n\nAlso allows choice of font, size and opacity.\n\nFor a watermark with more options, see \nSCRIPT-FU > PHOTO > COPYRIGHT TEXT" 119 | "Doug Reynolds" 120 | "Doug Reynolds" 121 | "2001/04/12" 122 | "*" 123 | SF-IMAGE "Input Image" 0 124 | SF-DRAWABLE "Input Drawable" 0 125 | SF-STRING "Text String" "\302\251Paul Sherman" 126 | SF-FONT "Font" "sans" 127 | SF-ADJUSTMENT "Size (pixels)" '(30 0 1000 5 10 0 1) 128 | SF-OPTION "Location" '("Lower left" "Lower right" "Upper left" "Upper right") 129 | SF-ADJUSTMENT "Opacity" '(20 0 100 5 10 0 1) 130 | SF-TOGGLE "Leave as separate layer?" FALSE 131 | ) 132 | (script-fu-menu-register "210-watermark" "/Script-Fu") 133 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_angledstrokes.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=angled strokes effect. 3 | name=ev_angledstrokes.txt 4 | orientnum=4 5 | orientfirst=135.000000 6 | orientlast=360.000000 7 | orienttype=5 8 | sizenum=3 9 | sizefirst=10.000000 10 | sizelast=20.000000 11 | sizetype=6 12 | brushrelief=0.000000 13 | brushdensity=20.000000 14 | brushgamma=1.000000 15 | brushaspect=-0.200000 16 | generalbgtype=1 17 | generaldarkedge=0.000000 18 | generalpaintedges=1 19 | generaltileable=0 20 | generaldropshadow=0 21 | generalshadowdarkness=0.000000 22 | generalshadowdepth=0 23 | generalshadowblur=0 24 | devthresh=0.000000 25 | paperrelief=0.000000 26 | paperscale=30.000000 27 | paperinvert=0 28 | paperoverlay=0 29 | selectedbrush=Brushes/defaultbrush.pgm 30 | selectedpaper=Paper/defaultpaper.pgm 31 | color=ffffff 32 | placetype=1 33 | placecenter=0 34 | numorientvector=1 35 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 36 | orientangoff=1.000000 37 | orientstrexp=1.000000 38 | orientvoronoi=0 39 | numsizevector=1 40 | sizevector=0,0.500000,0.500000,0.000000,0.000000 41 | sizestrexp=0.000000 42 | sizevoronoi=0 43 | colortype=0 44 | colornoise=0.000000 45 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_coloredpencil.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=colored pencil effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/crayon04.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=0.000000 14 | 15 | orientnum=2 16 | orientfirst=45.000000 17 | orientlast=180.000000 18 | orienttype=2 19 | 20 | sizenum=8 21 | sizefirst=6.000000 22 | sizelast=20.000000 23 | sizetype=6 24 | 25 | placetype=1 26 | brushdensity=45.000000 27 | placecenter=0 28 | 29 | generalbgtype=0 30 | color=999999 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_crayon_full.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/gimpressionist/Presets/ev_crayon_full.txt -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_crayon_half.txt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/gimpressionist/Presets/ev_crayon_half.txt -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_crosshatched.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=crosshatched effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/crayon04.pgm 11 | brushgamma=1.000000 12 | brushaspect=-0.100000 13 | brushrelief=0.000000 14 | 15 | orientnum=2 16 | orientfirst=45.000000 17 | orientlast=180.000000 18 | orienttype=2 19 | 20 | sizenum=2 21 | sizefirst=10.000000 22 | sizelast=15.000000 23 | sizetype=6 24 | 25 | placetype=1 26 | brushdensity=20.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=0 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_cubic.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=cubic dots effect. 3 | name=ev_cubic.txt 4 | orientnum=1 5 | orientfirst=0.000000 6 | orientlast=0.000000 7 | orienttype=6 8 | sizenum=1 9 | sizefirst=12.000000 10 | sizelast=12.000000 11 | sizetype=6 12 | brushrelief=0.000000 13 | brushdensity=14.566775 14 | brushgamma=1.000000 15 | brushaspect=0.000000 16 | generalbgtype=0 17 | generaldarkedge=0.100000 18 | generalpaintedges=0 19 | generaltileable=0 20 | generaldropshadow=0 21 | generalshadowdarkness=20.000000 22 | generalshadowdepth=10 23 | generalshadowblur=4 24 | devthresh=0.100000 25 | paperrelief=0.000000 26 | paperscale=30.000000 27 | paperinvert=0 28 | paperoverlay=0 29 | selectedbrush=Brushes\shape01.pgm 30 | selectedpaper=Paper\defaultpaper.pgm 31 | color=000000 32 | placetype=1 33 | placecenter=1 34 | numorientvector=1 35 | orientvector=0,0.000000,0.000000,0.000000,0.000000,0.000000,1.000000,0 36 | orientangoff=0.000000 37 | orientstrexp=1.000000 38 | orientvoronoi=0 39 | numsizevector=0 40 | sizestrexp=0.000000 41 | sizevoronoi=0 42 | colortype=0 43 | colornoise=0.000000 44 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_drybrush.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=for dry brush effect, add Unsharp Mask!. 3 | orientnum=12 4 | orientfirst=0.000000 5 | orientlast=180.000000 6 | orienttype=6 7 | sizenum=4 8 | sizefirst=20.000000 9 | sizelast=40.000000 10 | sizetype=6 11 | brushrelief=0.000000 12 | brushdensity=25.000000 13 | brushgamma=1.000000 14 | brushaspect=0.000000 15 | generalbgtype=1 16 | generaldarkedge=0 17 | generalpaintedges=1 18 | generaltileable=0 19 | generaldropshadow=0 20 | generalshadowdarkness=0 21 | devthresh=0.100000 22 | paperrelief=0.000000 23 | paperscale=30.000000 24 | paperinvert=0 25 | paperoverlay=0 26 | selectedbrush=Brushes/defaultbrush.pgm 27 | selectedpaper=Paper/defaultpaper.pgm 28 | color=ffffff 29 | placetype=0 30 | placecenter=0 31 | colortype=0 32 | colornoise=0.000000 33 | 34 | numorientvector=1 35 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 36 | orientangoff=0.000000 37 | orientstrexp=1.000000 38 | orientvoronoi=0 39 | numsizevector=1 40 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 41 | sizeangoff=0.000000 42 | sizestrexp=0.000000 43 | sizevoronoi=0 44 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_inkpen.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=inkpen in reverse. 3 | name = ev_inkpen.txt 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperrelief=0.000000 6 | paperscale=100.000000 7 | paperinvert=0 8 | paperoverlay=0 9 | 10 | selectedbrush=Brushes/wavy.pgm 11 | brushrelief=0.000000 12 | brushgamma=-1.000000 13 | brushaspect=-1.000000 14 | 15 | orientnum=4 16 | orientfirst=45.000000 17 | orientlast=360.000000 18 | orienttype=2 19 | 20 | numorientvector=1 21 | orientvector=0,0.00000,0.00000,0.000000,0.000000,0.000000,1.000000,0 22 | orientangoff=0.000000 23 | orientstrexp=1.000000 24 | orientvoronoi=0 25 | 26 | sizenum=3 27 | sizefirst=50.000000 28 | sizelast=100.000000 29 | sizetype=2 30 | 31 | numsizevector=0 32 | sizevector=0,0.00000,0.00000,0.000000,0.000000,0 33 | sizeangoff=0.000000 34 | sizestrexp=0.000000 35 | sizevoronoi=0 36 | 37 | placetype=0 38 | brushdensity=50.000000 39 | placecenter=0 40 | 41 | colortype=0 42 | colornoise=0.00000 43 | 44 | 45 | generalbgtype=0 46 | color=000000 47 | generalpaintedges=1 48 | generaltileable=0 49 | generaldropshadow=0 50 | 51 | generaldarkedge=0 52 | generalshadowdarkness=0 53 | generalshadowdepth=0 54 | generalshadowblur=0 55 | devthresh=0 56 | 57 | 58 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_oilpaint.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=oilpaint effect. 3 | 4 | selectedpaper=Paper/struc.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/dribble.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.250000 13 | brushrelief=0.000000 14 | 15 | orientnum=5 16 | orientfirst=300.000000 17 | orientlast=30.000000 18 | orienttype=6 19 | 20 | sizenum=5 21 | sizefirst=12.000000 22 | sizelast=22.000000 23 | sizetype=6 24 | 25 | placetype=0 26 | brushdensity=15.000000 27 | placecenter=0 28 | 29 | colortype=0 30 | colornoise=0.000000 31 | 32 | generalbgtype=1 33 | color=ffffff 34 | generaldarkedge=0 35 | generalpaintedges=1 36 | generaltileable=0 37 | generaldropshadow=1 38 | generalshadowdarkness=10 39 | generalshadowdepth=1 40 | generalshadowblur=0 41 | devthresh=0.000000 42 | 43 | numorientvector=1 44 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 45 | orientangoff=1.000000 46 | orientstrexp=1.000000 47 | orientvoronoi=0 48 | numsizevector=1 49 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 50 | sizeangoff=0.000000 51 | sizestrexp=0.000000 52 | sizevoronoi=0 53 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_painted.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=painted daubs effect. 3 | orientnum=1 4 | orientfirst=47.790001 5 | orientlast=0.000000 6 | orienttype=0 7 | sizenum=1 8 | sizefirst=8.000000 9 | sizelast=8.000000 10 | sizetype=1 11 | brushrelief=0.000000 12 | brushdensity=25.000000 13 | brushgamma=1.000000 14 | brushaspect=0.000000 15 | generalbgtype=1 16 | generaldarkedge=0 17 | generalpaintedges=1 18 | generaltileable=0 19 | generaldropshadow=0 20 | generalshadowdarkness=0 21 | devthresh=0.100000 22 | paperrelief=0.000000 23 | paperscale=30.000000 24 | paperinvert=0 25 | paperoverlay=0 26 | selectedbrush=Brushes/shape02.pgm 27 | selectedpaper=Paper/defaultpaper.pgm 28 | color=ffffff 29 | placetype=0 30 | placecenter=0 31 | numorientvector=1 32 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 33 | orientangoff=0.000000 34 | orientstrexp=1.000000 35 | orientvoronoi=0 36 | numsizevector=1 37 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 38 | sizeangoff=0.000000 39 | sizestrexp=0.000000 40 | sizevoronoi=0 41 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_paletknife.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=palet knife effect. 3 | 4 | selectedpaper=Paper/struc.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/splat3.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=50.000000 14 | 15 | orientnum=5 16 | orientfirst=270.000000 17 | orientlast=30.000000 18 | orienttype=6 19 | 20 | sizenum=5 21 | sizefirst=40.000000 22 | sizelast=56.000000 23 | sizetype=6 24 | 25 | placetype=1 26 | brushdensity=10.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=1 35 | generalshadowdarkness=60 36 | generalshadowdepth=1 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_paletknife2.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=palet knife effect. 3 | 4 | selectedpaper=Paper/struc.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/paper01.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=50.000000 14 | 15 | orientnum=5 16 | orientfirst=345.000000 17 | orientlast=60.000000 18 | orienttype=6 19 | 20 | sizenum=5 21 | sizefirst=10.000000 22 | sizelast=14.000000 23 | sizetype=6 24 | 25 | placetype=1 26 | brushdensity=10.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=1 35 | generalshadowdarkness=30 36 | generalshadowdepth=1 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_pointilize.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=pointilism effect. 3 | orientnum=1 4 | orientfirst=47.790001 5 | orientlast=0.000000 6 | orienttype=0 7 | sizenum=1 8 | sizefirst=3.000000 9 | sizelast=3.000000 10 | sizetype=1 11 | brushrelief=0.000000 12 | brushdensity=8.000000 13 | brushgamma=1.000000 14 | brushaspect=0.000000 15 | generalbgtype=0 16 | generaldarkedge=0 17 | generalpaintedges=1 18 | generaltileable=0 19 | generaldropshadow=0 20 | generalshadowdarkness=0 21 | devthresh=0.100000 22 | paperrelief=0.000000 23 | paperscale=30.000000 24 | paperinvert=0 25 | paperoverlay=0 26 | selectedbrush=Brushes/shape02.pgm 27 | selectedpaper=Paper/defaultpaper.pgm 28 | color=ffffff 29 | placetype=0 30 | placecenter=0 31 | numorientvector=1 32 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 33 | orientangoff=0.000000 34 | orientstrexp=1.000000 35 | orientvoronoi=0 36 | numsizevector=1 37 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 38 | sizeangoff=0.000000 39 | sizestrexp=0.000000 40 | sizevoronoi=0 41 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_roughpastels.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=colored pencil effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/crayon04.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=0.000000 14 | 15 | orientnum=1 16 | orientfirst=135.000000 17 | orientlast=0.000000 18 | orienttype=5 19 | 20 | sizenum=4 21 | sizefirst=11.000000 22 | sizelast=14.000000 23 | sizetype=5 24 | 25 | placetype=1 26 | brushdensity=40.000000 27 | placecenter=0 28 | 29 | generalbgtype=0 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_smudgestick.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=smudge stick effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/spunge01.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=0.000000 14 | 15 | orientnum=1 16 | orientfirst=45.000000 17 | orientlast=0.000000 18 | orienttype=0 19 | 20 | sizenum=1 21 | sizefirst=7.000000 22 | sizelast=8.000000 23 | sizetype=0 24 | 25 | placetype=1 26 | brushdensity=30.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=0 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_spatter.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=painted daubs effect. 3 | orientnum=6 4 | orientfirst=45.000000 5 | orientlast=180.000000 6 | orienttype=0 7 | sizenum=5 8 | sizefirst=9.000000 9 | sizelast=13.000000 10 | sizetype=1 11 | brushrelief=0.000000 12 | brushdensity=25.000000 13 | brushgamma=1.000000 14 | brushaspect=0.000000 15 | generalbgtype=1 16 | generaldarkedge=0 17 | generalpaintedges=0 18 | generaltileable=0 19 | generaltileable=0 20 | generaldropshadow=0 21 | generalshadowdarkness=0 22 | generalshadowdepth=0 23 | generalshadowblur=0 24 | devthresh=0.000000 25 | paperrelief=0.000000 26 | paperscale=30.000000 27 | paperinvert=0 28 | paperoverlay=0 29 | selectedbrush=Brushes/paper01.pgm 30 | selectedpaper=Paper/defaultpaper.pgm 31 | color=ffffff 32 | placetype=0 33 | placecenter=0 34 | numorientvector=1 35 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 36 | orientangoff=0.000000 37 | orientstrexp=1.000000 38 | orientvoronoi=0 39 | numsizevector=1 40 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 41 | sizeangoff=0.000000 42 | sizestrexp=0.000000 43 | sizevoronoi=0 44 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_sponge.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=smudge stick effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/spunge02.pgm 11 | brushgamma=1.000000 12 | brushaspect=0.000000 13 | brushrelief=0.000000 14 | 15 | orientnum=8 16 | orientfirst=45.000000 17 | orientlast=360.000000 18 | orienttype=2 19 | 20 | sizenum=1 21 | sizefirst=8.000000 22 | sizelast=8.000000 23 | sizetype=2 24 | 25 | placetype=0 26 | brushdensity=20.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=0 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_sprayedstrokes.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=sprayed strokes effect at angle 45r. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/shape02.pgm 11 | brushgamma=1.000000 12 | brushaspect=-0.7000000 13 | brushrelief=0.000000 14 | 15 | orientnum=1 16 | orientfirst=135.000000 17 | orientlast=0.000000 18 | orienttype=0 19 | 20 | sizenum=4 21 | sizefirst=8.000000 22 | sizelast=11.000000 23 | sizetype=5 24 | 25 | placetype=0 26 | brushdensity=25.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_sprayedstrokes2.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=sprayed strokes effect at angle 45r. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/shape02.pgm 11 | brushgamma=1.000000 12 | brushaspect=-0.7000000 13 | brushrelief=0.000000 14 | 15 | orientnum=1 16 | orientfirst=135.000000 17 | orientlast=0.000000 18 | orienttype=0 19 | 20 | sizenum=4 21 | sizefirst=10.000000 22 | sizelast=17.000000 23 | sizetype=5 24 | 25 | placetype=0 26 | brushdensity=25.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_strokes45r.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=fine strokes effect at angle 45r. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/defaultbrush.pgm 11 | brushgamma=1.000000 12 | brushaspect=-0.250000 13 | brushrelief=0.000000 14 | 15 | orientnum=1 16 | orientfirst=135.000000 17 | orientlast=0.000000 18 | orienttype=0 19 | 20 | sizenum=5 21 | sizefirst=8.000000 22 | sizelast=13.000000 23 | sizetype=2 24 | 25 | placetype=1 26 | brushdensity=20.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/ev_vangogh_rays.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc=sprayed strokes effect. 3 | 4 | selectedpaper=Paper/defaultpaper.pgm 5 | paperinvert=0 6 | paperoverlay=0 7 | paperrelief=0.000000 8 | paperscale=30.000000 9 | 10 | selectedbrush=Brushes/defaultbrush.pgm 11 | brushgamma=1.000000 12 | brushaspect=-0.200000 13 | brushrelief=20.000000 14 | 15 | orientnum=30 16 | orientfirst=0.000000 17 | orientlast=360.000000 18 | orienttype=3 19 | 20 | sizenum=1 21 | sizefirst=40.000000 22 | sizelast=40.000000 23 | sizetype=2 24 | 25 | placetype=1 26 | brushdensity=20.000000 27 | placecenter=0 28 | 29 | generalbgtype=1 30 | color=ffffff 31 | generaldarkedge=0 32 | generalpaintedges=1 33 | generaltileable=0 34 | generaldropshadow=0 35 | generalshadowdarkness=0 36 | generalshadowdepth=0 37 | generalshadowblur=0 38 | devthresh=0.000000 39 | 40 | numorientvector=1 41 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 42 | orientangoff=1.000000 43 | orientstrexp=1.000000 44 | orientvoronoi=0 45 | numsizevector=1 46 | sizevector=0,0.500000,0.500000,0.000000,0.000000,0 47 | sizeangoff=0.000000 48 | sizestrexp=0.000000 49 | sizevoronoi=0 50 | -------------------------------------------------------------------------------- /gimp_scripts-2.10/gimpressionist/Presets/graphite2.txt: -------------------------------------------------------------------------------- 1 | Preset 2 | desc= 3 | orientnum=18 4 | orientfirst=0.000000 5 | orientlast=360.000000 6 | orienttype=6 7 | sizenum=8 8 | sizefirst=11.370000 9 | sizelast=41.419998 10 | sizetype=0 11 | brushrelief=12.000000 12 | brushdensity=50.000000 13 | brushgamma=0.500000 14 | brushaspect=0.000000 15 | generalbgtype=0 16 | generaldarkedge=0.000000 17 | generalpaintedges=1 18 | generaltileable=0 19 | generaldropshadow=0 20 | generalshadowdarkness=20.000000 21 | generalshadowdepth=20 22 | generalshadowblur=20 23 | devthresh=0.100000 24 | paperrelief=0.000000 25 | paperscale=30.000000 26 | paperinvert=0 27 | paperoverlay=0 28 | selectedbrush=Brushes/crayon02.pgm 29 | selectedpaper=Paper/defaultpaper.pgm 30 | color=ffffff 31 | placetype=0 32 | placecenter=0 33 | numorientvector=1 34 | orientvector=0,0.500000,0.500000,0.000000,0.000000,1.000000,1.000000,0 35 | orientangoff=0.000000 36 | orientstrexp=1.000000 37 | orientvoronoi=0 38 | numsizevector=1 39 | sizevector=0,0.500000,0.500000,50.000000,1.000000 40 | sizestrexp=1.000000 41 | sizevoronoi=0 42 | colortype=0 43 | colornoise=0.000000 -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-click-effect.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-click-effect.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-drag-and-drop-move.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-drag-and-drop-move.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-drag-and-drop.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-drag-and-drop.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-editor.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-editor.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-link-select.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-link-select.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/images/pointer-normal-select.png: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/images/pointer-normal-select.png -------------------------------------------------------------------------------- /gimp_scripts-2.10/patterns/Pencil-Sketch.pat: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/gimp_scripts-2.10/patterns/Pencil-Sketch.pat -------------------------------------------------------------------------------- /plugins/save_for_web_0.28.6_win32.zip: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/plugins/save_for_web_0.28.6_win32.zip -------------------------------------------------------------------------------- /plugins/webexport: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/plugins/webexport -------------------------------------------------------------------------------- /plugins/webexport.exe: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/ChrisTitusTech/gimphelp/77a57a74684714bc60b2f62dc9873da2bbe059b7/plugins/webexport.exe -------------------------------------------------------------------------------- /scripts/210_save-as-jpg.scm: -------------------------------------------------------------------------------- 1 | ; 210_save-as-jpg.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Original script by Saul Goode 42 | ; script-fu-quick-jpeg-save.scm 43 | ; http://chiselapp.com/user/saulgoode/repository/script-fu/home 44 | ;============================================================== 45 | 46 | 47 | (define (210_save-as-jpg image) 48 | (let* ((nameparts (strbreakup (car (gimp-image-get-filename image)) ".")) 49 | (filename "") 50 | ) 51 | (unless (and (> (length nameparts) 1) 52 | (member (car (last nameparts)) '("jpg" "jpeg" "JPG" "JPEG")) 53 | ) 54 | (set! nameparts (append (butlast nameparts) '("jpg"))) ) 55 | (set! filename (unbreakupstr nameparts ".")) 56 | (let* ((buffer (car (gimp-edit-named-copy-visible image "jpg buffer"))) 57 | (new-image (car (gimp-edit-named-paste-as-new buffer))) 58 | (layer (car (gimp-image-flatten new-image))) ) 59 | (unless (zero? (car (gimp-image-base-type new-image))) 60 | (gimp-image-convert-rgb new-image) ) 61 | (file-jpeg-save RUN-NONINTERACTIVE 62 | new-image 63 | layer 64 | filename 65 | filename 66 | 0.92 ; JPEG compression level 67 | 0 ; smoothing 68 | 1 ; optimize 69 | 0 ; progressive 70 | "" ; comment 71 | 0 ; subsmp (0-4) 72 | 1 ; baseline 73 | 0 ; restart 74 | 0 ;dct 75 | ) 76 | (gimp-image-delete new-image) 77 | (gimp-image-clean-all image) 78 | ))) 79 | 80 | (script-fu-register "210_save-as-jpg" 81 | "Save as JPG" 82 | "Save the image as a JPG file\n\nFor more options and a proper file overwrite protected dialog, \nuse the FILE > EXPORT menu item when saving as a JPG.\n" 83 | "Paul Sherman" 84 | "Paul Sherman" 85 | "February 2014" 86 | "*" 87 | SF-IMAGE "Image" 0 88 | ) 89 | (script-fu-menu-register "210_save-as-jpg" "/File/Save/") -------------------------------------------------------------------------------- /scripts/210_save-as-png.scm: -------------------------------------------------------------------------------- 1 | ; 210_save-as-png.scm 2 | ; last modified/tested by Paul Sherman [gimphelp.org] 3 | ; 05/11/2019 on GIMP 2.10.10 4 | ;================================================== 5 | ; 6 | ; Installation: 7 | ; This script should be placed in the user or system-wide script folder. 8 | ; 9 | ; Windows 7/10 10 | ; C:\Program Files\GIMP 2\share\gimp\2.0\scripts 11 | ; or 12 | ; C:\Users\YOUR-NAME\AppData\Roaming\GIMP\2.10\scripts 13 | ; 14 | ; 15 | ; Linux 16 | ; /home/yourname/.config/GIMP/2.10/scripts 17 | ; or 18 | ; Linux system-wide 19 | ; /usr/share/gimp/2.0/scripts 20 | ; 21 | ;================================================== 22 | ; 23 | ; LICENSE 24 | ; 25 | ; This program is free software: you can redistribute it and/or modify 26 | ; it under the terms of the GNU General Public License as published by 27 | ; the Free Software Foundation, either version 3 of the License, or 28 | ; (at your option) any later version. 29 | ; 30 | ; This program is distributed in the hope that it will be useful, 31 | ; but WITHOUT ANY WARRANTY; without even the implied warranty of 32 | ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 33 | ; GNU General Public License for more details. 34 | ; 35 | ; You should have received a copy of the GNU General Public License 36 | ; along with this program. If not, see . 37 | ; 38 | ;============================================================== 39 | ; Original information 40 | ; 41 | ; Original script by Saul Goode 42 | ; sg-snapshot.scm 43 | ; http://chiselapp.com/user/saulgoode/repository/script-fu/home 44 | ;============================================================== 45 | 46 | 47 | (define (210_save-as-png orig-image drawable) 48 | ;; Save a copy of the image without affecting the UNDO HISTORY 49 | (let* ( 50 | (buffer-name (car (gimp-edit-named-copy-visible orig-image "png_copy"))) 51 | (image (car (gimp-edit-named-paste-as-new buffer-name))) 52 | (layer (car (gimp-image-get-active-layer image))) 53 | (filename 54 | (if (zero? (strcmp "" (car (gimp-image-get-filename orig-image)) )) 55 | "Untitled.png" 56 | (car (gimp-image-get-filename orig-image)) )) 57 | (fn-components (strbreakup filename ".")) 58 | ) 59 | (set! fn-components (unbreakupstr (butlast fn-components) ".")) 60 | (set! filename (string-append fn-components 61 | ".png" )) 62 | 63 | (if (= 1 (car (gimp-drawable-is-indexed drawable))) 64 | (gimp-image-convert-indexed image 65 | NO-DITHER 66 | MAKE-PALETTE 67 | 255 68 | FALSE 69 | FALSE 70 | "")) 71 | 72 | (file-png-save-defaults RUN-NONINTERACTIVE image layer filename filename) 73 | (gimp-image-delete image) 74 | (gimp-buffer-delete buffer-name) 75 | (gimp-image-clean-all orig-image) 76 | ) 77 | ) 78 | 79 | (script-fu-register "210_save-as-png" 80 | "save as PNG" 81 | "Save the image as a PNG file.\n\nFor more options and a proper file overwrite protected dialog, \nuse the FILE > EXPORT menu item when saving as a PNG.\n" 82 | "Paul Sherman" 83 | "Paul Sherman" 84 | "Aug 2011" 85 | "*" 86 | SF-IMAGE "Image" 0 87 | SF-DRAWABLE "The Layer" 0 88 | ) 89 | (script-fu-menu-register "210_save-as-png" "/File/Save/") 90 | --------------------------------------------------------------------------------