Bonjour

je souhaite rajouter un script sous gimp 2.0

J'ai trouvé l'endroit

C://Programs Files/Gimp/Config/scripts

J'ai donc éssayé d'y mettre le copiant collant dans un fichier bloc note

voici ce que j'y ai placé

Je me doute que la première partie avec les ";" devant ne dois pas etre placé




; planet-render1-1.scm
; (C) 2005-2007 Aurore D. "Rore", aurore.d@gmail.com
;
; 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 2 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, write to the Free Software
; Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
;
;
; planet-render1-1.scm
; Creates a planet.
; You'll find this script in the "Xtns >Script-Fu >Misc >Planet Render" menu

(define (script-fu-planet-render planetSize planetColor sunAngle sunTilt)

(let*

(
; 1/10th of the planet size
(tenth (/ planetSize 10) )
; image size 10% wider than the planet on each side
(imgSize (+ planetSize (* tenth 2)) )

(theImage (car (gimp-image-new imgSize imgSize RGB) ))
(layerbase (car (gimp-layer-new theImage imgSize imgSize 0 "planet base" 100 NORMAL) ) )
(layeratmosph (car (gimp-layer-new theImage imgSize imgSize 0 "planet atmosphere" 100 NORMAL) ) )
(layershadow (car (gimp-layer-new theImage imgSize imgSize 0 "planet shadow" 100 NORMAL) ) )
(layerglow (car (gimp-layer-new theImage imgSize imgSize 0 "planet glow" 100 NORMAL) ) )
(angleRad (/ (* sunAngle *pi*) 180))
(transX (* (sin angleRad) -1))
(transY (cos angleRad))
)

(gimp-context-push)
(gimp-image-undo-disable theImage)

(gimp-layer-add-alpha layerbase )
(gimp-layer-add-alpha layeratmosph )
(gimp-layer-add-alpha layershadow )
(gimp-layer-add-alpha layerglow )

(gimp-image-add-layer theImage layerglow 0)
(gimp-image-add-layer theImage layerbase 0)
(gimp-image-add-layer theImage layeratmosph 0)
(gimp-image-add-layer theImage layershadow 0)

(gimp-selection-all theImage)
(gimp-edit-clear layerbase)
(gimp-edit-clear layeratmosph)
(gimp-edit-clear layershadow)
(gimp-edit-clear layerglow)
(gimp-selection-none theImage)


(gimp-ellipse-select theImage tenth tenth planetSize planetSize 2 1 0 0 )
(gimp-context-set-foreground planetColor)
; fill selection with the planet color
(gimp-edit-bucket-fill layerbase 0 0 100 0 FALSE 0 0 )
(gimp-edit-bucket-fill layeratmosph 0 0 100 0 FALSE 0 0 )
; shrink and blur for the shadow
(gimp-selection-feather theImage (* 1.5 tenth) )
(gimp-context-set-background '(0 0 0) )
(gimp-edit-bucket-fill layershadow 1 0 100 0 FALSE 0 0 );;
; add the light around the planet for the atmosphere
(gimp-selection-layer-alpha layeratmosph)
(gimp-selection-shrink theImage tenth)
(gimp-selection-feather theImage (* 2 tenth))
(gimp-layer-set-preserve-trans layeratmosph 1)
(gimp-selection-invert theImage)
(gimp-context-set-background '(255 255 255) )
(gimp-edit-bucket-fill layeratmosph 1 5 90 0 FALSE 0 0 )
(gimp-selection-invert theImage)
(gimp-context-set-foreground '(0 0 0) )
(gimp-edit-bucket-fill layeratmosph 0 0 100 0 FALSE 0 0 )
(gimp-selection-layer-alpha layeratmosph)
(gimp-selection-shrink theImage (/ tenth 3))
(gimp-selection-feather theImage tenth)
(gimp-selection-invert theImage)
(gimp-edit-bucket-fill layeratmosph 1 0 85 0 FALSE 0 0 )
(gimp-layer-set-mode layeratmosph 4)
;move,resize the shadow layer
(gimp-layer-scale layershadow (* (+ 1.5 (/ sunTilt 10)) imgSize) (* (+ 1.5 (/ sunTilt 10)) imgSize) 1 )
(gimp-layer-translate layershadow (* (* transX tenth) (+ 3 sunTilt) ) (* (* transY tenth) (+ 3 sunTilt) ) )
; and now the glow...
(gimp-selection-layer-alpha layerbase)
(gimp-selection-grow theImage (/ tenth 4))
(gimp-selection-feather theImage tenth )
(gimp-context-set-background planetColor )
(gimp-edit-bucket-fill layerglow 1 0 100 0 FALSE 0 0 )
(gimp-edit-bucket-fill layerglow 1 7 100 0 FALSE 0 0 )
(gimp-edit-bucket-fill layerglow 1 7 100 0 FALSE 0 0 )
; mask a part of the glow
(let ((glowmask (car (gimp-layer-create-mask layerglow 0))))
(gimp-image-add-layer-mask theImage layerglow glowmask)
(gimp-selection-layer-alpha layershadow)
(gimp-edit-bucket-fill glowmask 0 0 100 0 FALSE 0 0 )
)
(gimp-selection-all theImage) ;; stuff to remove ugly thin white border
(gimp-fuzzy-select layerbase (/ imgSize 2) (/ imgSize 2) 15 1 1 0 0 0) ;;
(gimp-edit-cut layershadow)
(gimp-layer-resize-to-image-size layershadow)

(gimp-image-clean-all theImage)
(gimp-image-undo-enable theImage)
(gimp-display-new theImage)
(gimp-context-pop)
)
)

(script-fu-register "script-fu-planet-render"
_"_Planet render..."
"Creates a planet.(Color, size and sun orientation can be set)"
"Aurore D. (Rore)"
"aurore.d@gmail.com"
"October 2005"
""
SF-ADJUSTMENT "Planet size (pixels)" '(400 40 2000 1 10 0 1)
SF-COLOR "Planet color" '(10 70 100)
SF-ADJUSTMENT _"Sun orientation (degrees) " '(0 0 360 1 10 1 0)
SF-ADJUSTMENT _"Sun Tilt " '(1 0 5 1 10 1 0) )
(script-fu-menu-register "script-fu-planet-render"
_"<Toolbox>/Xtns/Script-Fu/Misc")

Configuration: Windows XP
Firefox 2.0.0.5