un script fu gimp

**SpaceFrog** · 08/03/2010, 10h09

Bonjour,

J'ai cru comprendre que les scripts fu pour gimp étaient codés en python, je m'adresse donc à vous.
Existe-t-il ici un forum dédié aux scripts fu pour gimp ?

Si oui, merci d'y deplacer ce post...

Sinon peut être allez vous pouvoir m'aider

J'ai trouvé un script fu qui est une ébauche de ce que je cherche et je souhaiterais l'améliorer:
Le but du script est de générer des images .png (ou autre) chaque image étant un caractère.
Je vous livre le script de base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
; Texte stickers
; Alphabet stickers
;Skonce pour http://gimptutoriel.blogspot.com/
 
(define (apply-stickers-effet img logo-layer taille_bord)
  (let* (
        (width (car (gimp-drawable-width logo-layer)))
        (height (car (gimp-drawable-height logo-layer)))
        (layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 NORMAL-MODE)))
        )
 
    (script-fu-util-image-resize-from-layer img logo-layer)
    (gimp-layer-set-lock-alpha logo-layer TRUE)
 
 
    (gimp-image-add-layer img layer1 1)
    (gimp-edit-clear layer1)
    (gimp-context-set-foreground '(0 0 0))
    (gimp-edit-fill logo-layer FOREGROUND-FILL)
 
    (gimp-selection-layer-alpha logo-layer)
    (gimp-selection-grow img taille_bord)
    (gimp-edit-fill layer1 WHITE-FILL)
    (plug-in-autocrop-layer 0 img layer1)
    (plug-in-autocrop 0 img layer1)
 
 
  )
 
)
 
(define (save-png-file letter img dest)
 
     (let* (
	   (drw (car (gimp-image-merge-visible-layers img 0)))
	   (file-name (string-append dest "/" letter ".png")) 	
           )
    (file-png-save RUN-NONINTERACTIVE img drw file-name file-name 0 0 0 0 0 0 0)
    )
)
 
(define (effet-stickers text size font bordure destination)
  (let* (
        (img (car (gimp-image-new 256 256 RGB)))
        (b-size (* size 0.2))
        (text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
        )
    (apply-stickers-effet img text-layer bordure)
    ;(gimp-display-new img)    
    (save-png-file text img destination)
    (gimp-image-delete img)	
  )
 
)
 
(script-fu-register 
  "effet-stickers"
  "Texte effet stickers"
  "Crée un texte effet stickers"
  "Skonce"
  "http://gimptutoriel.blogspot.com/"
  "2008"
  ""
  SF-STRING     _"Text"               ""
  SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
  SF-FONT       _"Font"               ""
  SF-VALUE	"Taille de la bordure"	"5"
  SF-DIRNAME    "Destination" ""
)
 
(script-fu-menu-register "effet-stickers"
						 "<Image>/Filters/MesScripts")
 
(define (alphabet-stickers size font bordure destination)
	(let* (
		(alphabet '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))		
	      )		
	(while (pair? alphabet)
		(effet-stickers (car alphabet) size font bordure destination)
		(set! alphabet (cdr alphabet))		
	)
	)
)
 
(script-fu-register 
  "alphabet-stickers"
  "Alphabet de stickers"
  "Crée un alphabet avec un effet stickers"
  "Skonce"
  "http://gimptutoriel.blogspot.com/"
  "2008"
  ""
  SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
  SF-FONT       _"Font"               ""
  SF-VALUE	"Taille de la bordure"	"5"
  SF-DIRNAME    "Destination" ""  
)            
 
(script-fu-menu-register "alphabet-stickers"
						 "<Image>/Filters/MesScripts")

Mes soucis avec ce script:
le principal souci est que si j'essaye d'ajouter les minucsules à l'array de valeurs:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

(alphabet '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z" "a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n" "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z" "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"))

il génère bien toutes les images mais lors de leur enregistrement ici:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
(define (save-png-file letter img dest)
 
     (let* (
	   (drw (car (gimp-image-merge-visible-layers img 0)))
	   (file-name (string-append dest "/" letter ".png")) 	
           )
    (file-png-save RUN-NONINTERACTIVE img drw file-name file-name 0 0 0 0 0 0 0)
    )
)

les minuscules écrasent les majuscules A.png et a.png ...
peut on detecter les min et Maj et ajouter eventuellemement min ou maj au nom de fichier ?

Ensuite il ne prend pas en compte un choix de couleur de police. Peut on modifier cela ?

Merci d'avance pour vos pistes

Spafy