-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathFU_distorts_wrap-effect.scm
140 lines (125 loc) · 4.83 KB
/
FU_distorts_wrap-effect.scm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
; FU_distorts_wrap-effect.scm
; version 2.8 [gimphelp.org]
; last modified/tested by Paul Sherman
; 02/14/2014 on GIMP-2.8.10
; 01/09/2020 on Gimp-2.10.20
; 10/11/2022 on Gimp-2.10.32
;==============================================================
;
; Installation:
; This script should be placed in the user or system-wide script folder.
;
; Windows Vista/7/8)
; C:\Program Files\GIMP 2\share\gimp\2.0\scripts
; or
; C:\Users\YOUR-NAME\.gimp-2.8\scripts
;
; Windows XP
; C:\Program Files\GIMP 2\share\gimp\2.0\scripts
; or
; C:\Documents and Settings\yourname\.gimp-2.8\scripts
;
; Linux
; /home/yourname/.gimp-2.8/scripts
; or
; Linux system-wide
; /usr/share/gimp/2.0/scripts
;
;==============================================================
;
; LICENSE
;
; This program is free software: you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program. If not, see <http://www.gnu.org/licenses/>.
;
;==============================================================
; Original information
;
; Wrap paint effect Script for GIMP 1.2
;
; --------------------------------------------------------------------
; - Changelog -
; version 0.1 by Iccii 2001/04/15 <iccii@hotmail.com>
; - Initial relase
; version 0.2 by Iccii 2001/10/01 <iccii@hotmail.com>
; - Changed menu path because this script attempts to PS's filter
; - Added some code (if selection exists...)
;==============================================================
(define (FU-wrap-effect-bb
inImage
inDrawable
inRadius
inGamma1
inGamma2
inSmooth
)
(gimp-image-undo-group-start inImage)
(if (not (= RGB (car (gimp-image-base-type inImage))))
(gimp-image-convert-rgb inImage))
(let* (
(theOld-bg (car (gimp-context-get-background)))
(theNewlayer (car (gimp-layer-copy inDrawable 1)))
(old-selection (car (gimp-selection-save inImage)))
(theLayermask (car (gimp-layer-create-mask theNewlayer ADD-MASK-BLACK)))
)
(gimp-item-set-name theNewlayer "Wrap effect")
(gimp-layer-set-mode theNewlayer LAYER-MODE-NORMAL)
(gimp-image-insert-layer inImage theNewlayer 0 -1)
(gimp-drawable-desaturate theNewlayer DESATURATE-LIGHTNESS)
(plug-in-gauss-iir2 1 inImage theNewlayer inRadius inRadius)
(plug-in-edge 1 inImage theNewlayer 6.0 0 4)
(gimp-drawable-invert theNewlayer FALSE)
(if (eqv? inSmooth TRUE)
(plug-in-gauss-iir2 0 inImage theNewlayer 5 5)
)
(gimp-edit-copy theNewlayer)
(if (< 0 (car (gimp-layer-get-mask theNewlayer)))
(gimp-layer-remove-mask theNewlayer MASK-APPLY)
)
; (set! theLayermask (car (gimp-layer-create-mask theNewlayer BLACK-MASK)))
(gimp-layer-add-mask theNewlayer theLayermask)
(gimp-floating-sel-anchor (car (gimp-edit-paste theLayermask 0)))
;(gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255)
(gimp-drawable-levels theNewlayer HISTOGRAM-VALUE 0.0 1.0 TRUE (/ inGamma1 10) 0.0 1.0 TRUE)
(gimp-levels theNewlayer 0 0 255 (/ inGamma1 10) 0 255)
(gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255)
(gimp-levels theLayermask 0 0 255 (/ inGamma2 10) 0 255)
(gimp-layer-remove-mask theNewlayer MASK-APPLY)
(gimp-image-select-item inImage CHANNEL-OP-REPLACE old-selection)
(gimp-edit-copy theNewlayer)
(gimp-image-remove-layer inImage theNewlayer)
(gimp-floating-sel-anchor (car (gimp-edit-paste inDrawable 0)))
(gimp-image-select-item inImage CHANNEL-OP-REPLACE old-selection)
(gimp-image-remove-channel inImage old-selection)
(gimp-context-set-background theOld-bg)
;(gimp-image-set-active-layer inImage inDrawable)
(gimp-image-undo-group-end inImage)
(gimp-displays-flush)
)
)
(script-fu-register
"FU-wrap-effect-bb"
"<Image>/Script-Fu/Photo/Distorts/Wrap Effect"
"Draws with wrap effect, which simulates Photoshop's Wrap filter. \nfile:FU_distorts_wrap-effect.scm"
"Iccii <iccii@hotmail.com>"
"Iccii"
"Oct, 2001"
"*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT "Randomness" '(10 0 32 1 10 0 0)
SF-ADJUSTMENT "Highlight Balance" '(3.0 1.0 10 0.5 0.1 1 0)
SF-ADJUSTMENT "Edge Amount" '(3.0 1.0 10 0.5 0.1 1 0)
SF-TOGGLE "Smooth" FALSE
)
; end of script