6239dddda3
2006-10-15 Kevin Cozens <kcozens@cvs.gnome.org> With this commit we finally say goodbye to SIOD. This large set of changes updates the Script-Fu plug-in to use the TinyScheme Scheme interpreter. These changes originated with changes originally made to Script-Fu which created Tiny-Fu (aka. the gimp-tiny-fu module). * plug-ins/script-fu/Makefile.am * plug-ins/script-fu/script-fu-console.c * plug-ins/script-fu/script-fu-interface.c * plug-ins/script-fu/script-fu-scripts.c * plug-ins/script-fu/script-fu-scripts.h * plug-ins/script-fu/script-fu-server.c * plug-ins/script-fu/script-fu-text-console.c * plug-ins/script-fu/script-fu.c: Updated with the changes made to these files as part of the work on the Tiny-Fu project. * plug-ins/script-fu/scheme-wrapper.c * plug-ins/script-fu/scheme-wrapper.h: Renamed from siod-wrapper.[ch] and updated based on differences to ts-wrapper.[ch] from gimp-tiny-fu. * plug-ins/script-fu/ftx/* * plug-ins/script-fu/re/* * plug-ins/script-fu/tinyscheme/* * plug-ins/script-fu/scripts/script-fu.init * plug-ins/script-fu/scripts/script-fu-compat.init * plug-ins/script-fu/scripts/contactsheet.scm * plug-ins/script-fu/scripts/script-fu-set-cmap.scm * plug-ins/script-fu/scripts/script-fu-util-setpt.scm * plug-ins/script-fu/scripts/ts-helloworld.scm: Added all of these files and directories from Tiny-Fu. Updated the Makefile.am files of ftx, re, and tinyscheme now they are in the GIMP source tree. * plug-ins/script-fu/scripts/*.scm: All scripts have been updated as needed to ensure they will work with the TinyScheme interpreter. Most of the files have been reformatted making it easier to see the syntax of Scheme and making them easier to read. * plug-ins/script-fu/scripts/Makefile.am: Updated script file lists. * plug-ins/script-fu/siod-wrapper.c * plug-ins/script-fu/siod-wrapper.h * plug-ins/script-fu/siod/*: Removed obsolete files. * configure.in: Updated list of files in AC_CONFIG_FILES. Changed --disable-script-fu to --without-script-fu which it should have been when originally added. * INSTALL: Updated to show change to --without-script-fu.
291 lines
12 KiB
Scheme
291 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" '(255 255 255)
|
|
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" '(255 255 255)
|
|
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")
|