Commit fc8241a0 authored by Michael Natterer's avatar Michael Natterer 😴 Committed by Michael Natterer

plug-ins/script-fu/scripts/3d-outline.scm

2004-09-23  Michael Natterer  <mitch@gimp.org>

	* plug-ins/script-fu/scripts/3d-outline.scm
	* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
	* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
	* plug-ins/script-fu/scripts/beveled-pattern-button.scm
	* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
	* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
	* plug-ins/script-fu/scripts/blended-logo.scm
	* plug-ins/script-fu/scripts/carve-it.scm
	* plug-ins/script-fu/scripts/carved-logo.scm
	* plug-ins/script-fu/scripts/chip-away.scm
	* plug-ins/script-fu/scripts/chrome-it.scm
	* plug-ins/script-fu/scripts/coffee.scm
	* plug-ins/script-fu/scripts/comic-logo.scm
	* plug-ins/script-fu/scripts/coolmetal-logo.scm
	* plug-ins/script-fu/scripts/crystal-logo.scm
	* plug-ins/script-fu/scripts/frosty-logo.scm
	* plug-ins/script-fu/scripts/glossy.scm
	* plug-ins/script-fu/scripts/hsv-graph.scm
	* plug-ins/script-fu/scripts/land.scm
	* plug-ins/script-fu/scripts/lava.scm
	* plug-ins/script-fu/scripts/mkbrush.scm
	* plug-ins/script-fu/scripts/rendermap.scm
	* plug-ins/script-fu/scripts/select-to-brush.scm
	* plug-ins/script-fu/scripts/select-to-pattern.scm
	* plug-ins/script-fu/scripts/sota-chrome-logo.scm
	* plug-ins/script-fu/scripts/spyrogimp.scm
	* plug-ins/script-fu/scripts/starburst-logo.scm
	* plug-ins/script-fu/scripts/starscape-logo.scm
	* plug-ins/script-fu/scripts/t-o-p-logo.scm
	* plug-ins/script-fu/scripts/test-sphere.scm
	* plug-ins/script-fu/scripts/textured-logo.scm: use the new
	opacity, paint_mode, brush, pattern, gradient, palette and font
	accessors.
parent 748021dd
2004-09-23 Michael Natterer <mitch@gimp.org>
* plug-ins/script-fu/scripts/3d-outline.scm
* plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
* plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
* plug-ins/script-fu/scripts/beveled-pattern-button.scm
* plug-ins/script-fu/scripts/beveled-pattern-heading.scm
* plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
* plug-ins/script-fu/scripts/blended-logo.scm
* plug-ins/script-fu/scripts/carve-it.scm
* plug-ins/script-fu/scripts/carved-logo.scm
* plug-ins/script-fu/scripts/chip-away.scm
* plug-ins/script-fu/scripts/chrome-it.scm
* plug-ins/script-fu/scripts/coffee.scm
* plug-ins/script-fu/scripts/comic-logo.scm
* plug-ins/script-fu/scripts/coolmetal-logo.scm
* plug-ins/script-fu/scripts/crystal-logo.scm
* plug-ins/script-fu/scripts/frosty-logo.scm
* plug-ins/script-fu/scripts/glossy.scm
* plug-ins/script-fu/scripts/hsv-graph.scm
* plug-ins/script-fu/scripts/land.scm
* plug-ins/script-fu/scripts/lava.scm
* plug-ins/script-fu/scripts/mkbrush.scm
* plug-ins/script-fu/scripts/rendermap.scm
* plug-ins/script-fu/scripts/select-to-brush.scm
* plug-ins/script-fu/scripts/select-to-pattern.scm
* plug-ins/script-fu/scripts/sota-chrome-logo.scm
* plug-ins/script-fu/scripts/spyrogimp.scm
* plug-ins/script-fu/scripts/starburst-logo.scm
* plug-ins/script-fu/scripts/starscape-logo.scm
* plug-ins/script-fu/scripts/t-o-p-logo.scm
* plug-ins/script-fu/scripts/test-sphere.scm
* plug-ins/script-fu/scripts/textured-logo.scm: use the new
opacity, paint_mode, brush, pattern, gradient, palette and font
accessors.
2004-09-23 Sven Neumann <sven@gimp.org>
Converted the last bunch of scripts to the new context API:
......
......@@ -60,7 +60,7 @@
(plug-in-gauss-iir 1 img layer2 bump-map-blur-radius TRUE TRUE)
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-context-set-pattern text-pattern)
(gimp-edit-bucket-fill pattern
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(plug-in-bump-map noninteractive img pattern layer2
......
......@@ -89,7 +89,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
......@@ -35,7 +35,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
......@@ -69,7 +69,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
......@@ -54,7 +54,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
......
......@@ -39,7 +39,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill background BACKGROUND-FILL)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
; Create bumpmap layer
......
......@@ -74,7 +74,7 @@
(gimp-selection-none img)
(gimp-context-set-foreground blend-fg)
(gimp-context-set-background blend-bg)
(gimp-gradients-set-gradient blend-gradient)
(gimp-context-set-gradient blend-gradient)
(gimp-edit-blend blend-layer blend-mode NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE blend-gradient-reverse
......
......@@ -99,7 +99,7 @@
(set! mask-fat (car (gimp-channel-copy mask)))
(gimp-image-add-channel img mask-fat 0)
(gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size))
(gimp-context-set-brush (carve-brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke mask-fat)
(gimp-selection-none img)
......
......@@ -74,7 +74,7 @@
(set! mask-fat (car (gimp-channel-copy mask)))
(gimp-image-add-channel img mask-fat 0)
(gimp-selection-load mask-fat)
(gimp-brushes-set-brush (carve-brush brush-size))
(gimp-context-set-brush (carve-brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke mask-fat)
(gimp-selection-none img)
......
......@@ -56,7 +56,7 @@
(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)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-context-set-background '(255 255 255))
(gimp-selection-all img)
......
......@@ -140,7 +140,7 @@
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
(gimp-brushes-set-brush (brush brush-size))
(gimp-context-set-brush (brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke layer-mask)
......@@ -150,7 +150,7 @@
(gimp-edit-fill shadow BACKGROUND-FILL)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")
(gimp-context-set-pattern "Marble #1")
(gimp-edit-bucket-fill bg-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
......
......@@ -52,7 +52,7 @@
(* (+ (rand 15) 1) (+ (rand 15) 1))
(/ theSize 25) 4 2 TRUE TRUE)
(gimp-gradients-set-gradient "Coffee")
(gimp-context-set-gradient "Coffee")
(gimp-edit-blend theStain CUSTOM-MODE NORMAL-MODE
GRADIENT-SHAPEBURST-DIMPLED 100 0 REPEAT-NONE FALSE
......
......@@ -72,7 +72,7 @@
(plug-in-gauss-rle 1 img black-layer ol-width 1 1)
(plug-in-threshold-alpha 1 img black-layer 0)
(gimp-gradients-set-gradient gradient)
(gimp-context-set-gradient gradient)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-selection-all img)
......
......@@ -44,7 +44,7 @@
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-gradients-set-gradient gradient)
(gimp-context-set-gradient gradient)
(gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE gradient-reverse
......
......@@ -134,7 +134,7 @@
(gimp-edit-fill layer-mask BACKGROUND-FILL)
(set! disp-map (car (gimp-selection-save img)))
(gimp-brushes-set-brush (crystal-brush brush-size))
(gimp-context-set-brush (crystal-brush brush-size))
(gimp-context-set-foreground '(0 0 0))
(gimp-edit-stroke disp-map)
(gimp-selection-none img)
......
......@@ -41,7 +41,7 @@
(gimp-levels sparkle-layer 2 0 255 0.7 0 255)
(gimp-selection-layer-alpha sparkle-layer)
(gimp-context-set-foreground '(0 0 0))
(gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-context-set-brush "Circle Fuzzy (11)")
(gimp-edit-stroke matte-layer)
(gimp-selection-feather img border)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
......@@ -59,8 +59,8 @@
(gimp-edit-fill logo-layer BACKGROUND-FILL)
(gimp-layer-remove-mask logo-layer 0)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-brushes-set-paint-mode BEHIND-MODE)
(gimp-context-set-brush "Circle Fuzzy (07)")
(gimp-context-set-paint-mode BEHIND-MODE)
(gimp-context-set-foreground '(186 241 255))
(gimp-edit-stroke logo-layer)
(gimp-selection-none img)
......
......@@ -68,13 +68,13 @@
(if (= use-pattern-text TRUE)
(begin
(gimp-patterns-set-pattern pattern-text)
(gimp-context-set-pattern pattern-text)
(gimp-edit-bucket-fill logo-layer
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)))
(if (= use-pattern-text FALSE)
(begin
(gimp-gradients-set-gradient blend-gradient-text)
(gimp-context-set-gradient blend-gradient-text)
(gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE
......@@ -94,14 +94,14 @@
(if (= use-pattern-outline TRUE)
(begin
(gimp-patterns-set-pattern pattern-outline)
(gimp-context-set-pattern pattern-outline)
(gimp-edit-bucket-fill grow-me
PATTERN-BUCKET-FILL NORMAL-MODE 100
0 FALSE 0 0)))
(if (= use-pattern-outline FALSE)
(begin
(gimp-gradients-set-gradient blend-gradient-outline)
(gimp-context-set-gradient blend-gradient-outline)
(gimp-edit-blend grow-me CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE
......@@ -118,7 +118,7 @@
(if (= use-pattern-overlay TRUE)
(begin
(gimp-selection-layer-alpha grow-me)
(gimp-patterns-set-pattern pattern-overlay)
(gimp-context-set-pattern pattern-overlay)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL
OVERLAY-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)))
......
......@@ -273,9 +273,9 @@
(set! hue-segment (make-segment 64 x-base y-base))
(set! saturation-segment (make-segment 64 x-base y-base))
(set! value-segment (make-segment 64 x-base y-base))
(gimp-brushes-set-brush "Circle (01)")
(gimp-brushes-set-paint-mode NORMAL-MODE)
(gimp-brushes-set-opacity 70)
(gimp-context-set-brush "Circle (01)")
(gimp-context-set-paint-mode NORMAL-MODE)
(gimp-context-set-opacity 70)
(gimp-display-new gimg)
(while (< index limit)
(set! rgb (car (gimp-image-pick-color img drawable
......
......@@ -36,7 +36,7 @@
(layer-one (car (gimp-layer-new img width height
RGB-IMAGE "Bottom" 100 NORMAL-MODE)))
)
(gimp-gradients-set-gradient gradient)
(gimp-context-set-gradient gradient)
(gimp-image-undo-disable img)
(gimp-image-add-layer img layer-one 0)
......
......@@ -78,7 +78,7 @@
(set! active-layer (car (gimp-image-get-active-layer image)))
(if (= current-grad FALSE)
(gimp-gradients-set-gradient gradient))
(gimp-context-set-gradient gradient))
(plug-in-solid-noise 1 image active-layer FALSE TRUE seed 2 2 2)
(plug-in-cubism 1 image active-layer tile_size 2.5 0)
......
......@@ -54,7 +54,7 @@
(gimp-context-pop)
(gimp-brushes-refresh)
(gimp-brushes-set-brush name)))
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-rectangular"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/_Rectangular..."
......@@ -111,7 +111,7 @@
(gimp-context-pop)
(gimp-brushes-refresh)
(gimp-brushes-set-brush name)))
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-rectangular-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/Re_ctangular, Feathered..."
......@@ -158,7 +158,7 @@
(gimp-context-pop)
(gimp-brushes-refresh)
(gimp-brushes-set-brush name)))
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-elliptical"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/_Elliptical..."
......@@ -217,7 +217,7 @@
(gimp-context-pop)
(gimp-brushes-refresh)
(gimp-brushes-set-brush name)))
(gimp-context-set-brush name)))
(script-fu-register "script-fu-make-brush-elliptical-feathered"
_"<Toolbox>/Xtns/Script-Fu/Make Brush/Elli_ptical, Feathered..."
......
......@@ -62,7 +62,7 @@
(set! theLayer (car(gimp-image-flatten theImage)))))
(gimp-selection-none theImage)
(gimp-gradients-set-gradient inGrad)
(gimp-context-set-gradient inGrad)
(plug-in-gradmap TRUE theImage theLayer)
(gimp-display-new theImage)
......
......@@ -109,7 +109,7 @@
(gimp-context-pop)
(gimp-brushes-refresh)
(gimp-brushes-set-brush name)))
(gimp-context-set-brush name)))
(script-fu-register "script-fu-selection-to-brush"
_"<Image>/Script-Fu/Selection/To _Brush..."
......
......@@ -66,7 +66,7 @@
(file-pat-save 1 pattern-image pattern-draw filename2 "" desc)
(gimp-patterns-refresh)
(gimp-patterns-set-pattern desc)
(gimp-context-set-pattern desc)
(gimp-image-delete pattern-image)
(gimp-displays-flush))
......
......@@ -136,7 +136,7 @@
(set! layer2 (car (gimp-layer-copy layer1 TRUE)))
(gimp-image-add-layer img layer2 0)
(gimp-brushes-set-brush (brush brush-size))
(gimp-context-set-brush (brush brush-size))
(gimp-context-set-foreground '(255 255 255))
(gimp-edit-stroke layer-mask)
......@@ -146,7 +146,7 @@
(gimp-edit-fill shadow BACKGROUND-FILL)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Marble #1")
(gimp-context-set-pattern "Marble #1")
(gimp-edit-bucket-fill text-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
......
......@@ -242,9 +242,9 @@
; Set new color, brush, opacity, paint mode.
(gimp-context-set-foreground color)
(gimp-brushes-set-brush (car brush))
(gimp-brushes-set-opacity (* 100 (car (cdr brush))))
(gimp-brushes-set-paint-mode (car (cdr (cdr (cdr brush)))))
(gimp-context-set-brush (car brush))
(gimp-context-set-opacity (* 100 (car (cdr brush))))
(gimp-context-set-paint-mode (car (cdr (cdr (cdr brush)))))
(while (< index steps)
......@@ -265,7 +265,7 @@
(* 255 (aref grada (+ 2 grad-index)) )
)
)
(gimp-brushes-set-opacity (* 100 (aref grada (+ 3 grad-index) ) ) )
(gimp-context-set-opacity (* 100 (aref grada (+ 3 grad-index) ) ) )
(set! grad-index (+ 4 grad-index))
; Draw points
......
......@@ -36,7 +36,7 @@
(gimp-edit-clear burst-layer)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Crack")
(gimp-context-set-pattern "Crack")
(gimp-edit-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
......
......@@ -101,7 +101,7 @@
(plug-in-nova 1 img glow-layer novax novay glow-color novaradius 100 0)
(gimp-selection-all img)
(gimp-patterns-set-pattern "Stone")
(gimp-context-set-pattern "Stone")
(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)
......
......@@ -60,14 +60,14 @@
(gimp-selection-invert img)))
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
(gimp-brushes-set-brush "Circle Fuzzy (11)")
(gimp-context-set-brush "Circle Fuzzy (11)")
(gimp-selection-feather img b-size)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-context-set-background base-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-load selection)
(gimp-brushes-set-brush "Circle Fuzzy (07)")
(gimp-context-set-brush "Circle Fuzzy (07)")
(gimp-context-set-foreground '(255 255 255))
(gimp-selection-none img)
(gimp-drawable-set-visible logo-layer 0)
......
......@@ -169,7 +169,7 @@
(gimp-ellipse-select img shadow-x shadow-y shadow-w shadow-h
CHANNEL-OP-REPLACE TRUE TRUE 7.5)
(gimp-patterns-set-pattern pattern)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill drawable PATTERN-BUCKET-FILL MULTIPLY-MODE
100 0 FALSE 0 0)))
......@@ -183,7 +183,7 @@
(gimp-selection-none img)
(gimp-gradients-set-gradient gradient)
(gimp-context-set-gradient gradient)
(gimp-ellipse-select img 10 10 50 50 CHANNEL-OP-REPLACE TRUE FALSE 0)
(gimp-edit-blend drawable CUSTOM-MODE NORMAL-MODE
......
......@@ -42,7 +42,7 @@
(gimp-image-add-layer img drop-shadow-layer 1)
(gimp-image-add-layer img text-shadow-layer 0)
(gimp-selection-all img)
(gimp-patterns-set-pattern text-pattern)
(gimp-context-set-pattern text-pattern)
(gimp-layer-set-preserve-trans logo-layer TRUE)
(gimp-edit-bucket-fill logo-layer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
......
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