← 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/beveled-pattern-bullet.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/beveled-pattern-bullet.scm
1
 
; The GIMP -- an image manipulation program
 
1
; GIMP - The GNU Image Manipulation Program
2
2
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
3
3
;
4
4
; Beveled pattern bullet for web pages
21
21
 
22
22
 
23
23
(define (script-fu-beveled-pattern-bullet diameter pattern transparent)
24
 
  (let* ((img (car (gimp-image-new diameter diameter RGB)))
25
 
         (background (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bullet" 100 NORMAL-MODE)))
26
 
         (bumpmap (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE))))
 
24
  (let* (
 
25
        (img (car (gimp-image-new diameter diameter RGB)))
 
26
        (background (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bullet" 100 NORMAL-MODE)))
 
27
        (bumpmap (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE)))
 
28
        )
27
29
 
28
30
    (gimp-context-push)
29
31
 
68
70
    (gimp-image-remove-layer img bumpmap)
69
71
 
70
72
    (if (= transparent FALSE)
71
 
        (gimp-image-flatten img))
 
73
        (gimp-image-flatten img))
72
74
 
73
75
    (gimp-image-undo-enable img)
74
76
    (gimp-display-new img)
75
77
 
76
 
    (gimp-context-pop)))
 
78
    (gimp-context-pop)
 
79
  )
 
80
)
77
81
 
78
82
 
79
83
(script-fu-register "script-fu-beveled-pattern-bullet"
80
 
                    _"_Bullet..."
81
 
                    "Beveled pattern bullet"
82
 
                    "Federico Mena Quintero"
83
 
                    "Federico Mena Quintero"
84
 
                    "July 1997"
85
 
                    ""
86
 
                    SF-ADJUSTMENT _"Diameter"               '(16 1 150 1 10 0 1)
87
 
                    SF-PATTERN    _"Pattern"                "Wood"
88
 
                    SF-TOGGLE     _"Transparent background" FALSE)
 
84
  _"_Bullet..."
 
85
  _"Create a beveled pattern bullet for webpages"
 
86
  "Federico Mena Quintero"
 
87
  "Federico Mena Quintero"
 
88
  "July 1997"
 
89
  ""
 
90
  SF-ADJUSTMENT _"Diameter"               '(16 1 150 1 10 0 1)
 
91
  SF-PATTERN    _"Pattern"                "Wood"
 
92
  SF-TOGGLE     _"Transparent background" FALSE
 
93
)
89
94
 
90
95
(script-fu-menu-register "script-fu-beveled-pattern-bullet"
91
 
                         _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")
 
96
                         "<Toolbox>/Xtns/Web Page Themes/Beveled Pattern")