← 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/floating-log.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/floating-log.scm
1
 
;
2
 
;  Plee the Bear -- gfx script tools
3
 
;
4
 
;  Copyright (C) 2005-2009 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
 
(let ( (image_name "floating-log.xcf.bz2")
33
 
       (dest_name "floating-log.png") )
34
 
  (let ( (src_image (car (gimp-file-load 1 image_name image_name)))
35
 
         (dest_image (car (gimp-image-new 256 256 RGB)))
36
 
         )
37
 
    (let ( (bk (car (gimp-layer-new dest_image 256 256 1 "background" 100 0)))
38
 
           )
39
 
      (gimp-image-add-layer dest_image bk 0)
40
 
      )
41
 
 
42
 
    ( create-layer-crop src_image '(0 1 2 3 4 5 6 7 8 9)
43
 
                        82 18 253 206
44
 
                         0  0 127 103 dest_image '() )
45
 
    ( create-layer-crop src_image '(0 1 2 3     6 7 8 9)
46
 
                        82  18 253 206
47
 
                         0 103 127 103 dest_image '() )
48
 
    ( create-layer-crop src_image '(        4 5 6 7 8 9)
49
 
                         93 94 242 130
50
 
                        127  0 121  65 dest_image '() )
51
 
    ( create-layer-crop src_image '(            6 7 8 9)
52
 
                         93 113 242 111
53
 
                        127  65 121  56 dest_image '() )
54
 
    
55
 
    (save-frames-and-exit dest_name dest_image)
56
 
    ) ; let
57
 
  ) ; let
58