GitLab repository storage has been migrated to hashed layout. Please contact Infrastructure team if you notice any issues with repositories or hooks.

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