← 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/misc.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/misc.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 soul-effect
 
33
  (lambda (dest_image)
 
34
 
 
35
    (let ( (src_name "soul-effect.xcf.bz2") )
 
36
      (let ( (src_image (car (gimp-file-load 1 src_name src_name))) )
 
37
 
 
38
        ; layer names
 
39
        (let ( (rays_m 0)
 
40
               (rays   1)
 
41
               (colors 2)
 
42
               (body   3) )
 
43
 
 
44
          (create-layer src_image
 
45
                        (list rays_m rays colors body)
 
46
                        0 0 175 186 dest_image)
 
47
          ) ; let
 
48
        ) ; let
 
49
      ) ; let
 
50
    ) ; lambda
 
51
  ) ; define soul-effect
 
52
 
 
53
(let ( (dest_name "misc.png") )
 
54
  (let ( (dest_image (car (gimp-image-new 256 256 RGB))) )
 
55
    (let ( (bk (car (gimp-layer-new dest_image 512 512 1 "background" 100 0)))
 
56
           )
 
57
      (gimp-image-add-layer dest_image bk 0)
 
58
      )
 
59
 
 
60
    (soul-effect dest_image)
 
61
 
 
62
    (save-frames-and-exit dest_name dest_image);
 
63
    ) ; let
 
64
  ) ; let