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") |
