← Back to branch summary

~ubuntu-branches/ubuntu/oneiric/gimp/oneiric-security

« back to all changes in this revision

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

  • Committer: Package Import Robot
  • Author(s): Sebastien Bacher
  • Date: 2010-07-12 15:08:08 UTC
  • mfrom: (1.1.23) (0.4.6 sid)
  • Revision ID: package-import@ubuntu.com-20100712150808-db9xqgtxrvpyl3g2
Tags: 2.6.10-1ubuntu1
Resync on Debian, dropping changes which are in the new version

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/chalk.scm
46
46
    (plug-in-spread RUN-NONINTERACTIVE img logo-layer 5.0 5.0)
47
47
    (plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 0 0 0 TRUE TRUE)
48
48
    (plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 1 0 0 TRUE TRUE)
49
 
    (plug-in-sobel RUN-NONINTERACTIVE img logo-layer TRUE TRUE TRUE)
50
 
    (gimp-levels logo-layer 0 0 120 3.5 0 255)
51
 
 
52
 
    ; work-around for sobel edge detect screw-up (why does this happen?)
53
 
    ; the top line of the image has some garbage instead of the bgcolor
54
 
    (gimp-rect-select img 0 0 width 1 CHANNEL-OP-ADD FALSE 0)
55
 
    (gimp-edit-clear logo-layer)
 
49
 
 
50
    ; sobel doesn't work on a layer with transparency, so merge layers:
 
51
    (let ((logo-layer
 
52
           (car (gimp-image-merge-down img logo-layer EXPAND-AS-NECESSARY))))
 
53
      (plug-in-sobel RUN-NONINTERACTIVE img logo-layer TRUE TRUE TRUE)
 
54
      (gimp-levels logo-layer 0 0 120 3.5 0 255)
 
55
 
 
56
      ; work-around for sobel edge detect screw-up (why does this happen?)
 
57
      ; the top line of the image has some garbage instead of the bgcolor
 
58
      (gimp-rect-select img 0 0 width 1 CHANNEL-OP-ADD FALSE 0)
 
59
      (gimp-edit-clear logo-layer)
 
60
      )
 
61
 
56
62
    (gimp-selection-none img)
57
63
 
58
64
    (gimp-context-pop)
121
127
  ""
122
128
  SF-STRING     _"Text"               "CHALK"
123
129
  SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1)
124
 
  SF-FONT       _"Font"               "Cooper"
 
130
  SF-FONT       _"Font"               "Sans"
125
131
  SF-COLOR      _"Background color"   "black"
126
132
  SF-COLOR      _"Chalk color"        "white"
127
133
)