← 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-2.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-2.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 eating
 
33
  (lambda (dest_image)
 
34
    ; the ratio of the size is 0.25
 
35
 
 
36
    (let ( (src_name "eat.xcf.bz2") )
 
37
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
38
             )
 
39
 
 
40
        ; layer names
 
41
        (let ( (carrot_9 0)
 
42
               (carrot_8 1)
 
43
               (carrot_7 2)
 
44
               (carrot_6 3)
 
45
               (carrot_5 4)
 
46
               (right_arm_4 5)
 
47
               (right_arm_3 6)
 
48
               (right_arm_2 7)
 
49
               (right_arm_1 8)
 
50
               (carrot_4 9)
 
51
               (carrot_3 10)
 
52
               (carrot_2 11)
 
53
               (carrot_1 12)
 
54
               (head_3 13)
 
55
               (head_2 14)
 
56
               (head 15)
 
57
               (body_big_belly 16)
 
58
               (body 17)
 
59
               )
 
60
 
 
61
          (create-layer src_image
 
62
                        (list body head carrot_1 right_arm_1)
 
63
                        0 0 26 32 dest_image)
 
64
          (create-layer src_image
 
65
                        (list body head carrot_2 right_arm_2)
 
66
                        26 0 26 32 dest_image)
 
67
          (create-layer src_image
 
68
                        (list body head carrot_3 right_arm_3)
 
69
                        56 0 26 32 dest_image)
 
70
          (create-layer src_image
 
71
                        (list body head carrot_4 right_arm_4)
 
72
                        82 0 26 32 dest_image)
 
73
 
 
74
          (create-layer src_image
 
75
                        (list body head carrot_5 right_arm_4)
 
76
                        108 0 26 32 dest_image)
 
77
          (create-layer src_image
 
78
                        (list body head carrot_6 right_arm_3)
 
79
                        134 0 26 32 dest_image)
 
80
          (create-layer src_image
 
81
                        (list body head_2 carrot_7 right_arm_2)
 
82
                        160 0 26 32 dest_image)
 
83
          (create-layer src_image
 
84
                        (list body head_2 carrot_8 right_arm_1)
 
85
                        186 0 26 32 dest_image)
 
86
          (create-layer src_image
 
87
                        (list body head_2 carrot_9 right_arm_1)
 
88
                        212 0 26 32 dest_image)
 
89
 
 
90
          (create-layer src_image
 
91
                        (list body head_3 right_arm_1)
 
92
                        0 32 26 32 dest_image)
 
93
          (create-layer src_image
 
94
                        (list body_big_belly head right_arm_1)
 
95
                        26 32 26 32 dest_image)
 
96
          ) ; let
 
97
        ) ; let
 
98
      ) ; let
 
99
    ) ; lambda
 
100
  ) ; define eating
 
101
 
 
102
(let ( (dest_name "rabbit-2.png") )
 
103
  (let ( (dest_image (car (gimp-image-new 256 64 RGB))) )
 
104
    (let ( (bk (car (gimp-layer-new dest_image 256 64 1 "background" 100 0)))
 
105
           )
 
106
      (gimp-image-add-layer dest_image bk 0)
 
107
      )
 
108
 
 
109
    (eating dest_image)
 
110
 
 
111
    (save-frames-and-exit dest_name dest_image)
 
112
    ) ; let
 
113
  ) ; let