Commit 9db50bc7 authored by Henrik Brix Andersen's avatar Henrik Brix Andersen Committed by Henrik Brix Andersen

plug-ins/script-fu/scripts/beveled-pattern-heading.scm

2004-01-07 Henrik Brix Andersen <brix@gimp.org>

* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
* plug-ins/script-fu/scripts/image-structure.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/3d-outline.scm
* plug-ins/script-fu/scripts/add-bevel.scm
* plug-ins/script-fu/scripts/line-nova.scm
* plug-ins/script-fu/scripts/starburst-logo.scm
* plug-ins/script-fu/scripts/chip-away.scm
* plug-ins/script-fu/scripts/sphere.scm
* plug-ins/script-fu/scripts/hsv-graph.scm
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/burn-in-anim.scm
* plug-ins/script-fu/scripts/starscape-logo.scm
* plug-ins/script-fu/scripts/sota-chrome-logo.scm
* plug-ins/script-fu/scripts/chrome-it.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm:
s/gimp-bucket-fill/gimp-edit-bucket-fill/ + whitespace clean-up.
parent 2ddfcf85
2004-01-07 Henrik Brix Andersen <brix@gimp.org>
* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
* plug-ins/script-fu/scripts/image-structure.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/3d-outline.scm
* plug-ins/script-fu/scripts/add-bevel.scm
* plug-ins/script-fu/scripts/line-nova.scm
* plug-ins/script-fu/scripts/starburst-logo.scm
* plug-ins/script-fu/scripts/chip-away.scm
* plug-ins/script-fu/scripts/sphere.scm
* plug-ins/script-fu/scripts/hsv-graph.scm
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/burn-in-anim.scm
* plug-ins/script-fu/scripts/starscape-logo.scm
* plug-ins/script-fu/scripts/sota-chrome-logo.scm
* plug-ins/script-fu/scripts/chrome-it.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm:
s/gimp-bucket-fill/gimp-edit-bucket-fill/ + whitespace clean-up.
2004-01-07 Michael Natterer <mitch@gimp.org>
* tools/pdbgen/pdb/gimprc.pdb: removed redundant "success = TRUE"
......@@ -12,7 +36,7 @@
* Made 2.0pre1 release.
2004-01-07 Sven Neumann <sven@gimp.org>
* configure.in: set GIMP_VERSION to 2.0pre1.
* HACKING
......@@ -60,7 +60,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill pattern PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map noninteractive img pattern layer2
110.0 45.0 4 0 0 0 0 TRUE FALSE 0)
......@@ -81,7 +81,7 @@
(gimp-drawable-set-visible layer2 FALSE)
(gimp-drawable-set-visible pattern TRUE)
;;(set! final (car (gimp-image-flatten img)))
(gimp-palette-set-background old-bg)
(gimp-palette-set-foreground old-fg)))
......
......@@ -3,17 +3,17 @@
;
; add-bevel.scm version 1.03
; Time-stamp: <1997-12-16 09:17:24 ard>
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -21,7 +21,7 @@
; Copyright (C) 1997 Andrew Donkin (ard@cs.waikato.ac.nz)
; Contains code from add-shadow.scm by Sven Neumann
; (neumanns@uni-duesseldorf.de) (thanks Sven).
;
;
; Adds a bevel to an image. See http://www.cs.waikato.ac.nz/~ard/gimp/
;
; If there is a selection, it is bevelled.
......@@ -63,7 +63,7 @@
; Sometimes (and that's the scary bit) gives bogloads of GTK warnings.
;
(define (script-fu-add-bevel img
drawable
thickness
......@@ -131,13 +131,13 @@
(set! greyness (/ (* index 255) thickness))
(gimp-palette-set-background (list greyness greyness greyness))
;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-editbucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-shrink image 1)
(set! index (+ index 1))
)
; Now the white interior
(gimp-palette-set-background '(255 255 255))
(gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill bump-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
;------------------------------------------------------------
;
......
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
;
; Beveled pattern arrow for web pages
; Copyright (C) 1997 Federico Mena Quintero
; federico@nuclecu.unam.mx
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -85,7 +85,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......@@ -141,8 +141,8 @@
"July 1997"
""
SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1)
SF-OPTION _"Orientation" '(_"Right"
_"Left"
_"Up"
SF-OPTION _"Orientation" '(_"Right"
_"Left"
_"Up"
_"Down")
SF-PATTERN _"Pattern" "Wood")
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
;
; Beveled pattern bullet for web pages
; Copyright (C) 1997 Federico Mena Quintero
; federico@nuclecu.unam.mx
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -34,7 +34,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
;
; Beveled pattern button for web pages
; Copyright (C) 1997 Federico Mena Quintero
; federico@nuclecu.unam.mx
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -53,7 +53,7 @@
(text-width text-extents)))
(height (+ (* 2 ypadding)
(+ ascent descent)))
(img (car (gimp-image-new width height RGB)))
(background (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img width height RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE)))
......@@ -70,7 +70,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
;
; Beveled pattern heading for web pages
; Copyright (C) 1997 Federico Mena Quintero
; federico@nuclecu.unam.mx
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -51,7 +51,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
;
; Beveled pattern hrule for web pages
; Copyright (C) 1997 Federico Mena Quintero
; federico@nuclecu.unam.mx
;
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -34,7 +34,7 @@
(gimp-palette-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
......@@ -34,11 +34,11 @@
;--- check image and work on a copy
(if (= (car (gimp-image-get-layers org-img)) 2)
;--- main program structure starts here, begin of "if-1"
(begin
(set! img (car (gimp-image-duplicate org-img)))
(gimp-image-undo-disable img)
(gimp-image-undo-disable img)
(if (> (car (gimp-drawable-type org-layer)) 1 )
(gimp-image-convert-rgb img))
(set! source-layer (aref (cadr (gimp-image-get-layers img)) 0 ))
......@@ -101,8 +101,8 @@
(if (= fadeout FALSE)
(begin
(gimp-palette-set-foreground '(255 255 255))
(gimp-bucket-fill bl-mask FG-BUCKET-FILL NORMAL-MODE
100 255 0 0 0)))
(gimp-edit-bucket-fill bl-mask FG-BUCKET-FILL NORMAL-MODE
100 255 0 0 0)))
(gimp-layer-remove-mask bl-layer MASK-APPLY)
......
......@@ -13,7 +13,7 @@
; Keep bump layer? - whether to keep the layer used as the bump map
; fill bg with pattern? - whether to fill the background with the pattern or leave it white
; Keep Backgroun - whether or not to remove the background layer
;
;
; Adrian Likins (Adrian@gimp.org)
; Jan 11, 1998 v1
;
......@@ -23,12 +23,12 @@
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
......@@ -52,7 +52,7 @@
(bump-layer (car (gimp-layer-new img width height RGBA-IMAGE "Bump Layer" 100 NORMAL-MODE)))
(old-fg (car (gimp-palette-get-foreground)))
(old-bg (car (gimp-palette-get-background)))
(old-pattern (car (gimp-patterns-get-pattern))))
(old-pattern (car (gimp-patterns-get-pattern))))
(script-fu-util-image-resize-from-layer img logo-layer)
(gimp-image-add-layer img bg-layer 1)
(gimp-layer-set-preserve-trans logo-layer TRUE)
......@@ -62,7 +62,7 @@
(gimp-selection-all img)
(if (= bg-fill TRUE)
(gimp-bucket-fill bg-layer 2 NORMAL-MODE 100 255 FALSE 1 1)
(gimp-edit-bucket-fill bg-layer 2 NORMAL-MODE 100 255 FALSE 1 1)
(gimp-edit-fill bg-layer BACKGROUND-FILL))
(gimp-selection-all img)
......@@ -70,18 +70,18 @@
(gimp-selection-none img)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill bump-layer BACKGROUND-FILL)
(gimp-bucket-fill logo-layer 2 NORMAL-MODE 100 255 FALSE 1 1)
(gimp-edit-bucket-fill logo-layer 2 NORMAL-MODE 100 255 FALSE 1 1)
(gimp-selection-none img)
(gimp-image-add-layer img bump-layer 1)
(gimp-layer-set-preserve-trans bump-layer FALSE)
(plug-in-spread 1 img bump-layer spread-amount spread-amount)
(gimp-selection-layer-alpha bump-layer)
(plug-in-gauss-rle 1 img bump-layer blur-amount TRUE TRUE)
(gimp-selection-none img)
(plug-in-bump-map 1 img logo-layer bump-layer 135.00 25.0 60 0 0 0 0 TRUE invert 1)
(gimp-drawable-set-visible bump-layer FALSE)
......@@ -105,7 +105,7 @@
(if (= keep-back FALSE)
(gimp-image-remove-layer img bg-layer))
(gimp-patterns-set-pattern old-pattern)
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
......
......@@ -152,7 +152,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")
(gimp-bucket-fill bg-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill bg-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-image-convert-rgb img)
......
; glossy-patterned-shadowed-and-bump-mapped-logo
; creates anything you can create with it :)
; (use it wisely, use it in peace...)
; (use it wisely, use it in peace...)
;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
......@@ -60,7 +60,7 @@
(gimp-palette-set-background bg-color)
(gimp-selection-all img)
(gimp-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-palette-set-background old-bg)
......@@ -73,7 +73,7 @@
(if (= use-pattern-text TRUE)
(begin
(gimp-patterns-set-pattern pattern-text)
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns)))
(if (= use-pattern-text FALSE)
......@@ -99,7 +99,7 @@
(if (= use-pattern-outline TRUE)
(begin
(gimp-patterns-set-pattern pattern-outline)
(gimp-bucket-fill grow-me PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns)))
(if (= use-pattern-outline FALSE)
......@@ -121,10 +121,10 @@
(begin
(gimp-selection-layer-alpha grow-me)
(gimp-patterns-set-pattern pattern-overlay)
(gimp-bucket-fill grow-me PATTERN-BUCKET-FILL OVERLAY 100 0 FALSE 0 0)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL OVERLAY 100 0 FALSE 0 0)
(gimp-patterns-set-pattern old-patterns)
(gimp-selection-none img)))
(if (= shadow-toggle TRUE)
(begin
(gimp-selection-layer-alpha logo-layer)
......
......@@ -151,7 +151,7 @@
(define (fill-color-band img drawable x scale x-base y-base color)
(gimp-palette-set-foreground color)
(gimp-rect-select img (+ x-base (* scale x)) 0 scale y-base REPLACE FALSE 0)
(gimp-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill drawable FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img))
(define (plot-hsv img drawable x scale x-base y-base hsv)
......
......@@ -13,7 +13,7 @@
(if (not (symbol-bound? 'script-fu-show-image-structure-new-image?
(the-environment)))
(define script-fu-show-image-structure-new-image? TRUE))
(if (not (symbol-bound? 'script-fu-show-image-structure-space
(if (not (symbol-bound? 'script-fu-show-image-structure-space
(the-environment)))
(define script-fu-show-image-structure-space 50))
(if (not (symbol-bound? 'script-fu-show-image-structure-shear-length
......@@ -85,10 +85,10 @@
(gimp-selection-invert img)
(gimp-layer-set-preserve-trans layer FALSE)
(gimp-palette-set-foreground padding-color)
(gimp-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE
padding-opacity 0 0 0 0)
(gimp-edit-bucket-fill layer FG-BUCKET-FILL NORMAL-MODE
padding-opacity 0 0 0 0)
(gimp-selection-none img)))
(gimp-layer-translate layer
(+ border shear-length) (+ border (* space index)))
(gimp-shear layer TRUE 0 (* (/ (car (gimp-drawable-height layer))
......
......@@ -59,7 +59,7 @@
(+ (nth 1 drw-offsets) (/ drw-height 2))
(* index dir-deg/line))
(set! index (+ index 1)))
(gimp-bucket-fill drw FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill drw FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(if old-selection
(begin
(gimp-selection-load old-selection)
......
......@@ -88,7 +88,7 @@
(old-bg (car (gimp-palette-get-background)))
(old-brush (car (gimp-brushes-get-brush)))
(old-pattern (car (gimp-patterns-get-pattern))))
(gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0)
(gimp-image-add-layer img shadow 0)
......@@ -149,7 +149,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")
(gimp-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-image-convert-rgb img)
......
......@@ -48,7 +48,7 @@
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h
REPLACE TRUE TRUE 7.5)
(gimp-bucket-fill drawable BG-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0)))
(gimp-edit-bucket-fill drawable BG-BUCKET-FILL MULTIPLY 100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius)
(* 2 radius) (* 2 radius) REPLACE TRUE FALSE 0)
......
......@@ -38,7 +38,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern "Crack")
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-selection-layer-alpha logo-layer)
......
......@@ -103,7 +103,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern "Stone")
(gimp-bucket-fill bump-channel PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill bump-channel PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map 1 img logo-layer bump-channel
135.0 45.0 4 0 0 0 0 FALSE FALSE 0)
(gimp-image-remove-channel img bump-channel)
......
; This is a slightly modified copy of the sphere script to show and test
; This is a slightly modified copy of the sphere script to show and test
; the possibilities of the new Script-Fu API extensions.
;
; ----------------------------------------------------------------------
; SF-ADJUSTMENT
; SF-ADJUSTMENT
; is only useful in interactive mode, if you call a script from
; the console, it acts just like a normal SF-VALUE
; In interactive mode it creates an adjustment widget in the dialog.
;
; Usage:
; SF-ADJUSTMENT "label" '(value, lower, upper, step_inc, page_inc, digits, type)
; Usage:
; SF-ADJUSTMENT "label" '(value, lower, upper, step_inc, page_inc, digits, type)
;
; type is one of: SF-SLIDER(0), SF-SPINNER(1)
; ----------------------------------------------------------------------
......@@ -21,23 +21,23 @@
; x-pos y-pos text border antialias size unit font)
; (gimp-text-get-extents-fontname text size unit font))
;
; where font is the fontname you get. The size specified in the fontname
; where font is the fontname you get. The size specified in the fontname
; is silently ignored. It is only used in the font-selector. So you are
; asked to set it to a useful value (24 pixels is a good choice) when
; using SF-FONT.
;
; Usage:
; SF-FONT "label" "fontname"
; SF-FONT "label" "fontname"
; ----------------------------------------------------------------------
; SF-BRUSH
; SF-BRUSH
; is only useful in interactive mode. It will create a widget in the control
; dialog. The widget consists of a preview area (which when pressed will
; dialog. The widget consists of a preview area (which when pressed will
; produce a popup preview ) and a button with the "..." label. The button will
; popup a dialog where brushes can be selected and each of the
; popup a dialog where brushes can be selected and each of the
; characteristics of the brush can be modified.
;
; The actual value returned when the script is invoked is a list
; consisting of Brush name, opacity, spacing and brush mode in the same
;
; The actual value returned when the script is invoked is a list
; consisting of Brush name, opacity, spacing and brush mode in the same
; units as passed in as the default value.
;
; Usage:
......@@ -45,22 +45,22 @@
;
; Here the brush dialog will be popped up with a default brush of Circle (03)
; opacity 1.0, spacing 44 and paint mode of Normal (value 0).
; If this selection was unchanged the value passed to the function as a
; If this selection was unchanged the value passed to the function as a
; paramater would be '("Circle (03)" 1.0 44 0). BTW the widget used
; is generally available in the libgimpui library for any plugin that
; wishes to select a brush.
; ----------------------------------------------------------------------
; SF-PATTERN
; Only useful in interactive mode. It will create a widget in the control
; dialog. The widget consists of a preview area (which when pressed will
; dialog. The widget consists of a preview area (which when pressed will
; produce a popup preview ) and a button with the "..." label. The button will
; popup a dialog where patterns can be selected.
;
; Usage:
; SF-PATTERN "Pattern" "Maple Leaves"
;
; The value returned when the script is invoked is a string containing the
; pattern name. If the above selection was not altered the string would
; The value returned when the script is invoked is a string containing the
; pattern name. If the above selection was not altered the string would
; contain "Maple Leaves"
; ----------------------------------------------------------------------
; SF-GRADIENT
......@@ -71,8 +71,8 @@
; Usage:
; SF-GRADIENT "Gradient" "Deep Sea"
;
; The value returned when the script is invoked is a string containing the
; gradient name. If the above selection was not altered the string would
; The value returned when the script is invoked is a string containing the
; gradient name. If the above selection was not altered the string would
; contain "Deep Sea"
; ----------------------------------------------------------------------
; SF-FILENAME
......@@ -84,7 +84,7 @@
; SF-FILENAME "Environment Map"
; (string-append "" gimp-data-dir "/scripts/beavis.jpg")
;
; The value returned when the script is invoked is a string containing the
; The value returned when the script is invoked is a string containing the
; filename.
; ----------------------------------------------------------------------
; SF-DIRNAME
......@@ -94,13 +94,13 @@
; Usage:
; SF-DIRNAME "Image Directory" "/var/tmp/images"
;
; The value returned when the script is invoked is a string containing the
; The value returned when the script is invoked is a string containing the
; dirname.
; ----------------------------------------------------------------------
; SF-OPTION
; Only useful in interactive mode. It will create a widget in the control
; dialog. The widget is an option_menu showing the options that are passed
; as a list. The first option is the default choice.
; as a list. The first option is the default choice.
;
; Usage:
; SF-OPTION "Orientation" '("Horizontal" "Vertical")
......@@ -172,7 +172,7 @@
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h
REPLACE TRUE TRUE 7.5)
(gimp-patterns-set-pattern pattern)
(gimp-bucket-fill drawable PATTERN-BUCKET-FILL MULTIPLY-MODE
(gimp-edit-bucket-fill drawable PATTERN-BUCKET-FILL MULTIPLY-MODE
100 0 FALSE 0 0)))
(gimp-ellipse-select img (- cx radius) (- cy radius)
......
......@@ -45,7 +45,7 @@
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-edit-clear text-shadow-layer)
(gimp-edit-clear drop-shadow-layer)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment