API tools faq
paste
Advertisement
metallaro1980

4 scripts in script-fu

metallaro1980
Apr 4th, 2018
466
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 7.28 KB | None | 0 0
raw download clone embed print report
  1.  
  2. (define (script-fu-PurpleFringeMag InImage InLayer InEdge InBlur InDeMag )
  3. (gimp-image-undo-group-start InImage)
  4.  
  5. (let* (
  6. (FringeLayerMag (car (gimp-layer-copy InLayer TRUE)))
  7.  
  8. (MaskImage (car (gimp-image-duplicate InImage)))
  9. (MaskLayer (cadr (gimp-image-get-layers MaskImage)))
  10. (HSVImage (car (plug-in-decompose TRUE InImage InLayer "Value" TRUE)))
  11. (HSVLayer (cadr (gimp-image-get-layers HSVImage)))
  12. )
  13.  
  14. (gimp-item-set-name FringeLayerMag "Magenta")
  15.  
  16. ; desats
  17. (gimp-image-add-layer InImage FringeLayerMag -1)
  18. (gimp-hue-saturation FringeLayerMag 6 0 0 InDeMag)
  19.  
  20. ; Find edges, Warpmode = Smear (1), Edgemode = Sobel (0)
  21. (plug-in-edge TRUE MaskImage (aref MaskLayer 0) InEdge 1 0)
  22. (gimp-levels (aref MaskLayer 0) 0 75 255 0.8 0 255)
  23. (gimp-convert-grayscale MaskImage)
  24. (plug-in-gauss TRUE MaskImage (aref MaskLayer 0) InBlur InBlur 0)
  25.  
  26. ; next change FringeLayer to new layer
  27. (let* (
  28. (FringeMask2 (car (gimp-layer-create-mask FringeLayerMag ADD-WHITE-MASK)))
  29. )
  30. (gimp-layer-add-mask FringeLayerMag FringeMask2)
  31. (gimp-selection-all MaskImage)
  32. (gimp-edit-copy (aref MaskLayer 0))
  33. (gimp-floating-sel-anchor (car (gimp-edit-paste FringeMask2 FALSE)))
  34.  
  35. )
  36.  
  37. )
  38.  
  39.  
  40. (gimp-image-undo-group-end InImage)
  41. (gimp-displays-flush)
  42. )
  43.  
  44. (script-fu-register
  45. "script-fu-PurpleFringeMag"
  46. "<Image>/Filters/Image/Magenta Fringe"
  47. "Magenta Fringe \n\
  48. To reduce the effects of Magenta Fringing in high contrast areas of \
  49. an affected picture. "
  50. "Andrea Verdi"
  51. "Andrea Verdi"
  52. "2017,2018"
  53. "RGB*"
  54. SF-IMAGE "The Image" 0
  55. SF-DRAWABLE "The Layer" 0
  56. SF-ADJUSTMENT _"Edges: Detect Amount" '(7.0 1.0 10.0 1.0 0 1 0)
  57. SF-ADJUSTMENT _"Edges: Blur Pixels" '(5.0 1.0 10.0 1.0 0 1 0)
  58. SF-ADJUSTMENT _"Desat level: Magenta" '(-80 -100 100 1 0 0 0)
  59.  
  60. )
  61.  
  62.  
  63.  
  64.  
  65.  
  66. (define (script-fu-PurpleFringeBlue InImage InLayer InEdge InBlur InDeBlue)
  67. (gimp-image-undo-group-start InImage)
  68.  
  69. (let* (
  70.  
  71. (FringeLayerBlue (car (gimp-layer-copy InLayer TRUE)))
  72.  
  73. (MaskImage (car (gimp-image-duplicate InImage)))
  74. (MaskLayer (cadr (gimp-image-get-layers MaskImage)))
  75. (HSVImage (car (plug-in-decompose TRUE InImage InLayer "Value" TRUE)))
  76. (HSVLayer (cadr (gimp-image-get-layers HSVImage)))
  77. )
  78.  
  79. (gimp-item-set-name FringeLayerBlue "Blu")
  80.  
  81. ; desats
  82. (gimp-image-add-layer InImage FringeLayerBlue -1)
  83. (gimp-hue-saturation FringeLayerBlue 5 0 0 InDeBlue)
  84.  
  85. ; Find edges, Warpmode = Smear (1), Edgemode = Sobel (0)
  86. (plug-in-edge TRUE MaskImage (aref MaskLayer 0) InEdge 1 0)
  87. (gimp-levels (aref MaskLayer 0) 0 75 255 0.8 0 255)
  88. (gimp-convert-grayscale MaskImage)
  89. (plug-in-gauss TRUE MaskImage (aref MaskLayer 0) InBlur InBlur 0)
  90.  
  91. ; next change FringeLayer to new layer
  92. (let* (
  93. (FringeMask2 (car (gimp-layer-create-mask FringeLayerBlue ADD-WHITE-MASK)))
  94. )
  95. (gimp-layer-add-mask FringeLayerBlue FringeMask2)
  96. (gimp-selection-all MaskImage)
  97. (gimp-edit-copy (aref MaskLayer 0))
  98. (gimp-floating-sel-anchor (car (gimp-edit-paste FringeMask2 FALSE)))
  99.  
  100. )
  101.  
  102. )
  103.  
  104.  
  105. (gimp-image-undo-group-end InImage)
  106. (gimp-displays-flush)
  107. )
  108.  
  109. (script-fu-register
  110. "script-fu-PurpleFringeBlue"
  111. "<Image>/Filters/Image/Blue Fringe"
  112. "Blue Fringe \n\
  113. To reduce the effects of Blue Fringing in high contrast areas of \
  114. an affected picture. "
  115. "Andrea Verdi"
  116. "Andrea Verdi"
  117. "2017,2018"
  118. "RGB*"
  119. SF-IMAGE "The Image" 0
  120. SF-DRAWABLE "The Layer" 0
  121. SF-ADJUSTMENT _"Edges: Detect Amount" '(7.0 1.0 10.0 1.0 0 1 0)
  122. SF-ADJUSTMENT _"Edges: Blur Pixels" '(5.0 1.0 10.0 1.0 0 1 0)
  123. SF-ADJUSTMENT _"Desat level: Blue" '(-40 -100 100 1 0 0 0)
  124.  
  125.  
  126. )
  127.  
  128.  
  129.  
  130. (define (script-fu-PurpleFringeRed InImage InLayer InEdge InBlur InDeRed)
  131. (gimp-image-undo-group-start InImage)
  132.  
  133. (let* (
  134. (FringeLayerRed (car (gimp-layer-copy InLayer TRUE)))
  135.  
  136. (MaskImage (car (gimp-image-duplicate InImage)))
  137. (MaskLayer (cadr (gimp-image-get-layers MaskImage)))
  138. (HSVImage (car (plug-in-decompose TRUE InImage InLayer "Value" TRUE)))
  139. (HSVLayer (cadr (gimp-image-get-layers HSVImage)))
  140. )
  141.  
  142. (gimp-item-set-name FringeLayerRed "Rosso")
  143.  
  144. ; desats
  145. (gimp-image-add-layer InImage FringeLayerRed -1)
  146.  
  147.  
  148. (gimp-hue-saturation FringeLayerRed 1 0 0 InDeRed)
  149.  
  150.  
  151. ; Find edges, Warpmode = Smear (1), Edgemode = Sobel (0)
  152. (plug-in-edge TRUE MaskImage (aref MaskLayer 0) InEdge 1 0)
  153. (gimp-levels (aref MaskLayer 0) 0 75 255 0.8 0 255)
  154. (gimp-convert-grayscale MaskImage)
  155. (plug-in-gauss TRUE MaskImage (aref MaskLayer 0) InBlur InBlur 0)
  156.  
  157. ; next change FringeLayer to new layer
  158. (let* (
  159. (FringeMask (car (gimp-layer-create-mask FringeLayerRed ADD-WHITE-MASK)))
  160. )
  161. (gimp-layer-add-mask FringeLayerRed FringeMask)
  162. (gimp-selection-all MaskImage)
  163. (gimp-edit-copy (aref MaskLayer 0))
  164. (gimp-floating-sel-anchor (car (gimp-edit-paste FringeMask FALSE)))
  165.  
  166. )
  167.  
  168. )
  169.  
  170.  
  171. (gimp-image-undo-group-end InImage)
  172. (gimp-displays-flush)
  173. )
  174.  
  175. (script-fu-register
  176. "script-fu-PurpleFringeRed"
  177. "<Image>/Filters/Image/Red Fringe"
  178. "Red Fringe \n\
  179. To reduce the effects of Red Fringing in high contrast areas of \
  180. an affected picture. "
  181. "Andrea Verdi"
  182. "Andrea Verdi"
  183. "2017,2018"
  184. "RGB*"
  185. SF-IMAGE "The Image" 0
  186. SF-DRAWABLE "The Layer" 0
  187. SF-ADJUSTMENT _"Edges: Detect Amount" '(7.0 1.0 10.0 1.0 0 1 0)
  188. SF-ADJUSTMENT _"Edges: Blur Pixels" '(5.0 1.0 10.0 1.0 0 1 0)
  189. SF-ADJUSTMENT _"Desat level: Red" '(-60 -100 100 1 0 0 0)
  190.  
  191.  
  192. )
  193.  
  194.  
  195.  
  196.  
  197. (define (script-fu-PurpleFringeCyan InImage InLayer InEdge InBlur InDeCyan)
  198. (gimp-image-undo-group-start InImage)
  199.  
  200. (let* (
  201.  
  202. (FringeLayerCyan (car (gimp-layer-copy InLayer TRUE)))
  203.  
  204. (MaskImage (car (gimp-image-duplicate InImage)))
  205. (MaskLayer (cadr (gimp-image-get-layers MaskImage)))
  206. (HSVImage (car (plug-in-decompose TRUE InImage InLayer "Value" TRUE)))
  207. (HSVLayer (cadr (gimp-image-get-layers HSVImage)))
  208. )
  209.  
  210.  
  211. (gimp-item-set-name FringeLayerCyan "Cyano")
  212.  
  213. ; desats
  214. (gimp-image-add-layer InImage FringeLayerCyan -1)
  215.  
  216. (gimp-hue-saturation FringeLayerCyan 4 0 0 InDeCyan)
  217.  
  218. ; Find edges, Warpmode = Smear (1), Edgemode = Sobel (0)
  219. (plug-in-edge TRUE MaskImage (aref MaskLayer 0) InEdge 1 0)
  220. (gimp-levels (aref MaskLayer 0) 0 75 255 0.8 0 255)
  221. (gimp-convert-grayscale MaskImage)
  222. (plug-in-gauss TRUE MaskImage (aref MaskLayer 0) InBlur InBlur 0)
  223.  
  224. ; next change FringeLayer to new layer
  225.  
  226. (let* (
  227. (FringeMask4 (car (gimp-layer-create-mask FringeLayerCyan ADD-WHITE-MASK)))
  228. )
  229. (gimp-layer-add-mask FringeLayerCyan FringeMask4)
  230. (gimp-selection-all MaskImage)
  231. (gimp-edit-copy (aref MaskLayer 0))
  232. (gimp-floating-sel-anchor (car (gimp-edit-paste FringeMask4 FALSE)))
  233. (gimp-image-delete MaskImage)
  234. )
  235.  
  236. )
  237.  
  238.  
  239. (gimp-image-undo-group-end InImage)
  240. (gimp-displays-flush)
  241. )
  242.  
  243. (script-fu-register
  244. "script-fu-PurpleFringeCyan"
  245. "<Image>/Filters/Image/Cyan Fringe"
  246. "Cyano Fringe \n\
  247. To reduce the effects of Cyano Fringing in high contrast areas of \
  248. an affected picture. "
  249. "Andrea Verdi"
  250. "Andrea Verdi"
  251. "2017,2018"
  252. "RGB*"
  253. SF-IMAGE "The Image" 0
  254. SF-DRAWABLE "The Layer" 0
  255. SF-ADJUSTMENT _"Edges: Detect Amount" '(7.0 1.0 10.0 1.0 0 1 0)
  256. SF-ADJUSTMENT _"Edges: Blur Pixels" '(5.0 1.0 10.0 1.0 0 1 0)
  257. SF-ADJUSTMENT _"Desat level: Cyan" '(0 -100 100 1 0 0 0)
  258.  
  259. )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!