← Back to branch summary

~ubuntu-branches/ubuntu/jaunty/gimp/jaunty-security

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/scripts/frosty-logo.scm

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Holbach
  • Date: 2007-05-02 16:33:03 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20070502163303-bvzhjzbpw8qglc4y
Tags: 2.3.16-1ubuntu1
* Resynchronized with Debian, remaining Ubuntu changes:
  - debian/rules: i18n magic.
* debian/control.in:
  - Maintainer: Ubuntu Core Developers <ubuntu-devel@lists.ubuntu.com>
* debian/patches/02_help-message.patch,
  debian/patches/03_gimp.desktop.in.in.patch,
  debian/patches/10_dont_show_wizard.patch: updated.
* debian/patches/04_composite-signedness.patch,
  debian/patches/05_add-letter-spacing.patch: dropped, used upstream.

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/frosty-logo.scm
3
3
;   Written by Spencer Kimball
4
4
 
5
5
(define (apply-frosty-logo-effect img
6
 
                                  logo-layer
7
 
                                  size
8
 
                                  bg-color)
9
 
  (let* ((border (/ size 5))
10
 
         (width (+ (car (gimp-drawable-width logo-layer)) border))
11
 
         (height (+ (car (gimp-drawable-height logo-layer)) border))
12
 
         (logo-layer-mask (car (gimp-layer-create-mask logo-layer ADD-BLACK-MASK)))
13
 
         (sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE "Sparkle" 100 NORMAL-MODE)))
14
 
         (matte-layer (car (gimp-layer-new img width height RGBA-IMAGE "Matte" 100 NORMAL-MODE)))
15
 
         (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 90 MULTIPLY-MODE)))
16
 
         (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
17
 
         (selection 0))
18
 
 
19
 
    (define (for-each proc seq)
20
 
      (if (not (null? seq))
21
 
        (begin
22
 
          (proc (car seq))
23
 
          (for-each proc (cdr seq)))))
 
6
                                  logo-layer
 
7
                                  size
 
8
                                  bg-color)
 
9
  (let* (
 
10
        (border (/ size 5))
 
11
        (width (+ (car (gimp-drawable-width logo-layer)) border))
 
12
        (height (+ (car (gimp-drawable-height logo-layer)) border))
 
13
        (logo-layer-mask (car (gimp-layer-create-mask logo-layer ADD-BLACK-MASK)))
 
14
        (sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE
 
15
                                            "Sparkle" 100 NORMAL-MODE)))
 
16
        (matte-layer (car (gimp-layer-new img width height RGBA-IMAGE
 
17
                                          "Matte" 100 NORMAL-MODE)))
 
18
        (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE
 
19
                                           "Shadow" 90 MULTIPLY-MODE)))
 
20
        (bg-layer (car (gimp-layer-new img width height RGB-IMAGE
 
21
                                       "Background" 100 NORMAL-MODE)))
 
22
        (selection 0)
 
23
        )
24
24
 
25
25
    (gimp-context-push)
26
26
 
43
43
    (plug-in-noisify 1 img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
44
44
    (plug-in-c-astretch 1 img sparkle-layer)
45
45
    (gimp-selection-none img)
46
 
    (plug-in-sparkle 1 img sparkle-layer 0.03 0.5 (/ (min width height) 2) 6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
 
46
    (plug-in-sparkle 1 img sparkle-layer 0.03 0.5
 
47
                     (/ (min width height) 2)
 
48
                     6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
47
49
    (gimp-levels sparkle-layer 1 0 255 0.2 0 255)
48
50
    (gimp-levels sparkle-layer 2 0 255 0.7 0 255)
49
51
    (gimp-selection-layer-alpha sparkle-layer)
72
74
    (gimp-edit-stroke logo-layer)
73
75
    (gimp-selection-none img)
74
76
    (gimp-image-remove-channel img selection)
75
 
    (for-each (lambda (the-layer) 
76
 
                (gimp-layer-resize the-layer (- width border) (- height border) (- border) (- border))
77
 
                ; (gimp-layer-translate the-layer border border)
78
 
                )
79
 
              (list sparkle-layer matte-layer bg-layer))
 
77
 
 
78
    (for-each (lambda (the-layer)
 
79
              (gimp-layer-resize the-layer (- width border) (- height border)
 
80
                                           (- border) (- border))
 
81
              ; (gimp-layer-translate the-layer border border)
 
82
              )
 
83
              (list sparkle-layer matte-layer bg-layer)
 
84
    )
 
85
 
80
86
    (gimp-layer-resize shadow-layer (- width border) (- height border) 0 0)
81
87
    (gimp-layer-translate shadow-layer border border)
 
88
 
82
89
    (script-fu-util-image-resize-from-layer img logo-layer)
83
 
    (gimp-context-pop)))
 
90
 
 
91
    (gimp-context-pop)
 
92
  )
 
93
)
84
94
 
85
95
(define (script-fu-frosty-logo-alpha img
86
 
                                     logo-layer
87
 
                                     size
88
 
                                     bg-color)
 
96
                                     logo-layer
 
97
                                     size
 
98
                                     bg-color)
89
99
  (begin
90
100
    (gimp-image-undo-group-start img)
91
101
    (apply-frosty-logo-effect img logo-layer size bg-color)
92
102
    (gimp-image-undo-group-end img)
93
 
    (gimp-displays-flush)))
94
 
 
 
103
    (gimp-displays-flush)
 
104
  )
 
105
)
95
106
 
96
107
(script-fu-register "script-fu-frosty-logo-alpha"
97
 
                    _"_Frosty..."
98
 
                    "Frozen logos with drop shadows"
99
 
                    "Spencer Kimball & Ed Mackey"
100
 
                    "Spencer Kimball & Ed Mackey"
101
 
                    "1997"
102
 
                    "RGBA"
103
 
                    SF-IMAGE      "Image"                 0
104
 
                    SF-DRAWABLE   "Drawable"              0
105
 
                    SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1)
106
 
                    SF-COLOR      _"Background color"     '(255 255 255))
 
108
  _"_Frosty..."
 
109
  _"Add a frost effect to the selected region (or alpha) with an added drop shadow"
 
110
  "Spencer Kimball & Ed Mackey"
 
111
  "Spencer Kimball & Ed Mackey"
 
112
  "1997"
 
113
  "RGBA"
 
114
  SF-IMAGE      "Image"                 0
 
115
  SF-DRAWABLE   "Drawable"              0
 
116
  SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1)
 
117
  SF-COLOR      _"Background color"     "white"
 
118
)
107
119
 
108
120
(script-fu-menu-register "script-fu-frosty-logo-alpha"
109
 
                         _"<Image>/Script-Fu/Alpha to Logo")
 
121
                         "<Image>/Filters/Alpha to Logo")
 
122
 
110
123
 
111
124
(define (script-fu-frosty-logo text
112
 
                               size
113
 
                               font
114
 
                               bg-color)
115
 
  (let* ((img (car (gimp-image-new 256 256 RGB)))
116
 
         (border (/ size 5))
117
 
         (text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS font))))
 
125
                               size
 
126
                               font
 
127
                               bg-color)
 
128
  (let* (
 
129
        (img (car (gimp-image-new 256 256 RGB)))
 
130
        (border (/ size 5))
 
131
        (text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS font)))
 
132
        )
118
133
    (gimp-image-undo-disable img)
119
 
    (gimp-drawable-set-name text-layer text)
120
134
    (apply-frosty-logo-effect img text-layer size bg-color)
121
135
    (gimp-image-undo-enable img)
122
 
    (gimp-display-new img)))
 
136
    (gimp-display-new img)
 
137
  )
 
138
)
123
139
 
124
140
(script-fu-register "script-fu-frosty-logo"
125
 
                    _"_Frosty..."
126
 
                    "Frozen logos with drop shadows"
127
 
                    "Spencer Kimball & Ed Mackey"
128
 
                    "Spencer Kimball & Ed Mackey"
129
 
                    "1997"
130
 
                    ""
131
 
                    SF-STRING     _"Text"               "The GIMP"
132
 
                    SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
133
 
                    SF-FONT       _"Font"               "Becker"
134
 
                    SF-COLOR      _"Background color"   '(255 255 255))
 
141
  _"_Frosty..."
 
142
  _"Create frozen logo with an added drop shadow"
 
143
  "Spencer Kimball & Ed Mackey"
 
144
  "Spencer Kimball & Ed Mackey"
 
145
  "1997"
 
146
  ""
 
147
  SF-STRING _"Text"                   "GIMP"
 
148
  SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
 
149
  SF-FONT   _"Font"                   "Becker"
 
150
  SF-COLOR  _"Background color"       "white"
 
151
)
135
152
 
136
153
(script-fu-menu-register "script-fu-frosty-logo"
137
 
                         _"<Toolbox>/Xtns/Script-Fu/Logos")
 
154
                         "<Toolbox>/Xtns/Logos")