← 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/plee-alt.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/plee-alt.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 apply-to
 
33
  (lambda (src_name dest_name src_color threshold new_color)
 
34
 
 
35
    (let ( (dest_image (car (gimp-file-load 1 src_name src_name)))
 
36
           )
 
37
      (let ( (layer (car (gimp-image-get-active-drawable dest_image)))
 
38
             )
 
39
 
 
40
        (gimp-by-color-select layer src_color threshold 2 1 0 0 1)
 
41
                                        ; 90 is the threshold
 
42
                                        ; 2 is CHANEL-OP-REPLACE
 
43
                                        ; 1 is antialiasing = true
 
44
                                        ; 0 is feather = false
 
45
                                        ; 0 is the feather radius
 
46
                                        ; 1 tells to use the composite image
 
47
 
 
48
        (gimp-context-set-foreground new_color )
 
49
        (gimp-edit-bucket-fill layer 0 21 100 0 1 0 0)
 
50
                                        ; 0 is FG-BUCKET-FILL
 
51
                                        ; 21 is GRAIN-MERGE-MODE
 
52
                                        ; 100 is the opacity of the final bucket
 
53
                                        ; 0 is the threshold (not used)
 
54
                                        ; 1 tells to use the composite image
 
55
                                        ; 0 is the x coordinate of the fill
 
56
                                        ; 0 is the y coordinate of the fill
 
57
 
 
58
 
 
59
        (save-frames dest_name dest_image)
 
60
 
 
61
        ) ; let
 
62
      ) ; let
 
63
    ) ; lambda
 
64
  ) ; define apply-to
 
65
 
 
66
(apply-to "plee-1.png" "plee-alt-1.png" '(190 135 19) 90 '(84 75 10))
 
67
(apply-to "plee-2.png" "plee-alt-2.png" '(190 135 19) 90 '(84 75 10))
 
68
(apply-to "plee-3.png" "plee-alt-3.png" '(190 135 19) 90 '(84 75 10))
 
69
(apply-to "plee-4.png" "plee-alt-4.png" '(190 135 19) 90 '(84 75 10))
 
70
(apply-to "cap.png" "cap-alt.png" '(154 133 142) 63 '(97 37 37))
 
71
 
 
72
(gimp-quit 1)