590c4d0b9f
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries for image size and resolution to script_constants structureas they are not deprecated constants. * plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings. * plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that snuck in during the last big update of the scripts. This update reduces the number of differences to the original scripts (other than formatting). Some additional formatting changes in a few scripts. Updates to use colour names in register block where possible. Fixed a bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified the bug fix in tile-blur.scm.
296 lines
12 KiB
Scheme
296 lines
12 KiB
Scheme
; glossy-patterned-shadowed-and-bump-mapped-logo
|
|
; creates anything you can create with it :)
|
|
; (use it wisely, use it in peace...)
|
|
;
|
|
; The GIMP -- an image manipulation program
|
|
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
|
|
;
|
|
; glossy gives a glossy outlook to your fonts (unlogical name, isn't it?)
|
|
; Copyright (C) 1998 Hrvoje Horvat
|
|
;
|
|
; 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.
|
|
|
|
(define (apply-glossy-logo-effect img
|
|
logo-layer
|
|
blend-gradient-text
|
|
blend-gradient-text-reverse
|
|
blend-gradient-outline
|
|
blend-gradient-outline-reverse
|
|
grow-size
|
|
bg-color
|
|
use-pattern-text
|
|
pattern-text
|
|
use-pattern-outline
|
|
pattern-outline
|
|
use-pattern-overlay
|
|
pattern-overlay
|
|
noninteractive
|
|
shadow-toggle
|
|
s-offset-x
|
|
s-offset-y)
|
|
(let* (
|
|
(width (car (gimp-drawable-width logo-layer)))
|
|
(height (car (gimp-drawable-height logo-layer)))
|
|
(posx (- (car (gimp-drawable-offsets logo-layer))))
|
|
(posy (- (cadr (gimp-drawable-offsets logo-layer))))
|
|
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
|
|
(grow-me (car (gimp-layer-copy logo-layer TRUE)))
|
|
(dont-drop-me)
|
|
)
|
|
|
|
(gimp-context-push)
|
|
|
|
(script-fu-util-image-resize-from-layer img logo-layer)
|
|
(gimp-drawable-set-name grow-me "Grow-me")
|
|
(gimp-image-add-layer img grow-me 1)
|
|
(gimp-layer-translate grow-me posx posy)
|
|
(gimp-image-add-layer img bg-layer 2)
|
|
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-selection-all img)
|
|
(gimp-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
|
|
(gimp-selection-none img)
|
|
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
|
|
; if we are going to use transparent gradients for text, we will (maybe) need to uncomment this
|
|
; this clears black letters first so you don't end up with black where the transparent should be
|
|
; (gimp-edit-clear img logo-layer)
|
|
|
|
(if (= use-pattern-text TRUE)
|
|
(begin
|
|
(gimp-context-set-pattern pattern-text)
|
|
(gimp-edit-bucket-fill logo-layer
|
|
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
|
|
(gimp-context-set-pattern old-patterns)
|
|
)
|
|
)
|
|
|
|
(if (= use-pattern-text FALSE)
|
|
(begin
|
|
(gimp-context-set-gradient blend-gradient-text)
|
|
|
|
(gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE
|
|
GRADIENT-LINEAR 100 0 REPEAT-NONE
|
|
blend-gradient-text-reverse
|
|
FALSE 0 0 TRUE
|
|
0 0 0 (+ height 5))
|
|
)
|
|
)
|
|
|
|
(gimp-selection-none img)
|
|
|
|
(gimp-selection-layer-alpha grow-me)
|
|
(gimp-selection-grow img grow-size)
|
|
|
|
; if we are going to use transparent gradients for outline, we will (maybe) need to uncomment this
|
|
; I didn't put it in the options because there are already enough settings there and anyway, transparent
|
|
; gradients will be used very rarely (if ever)
|
|
; (gimp-edit-clear img grow-me)
|
|
|
|
(if (= use-pattern-outline TRUE)
|
|
(begin
|
|
(gimp-context-set-pattern pattern-outline)
|
|
(gimp-edit-bucket-fill grow-me
|
|
PATTERN-BUCKET-FILL NORMAL-MODE 100
|
|
0 FALSE 0 0)
|
|
(gimp-context-set-pattern old-patterns)
|
|
)
|
|
)
|
|
|
|
(if (= use-pattern-outline FALSE)
|
|
(begin
|
|
(gimp-context-set-gradient blend-gradient-outline)
|
|
|
|
(gimp-edit-blend grow-me CUSTOM-MODE NORMAL-MODE
|
|
GRADIENT-LINEAR 100 0 REPEAT-NONE
|
|
blend-gradient-outline-reverse
|
|
FALSE 0 0 TRUE
|
|
0 0 0 (+ height 5))
|
|
)
|
|
)
|
|
|
|
(gimp-selection-none img)
|
|
|
|
(plug-in-bump-map RUN-NONINTERACTIVE img grow-me logo-layer
|
|
110.0 45.0 3 0 0 0 0 TRUE FALSE 0)
|
|
(gimp-layer-set-mode logo-layer SCREEN-MODE)
|
|
|
|
(if (= use-pattern-overlay TRUE)
|
|
(begin
|
|
(gimp-selection-layer-alpha grow-me)
|
|
(gimp-context-set-pattern pattern-overlay)
|
|
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL
|
|
OVERLAY-MODE 100 0 FALSE 0 0)
|
|
(gimp-context-set-pattern old-patterns)
|
|
(gimp-selection-none img)
|
|
)
|
|
)
|
|
|
|
(if (= shadow-toggle TRUE)
|
|
(begin
|
|
(gimp-selection-layer-alpha logo-layer)
|
|
(set! dont-drop-me (car (script-fu-drop-shadow img logo-layer
|
|
s-offset-x s-offset-y
|
|
15 '(0 0 0) 80 TRUE)))
|
|
(set! width (car (gimp-image-width img)))
|
|
(set! height (car (gimp-image-height img)))
|
|
(gimp-selection-none img)
|
|
)
|
|
)
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
|
|
(define (script-fu-glossy-logo-alpha img
|
|
logo-layer
|
|
blend-gradient-text
|
|
blend-gradient-text-reverse
|
|
blend-gradient-outline
|
|
blend-gradient-outline-reverse
|
|
grow-size
|
|
bg-color
|
|
use-pattern-text
|
|
pattern-text
|
|
use-pattern-outline
|
|
pattern-outline
|
|
use-pattern-overlay
|
|
pattern-overlay
|
|
noninteractive
|
|
shadow-toggle
|
|
s-offset-x
|
|
s-offset-y)
|
|
(begin
|
|
(gimp-image-undo-group-start img)
|
|
(apply-glossy-logo-effect img logo-layer
|
|
blend-gradient-text
|
|
blend-gradient-text-reverse
|
|
blend-gradient-outline
|
|
blend-gradient-outline-reverse
|
|
grow-size bg-color
|
|
use-pattern-text pattern-text
|
|
use-pattern-outline pattern-outline
|
|
use-pattern-overlay pattern-overlay
|
|
noninteractive shadow-toggle
|
|
s-offset-x s-offset-y)
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
|
|
(script-fu-register "script-fu-glossy-logo-alpha"
|
|
_"Glo_ssy..."
|
|
_"Add gradients, patterns, shadows, and bump maps to the selected region (or alpha)"
|
|
"Hrvoje Horvat (hhorvat@open.hr)"
|
|
"Hrvoje Horvat"
|
|
"14/04/1998"
|
|
"RGBA"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
SF-GRADIENT _"Blend gradient (text)" "Shadows 2"
|
|
SF-TOGGLE _"Text gradient reverse" FALSE
|
|
SF-GRADIENT _"Blend gradient (outline)" "Shadows 2"
|
|
SF-TOGGLE _"Outline gradient reverse" FALSE
|
|
SF-ADJUSTMENT _"Outline size" '(5 0 250 1 10 0 1)
|
|
SF-COLOR _"Background color" "white"
|
|
SF-TOGGLE _"Use pattern for text instead of gradient" FALSE
|
|
SF-PATTERN _"Pattern (text)" "Electric Blue"
|
|
SF-TOGGLE _"Use pattern for outline instead of gradient" FALSE
|
|
SF-PATTERN _"Pattern (outline)" "Electric Blue"
|
|
SF-TOGGLE _"Use pattern overlay" FALSE
|
|
SF-PATTERN _"Pattern (overlay)" "Parque #1"
|
|
SF-TOGGLE _"Default bumpmap settings" TRUE
|
|
SF-TOGGLE _"Shadow" TRUE
|
|
SF-ADJUSTMENT _"Shadow X offset" '(8 0 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Shadow Y offset" '(8 0 100 1 10 0 1)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-glossy-logo-alpha"
|
|
"<Image>/Filters/Alpha to Logo")
|
|
|
|
|
|
(define (script-fu-glossy-logo text
|
|
size
|
|
font
|
|
blend-gradient-text
|
|
blend-gradient-text-reverse
|
|
blend-gradient-outline
|
|
blend-gradient-outline-reverse
|
|
grow-size
|
|
bg-color
|
|
use-pattern-text
|
|
pattern-text
|
|
use-pattern-outline
|
|
pattern-outline
|
|
use-pattern-overlay
|
|
pattern-overlay
|
|
noninteractive
|
|
shadow-toggle
|
|
s-offset-x
|
|
s-offset-y)
|
|
(let* (
|
|
(img (car (gimp-image-new 256 256 RGB)))
|
|
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
|
|
)
|
|
(gimp-image-undo-disable img)
|
|
(apply-glossy-logo-effect img text-layer
|
|
blend-gradient-text
|
|
blend-gradient-text-reverse
|
|
blend-gradient-outline
|
|
blend-gradient-outline-reverse
|
|
grow-size bg-color
|
|
use-pattern-text pattern-text
|
|
use-pattern-outline pattern-outline
|
|
use-pattern-overlay pattern-overlay
|
|
noninteractive shadow-toggle
|
|
s-offset-x s-offset-y)
|
|
(gimp-image-undo-enable img)
|
|
(gimp-display-new img)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-glossy-logo"
|
|
_"Glo_ssy..."
|
|
_"Create a logo with gradients, patterns, shadows, and bump maps"
|
|
"Hrvoje Horvat (hhorvat@open.hr)"
|
|
"Hrvoje Horvat"
|
|
"14/04/1998"
|
|
""
|
|
SF-STRING _"Text" "Galaxy"
|
|
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
|
|
SF-FONT _"Font" "Eras"
|
|
SF-GRADIENT _"Blend gradient (text)" "Shadows 2"
|
|
SF-TOGGLE _"Text gradient reverse" FALSE
|
|
SF-GRADIENT _"Blend gradient (outline)" "Shadows 2"
|
|
SF-TOGGLE _"Outline gradient reverse" FALSE
|
|
SF-ADJUSTMENT _"Outline size" '(5 0 250 1 10 0 1)
|
|
SF-COLOR _"Background color" "white"
|
|
SF-TOGGLE _"Use pattern for text instead of gradient" FALSE
|
|
SF-PATTERN _"Pattern (text)" "Electric Blue"
|
|
SF-TOGGLE _"Use pattern for outline instead of gradient" FALSE
|
|
SF-PATTERN _"Pattern (outline)" "Electric Blue"
|
|
SF-TOGGLE _"Use pattern overlay" FALSE
|
|
SF-PATTERN _"Pattern (overlay)" "Parque #1"
|
|
SF-TOGGLE _"Default bumpmap settings" TRUE
|
|
SF-TOGGLE _"Shadow" TRUE
|
|
SF-ADJUSTMENT _"Shadow X offset" '(8 0 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Shadow Y offset" '(8 0 100 1 10 0 1)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-glossy-logo"
|
|
"<Toolbox>/Xtns/Logos")
|