← 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-hrule.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-hrule.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 hrule for web pages
21
21
 
22
22
 
23
23
(define (script-fu-beveled-pattern-hrule width height pattern)
24
 
  (let* ((img (car (gimp-image-new width height RGB)))
25
 
         (background (car (gimp-layer-new img
26
 
                                          width height RGB-IMAGE
27
 
                                          "Hrule" 100 NORMAL-MODE)))
28
 
         (bumpmap (car (gimp-layer-new img
29
 
                                       width height RGBA-IMAGE
30
 
                                       "Bumpmap" 100 NORMAL-MODE))))
 
24
  (let* (
 
25
        (img (car (gimp-image-new width height RGB)))
 
26
        (background (car (gimp-layer-new img
 
27
                                         width height RGB-IMAGE
 
28
                                         "Hrule" 100 NORMAL-MODE)))
 
29
        (bumpmap (car (gimp-layer-new img
 
30
                                      width height RGBA-IMAGE
 
31
                                      "Bumpmap" 100 NORMAL-MODE)))
 
32
        )
31
33
 
32
34
    (gimp-context-push)
33
35
 
66
68
    (gimp-image-undo-enable img)
67
69
    (gimp-display-new img)
68
70
 
69
 
    (gimp-context-pop)))
 
71
    (gimp-context-pop)
 
72
  )
 
73
)
70
74
 
71
75
 
72
76
(script-fu-register "script-fu-beveled-pattern-hrule"
73
 
                    _"_Hrule..."
74
 
                    "Beveled pattern hrule"
75
 
                    "Federico Mena Quintero"
76
 
                    "Federico Mena Quintero"
77
 
                    "July 1997"
78
 
                    ""
79
 
                    SF-ADJUSTMENT _"Width"   '(480 5 1500 1 10 0 1)
80
 
                    SF-ADJUSTMENT _"Height"  '(16 1 100 1 10 0 1)
81
 
                    SF-PATTERN    _"Pattern" "Wood")
 
77
    _"_Hrule..."
 
78
    _"Create a beveled pattern hrule for webpages"
 
79
    "Federico Mena Quintero"
 
80
    "Federico Mena Quintero"
 
81
    "July 1997"
 
82
    ""
 
83
    SF-ADJUSTMENT _"Width"   '(480 5 1500 1 10 0 1)
 
84
    SF-ADJUSTMENT _"Height"  '(16 1 100 1 10 0 1)
 
85
    SF-PATTERN    _"Pattern" "Wood"
 
86
)
82
87
 
83
88
(script-fu-menu-register "script-fu-beveled-pattern-hrule"
84
 
                         _"<Toolbox>/Xtns/Script-Fu/Web Page Themes/Beveled Pattern")
 
89
                         "<Toolbox>/Xtns/Web Page Themes/Beveled Pattern")