← 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/swirltile.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/swirltile.scm
9
9
 
10
10
 
11
11
(define (script-fu-swirl-tile depth azimuth elevation blurRadius height width whirl-amount noise-level bg-color)
12
 
  (let* ((img (car (gimp-image-new width height RGB)))
13
 
         (layer-one (car (gimp-layer-new img width height
14
 
                                         RGB-IMAGE "TEST" 100 NORMAL-MODE)))
15
 
         (cx (/ width 2))
16
 
         (cy (/ height 2)))
 
12
  (let* (
 
13
        (img (car (gimp-image-new width height RGB)))
 
14
        (layer-one (car (gimp-layer-new img width height
 
15
                                        RGB-IMAGE "TEST" 100 NORMAL-MODE)))
 
16
        (cx (/ width 2))
 
17
        (cy (/ height 2))
 
18
        )
17
19
 
18
20
    (gimp-context-push)
19
21
 
41
43
    (gimp-display-new img)
42
44
    (gimp-image-undo-enable img)
43
45
 
44
 
    (gimp-context-pop)))
 
46
    (gimp-context-pop)
 
47
  )
 
48
)
45
49
 
46
50
(script-fu-register "script-fu-swirl-tile"
47
 
                    _"Swirl-_Tile..."
48
 
                    "Create an interesting swirled tile"
49
 
                    "Adrian Likins <aklikins@eos.ncsu.edu>"
50
 
                    "Adrian Likins"
51
 
                    "1997"
52
 
                    ""
53
 
                    SF-ADJUSTMENT _"Depth"            '(10 0 64 1 1 0 0)
54
 
                    SF-ADJUSTMENT _"Azimuth"          '(135 0 360 1 10 0 0)
55
 
                    SF-ADJUSTMENT _"Elevation"        '(45 0 90 1 10 0 0)
56
 
                    SF-ADJUSTMENT _"Blur radius"      '(3 0 128 1 10 0 0)
57
 
                    SF-ADJUSTMENT _"Height"           '(256 0 1024 1 10 0 1)
58
 
                    SF-ADJUSTMENT _"Width"            '(256 0 1024 1 10 0 1)
59
 
                    SF-ADJUSTMENT _"Whirl amount"     '(320 0 360 1 10 0 0)
60
 
                    SF-ADJUSTMENT _"Roughness"        '(.5 0 1 .1 .01 2 1)
61
 
                    SF-COLOR      _"Background color" '(255 255 255))
 
51
  _"Swirl-_Tile..."
 
52
  _"Create an image filled with a swirled tile effect"
 
53
  "Adrian Likins <aklikins@eos.ncsu.edu>"
 
54
  "Adrian Likins"
 
55
  "1997"
 
56
  ""
 
57
  SF-ADJUSTMENT _"Depth"           '(10 0 64 1 1 0 0)
 
58
  SF-ADJUSTMENT _"Azimuth"          '(135 0 360 1 10 0 0)
 
59
  SF-ADJUSTMENT _"Elevation"        '(45 0 90 1 10 0 0)
 
60
  SF-ADJUSTMENT _"Blur radius"      '(3 0 128 1 10 0 0)
 
61
  SF-ADJUSTMENT _"Height"           '(256 0 1024 1 10 0 1)
 
62
  SF-ADJUSTMENT _"Width"            '(256 0 1024 1 10 0 1)
 
63
  SF-ADJUSTMENT _"Whirl amount"     '(320 0 360 1 10 0 0)
 
64
  SF-ADJUSTMENT _"Roughness"        '(.5 0 1 .1 .01 2 1)
 
65
  SF-COLOR      _"Background color" "white"
 
66
)
62
67
 
63
68
(script-fu-menu-register "script-fu-swirl-tile"
64
 
                         _"<Toolbox>/Xtns/Script-Fu/Patterns")
 
69
                         "<Toolbox>/Xtns/Patterns")