-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathexport-images-for-xcode.scm
136 lines (100 loc) · 2.25 KB
/
export-images-for-xcode.scm
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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
(define (export-images-for-xcode img
drawable
basename)
(let* (
(folder-path "/Users/greg/Desktop/gimpForXcode/")
(filename folder-path)
(big-ipad-suffix "@2x~ipad.png")
(small-ipad-suffix "@1x~ipad.png")
(big-iphone-suffix "@2x~iphone.png")
(small-iphone-suffix "@1x~iphone.png")
(width (car (gimp-image-width img)) )
(height (car (gimp-image-height img)) )
(halfW (* 0.5 width))
(halfH (* 0.5 height))
(quartW (* 0.25 width))
(quartH (* 0.25 height))
)
(set! filename folder-path)
(set! filename (string-append filename basename))
(set! filename (string-append filename big-ipad-suffix))
(file-png-save RUN-NONINTERACTIVE
img
drawable
filename
filename
0
9
1
0
0
0
0
)
(gimp-image-scale img halfW halfH)
(set! filename folder-path)
(set! filename (string-append filename basename))
(set! filename (string-append filename small-ipad-suffix))
(file-png-save RUN-NONINTERACTIVE
img
drawable
filename
filename
0
9
1
0
0
0
0
)
(set! filename folder-path)
(set! filename (string-append filename basename))
(set! filename (string-append filename big-iphone-suffix))
(file-png-save RUN-NONINTERACTIVE
img
drawable
filename
filename
0
9
1
0
0
0
0
)
(gimp-image-scale img quartW quartH)
(set! filename folder-path)
(set! filename (string-append filename basename))
(set! filename (string-append filename small-iphone-suffix))
(file-png-save RUN-NONINTERACTIVE
img
drawable
filename
filename
0
9
1
0
0
0
0
)
)
)
(script-fu-register
"export-images-for-xcode"
"Export For Xcode"
"Exports a PNG images of various\
sizes with appropriate filename\
suffixes for importing to Xcode."
"Greg McDonald"
"copyright 2015"
"August 7, 2015"
""
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-STRING "Base for image filename" "goojaji")
(script-fu-menu-register "export-images-for-xcode"
"<Image>/Script-Fu")