← 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/unsharp-mask.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/unsharp-mask.scm
4
4
;;; Version 0.8
5
5
 
6
6
(define (script-fu-unsharp-mask img drw mask-size mask-opacity)
7
 
  (let* ((drawable-width (car (gimp-drawable-width drw)))
8
 
         (drawable-height (car (gimp-drawable-height drw)))
9
 
         (new-image (car (gimp-image-new drawable-width drawable-height RGB)))
10
 
         (original-layer (car (gimp-layer-new new-image
11
 
                                              drawable-width drawable-height
12
 
                                              RGB-IMAGE "Original"
13
 
                                              100 NORMAL-MODE)))
14
 
         (original-layer-for-darker #f)
15
 
         (original-layer-for-lighter #f)
16
 
         (blured-layer-for-darker #f)
17
 
         (blured-layer-for-lighter #f)
18
 
         (darker-layer #f)
19
 
         (lighter-layer #f))
 
7
  (let* (
 
8
        (drawable-width (car (gimp-drawable-width drw)))
 
9
        (drawable-height (car (gimp-drawable-height drw)))
 
10
        (new-image (car (gimp-image-new drawable-width drawable-height RGB)))
 
11
        (original-layer (car (gimp-layer-new new-image
 
12
                                             drawable-width drawable-height
 
13
                                             RGB-IMAGE "Original"
 
14
                                             100 NORMAL-MODE)))
 
15
        (original-layer-for-darker)
 
16
        (original-layer-for-lighter)
 
17
        (blured-layer-for-darker)
 
18
        (blured-layer-for-lighter)
 
19
        (darker-layer)
 
20
        (lighter-layer)
 
21
        )
20
22
 
21
23
    (gimp-selection-all img)
22
24
    (gimp-edit-copy drw)
25
27
 
26
28
    (gimp-image-add-layer new-image original-layer 0)
27
29
    (gimp-floating-sel-anchor
28
 
     (car (gimp-edit-paste original-layer FALSE)))
 
30
      (car (gimp-edit-paste original-layer FALSE)))
29
31
 
30
32
    (set! original-layer-for-darker (car (gimp-layer-copy original-layer TRUE)))
31
33
    (set! original-layer-for-lighter (car (gimp-layer-copy original-layer TRUE)))
36
38
    ;; make darker mask
37
39
    (gimp-image-add-layer new-image blured-layer-for-darker -1)
38
40
    (plug-in-gauss-iir TRUE new-image blured-layer-for-darker mask-size
39
 
                       TRUE TRUE)
 
41
                       TRUE TRUE)
40
42
    (set! blured-layer-for-lighter
41
 
          (car (gimp-layer-copy blured-layer-for-darker TRUE)))
 
43
          (car (gimp-layer-copy blured-layer-for-darker TRUE)))
42
44
    (gimp-image-add-layer new-image original-layer-for-darker -1)
43
45
    (gimp-layer-set-mode original-layer-for-darker SUBTRACT-MODE)
44
46
    (set! darker-layer
45
 
          (car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
 
47
          (car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
46
48
    (gimp-drawable-set-name darker-layer "darker mask")
47
49
    (gimp-drawable-set-visible darker-layer FALSE)
48
50
 
51
53
    (gimp-image-add-layer new-image blured-layer-for-lighter -1)
52
54
    (gimp-layer-set-mode blured-layer-for-lighter SUBTRACT-MODE)
53
55
    (set! lighter-layer
54
 
          (car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
 
56
          (car (gimp-image-merge-visible-layers new-image CLIP-TO-IMAGE)))
55
57
    (gimp-drawable-set-name lighter-layer "lighter mask")
56
58
 
57
59
    ;; combine them
64
66
    (gimp-drawable-set-visible lighter-layer TRUE)
65
67
 
66
68
    (gimp-image-undo-enable new-image)
67
 
    (gimp-displays-flush)))
68
 
 
 
69
    (gimp-displays-flush)
 
70
  )
 
71
)
69
72
 
70
73
(script-fu-register "script-fu-unsharp-mask"
71
 
                    _"_Unsharp Mask..."
72
 
                    "Make a sharp image of IMAGE's DRAWABLE by applying unsharp mask method"
73
 
                    "Shuji Narazaki <narazaki@gimp.org>"
74
 
                    "Shuji Narazaki"
75
 
                    "1997,1998"
76
 
                    ""
77
 
                    SF-IMAGE       "Image"             0
78
 
                    SF-DRAWABLE    "Drawable to apply" 0
79
 
                    SF-ADJUSTMENT _"Mask size"         '(5 1 100 1 1 0 1)
80
 
                    SF-ADJUSTMENT _"Mask opacity"      '(50 0 100 1 1 0 1))
81
 
 
82
 
(script-fu-menu-register "script-fu-unsharp-mask"
83
 
                         _"<Image>/Script-Fu/Alchemy")
 
74
  "Unsharp Mask..."
 
75
  "Make a new image from the current layer by applying the unsharp mask method"
 
76
  "Shuji Narazaki <narazaki@gimp.org>"
 
77
  "Shuji Narazaki"
 
78
  "1997,1998"
 
79
  ""
 
80
  SF-IMAGE      "Image"             0
 
81
  SF-DRAWABLE   "Drawable to apply" 0
 
82
  SF-ADJUSTMENT _"Mask size"        '(5 1 100 1 1 0 1)
 
83
  SF-ADJUSTMENT _"Mask opacity"     '(50 0 100 1 1 0 1)
 
84
)