35b372ea08
2004-09-22 Michael Natterer <mitch@gimp.org> * tools/pdbgen/Makefile.am * tools/pdbgen/groups.pl * tools/pdbgen/pdb/palette.pdb: removed the "Palette" pdb group... * tools/pdbgen/pdb/context.pdb: and added its functions to the "Context" namespace instead. * app/pdb/Makefile.am * app/pdb/palette_cmds.c: removed. * app/pdb/procedural_db.c: added them to the pdb_compat hash table. * libgimp/Makefile.am * libgimp/gimppalette_pdb.[ch]: removed. * libgimp/gimppalette.[ch]: new files holding compat functions which call gimp_context_*() functions. * libgimp/gimp.h * libgimp/gimpui.c: changed accordingly. * app/pdb/context_cmds.c * app/pdb/internal_procs.c * libgimp/gimp_pdb.h * libgimp/gimpcontext_pdb.[ch]: regenerated. * plug-ins/MapObject/mapobject_image.c * plug-ins/MapObject/mapobject_preview.c * plug-ins/common/apply_lens.c * plug-ins/common/blinds.c * plug-ins/common/borderaverage.c * plug-ins/common/checkerboard.c * plug-ins/common/colortoalpha.c * plug-ins/common/cubism.c * plug-ins/common/exchange.c * plug-ins/common/film.c * plug-ins/common/gif.c * plug-ins/common/grid.c * plug-ins/common/mapcolor.c * plug-ins/common/mblur.c * plug-ins/common/mng.c * plug-ins/common/mosaic.c * plug-ins/common/papertile.c * plug-ins/common/png.c * plug-ins/common/polar.c * plug-ins/common/semiflatten.c * plug-ins/common/sinus.c * plug-ins/common/sparkle.c * plug-ins/common/vpropagate.c * plug-ins/common/warp.c * plug-ins/common/whirlpinch.c * plug-ins/gfig/gfig-style.c * plug-ins/gfli/gfli.c * plug-ins/ifscompose/ifscompose.c * plug-ins/maze/handy.c * plug-ins/pagecurl/pagecurl.c * plug-ins/pygimp/gimpmodule.c * plug-ins/script-fu/scripts/*.scm: changed accordingly.
56 lines
2 KiB
Scheme
56 lines
2 KiB
Scheme
; CLOTHIFY version 1.02
|
|
; Gives the current layer in the indicated image a cloth-like texture.
|
|
; Process invented by Zach Beane (Xath@irc.gimp.net)
|
|
;
|
|
; Tim Newsome <drz@froody.bloke.com> 4/11/97
|
|
|
|
(define (script-fu-clothify timg tdrawable bx by azimuth elevation depth)
|
|
(let*
|
|
((width (car (gimp-drawable-width tdrawable)))
|
|
(height (car (gimp-drawable-height tdrawable)))
|
|
(img (car (gimp-image-new width height RGB)))
|
|
; (layer-two (car (gimp-layer-new img width height RGB-IMAGE "Y Dots" 100 MULTIPLY-MODE)))
|
|
(layer-one (car (gimp-layer-new img width height RGB-IMAGE "X Dots" 100 NORMAL-MODE))))
|
|
|
|
(gimp-context-push)
|
|
|
|
(gimp-image-undo-disable img)
|
|
(gimp-context-set-background '(255 255 255))
|
|
(gimp-edit-fill layer-one BACKGROUND-FILL)
|
|
(gimp-image-add-layer img layer-one 0)
|
|
|
|
(plug-in-noisify 1 img layer-one FALSE 0.7 0.7 0.7 0.7)
|
|
|
|
(set! layer-two (car (gimp-layer-copy layer-one 0)))
|
|
(gimp-layer-set-mode layer-two MULTIPLY-MODE)
|
|
(gimp-image-add-layer img layer-two 0)
|
|
|
|
(plug-in-gauss-rle 1 img layer-one bx TRUE FALSE)
|
|
(plug-in-gauss-rle 1 img layer-two by FALSE TRUE)
|
|
(gimp-image-flatten img)
|
|
(set! bump-layer (car (gimp-image-get-active-layer img)))
|
|
|
|
(plug-in-c-astretch 1 img bump-layer)
|
|
(plug-in-noisify 1 img bump-layer FALSE 0.2 0.2 0.2 0.2)
|
|
|
|
(plug-in-bump-map 1 img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
|
|
(gimp-image-delete img)
|
|
(gimp-displays-flush)
|
|
|
|
(gimp-context-pop)))
|
|
|
|
|
|
(script-fu-register "script-fu-clothify"
|
|
_"<Image>/Script-Fu/Alchemy/_Clothify..."
|
|
"Gives the current layer a cloth-like texture"
|
|
"Tim Newsome <drz@froody.bloke.com>"
|
|
"Tim Newsome"
|
|
"4/11/97"
|
|
"RGB* GRAY*"
|
|
SF-IMAGE "Input image" 0
|
|
SF-DRAWABLE "Input drawable" 0
|
|
SF-ADJUSTMENT _"Blur X" '(9 3 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Blur Y" '(9 3 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 1 0)
|
|
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 1 0)
|
|
SF-ADJUSTMENT _"Depth" '(3 1 50 1 10 0 1))
|