Ubuntu-fr

david breizh

[résolu et je le poste pour qui veut]erreur dans script-fu gimp!

bonjour j'essaie de faire un script-fu basé sur un tuto mais j'ai un message d'erreur dont je ne trouve pas la solution!

gimp me répond ça : Error: unmatched parentheses: 1

j'ai regardé le script au niveau des parenthèses mais je vois pas o๠ça cloche.

je poste le script que j'aimerai bien pouvoir améliorer par la suite pour les photos,merci.

sources:

(define (script-fu-filtre-couleur image drawable couleur) ;; declaration de la fonction
	
  (let* (
	(old-color (car (gimp-palette-get-foreground)))
	(width (car (gimp-image-width img)))
	(height (car (gimp-image-height img)))
	(new-layer (car (gimp-layer-new img width height RGB-IMAGE "Nom du calque" 100 COLOR)))
    	(gimp-image-undo-group-start img) ;; début d'historique d'annulation
    	(gimp-desaturate drawable)
    	(gimp-edit-clear new-layer)
    	(gimp-image-add-layer img new-layer -1)
    	(gimp-palette-set-foreground couleur)
    	(gimp-edit-fill  new-layer 0)
    	(gimp-palette-set-foreground old-color)
  	);; fin du let
    (gimp-displays-flush)
    (gimp-image-undo-group-end img) ;; fin d'historique d'annulation
  ) ;; fin de la fonction
) 
(script-fu-register "script-fu-filtre-couleur" ;; nom du script
  "Creer un effect veillot" ;; commentaires
  "poupouneroot" ;; auteur
  "Copyright poupouneroot" ;; copyright
  "6/01/08" ;; date
  "RGB" ;; types d'images supportés par le script
  SF-IMAGE "Image" 0 ;; image dans lequel le calque est ajouté
  SF-DRAWABLE "Drawable" 0 ;; calque actif de l'image
  SF-COLOR "Couleur" '(255 0 0)
);; fin du reg

(script-fu-menu-register "script-fu-filtre-couleur"
                         "<Image>/Filters/Alpha to Logo")

voilà  si quelqu'un trouve j'aimerai bien un coup de main s'il vous plait!

ps: j'suis vraiment trop con je modifier une copie du fichier mais pas dans le bon répertoire.
ps2:il suffit de l'enregistrer dans le répertoire personnel .gimp-2.4>scripts>vieillot.scm et d'actualiser les script-fu (etx>script>update) voilà  à  plus.

;; veillot est un script pour the gimp 2.4 écrit par poupouneroot (c'est le premier donc pas parfait mais il marche bien).
;;
;; il donne un effet sur une photo couleur d'un certain type ancien.
;;
;; il crée trois calques de couleur avec une opacité et un mode différent.
;;
;; par défaut il fusionne les calques mais si vous ne voulez pas il suffit de rajouter ";;" devant
;; la ligne (gimp-image-merge-down ...) en ligne 28 40 52.
;;
;; vous pouvez l'utiliser et le modifier ainsi que le distribué à  votre guise pour un usage non commercial.
;;
;;le sript se trouve dans Script-fu -> Filtre vieillot
;;
;; derniers changements : le 08.01.08 .
;;

(define (script-fu-vieillot LImage LeCalque)

	;; aucune sélection dans l'image
	(gimp-selection-none LImage)
	(gimp-image-undo-group-start LImage)

	(let* (
		(coul '(251 242 163))
		(larg (car (gimp-image-width LImage)))
		(haut (car (gimp-image-height LImage)))
		(nouveau-calque (car (gimp-layer-new LImage larg haut RGBA-IMAGE "Calque jaune" 59.0 MULTIPLY-MODE)))
	      )
		(gimp-image-add-layer LImage nouveau-calque -1)
		(gimp-palette-set-foreground coul)
		(gimp-edit-fill nouveau-calque 0)
		(gimp-image-merge-down LImage nouveau-calque 2)
	)

	(let* (
		(coul '(232 101 179))
		(larg (car (gimp-image-width LImage)))
		(haut (car (gimp-image-height LImage)))
		(nouveau-calque (car (gimp-layer-new LImage larg haut RGBA-IMAGE "Calque rose" 20.5 SCREEN-MODE)))
	      )
		(gimp-image-add-layer LImage nouveau-calque -1)
		(gimp-palette-set-foreground coul)
		(gimp-edit-fill nouveau-calque 0)
		(gimp-image-merge-down LImage nouveau-calque 2)
	)

	(let* (
		(coul '(9 73 233))
		(larg (car (gimp-image-width LImage)))
		(haut (car (gimp-image-height LImage)))
		(nouveau-calque (car (gimp-layer-new LImage larg haut RGBA-IMAGE "Calque bleu" 17.2 SCREEN-MODE)))
	      )
		(gimp-image-add-layer LImage nouveau-calque -1)
		(gimp-palette-set-foreground coul)
		(gimp-edit-fill nouveau-calque 0)
		(gimp-image-merge-down LImage nouveau-calque 2)
	)

	(gimp-image-undo-group-end LImage)
	(gimp-displays-flush)
)

(script-fu-register "script-fu-vieillot" ;; nom du script
       "<Image>/Script-Fu/Filtre vieillot" ;; position du script dans le menu
        "Crée trois calques de couleur avec différents paramètres." ;; commentaires
        "Poupouneroot" ;; auteur
        "Copyright" ;; copyright
        "08.01.08" ;; date
        "" ;; types d'images supportés par le script
        SF-IMAGE "Image" 0 ;; image dans lequel le calque est ajouté
        SF-DRAWABLE "Drawable" 0 ;; calque actif de l'image
)

Dernière modification par david breizh (Le 08/01/2008, à 01:10)

---

ah ! du fin fond de la bretagne grâce au libre on se sent moins seul!
Vive le libre et toutes les distributions qui m'ont fait découvrir le monde de linux!