← Back to branch summary

~ubuntu-branches/ubuntu/trusty/plee-the-bear/trusty-proposed

« back to all changes in this revision

Viewing changes to plee-the-bear/data/gfx/forest/rabbit/rabbit-1.scm

  • Committer: Bazaar Package Importer
  • Author(s): Julien Jorge, Julien Jorge
  • Date: 2010-11-17 20:13:34 UTC
  • mfrom: (6.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20101117201334-o4dp7uq437to7oxb
Tags: 0.5.1-1
http://bugs.debian.org/565062
http://bugs.debian.org/546514
http://bugs.debian.org/604689
[ Julien Jorge ]
* New upstream release (Closes: #565062, #546514).
* Add armhf architecture (Closes: #604689).
* Remove patches integrated upstream: rpath-editors.diff, rpath-game.diff,
  editors-menu-section.diff.
* Bump the Standard-Version, no changes.
* Update my email address.
* Set build dependency of libclaw to 1.6.0.
* Add the missing ${misc:Depends} in debian/control.
* List gettext translations in bear-factory.install and plee-the-bear.install.

Show diffs side-by-side

added added

removed removed

Lines of Context:
plee-the-bear/data/gfx/forest/rabbit/rabbit-1.scm
 
1
;
 
2
;  Plee the Bear -- gfx script tools
 
3
;
 
4
;  Copyright (C) 2005-2010 Julien Jorge, Sebastien Angibaud
 
5
;
 
6
;  This program is free software; you can redistribute it and/or modify it
 
7
;  under the terms of the GNU General Public License as published by the
 
8
;  Free Software Foundation; either version 2 of the License, or (at your
 
9
;  option) any later version.
 
10
;
 
11
;  This program is distributed in the hope that it will be useful, but WITHOUT
 
12
;  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 
13
;  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for
 
14
;  more details.
 
15
;
 
16
;  You should have received a copy of the GNU General Public License along
 
17
;  with this program; if not, write to the Free Software Foundation, Inc.,
 
18
;  51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
 
19
;
 
20
;  contact: plee-the-bear@gamned.org
 
21
;
 
22
;  Please add the tag [PTB] in the subject of your mails.
 
23
;
 
24
; --
 
25
;
 
26
; This script is intended to be run in this directory and via gimp-console:
 
27
;
 
28
;   gimp-console -b - < this_script.scm
 
29
;
 
30
(load "../../../common.scm")
 
31
 
 
32
(define idling
 
33
  (lambda (dest_image)
 
34
    ; the ratio of the size is 0.25
 
35
 
 
36
    (let ( (src_name "idle.xcf.bz2") )
 
37
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
38
             )
 
39
 
 
40
        ; layer names
 
41
        (let ( (right_arm 0)
 
42
               (cap 1)
 
43
               (head 2)
 
44
               (tooth 3)
 
45
               (right_leg 4)
 
46
               (body 5)
 
47
               (left_arm 6)
 
48
               (left_leg 7) )
 
49
 
 
50
          (create-layer src_image
 
51
                        (list right_arm cap head tooth right_leg body left_arm
 
52
                              left_leg)
 
53
                        0 0 26 32 dest_image)
 
54
          ) ; let
 
55
        ) ; let
 
56
      ) ; let
 
57
    ) ; lambda
 
58
  ) ; define idling
 
59
 
 
60
(define walking
 
61
  (lambda (dest_image)
 
62
    ; the ratio of the size is 0.25
 
63
 
 
64
    (let ( (src_name "walk.xcf.bz2") )
 
65
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
66
             )
 
67
 
 
68
        ; layer names
 
69
        (let ( (right_leg_1 0)
 
70
               (right_leg_3 1)
 
71
               (right_leg_4 2)
 
72
               (right_arm_1 3)
 
73
               (right_arm_3 4)
 
74
               (right_arm_4 5)
 
75
               (head_1 6)
 
76
               (ear_1 7)
 
77
               (ear_3 8)
 
78
               (ear_4 9)
 
79
               (body_1 10)
 
80
               (body_3 11)
 
81
               (body_4 12)
 
82
               )
 
83
 
 
84
          (create-layer src_image
 
85
                        (list head_1 right_leg_1 right_arm_1 ear_1 body_1)
 
86
                        26 0 46 22 dest_image)
 
87
          (create-layer src_image
 
88
                        (list head_1 right_leg_3 right_arm_3 ear_3 body_3)
 
89
                        72 0 46 22 dest_image)
 
90
          (create-layer src_image
 
91
                        (list head_1 right_leg_4 right_arm_4 ear_4 body_4)
 
92
                        118 0 46 22 dest_image)
 
93
          ) ; let
 
94
        ) ; let
 
95
      ) ; let
 
96
    ) ; lambda
 
97
  ) ; define walking
 
98
 
 
99
(define digging
 
100
  (lambda (dest_image)
 
101
    ; the ratio of the size is 0.25
 
102
 
 
103
    (let ( (src_name "dig.xcf.bz2") )
 
104
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
105
             )
 
106
 
 
107
        ; layer names
 
108
        (let ( (foot_5_1 0)
 
109
               (foot_5_2 1)
 
110
               (body_1 2)
 
111
               (body_2 3)
 
112
               (body_3 4)
 
113
               (body_4 5)
 
114
               (body_5 6)
 
115
               )
 
116
 
 
117
          (create-layer src_image
 
118
                        (list body_1)
 
119
                        164 0 29 28 dest_image)
 
120
          (create-layer src_image
 
121
                        (list body_2)
 
122
                        193 0 29 28 dest_image)
 
123
          (create-layer src_image
 
124
                        (list body_3)
 
125
                        222 0 29 28 dest_image)
 
126
          (create-layer src_image
 
127
                        (list body_4)
 
128
                        0 32 29 28 dest_image)
 
129
          (create-layer src_image
 
130
                        (list body_5 foot_5_1)
 
131
                        29 32 29 28 dest_image)
 
132
          (create-layer src_image
 
133
                        (list body_5 foot_5_2)
 
134
                        58 32 29 28 dest_image)
 
135
          ) ; let
 
136
        ) ; let
 
137
      ) ; let
 
138
    ) ; lambda
 
139
  ) ; define digging
 
140
 
 
141
(define dust
 
142
  (lambda (dest_image)
 
143
    ; the ratio of the size is 0.25
 
144
 
 
145
    (let ( (src_name "dust.xcf.bz2") )
 
146
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
147
             )
 
148
 
 
149
        ; layer names
 
150
        (let ( (dust_1 0)
 
151
               (dust_2 1)
 
152
               (dust_3 2)
 
153
               (dust_4 3)
 
154
               )
 
155
 
 
156
          (create-layer src_image
 
157
                        (list dust_1)
 
158
                        87 22 32 16 dest_image)
 
159
          (create-layer src_image
 
160
                        (list dust_2)
 
161
                        119 22 32 16 dest_image)
 
162
          (create-layer src_image
 
163
                        (list dust_3)
 
164
                        87 38 32 16 dest_image)
 
165
          (create-layer src_image
 
166
                        (list dust_4)
 
167
                        119 38 32 16 dest_image)
 
168
          ) ; let
 
169
        ) ; let
 
170
      ) ; let
 
171
    ) ; lambda
 
172
  ) ; define dust
 
173
 
 
174
(define dust-end
 
175
  (lambda (dest_image)
 
176
    ; the ratio of the size is 0.25
 
177
 
 
178
    (let ( (src_name "dust-end.xcf.bz2") )
 
179
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
180
             )
 
181
 
 
182
        ; layer names
 
183
        (let ( (dust_end_1 0)
 
184
               (dust_end_2 1)
 
185
               (dust_end_3 2)
 
186
               (dust_end_4 3)
 
187
               )
 
188
 
 
189
          (create-layer src_image
 
190
                        (list dust_end_1)
 
191
                        151 32 19 15 dest_image)
 
192
          (create-layer src_image
 
193
                        (list dust_end_2)
 
194
                        170 32 19 15 dest_image)
 
195
          (create-layer src_image
 
196
                        (list dust_end_3)
 
197
                        151 48 19 15 dest_image)
 
198
          (create-layer src_image
 
199
                        (list dust_end_4)
 
200
                        170 48 19 15 dest_image)
 
201
          ) ; let
 
202
        ) ; let
 
203
      ) ; let
 
204
    ) ; lambda
 
205
  ) ; define dust-end
 
206
 
 
207
(define jumping
 
208
  (lambda (dest_image)
 
209
    ; the ratio of the size is 0.25
 
210
 
 
211
    (let ( (src_name "jump.xcf.bz2") )
 
212
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
213
             )
 
214
 
 
215
        ; layer names
 
216
        (let ( (body_1 0)
 
217
               (body_2 1)
 
218
               (body_3 2)
 
219
               (body_4 3)
 
220
               )
 
221
 
 
222
          (create-layer src_image
 
223
                        (list body_1)
 
224
                        189 32 40 40 dest_image)
 
225
          (create-layer src_image
 
226
                        (list body_2)
 
227
                        0 61 40 40 dest_image)
 
228
          (create-layer src_image
 
229
                        (list body_3)
 
230
                        40 61 40 40 dest_image)
 
231
          (create-layer src_image
 
232
                        (list body_4)
 
233
                        80 61 40 40 dest_image)
 
234
          ) ; let
 
235
        ) ; let
 
236
      ) ; let
 
237
    ) ; lambda
 
238
  ) ; define jumping
 
239
 
 
240
(define falling
 
241
  (lambda (dest_image)
 
242
    ; the ratio of the size is 0.25
 
243
 
 
244
    (let ( (src_name "fall.xcf.bz2") )
 
245
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
246
             )
 
247
 
 
248
        ; layer names
 
249
        (let ( (right_leg 0)
 
250
               (right_arm 1)
 
251
               (head 2)
 
252
               (right_ear 3)
 
253
               (body 4)
 
254
               (left_ear 5)
 
255
               (left_arm 6)
 
256
               (left_leg 7)
 
257
               )
 
258
 
 
259
          (create-layer src_image
 
260
                        (list right_leg right_arm head right_ear body left_ear
 
261
                              left_arm left_leg)
 
262
                        120 61 23 35 dest_image)
 
263
          ) ; let
 
264
        ) ; let
 
265
      ) ; let
 
266
    ) ; lambda
 
267
  ) ; define falling
 
268
 
 
269
(define injured
 
270
  (lambda (dest_image)
 
271
    ; the ratio of the size is 0.25
 
272
 
 
273
    (let ( (src_name "injured.xcf.bz2") )
 
274
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
275
             )
 
276
 
 
277
        ; layer names
 
278
        (let ( (right_leg 0)
 
279
               (right_arm 1)
 
280
               (eye 2)
 
281
               (head 3)
 
282
               (right_ear 4)
 
283
               (body 5)
 
284
               (left_leg 6)
 
285
               (left_ear 7)
 
286
               )
 
287
 
 
288
          (create-layer src_image
 
289
                        (list right_leg right_arm eye head right_ear body
 
290
                              left_leg left_ear)
 
291
                        143 61 21 35 dest_image)
 
292
          ) ; let
 
293
        ) ; let
 
294
      ) ; let
 
295
    ) ; lambda
 
296
  ) ; define injured
 
297
 
 
298
(let ( (dest_name "rabbit-1.png") )
 
299
  (let ( (dest_image (car (gimp-image-new 256 128 RGB))) )
 
300
    (let ( (bk (car (gimp-layer-new dest_image 256 128 1 "background" 100 0)))
 
301
           )
 
302
      (gimp-image-add-layer dest_image bk 0)
 
303
      )
 
304
 
 
305
    (idling dest_image)
 
306
    (walking dest_image)
 
307
    (digging dest_image)
 
308
    (dust dest_image)
 
309
    (dust-end dest_image)
 
310
    (jumping dest_image)
 
311
    (falling dest_image)
 
312
    (injured dest_image)
 
313
 
 
314
    (save-frames-and-exit dest_name dest_image)
 
315
    ) ; let
 
316
  ) ; let