← 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/plee/cap.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/plee/cap.scm
1
1
;
2
2
;  Plee the Bear -- gfx script tools
3
3
;
4
 
;  Copyright (C) 2005-2009 Julien Jorge, Sebastien Angibaud
 
4
;  Copyright (C) 2005-2010 Julien Jorge, Sebastien Angibaud
5
5
;
6
6
;  This program is free software; you can redistribute it and/or modify it
7
7
;  under the terms of the GNU General Public License as published by the
29
29
;
30
30
(load "../../common.scm")
31
31
 
32
 
(let ( (src_name "cap.xcf.bz2")
33
 
       (dest_name "cap.png") )
34
 
  (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
35
 
         (dest_image (car (gimp-image-new 128 32 RGB)))
36
 
         )
37
 
    (let ( (bk (car (gimp-layer-new dest_image 128 32 1 "background" 100 0)))
 
32
(define cap
 
33
  (lambda (dest_image)
 
34
 
 
35
    (let ( (src_name "cap.xcf.bz2") )
 
36
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
37
             )
 
38
 
 
39
        ; layer names
 
40
        (let ( (propeller_0 0)
 
41
               (propeller_1 1)
 
42
               (propeller_2 2)
 
43
               (propeller_3 3)
 
44
               (propeller_4 4)
 
45
               (propeller_5 5)
 
46
               (text        6)
 
47
               (base        7) )
 
48
 
 
49
          (create-layer src_image
 
50
                        (list propeller_0 text base)   0  0 34 16 dest_image )
 
51
          (create-layer src_image
 
52
                        (list propeller_1 text base)  34  0 34 16 dest_image )
 
53
          (create-layer src_image
 
54
                        (list propeller_2 text base)  68  0 34 16 dest_image )
 
55
          (create-layer src_image
 
56
                        (list propeller_3 text base)   0 16 34 16 dest_image )
 
57
          (create-layer src_image
 
58
                        (list propeller_4 text base)  34 16 34 16 dest_image )
 
59
          (create-layer src_image
 
60
                        (list propeller_5 text base)  68 16 34 16 dest_image )
 
61
          ) ; let
 
62
        ) ; let
 
63
      ) ; let
 
64
    ) ; lambda
 
65
  ) ; define cap
 
66
 
 
67
(define bath-cap
 
68
  (lambda (dest_image)
 
69
 
 
70
    (let ( (src_name "bath-cap.xcf.bz2") )
 
71
      (let ( (src_image (car (gimp-file-load 1 src_name src_name)))
 
72
             )
 
73
 
 
74
        ; layer names
 
75
        (let ( (base 0) )
 
76
 
 
77
          (create-layer src_image (list base)   0  32 34 16 dest_image )
 
78
          ) ; let
 
79
        ) ; let
 
80
      ) ; let
 
81
    ) ; lambda
 
82
  ) ; define cap
 
83
 
 
84
(let ( (dest_name "cap.png") )
 
85
  (let ( (dest_image (car (gimp-image-new 128 64 RGB))) )
 
86
    (let ( (bk (car (gimp-layer-new dest_image 128 64 1 "background" 100 0)))
38
87
           )
39
88
      (gimp-image-add-layer dest_image bk 0)
40
89
      )
41
90
 
42
 
    ( create-layer src_image '(0 6 7)   0  0 34 16 dest_image )
43
 
    ( create-layer src_image '(1 6 7)  34  0 34 16 dest_image )
44
 
    ( create-layer src_image '(2 6 7)  68  0 34 16 dest_image )
45
 
    ( create-layer src_image '(3 6 7)   0 16 34 16 dest_image )
46
 
    ( create-layer src_image '(4 6 7)  34 16 34 16 dest_image )
47
 
    ( create-layer src_image '(5 6 7)  68 16 34 16 dest_image )
 
91
    (cap dest_image)
 
92
    (bath-cap dest_image)
48
93
 
49
94
    (save-frames-and-exit dest_name dest_image)
50
95
    ) ; let