-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathCreateThumbnail.scm
More file actions
112 lines (99 loc) · 3.93 KB
/
CreateThumbnail.scm
File metadata and controls
112 lines (99 loc) · 3.93 KB
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
101
102
103
104
105
106
107
108
109
110
111
112
;//Änder die Nummer
;//Exportiere ein Bild
; (define (script-fu-create-Thumbnail image layer folder color x y numberList font-size font-name)
; (gimp-context-set-foreground color)
; (gimp-text-fontname image -1 x y "#02" 0 TRUE font-size PIXELS font-name)
; ;(car(gimp-image-merge-visible-layers image 0))
; ;(gimp-image-flatten 0)
; (file-png-save-defaults 1 1 (car(gimp-image-flatten 1)) (string-append folder "\T02.png") (string-append folder))
; ;(gimp-drawable-fill layer WHITE-FILL)
; ; (gimp-image-undo-group-start image)
; ; (gimp-threshold layer threshold 255)
; ; (plug-in-gauss RUN-NONINTERACTIVE image layer 3 3 1)
; ; (gimp-levels layer HISTOGRAM-VALUE 95 160 1.0 0 255)
; ; (gimp-image-undo-group-end image)
; (gimp-displays-flush)
; )
(define (script-fu-create-Thumbnail image layer praefix folder color start end font-size font-name)
;(gimp-image-undo-group-start image)
(gimp-context-set-foreground color)
(gimp-text-layer-set-font-size layer font-size 0)
(gimp-text-layer-set-font layer font-name)
(gimp-text-layer-set-color layer color)
;(gimp-text--fontname image -1 x y "#02" 0 TRUE font-size PIXELS font-name)
;(car(gimp-image-merge-visible-layers image 0))
;(gimp-image-flatten 0)
;(file-png-save-defaults 1 1 (car(gimp-image-flatten 1)) (string-append folder "\T02.png") (string-append folder))
;(gimp-drawable-fill layer WHITE-FILL)
; (gimp-image-undo-group-start image)
; (gimp-threshold layer threshold 255)
; (plug-in-gauss RUN-NONINTERACTIVE image layer 3 3 1)
; (gimp-levels layer HISTOGRAM-VALUE 95 160 1.0 0 255)
; (gimp-image-undo-group-end image)
(createThumbnail image layer praefix folder end start)
;(gimp-image-undo-group-end image)
;(gimp-displays-flush)
)
(define (createThumbnail image layer praefix folder end currentNumber)
;(gimp-image-undo-group-start image)
(if (> currentNumber end)
(
(gimp-message "finish")
)
((gimp-text-layer-set-text layer (string-append praefix (number->string currentNumber)))
(let* (
(new-image (car (gimp-image-duplicate image)))
(the-new-layer (car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
)
;(define newimage (gimp-image-duplicate 1))
;(define theNewLayer (gimp-image-merge-visible-layers newimage, CLIP_TO_IMAGE))
(file-png-save-defaults 1 new-image the-new-layer (string-append (string-append (string-append folder "/T0") (number->string currentNumber)) ".png") (string-append (string-append (string-append folder "/T0") (number->string currentNumber)) ".png"))
(gimp-image-delete new-image)
)
(createThumbnail image layer praefix folder end (+ currentNumber 1))
;(createThumbnail image layer folder end (+ currentNumber 1))
;(gimp-image-undo-group-end image))
)
)
)
; (define (script-fu-splatter-brush size)
; (let*
; (
; (image (car (gimp-image-new size size GRAY)))
; (layer (car (gimp-layer-new image size size GRAY-IMAGE "brush" 100 NORMAL-MODE)))
; )
; (gimp-image-insert-layer image layer 0 0)
; (gimp-drawable-fill layer WHITE-FILL)
; (gimp-displays-new image)
; )
; )
(script-fu-register
"script-fu-create-Thumbnail"
"<Image>/Image/create-Thumbnail"
"Creates Thumbnails with Numbers"
"Blackeye"
"Blackeye"
"October 2017"
"RGB*, GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-STRING "Praefix:" "#"
SF-DIRNAME "Exportfolder" "%USER%"
SF-COLOR "Font Color" "white"
;SF-ADJUSTMENT "X" '(12 0 1000 10 100 0 0)
;SF-ADJUSTMENT "Y" '(560 0 1000 10 100 0 0)
SF-ADJUSTMENT "Number Start" '(01 0 500 1 10 0 0)
SF-ADJUSTMENT "Number End" '(10 0 500 1 10 0 0)
SF-ADJUSTMENT "Font-Size" '(100 1 1000 1 10 0 0)
SF-FONT "Font" "Harrington"
)
; (script-fu-register
; "script-fu-splatter-brush"
; "<Image>/File/Create/splatter brush"
; "Generates a random splatter brush"
; "Blackeye"
; "Blackeye"
; "October 2017"
; ""
; SF-ADJUSTMENT "Brush Size (px)" '(400 100 1000 1 10 0 0)
; )