From 96ab6aa88e2d94241b7caba7f522afbde08ff36f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C3=98yvind=20Kol=C3=A5s?= Date: Thu, 3 May 2012 03:47:05 +0200 Subject: [PATCH] scripts: remove the entries registered in the create menu --- plug-ins/pygimp/plug-ins/Makefile.am | 3 +- plug-ins/pygimp/plug-ins/text-brush.py | 93 ------ plug-ins/script-fu/scripts/3d-outline.scm | 185 ----------- plug-ins/script-fu/scripts/3dTruchet.scm | 242 -------------- plug-ins/script-fu/scripts/Makefile.am | 49 +-- .../script-fu/scripts/alien-glow-arrow.scm | 189 ----------- plug-ins/script-fu/scripts/alien-glow-bar.scm | 100 ------ .../script-fu/scripts/alien-glow-bullet.scm | 112 ------- .../script-fu/scripts/alien-glow-button.scm | 168 ---------- .../script-fu/scripts/alien-glow-logo.scm | 118 ------- .../script-fu/scripts/alien-neon-logo.scm | 187 ----------- plug-ins/script-fu/scripts/basic1-logo.scm | 106 ------- plug-ins/script-fu/scripts/basic2-logo.scm | 128 -------- plug-ins/script-fu/scripts/beveled-button.scm | 160 ---------- .../scripts/beveled-pattern-arrow.scm | 161 ---------- .../scripts/beveled-pattern-bullet.scm | 96 ------ .../scripts/beveled-pattern-button.scm | 135 -------- .../scripts/beveled-pattern-heading.scm | 121 ------- .../scripts/beveled-pattern-hrule.scm | 89 ------ plug-ins/script-fu/scripts/blended-logo.scm | 206 ------------ plug-ins/script-fu/scripts/bovinated-logo.scm | 140 --------- plug-ins/script-fu/scripts/camo.scm | 111 ------- plug-ins/script-fu/scripts/carved-logo.scm | 179 ----------- plug-ins/script-fu/scripts/chalk.scm | 136 -------- plug-ins/script-fu/scripts/chip-away.scm | 206 ------------ plug-ins/script-fu/scripts/chrome-logo.scm | 133 -------- plug-ins/script-fu/scripts/comic-logo.scm | 169 ---------- plug-ins/script-fu/scripts/coolmetal-logo.scm | 193 ------------ plug-ins/script-fu/scripts/crystal-logo.scm | 228 -------------- plug-ins/script-fu/scripts/flatland.scm | 75 ----- plug-ins/script-fu/scripts/frosty-logo.scm | 210 ------------- plug-ins/script-fu/scripts/glossy.scm | 295 ------------------ plug-ins/script-fu/scripts/glowing-logo.scm | 122 -------- .../script-fu/scripts/gradient-bevel-logo.scm | 148 --------- plug-ins/script-fu/scripts/i26-gunya2.scm | 107 ------- plug-ins/script-fu/scripts/land.scm | 91 ------ plug-ins/script-fu/scripts/neon-logo.scm | 295 ------------------ plug-ins/script-fu/scripts/news-text.scm | 94 ------ plug-ins/script-fu/scripts/pupi-button.scm | 212 ------------- plug-ins/script-fu/scripts/rendermap.scm | 94 ------ .../script-fu/scripts/sota-chrome-logo.scm | 224 ------------- plug-ins/script-fu/scripts/speed-text.scm | 101 ------ plug-ins/script-fu/scripts/starscape-logo.scm | 152 --------- plug-ins/script-fu/scripts/swirltile.scm | 69 ---- plug-ins/script-fu/scripts/swirly-pattern.scm | 94 ------ plug-ins/script-fu/scripts/t-o-p-logo.scm | 155 --------- plug-ins/script-fu/scripts/text-circle.scm | 223 ------------- plug-ins/script-fu/scripts/textured-logo.scm | 180 ----------- plug-ins/script-fu/scripts/title-header.scm | 178 ----------- plug-ins/script-fu/scripts/truchet.scm | 180 ----------- 50 files changed, 2 insertions(+), 7440 deletions(-) delete mode 100755 plug-ins/pygimp/plug-ins/text-brush.py delete mode 100644 plug-ins/script-fu/scripts/3d-outline.scm delete mode 100644 plug-ins/script-fu/scripts/3dTruchet.scm delete mode 100644 plug-ins/script-fu/scripts/alien-glow-arrow.scm delete mode 100644 plug-ins/script-fu/scripts/alien-glow-bar.scm delete mode 100644 plug-ins/script-fu/scripts/alien-glow-bullet.scm delete mode 100644 plug-ins/script-fu/scripts/alien-glow-button.scm delete mode 100644 plug-ins/script-fu/scripts/alien-glow-logo.scm delete mode 100644 plug-ins/script-fu/scripts/alien-neon-logo.scm delete mode 100644 plug-ins/script-fu/scripts/basic1-logo.scm delete mode 100644 plug-ins/script-fu/scripts/basic2-logo.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-button.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-pattern-arrow.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-pattern-bullet.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-pattern-button.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-pattern-heading.scm delete mode 100644 plug-ins/script-fu/scripts/beveled-pattern-hrule.scm delete mode 100644 plug-ins/script-fu/scripts/blended-logo.scm delete mode 100644 plug-ins/script-fu/scripts/bovinated-logo.scm delete mode 100644 plug-ins/script-fu/scripts/camo.scm delete mode 100644 plug-ins/script-fu/scripts/carved-logo.scm delete mode 100644 plug-ins/script-fu/scripts/chalk.scm delete mode 100644 plug-ins/script-fu/scripts/chip-away.scm delete mode 100644 plug-ins/script-fu/scripts/chrome-logo.scm delete mode 100644 plug-ins/script-fu/scripts/comic-logo.scm delete mode 100644 plug-ins/script-fu/scripts/coolmetal-logo.scm delete mode 100644 plug-ins/script-fu/scripts/crystal-logo.scm delete mode 100644 plug-ins/script-fu/scripts/flatland.scm delete mode 100644 plug-ins/script-fu/scripts/frosty-logo.scm delete mode 100644 plug-ins/script-fu/scripts/glossy.scm delete mode 100644 plug-ins/script-fu/scripts/glowing-logo.scm delete mode 100644 plug-ins/script-fu/scripts/gradient-bevel-logo.scm delete mode 100644 plug-ins/script-fu/scripts/i26-gunya2.scm delete mode 100644 plug-ins/script-fu/scripts/land.scm delete mode 100644 plug-ins/script-fu/scripts/neon-logo.scm delete mode 100644 plug-ins/script-fu/scripts/news-text.scm delete mode 100644 plug-ins/script-fu/scripts/pupi-button.scm delete mode 100644 plug-ins/script-fu/scripts/rendermap.scm delete mode 100644 plug-ins/script-fu/scripts/sota-chrome-logo.scm delete mode 100644 plug-ins/script-fu/scripts/speed-text.scm delete mode 100644 plug-ins/script-fu/scripts/starscape-logo.scm delete mode 100644 plug-ins/script-fu/scripts/swirltile.scm delete mode 100644 plug-ins/script-fu/scripts/swirly-pattern.scm delete mode 100644 plug-ins/script-fu/scripts/t-o-p-logo.scm delete mode 100644 plug-ins/script-fu/scripts/text-circle.scm delete mode 100644 plug-ins/script-fu/scripts/textured-logo.scm delete mode 100644 plug-ins/script-fu/scripts/title-header.scm delete mode 100644 plug-ins/script-fu/scripts/truchet.scm diff --git a/plug-ins/pygimp/plug-ins/Makefile.am b/plug-ins/pygimp/plug-ins/Makefile.am index 5610a86bca..0166936993 100644 --- a/plug-ins/pygimp/plug-ins/Makefile.am +++ b/plug-ins/pygimp/plug-ins/Makefile.am @@ -12,8 +12,7 @@ scripts = \ palette-to-gradient.py \ py-slice.py \ python-console.py \ - python-eval.py \ - text-brush.py + python-eval.py test_scripts = \ benchmark-foreground-extract.py \ diff --git a/plug-ins/pygimp/plug-ins/text-brush.py b/plug-ins/pygimp/plug-ins/text-brush.py deleted file mode 100755 index 0070a3ef65..0000000000 --- a/plug-ins/pygimp/plug-ins/text-brush.py +++ /dev/null @@ -1,93 +0,0 @@ -#!/usr/bin/env python -# coding: utf-8 - -# Author: João Sebastião de Oliveira Bueno -# Copyright: João S. O. Bueno (2009), licensed under the GPL v 3.0 - -# 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 3 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, see . - -from gimpfu import * -import os - -gettext.install("gimp20-python", gimp.locale_directory, unicode=True) - -def text_brush(font_name, font_size, text): - pdb.gimp_context_push() - pdb.gimp_context_set_default_colors() - - padding = font_size // 4 - img = gimp.Image(font_size + padding, font_size + padding, GRAY) - img.undo_freeze() - - text = text.decode("utf-8") - for letter in reversed(text): - layer = img.new_layer(fill_mode=BACKGROUND_FILL) - text_floating_sel = \ - pdb.gimp_text_fontname(img, layer, - padding // 2, - padding // 2, - letter.encode("utf-8"), - 0, - True, - font_size, - PIXELS, - font_name) - if text_floating_sel: - #whitespace don't generate a floating sel. - pdb.gimp_edit_bucket_fill(text_floating_sel, - FG_BUCKET_FILL, - NORMAL_MODE, 100, 1.0, - False,0 ,0) - pdb.gimp_floating_sel_anchor(text_floating_sel) - - file_name = text.lower().replace(" ", "_") + ".gih" - file_path = os.path.join(gimp.directory, 'brushes', file_name) - - pdb.file_gih_save(img, img.layers[0], - file_path, file_path, - 100, #spacing - text, #description, - img.width, img.height, - 1, 1, - 1, #dimension - [len(text)], #rank - number of cells - 1, # dimension again - actual size for the - # array of the selection mode - ["incremental"]) - - pdb.gimp_brushes_refresh() - pdb.gimp_image_delete(img) - pdb.gimp_context_pop() - -register( - "brush-from-text", - N_("Create a new brush with characters from a text sequence"), - """New dynamic brush where each cell is a character from -the input text in the chosen font """, - "Joao S. O. Bueno", - "Copyright Joao S.O. Bueno 2009. GPL v3.0", - "2009", - N_("New Brush from _Text..."), - "", - [ - (PF_FONT, "font", _("Font"), "Sans"), - (PF_SPINNER, "size", _("Pixel Size"), 50, (1, 8000, 1)), - (PF_STRING, "text", _("Text"), "GNU Image Manipulation Program") - ], - [], - text_brush, - menu="/File/Create", - domain=("gimp20-python", gimp.locale_directory) - ) -main() diff --git a/plug-ins/script-fu/scripts/3d-outline.scm b/plug-ins/script-fu/scripts/3d-outline.scm deleted file mode 100644 index db3cf7fb04..0000000000 --- a/plug-ins/script-fu/scripts/3d-outline.scm +++ /dev/null @@ -1,185 +0,0 @@ -; 3d-outlined-patterned-shadowed-and-bump-mapped-logo :) -; creates outlined border of a text with patterns -; -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 3d-outline creates outlined border of a text with patterns -; 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 3 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, see . - -(define (apply-3d-outline-logo-effect img - logo-layer - text-pattern - outline-blur-radius - shadow-blur-radius - bump-map-blur-radius - noninteractive - s-offset-x - s-offset-y) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img width height - RGB-IMAGE "Background" 100 NORMAL-MODE))) - (pattern-layer (car (gimp-layer-new img width height - RGBA-IMAGE "Pattern" 100 NORMAL-MODE))) - (alpha-layer 0) - (shadow-layer 0) - (pattern-mask 0) - (floating-sel 0) - ) - - (gimp-context-push) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img pattern-layer bg-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear pattern-layer) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-context-set-foreground '(0 0 0)) - (gimp-edit-fill logo-layer FOREGROUND-FILL) - (gimp-layer-set-lock-alpha logo-layer FALSE) - (plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer outline-blur-radius TRUE TRUE) - - (gimp-item-set-visible pattern-layer FALSE) - (set! alpha-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (plug-in-edge RUN-NONINTERACTIVE img alpha-layer 2 1 0) - (gimp-item-set-name alpha-layer "Bump map") - (set! shadow-layer (car (gimp-layer-copy alpha-layer TRUE))) - (gimp-item-set-name shadow-layer "Edges") - (script-fu-util-image-add-layers img shadow-layer) - (plug-in-gauss-iir RUN-NONINTERACTIVE img alpha-layer bump-map-blur-radius TRUE TRUE) - - (gimp-selection-all img) - (gimp-context-set-pattern text-pattern) - (gimp-edit-bucket-fill pattern-layer - PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - (plug-in-bump-map noninteractive img pattern-layer alpha-layer - 110.0 45.0 4 0 0 0 0 TRUE FALSE 0) - - (set! pattern-mask (car (gimp-layer-create-mask pattern-layer ADD-ALPHA-MASK))) - (gimp-layer-add-mask pattern-layer pattern-mask) - - (gimp-selection-all img) - (gimp-edit-copy shadow-layer) - (set! floating-sel (car (gimp-edit-paste pattern-mask FALSE))) - (gimp-floating-sel-anchor floating-sel) - - (gimp-layer-remove-mask pattern-layer MASK-APPLY) - (gimp-invert shadow-layer) - (gimp-item-set-name shadow-layer "Drop shadow") - (plug-in-gauss-iir RUN-NONINTERACTIVE img shadow-layer shadow-blur-radius TRUE TRUE) - - (gimp-drawable-offset shadow-layer - FALSE OFFSET-BACKGROUND s-offset-x s-offset-y) - - (gimp-item-set-visible alpha-layer FALSE) - (gimp-item-set-visible pattern-layer TRUE) - ;;(set! final (car (gimp-image-flatten img))) - - (gimp-context-pop) - ) -) - -(define (script-fu-3d-outline-logo-alpha img - logo-layer - text-pattern - outline-blur-radius - shadow-blur-radius - bump-map-blur-radius - noninteractive - s-offset-x - s-offset-y) - (begin - (gimp-image-undo-group-start img) - (apply-3d-outline-logo-effect img logo-layer text-pattern - outline-blur-radius shadow-blur-radius - bump-map-blur-radius noninteractive - s-offset-x s-offset-y) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-3d-outline-logo-alpha" - _"3D _Outline..." - _"Outline the selected region (or alpha) with a pattern and add a drop shadow" - "Hrvoje Horvat (hhorvat@open.hr)" - "Hrvoje Horvat" - "07 April, 1998" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-PATTERN _"Pattern" "Parque #1" - SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1) - SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1) - SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1) - SF-TOGGLE _"Default bumpmap settings" TRUE - SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1) - SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1) -) - -(script-fu-menu-register "script-fu-3d-outline-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-3d-outline-logo text-pattern - text - size - font - outline-blur-radius - shadow-blur-radius - bump-map-blur-radius - noninteractive - 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-3d-outline-logo-effect img text-layer text-pattern - outline-blur-radius shadow-blur-radius - bump-map-blur-radius noninteractive - s-offset-x s-offset-y) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-3d-outline-logo" - _"3D _Outline..." - _"Create a logo with outlined text and a drop shadow" - "Hrvoje Horvat (hhorvat@open.hr)" - "Hrvoje Horvat" - "07 April, 1998" - "" - SF-PATTERN _"Pattern" "Parque #1" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "RoostHeavy" - SF-ADJUSTMENT _"Outline blur radius" '(5 1 200 1 10 0 1) - SF-ADJUSTMENT _"Shadow blur radius" '(10 1 200 1 10 0 1) - SF-ADJUSTMENT _"Bumpmap (alpha layer) blur radius" '(5 1 200 1 10 0 1) - SF-TOGGLE _"Default bumpmap settings" TRUE - SF-ADJUSTMENT _"Shadow X offset" '(0 0 200 1 5 0 1) - SF-ADJUSTMENT _"Shadow Y offset" '(0 0 200 1 5 0 1) -) - -(script-fu-menu-register "script-fu-3d-outline-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/3dTruchet.scm b/plug-ins/script-fu/scripts/3dTruchet.scm deleted file mode 100644 index afbf64ba4f..0000000000 --- a/plug-ins/script-fu/scripts/3dTruchet.scm +++ /dev/null @@ -1,242 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; 3dTruchet - a script to create Truchet patterns -; by Adrian Likins -; http://www4.ncsu.edu/~aklikins/ -; version about .8 give or take -; -; Lots of thanks to Quartic for his help. -; -; -; The utility of this script is left as an exercise for the reader. - -(define (center-ellipse img - cx - cy - rx - ry - op - aa - feather - frad) - (gimp-context-push) - (gimp-context-set-antialias aa) - (gimp-context-set-feather feather) - (gimp-context-set-feather-radius frad frad) - (gimp-image-select-ellipse img op (- cx rx) (- cy ry) (+ rx rx) (+ ry ry)) - (gimp-context-pop) -) - -(define (use-tile img - drawable - height - width - img2 - drawable2 - xoffset - yoffset) - (gimp-edit-copy drawable2) - (let ( - (floating-sel (car (gimp-edit-paste drawable FALSE))) - ) - (gimp-layer-set-offsets floating-sel xoffset yoffset) - (gimp-floating-sel-anchor floating-sel) - ) -) - - -(define (create-tile img - drawable1 - drawable2 - size - thickness - backcolor - begincolor - endcolor - supersample) - (let* ( - (half-thickness (/ thickness 2)) - (outer-radius (+ (/ size 2) half-thickness)) - (inner-radius (- (/ size 2) half-thickness)) - ) - - (gimp-selection-all img) - (gimp-context-set-background backcolor) - (gimp-edit-fill drawable1 BACKGROUND-FILL) - - (let* ( - (tempSize (* size 3)) - (temp-img (car (gimp-image-new tempSize tempSize RGB))) - (temp-draw (car (gimp-layer-new temp-img tempSize tempSize - RGB-IMAGE "Jabar" 100 NORMAL-MODE))) - (temp-draw2 (car (gimp-layer-new temp-img tempSize tempSize - RGB-IMAGE "Jabar" 100 NORMAL-MODE))) - ) - - (gimp-image-undo-disable temp-img) - (gimp-image-insert-layer temp-img temp-draw 0 0) - (gimp-image-insert-layer temp-img temp-draw2 0 0) - (gimp-context-set-background backcolor) - (gimp-edit-fill temp-draw BACKGROUND-FILL) - (gimp-edit-fill temp-draw2 BACKGROUND-FILL) - - ;weird aint it - (gimp-context-set-background begincolor) - (gimp-context-set-foreground endcolor) - - (center-ellipse temp-img size size outer-radius outer-radius - CHANNEL-OP-REPLACE TRUE FALSE 0) - (center-ellipse temp-img size size inner-radius inner-radius - CHANNEL-OP-SUBTRACT TRUE FALSE 0) - - (center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius - CHANNEL-OP-ADD TRUE FALSE 0) - (center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius - CHANNEL-OP-SUBTRACT TRUE FALSE 0) - - (gimp-edit-blend temp-draw FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - supersample 3 0.2 TRUE - size size (* size 2) (/ size 2)) - - (center-ellipse temp-img size (* size 2) outer-radius outer-radius - CHANNEL-OP-REPLACE TRUE FALSE 0) - (center-ellipse temp-img size (* size 2) inner-radius inner-radius - CHANNEL-OP-SUBTRACT TRUE FALSE 0) - - (center-ellipse temp-img (* size 2) size outer-radius outer-radius - CHANNEL-OP-ADD TRUE FALSE 0) - (center-ellipse temp-img (* size 2) size inner-radius inner-radius - CHANNEL-OP-SUBTRACT TRUE FALSE 0) - - ;(gimp-edit-fill temp-img temp-draw2 BACKGROUND-FILL) - - (gimp-edit-blend temp-draw2 FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - supersample 3 0.2 TRUE - size size (* size 2) (* size 2)) - - (gimp-selection-none temp-img) - - (gimp-image-resize temp-img size size (- size) (- size)) - ; woo hoo it works....finally... - - - (gimp-selection-all temp-img) - (gimp-edit-copy temp-draw) - (let ((floating-sel (car (gimp-edit-paste drawable2 FALSE)))) - (gimp-floating-sel-anchor floating-sel)) - - (gimp-edit-copy temp-draw2) - (let ((floating-sel (car (gimp-edit-paste drawable1 FALSE)))) - (gimp-floating-sel-anchor floating-sel)) - - ;(let ((drawble (car (gimp-drawable-transform-flip-simple img drawable1 - ; ORIENTATION-HORIZONTAL - ; TRUE 0 TRUE))))) - - - ;(gimp-display-new temp-img) - (gimp-image-delete temp-img) - ) - ) -) - - -(define (script-fu-3dtruchet size - thickness - backcolor - begincolor - endcolor - supersample - xtiles - ytiles) - (let* ( - (width (* size xtiles)) - (height (* size ytiles)) - (img (car (gimp-image-new width height RGB))) - (tile (car (gimp-image-new size size RGB))) - (layer-one (car (gimp-layer-new img width height - RGB-IMAGE "Rambis" 100 NORMAL-MODE))) - (tiledraw1 (car (gimp-layer-new tile size size - RGB-IMAGE "Johnson" 100 NORMAL-MODE))) - (tiledraw2 (car (gimp-layer-new tile size size - RGB-IMAGE "Cooper" 100 NORMAL-MODE))) - (Xindex 0) - (Yindex 0) - ) - - (gimp-context-push) - - (gimp-image-undo-disable img) - (gimp-image-undo-disable tile) - - (gimp-image-insert-layer img layer-one 0 0) - (gimp-image-insert-layer tile tiledraw1 0 0) - (gimp-image-insert-layer tile tiledraw2 0 0) - - ;just to look a little better - (gimp-selection-all img) - (gimp-context-set-background backcolor) - (gimp-edit-fill layer-one BACKGROUND-FILL) - (gimp-selection-none img) - - (create-tile tile tiledraw1 tiledraw2 size thickness - backcolor begincolor endcolor supersample) - - - (while (<= Xindex xtiles) - (while (<= Yindex ytiles) - (if (= (rand 2) 0) - (use-tile img layer-one height width tile - tiledraw1 (* Xindex size) (* Yindex size)) - (use-tile img layer-one height width tile - tiledraw2 (* Xindex size) (* Yindex size)) - ) - (set! Yindex (+ Yindex 1)) - ) - (set! Yindex 0) - (set! Xindex (+ Xindex 1)) - ) - - (gimp-image-delete tile) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-3dtruchet" - _"3_D Truchet..." - _"Create an image filled with a 3D Truchet pattern" - "Adrian Likins " - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Block size" '(64 5 1000 1 10 0 1) - SF-ADJUSTMENT _"Thickness" '(12 2 100 1 10 0 1) - SF-COLOR _"Background color" "white" - SF-COLOR _"Start blend" "black" - SF-COLOR _"End blend" "white" - SF-TOGGLE _"Supersample" TRUE - SF-ADJUSTMENT _"Number of X tiles" '(5 1 1000 1 10 0 1) - SF-ADJUSTMENT _"Number of Y tiles" '(5 1 1000 1 10 0 1) -) - -(script-fu-menu-register "script-fu-3dtruchet" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/Makefile.am b/plug-ins/script-fu/scripts/Makefile.am index 7812950c8a..4cce60de2d 100644 --- a/plug-ins/script-fu/scripts/Makefile.am +++ b/plug-ins/script-fu/scripts/Makefile.am @@ -8,78 +8,41 @@ scripts = \ script-fu.init \ script-fu-compat.init \ plug-in-compat.init \ - 3d-outline.scm \ - 3dTruchet.scm \ add-bevel.scm \ addborder.scm \ - alien-glow-arrow.scm \ - alien-glow-bar.scm \ - alien-glow-bullet.scm \ - alien-glow-button.scm \ - alien-glow-logo.scm \ - alien-neon-logo.scm \ - basic1-logo.scm \ - basic2-logo.scm \ - beveled-button.scm \ - beveled-pattern-arrow.scm \ - beveled-pattern-bullet.scm \ - beveled-pattern-button.scm \ - beveled-pattern-heading.scm \ - beveled-pattern-hrule.scm \ blend-anim.scm \ - blended-logo.scm \ - bovinated-logo.scm \ burn-in-anim.scm \ - camo.scm \ carve-it.scm \ - carved-logo.scm \ - chalk.scm \ - chip-away.scm \ chrome-it.scm \ - chrome-logo.scm \ circuit.scm \ clothify.scm \ coffee.scm \ - comic-logo.scm \ - coolmetal-logo.scm \ copy-visible.scm \ - crystal-logo.scm \ difference-clouds.scm \ distress-selection.scm \ drop-shadow.scm \ erase-rows.scm \ - flatland.scm \ font-map.scm \ - frosty-logo.scm \ fuzzyborder.scm \ gimp-online.scm \ - glossy.scm \ - glowing-logo.scm \ - gradient-bevel-logo.scm \ gradient-example.scm \ grid-system.scm \ guides-from-selection.scm \ guides-new.scm \ guides-new-percent.scm \ guides-remove-all.scm \ - i26-gunya2.scm \ - land.scm \ lava.scm \ line-nova.scm \ mkbrush.scm \ - neon-logo.scm \ - news-text.scm \ old-photo.scm \ palette-export.scm \ paste-as-brush.scm \ paste-as-pattern.scm \ perspective-shadow.scm \ predator.scm \ - pupi-button.scm \ - rendermap.scm \ reverse-layers.scm \ ripply-anim.scm \ - round-corners.scm \ + round-corners.scm \ script-fu-set-cmap.scm \ script-fu-util.scm \ select-to-brush.scm \ @@ -87,19 +50,9 @@ scripts = \ select-to-pattern.scm \ selection-round.scm \ slide.scm \ - sota-chrome-logo.scm \ - speed-text.scm \ spinning-globe.scm \ spyrogimp.scm \ - starscape-logo.scm \ - swirltile.scm \ - swirly-pattern.scm \ - t-o-p-logo.scm \ - text-circle.scm \ - textured-logo.scm \ - title-header.scm \ tileblur.scm \ - truchet.scm \ unsharp-mask.scm \ waves-anim.scm \ weave.scm \ diff --git a/plug-ins/script-fu/scripts/alien-glow-arrow.scm b/plug-ins/script-fu/scripts/alien-glow-arrow.scm deleted file mode 100644 index 9eb8a3d8e6..0000000000 --- a/plug-ins/script-fu/scripts/alien-glow-arrow.scm +++ /dev/null @@ -1,189 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Alien Glow themed arrows for web pages -; Copyright (c) 1997 Adrian Likins -; aklikins@eos.ncsu.edu -; -; -; Based on code from -; 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 3 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, see . - -(define (script-fu-alien-glow-right-arrow size - orientation - glow-color - bg-color - flatten) - - ; some local helper functions, better to not define globally, - ; since otherwise the definitions could be clobbered by other scripts. - (define (map proc seq) - (if (null? seq) - '() - (cons (proc (car seq)) - (map proc (cdr seq)) - ) - ) - ) - - (define (for-each proc seq) - (if (not (null? seq)) - (begin - (proc (car seq)) - (for-each proc (cdr seq)) - ) - ) - ) - - (define (make-point x y) - (cons x y) - ) - - (define (point-x p) - (car p) - ) - - (define (point-y p) - (cdr p) - ) - - (define (point-list->double-array point-list) - (define (convert points array pos) - (if (not (null? points)) - (begin - (aset array (* 2 pos) (point-x (car points))) - (aset array (+ 1 (* 2 pos)) (point-y (car points))) - (convert (cdr points) array (+ pos 1)) - ) - ) - ) - - (let* ( - (how-many (length point-list)) - (a (cons-array (* 2 how-many) 'double)) - ) - (convert point-list a 0) - a - ) - ) - - (define (make-arrow size - offset) - (list (make-point offset offset) - (make-point (- size offset) (/ size 2)) - (make-point offset (- size offset)) - ) - ) - - - (define (rotate-points points size orientation) - (map (lambda (p) - (let ((px (point-x p)) - (py (point-y p))) - (cond ((= orientation 0) (make-point px py)) ; right - ((= orientation 1) (make-point (- size px) py)) ; left - ((= orientation 2) (make-point py (- size px))) ; up - ((= orientation 3) (make-point py px)) ; down - ) - ) - ) - points - ) - ) - - - ; the main function - - (let* ( - (img (car (gimp-image-new size size RGB))) - (grow-amount (/ size 12)) - (blur-radius (/ size 3)) - (offset (/ size 6)) - (ruler-layer (car (gimp-layer-new img - size size RGBA-IMAGE - _"Arrow" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img - size size RGBA-IMAGE - _"Alien Glow" 100 NORMAL-MODE))) - (bg-layer (car (gimp-layer-new img - size size RGB-IMAGE - _"Background" 100 NORMAL-MODE))) - (big-arrow (point-list->double-array - (rotate-points (make-arrow size offset) - size orientation))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - ;(gimp-image-resize img (+ length height) (+ height height) 0 0) - (gimp-image-insert-layer img bg-layer 0 1) - (gimp-image-insert-layer img glow-layer 0 -1) - (gimp-image-insert-layer img ruler-layer 0 -1) - - (gimp-edit-clear glow-layer) - (gimp-edit-clear ruler-layer) - - (gimp-image-select-polygon img CHANNEL-OP-REPLACE 6 big-arrow) - - (gimp-context-set-foreground '(103 103 103)) - (gimp-context-set-background '(0 0 0)) - - (gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 size size) - - (gimp-selection-grow img grow-amount) - (gimp-context-set-foreground glow-color) - (gimp-edit-fill glow-layer FOREGROUND-FILL) - - (gimp-selection-none img) - - - (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer blur-radius TRUE TRUE) - - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - (if (= flatten TRUE) - (gimp-image-flatten img) - ) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-alien-glow-right-arrow" - _"_Arrow..." - _"Create an arrow graphic with an eerie glow for web pages" - "Adrian Likins" - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1) - SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down") - SF-COLOR _"Glow color" '(63 252 0) - SF-COLOR _"Background color" "black" - SF-TOGGLE _"Flatten image" TRUE -) - -(script-fu-menu-register "script-fu-alien-glow-right-arrow" - "/File/Create/Web Page Themes/Alien Glow") diff --git a/plug-ins/script-fu/scripts/alien-glow-bar.scm b/plug-ins/script-fu/scripts/alien-glow-bar.scm deleted file mode 100644 index 19339f3a35..0000000000 --- a/plug-ins/script-fu/scripts/alien-glow-bar.scm +++ /dev/null @@ -1,100 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Alien Glow themed hrule for web pages -; Copyright (c) 1997 Adrian Likins -; aklikins@eos.ncsu.edu -; -; -; 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 3 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, see . - -(define (script-fu-alien-glow-horizontal-ruler length - height - glow-color - bg-color - flatten) - (let* ( - (img (car (gimp-image-new height length RGB))) - (border (/ height 4)) - (ruler-layer (car (gimp-layer-new img - (+ length height) (+ height height) - RGBA-IMAGE _"Bar" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img - (+ length height) (+ height height) - RGBA-IMAGE _"Alien Glow" 100 NORMAL-MODE))) - (bg-layer (car (gimp-layer-new img - (+ length height) (+ height height) - RGB-IMAGE _"Background" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - (gimp-image-resize img (+ length height) (+ height height) 0 0) - (gimp-image-insert-layer img bg-layer 0 1) - (gimp-image-insert-layer img glow-layer 0 -1) - (gimp-image-insert-layer img ruler-layer 0 -1) - - ; (gimp-layer-set-lock-alpha ruler-layer TRUE) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear glow-layer) - (gimp-edit-clear ruler-layer) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE - (/ height 2) (/ height 2) - length height) - (gimp-context-set-foreground '(79 79 79)) - (gimp-context-set-background '(0 0 0)) - - (gimp-edit-blend ruler-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 height height) - - (gimp-context-set-foreground glow-color) - (gimp-selection-grow img border) - (gimp-edit-fill glow-layer FOREGROUND-FILL) - (gimp-selection-none img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE) - - (gimp-image-undo-enable img) - - (if (= flatten TRUE) - (gimp-image-flatten img)) - - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-alien-glow-horizontal-ruler" - _"_Hrule..." - _"Create an Hrule graphic with an eerie glow for web pages" - "Adrian Likins" - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Bar length" '(480 5 1500 1 10 0 1) - SF-ADJUSTMENT _"Bar height" '(16 1 100 1 10 0 1) - SF-COLOR _"Glow color" '(63 252 0) - SF-COLOR _"Background color" "black" - SF-TOGGLE _"Flatten image" TRUE -) - -(script-fu-menu-register "script-fu-alien-glow-horizontal-ruler" - "/File/Create/Web Page Themes/Alien Glow") diff --git a/plug-ins/script-fu/scripts/alien-glow-bullet.scm b/plug-ins/script-fu/scripts/alien-glow-bullet.scm deleted file mode 100644 index e430c37b21..0000000000 --- a/plug-ins/script-fu/scripts/alien-glow-bullet.scm +++ /dev/null @@ -1,112 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Alien Glow themed bullets for web pages -; Copyright (c) 1997 Adrian Likins -; aklikins@eos.ncsu.edu -; -; 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 3 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, see . - -(define (script-fu-alien-glow-bullet radius - glow-color - bg-color - flatten) - - (define (center-ellipse img cx cy rx ry op aa feather frad) - (gimp-context-push) - (gimp-context-set-antialias aa) - (gimp-context-set-feather feather) - (gimp-context-set-feather-radius frad frad) - (gimp-image-select-ellipse img op (- cx rx) (- cy ry) (+ rx rx) (+ ry ry)) - (gimp-context-pop) - ) - - - (let* ( - (img (car (gimp-image-new radius radius RGB))) - (border (/ radius 4)) - (diameter (* radius 2)) - (half-radius (/ radius 2)) - (blend-start (+ half-radius (/ half-radius 2))) - (bullet-layer (car (gimp-layer-new img - diameter diameter RGBA-IMAGE - _"Bullet" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img diameter diameter RGBA-IMAGE - _"Alien Glow" 100 NORMAL-MODE))) - (bg-layer (car (gimp-layer-new img diameter diameter RGB-IMAGE - _"Background" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - - (gimp-image-undo-disable img) - (gimp-image-resize img diameter diameter 0 0) - (gimp-image-insert-layer img bg-layer 0 1) - (gimp-image-insert-layer img glow-layer 0 -1) - (gimp-image-insert-layer img bullet-layer 0 -1) - - ; (gimp-layer-set-lock-alpha ruler-layer TRUE) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear glow-layer) - (gimp-edit-clear bullet-layer) - - (center-ellipse img radius radius half-radius half-radius - CHANNEL-OP-REPLACE TRUE FALSE 0) - - ; (gimp-rect-select img (/ height 2) (/ height 2) length height CHANNEL-OP-REPLACE FALSE 0) - (gimp-context-set-foreground '(90 90 90)) - (gimp-context-set-background '(0 0 0)) - - (gimp-edit-blend bullet-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-RADIAL 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - blend-start blend-start - (+ half-radius radius) (+ half-radius radius)) - - (gimp-context-set-foreground glow-color) - (gimp-selection-grow img border) - (gimp-selection-feather img border) - (gimp-edit-fill glow-layer FOREGROUND-FILL) - (gimp-selection-none img) - (if (>= radius 16) - (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 25 TRUE TRUE) - (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer 12 TRUE TRUE) - ) - - (if (= flatten TRUE) - (gimp-image-flatten img) - ) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-alien-glow-bullet" - _"_Bullet..." - _"Create a bullet graphic with an eerie glow for web pages" - "Adrian Likins" - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Radius" '(16 1 100 1 10 0 1) - SF-COLOR _"Glow color" '(63 252 0) - SF-COLOR _"Background color" "black" - SF-TOGGLE _"Flatten image" TRUE -) - -(script-fu-menu-register "script-fu-alien-glow-bullet" - "/File/Create/Web Page Themes/Alien Glow") diff --git a/plug-ins/script-fu/scripts/alien-glow-button.scm b/plug-ins/script-fu/scripts/alien-glow-button.scm deleted file mode 100644 index 1787181c27..0000000000 --- a/plug-ins/script-fu/scripts/alien-glow-button.scm +++ /dev/null @@ -1,168 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Alien Glow themed button -; Copyright (c) 1997 Adrian Likins -; aklikins@eos.ncsu.edu -; -; based on code from Frederico Mena Quintero (Quartic) -; 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 3 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, see . - - -(define (script-fu-alien-glow-button text - font - size - text-color - glow-color - bg-color - padding - glow-radius - flatten) - - (define (text-width extents) - (car extents)) - - (define (text-height extents) - (cadr extents)) - - (define (text-ascent extents) - (caddr extents)) - - (define (text-descent extents) - (cadr (cddr extents))) - - (define (blend-bumpmap img - drawable - x1 - y1 - x2 - y2) - (gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - x1 y1 x2 y2) - ) - - (let* ( - (text-extents (gimp-text-get-extents-fontname text - size - PIXELS - font)) - (ascent (text-ascent text-extents)) - (descent (text-descent text-extents)) - - (img-width (+ (* 2 padding) - (text-width text-extents))) - (img-height (+ (* 2 padding) - (+ ascent descent))) - (layer-height img-height) - (layer-width img-width) - (img-width (+ img-width glow-radius)) - (img-height (+ img-height glow-radius)) - (img (car (gimp-image-new img-width img-height RGB))) - (bg-layer (car (gimp-layer-new img - img-width img-height RGBA-IMAGE - _"Background" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img - img-width img-height RGBA-IMAGE - _"Glow" 100 NORMAL-MODE))) - (button-layer (car (gimp-layer-new img - layer-width layer-height RGBA-IMAGE - _"Button" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - - ; Create bumpmap layer - - (gimp-image-insert-layer img bg-layer 0 -1) - (gimp-context-set-foreground '(0 0 0)) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-image-insert-layer img glow-layer 0 -1) - - ; Create text layer - - (gimp-image-insert-layer img button-layer 0 -1) - (gimp-layer-set-offsets button-layer (/ glow-radius 2) (/ glow-radius 2)) - (gimp-selection-none img) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 0 img-width img-height) - (gimp-context-set-foreground '(100 100 100)) - (gimp-context-set-background '(0 0 0)) - - (gimp-edit-blend button-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 img-height img-width) - - (gimp-edit-clear glow-layer) - - (gimp-image-select-rectangle img - CHANNEL-OP-REPLACE - (/ glow-radius 4) - (/ glow-radius 4) - (- img-width (/ glow-radius 2)) - (- img-height (/ glow-radius 2))) - - (gimp-context-set-foreground glow-color) - (gimp-edit-fill glow-layer FOREGROUND-FILL) - (gimp-selection-none img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img glow-layer glow-radius TRUE TRUE) - (gimp-context-set-foreground text-color) - (let ( - (textl (car (gimp-text-fontname - img -1 0 0 text 0 TRUE size PIXELS font))) - ) - (gimp-layer-set-offsets textl - (+ padding (/ glow-radius 2)) - (+ (+ padding descent) (/ glow-radius 2))) - ) - ; Done - (gimp-selection-none img) - (gimp-image-undo-enable img) - (if (= flatten TRUE) - (gimp-image-flatten img) - ) - - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-alien-glow-button" - _"B_utton..." - _"Create a button graphic with an eerie glow for web pages" - "Adrian Likins" - "Adrian Likins" - "July 1997" - "" - SF-STRING _"Text" "Hello world!" - SF-FONT _"Font" "Sans Bold" - SF-ADJUSTMENT _"Font size (pixels)" '(22 2 100 1 1 0 1) - SF-COLOR _"Text color" "black" - SF-COLOR _"Glow color" '(63 252 0) - SF-COLOR _"Background color" "black" - SF-ADJUSTMENT _"Padding" '(6 1 100 1 10 0 1) - SF-ADJUSTMENT _"Glow radius" '(10 1 200 1 10 0 1) - SF-TOGGLE _"Flatten image" TRUE -) - -(script-fu-menu-register "script-fu-alien-glow-button" - "/File/Create/Web Page Themes/Alien Glow") diff --git a/plug-ins/script-fu/scripts/alien-glow-logo.scm b/plug-ins/script-fu/scripts/alien-glow-logo.scm deleted file mode 100644 index 04307681d6..0000000000 --- a/plug-ins/script-fu/scripts/alien-glow-logo.scm +++ /dev/null @@ -1,118 +0,0 @@ -; ALIEN-GLOW -; Create a text effect that simulates an eerie alien glow around text - -(define (apply-alien-glow-logo-effect img - logo-layer - size - glow-color) - (let* ( - (border (/ size 4)) - (grow (/ size 30)) - (feather (/ size 4)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img - width height RGB-IMAGE - "Background" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Alien Glow" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img glow-layer bg-layer) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear glow-layer) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-grow img grow) - (gimp-selection-feather img feather) - (gimp-context-set-foreground glow-color) - (gimp-edit-fill glow-layer FOREGROUND-FILL) - (gimp-selection-none img) - - (gimp-context-set-background '(0 0 0)) - (gimp-context-set-foreground '(79 79 79)) - - (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 1 1) - - (gimp-context-pop) - ) -) - - -(define (script-fu-alien-glow-logo-alpha img - logo-layer - size - glow-color) - (begin - (gimp-image-undo-group-start img) - (apply-alien-glow-logo-effect img logo-layer size glow-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-alien-glow-logo-alpha" - _"Alien _Glow..." - _"Add an eerie glow around the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Glow size (pixels * 4)" '(150 2 1000 1 10 0 1) - SF-COLOR _"Glow color" '(63 252 0) -) - -(script-fu-menu-register "script-fu-alien-glow-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-alien-glow-logo text - size - font - glow-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (grow (/ size 30)) - (feather (/ size 4)) - (text-layer (car (gimp-text-fontname img - -1 0 0 text border TRUE - size PIXELS font))) - (width (car (gimp-drawable-width text-layer))) - (height (car (gimp-drawable-height text-layer))) - ) - - (gimp-image-undo-disable img) - (apply-alien-glow-logo-effect img text-layer size glow-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-alien-glow-logo" - _"Alien _Glow..." - _"Create a logo with an alien glow around the text" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-STRING _"Text" "ALIEN" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Sans Bold" - SF-COLOR _"Glow color" '(63 252 0) -) - -(script-fu-menu-register "script-fu-alien-glow-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/alien-neon-logo.scm b/plug-ins/script-fu/scripts/alien-neon-logo.scm deleted file mode 100644 index b27f961851..0000000000 --- a/plug-ins/script-fu/scripts/alien-neon-logo.scm +++ /dev/null @@ -1,187 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; alien-neon-logo.scm - creates multiple outlines around the letters -; Copyright (C) 1999-2000 Raphael Quinet -; -; 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 3 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, see . -; -; 1999-12-01 First version. -; 2000-02-19 Do not discard the layer mask so that it can still be edited. -; 2000-03-08 Adapted the script to my gimp-edit-fill changes. -; 2000-04-02 Split the script in two parts: one using text, one using alpha. -; 2000-05-29 More modifications for "Alpha to Logo" using a separate function. -; -; To do: use a channel mask for creating the bands, instead of working in the -; image. gimp-invert would then work on one grayscale channel instead of -; wasting CPU cycles on three identical R, G, B channels. -; - -(define (apply-alien-neon-logo-effect img - logo-layer - fg-color - bg-color - band-size - gap-size - num-bands - do-fade) - (let* ( - (fade-size (- (* (+ band-size gap-size) num-bands) 1)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (bands-layer (car (gimp-layer-new img width height RGBA-IMAGE "Bands" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img bands-layer bg-layer) - (gimp-selection-none img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bands-layer BACKGROUND-FILL) - ; The text layer is never shown: it is only used to create a selection - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-context-set-foreground '(255 255 255)) - (gimp-edit-fill bands-layer FOREGROUND-FILL) - - ; Create multiple outlines by growing and inverting the selection - ; The bands are black and white because they will be used as a mask. - (while (> num-bands 0) - (gimp-selection-grow img band-size) - (gimp-invert bands-layer) - (gimp-selection-grow img gap-size) - (gimp-invert bands-layer) - (set! num-bands (- num-bands 1)) - ) - - ; The fading effect is obtained by masking the image with a gradient. - ; The gradient is created by filling a bordered selection (white->black). - (if (= do-fade TRUE) - (let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer - ADD-BLACK-MASK)))) - (gimp-layer-add-mask bands-layer bands-layer-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-border img fade-size) - (gimp-edit-fill bands-layer-mask FOREGROUND-FILL) - (gimp-layer-remove-mask bands-layer MASK-APPLY))) - - ; Transfer the resulting grayscale bands into the layer mask. - (let ((bands-layer-mask (car (gimp-layer-create-mask bands-layer - ADD-BLACK-MASK)))) - (gimp-layer-add-mask bands-layer bands-layer-mask) - (gimp-selection-none img) - (gimp-edit-copy bands-layer) - (gimp-floating-sel-anchor (car (gimp-edit-paste bands-layer-mask - FALSE)))) - - ; Fill the layer with the foreground color. The areas that are not - ; masked become visible. - (gimp-context-set-foreground fg-color) - (gimp-edit-fill bands-layer FOREGROUND-FILL) - ;; (gimp-layer-remove-mask bands-layer MASK-APPLY) - - ; Clean up and exit. - (gimp-item-set-visible logo-layer 0) - (gimp-image-set-active-layer img bands-layer) - (gimp-displays-flush) - - (gimp-context-pop) - ) -) - - -(define (script-fu-alien-neon-logo-alpha img - logo-layer - fg-color - bg-color - band-size - gap-size - num-bands - do-fade) - (begin - (gimp-image-undo-group-start img) - (apply-alien-neon-logo-effect img logo-layer fg-color bg-color - band-size gap-size num-bands do-fade) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-alien-neon-logo-alpha" - _"Alien _Neon..." - _"Add psychedelic outlines to the selected region (or alpha)" - "Raphael Quinet (quinet@gamers.org)" - "Raphael Quinet" - "1999-2000" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-COLOR _"Glow color" "green" - SF-COLOR _"Background color" "black" - SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0) - SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0) - SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1) - SF-TOGGLE _"Fade away" TRUE -) - -(script-fu-menu-register "script-fu-alien-neon-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-alien-neon-logo text - size - fontname - fg-color - bg-color - band-size - gap-size - num-bands - do-fade) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (fade-size (- (* (+ band-size gap-size) num-bands) 1)) - (text-layer (car (gimp-text-fontname img -1 0 0 text (+ fade-size 10) TRUE size PIXELS fontname))) - ) - (gimp-image-undo-disable img) - (apply-alien-neon-logo-effect img text-layer fg-color bg-color - band-size gap-size num-bands do-fade) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-alien-neon-logo" - _"Alien _Neon..." - _"Create a logo with psychedelic outlines around the text" - "Raphael Quinet (quinet@gamers.org)" - "Raphael Quinet" - "1999-2000" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Blippo" - SF-COLOR _"Glow color" "green" - SF-COLOR _"Background color" "black" - SF-ADJUSTMENT _"Width of bands" '(2 1 60 1 10 0 0) - SF-ADJUSTMENT _"Width of gaps" '(2 1 60 1 10 0 0) - SF-ADJUSTMENT _"Number of bands" '(7 1 100 1 10 0 1) - SF-TOGGLE _"Fade away" TRUE -) - -(script-fu-menu-register "script-fu-alien-neon-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/basic1-logo.scm b/plug-ins/script-fu/scripts/basic1-logo.scm deleted file mode 100644 index 07f63b2a1b..0000000000 --- a/plug-ins/script-fu/scripts/basic1-logo.scm +++ /dev/null @@ -1,106 +0,0 @@ -; DROP-SHADOW-LOGO -; draw the specified text over a background with a drop shadow - -(define (apply-basic1-logo-effect img - logo-layer - bg-color - text-color) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img shadow-layer bg-layer) - (gimp-context-set-foreground text-color) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-edit-fill logo-layer FOREGROUND-FILL) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear shadow-layer) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-feather img 7.5) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-context-set-foreground '(255 255 255)) - - (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE - GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 width height) - - (gimp-layer-translate shadow-layer 3 3) - - (gimp-context-pop) - ) -) - - -(define (script-fu-basic1-logo-alpha img - logo-layer - bg-color - text-color) - (begin - (gimp-image-undo-group-start img) - (apply-basic1-logo-effect img logo-layer bg-color text-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-basic1-logo-alpha" - _"_Basic I..." - _"Add a gradient effect, a drop shadow, and a background to the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-COLOR _"Background color" "white" - SF-COLOR _"Text color" '(6 6 206) -) - -(script-fu-menu-register "script-fu-basic1-logo-alpha" - "/Filters/Alpha to Logo") - -(define (script-fu-basic1-logo text - size - font - bg-color - text-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font))) - ) - - (gimp-image-undo-disable img) - (apply-basic1-logo-effect img text-layer bg-color text-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-basic1-logo" - _"_Basic I..." - _"Create a plain text logo with a gradient effect, a drop shadow, and a background" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "Dragonwick" - SF-COLOR _"Background color" "white" - SF-COLOR _"Text color" '(6 6 206) -) - -(script-fu-menu-register "script-fu-basic1-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/basic2-logo.scm b/plug-ins/script-fu/scripts/basic2-logo.scm deleted file mode 100644 index 1cab076eb9..0000000000 --- a/plug-ins/script-fu/scripts/basic2-logo.scm +++ /dev/null @@ -1,128 +0,0 @@ -; HIGHLIGHT-DROP-SHADOW-LOGO -; draw the specified text over a background with a drop shadow and a highlight - -(define (apply-basic2-logo-effect img - logo-layer - bg-color - text-color) - - (define (color-highlight color) - (let ( - (r (car color)) - (g (cadr color)) - (b (caddr color)) - ) - - (set! r (+ r (* (- 255 r) 0.75))) - (set! g (+ g (* (- 255 g) 0.75))) - (set! b (+ b (* (- 255 b) 0.75))) - (list r g b) - ) - ) - - (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))) - (highlight-layer (car (gimp-layer-copy logo-layer TRUE))) - (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 100 MULTIPLY-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img highlight-layer shadow-layer bg-layer) - (gimp-context-set-foreground text-color) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-edit-fill logo-layer FOREGROUND-FILL) - (gimp-edit-clear shadow-layer) - (gimp-context-set-foreground (color-highlight text-color)) - (gimp-layer-set-lock-alpha highlight-layer TRUE) - (gimp-edit-fill highlight-layer FOREGROUND-FILL) - (gimp-context-set-background bg-color) - (gimp-drawable-fill bg-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-feather img 7.5) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-context-set-foreground '(255 255 255)) - - (gimp-edit-blend logo-layer FG-BG-RGB-MODE MULTIPLY-MODE - GRADIENT-RADIAL 100 20 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 width height) - - (gimp-layer-translate shadow-layer 3 3) - (gimp-layer-translate highlight-layer (- posx 2) (- posy 2)) - (gimp-item-set-name highlight-layer "Highlight") - - (gimp-context-pop) - ) -) - -(define (script-fu-basic2-logo-alpha img - logo-layer - bg-color - text-color) - (begin - (gimp-image-undo-group-start img) - (apply-basic2-logo-effect img logo-layer bg-color text-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-basic2-logo-alpha" - _"B_asic II..." - _"Add a shadow and a highlight to the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-COLOR _"Background color" "white" - SF-COLOR _"Text color" '(206 6 50) -) - -(define (script-fu-basic2-logo text - size - font - bg-color - text-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (text-layer (car (gimp-text-fontname img -1 0 0 text 10 TRUE size PIXELS font))) - ) - - (gimp-image-undo-disable img) - (apply-basic2-logo-effect img text-layer bg-color text-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-menu-register "script-fu-basic2-logo-alpha" - "/Filters/Alpha to Logo") - -(script-fu-register "script-fu-basic2-logo" - _"B_asic II..." - _"Create a simple logo with a shadow and a highlight" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "" - SF-STRING _"Text" "SCRIPT-FU" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Sans Bold" - SF-COLOR _"Background color" "white" - SF-COLOR _"Text color" '(206 6 50) -) - -(script-fu-menu-register "script-fu-basic2-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/beveled-button.scm b/plug-ins/script-fu/scripts/beveled-button.scm deleted file mode 100644 index e1ddbddd3e..0000000000 --- a/plug-ins/script-fu/scripts/beveled-button.scm +++ /dev/null @@ -1,160 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Button00 --- create a simple beveled Web button -; 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 3 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, see . -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; All calls to gimp-text-* have been converted to use the *-fontname form. -; The corresponding parameters have been replaced by an SF-FONT parameter. -; ************************************************************************ - - -(define (text-width extents) - (car extents)) - -(define (text-height extents) - (cadr extents)) - -(define (text-ascent extents) - (caddr extents)) - -(define (text-descent extents) - (cadr (cddr extents))) - -(define (blend-bumpmap img - drawable - x1 - y1 - x2 - y2) - (gimp-edit-blend drawable FG-BG-RGB-MODE DARKEN-ONLY-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - x1 y1 x2 y2)) - -(define (script-fu-button00 text - size - font - ul-color - lr-color - text-color - padding - bevel-width - pressed) - (let* ( - (text-extents (gimp-text-get-extents-fontname text - size - PIXELS - font)) - (ascent (text-ascent text-extents)) - (descent (text-descent text-extents)) - - (img-width (+ (* 2 (+ padding bevel-width)) - (text-width text-extents))) - (img-height (+ (* 2 (+ padding bevel-width)) - (+ ascent descent))) - - (img (car (gimp-image-new img-width img-height RGB))) - - (bumpmap (car (gimp-layer-new img - img-width img-height RGBA-IMAGE - _"Bumpmap" 100 NORMAL-MODE))) - (gradient (car (gimp-layer-new img - img-width img-height RGBA-IMAGE - _"Gradient" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - (gimp-image-undo-disable img) - - ; Create bumpmap layer - - (gimp-image-insert-layer img bumpmap 0 -1) - (gimp-context-set-foreground '(0 0 0)) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 0 bevel-width img-height) - (blend-bumpmap img bumpmap 0 0 (- bevel-width 1) 0) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 0 img-width bevel-width) - (blend-bumpmap img bumpmap 0 0 0 (- bevel-width 1)) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE (- img-width bevel-width) 0 bevel-width img-height) - (blend-bumpmap img bumpmap (- img-width 1) 0 (- img-width bevel-width) 0) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 (- img-height bevel-width) img-width bevel-width) - (blend-bumpmap img bumpmap 0 (- img-height 1) 0 (- img-height bevel-width)) - - (gimp-selection-none img) - - ; Create gradient layer - - (gimp-image-insert-layer img gradient 0 -1) - (gimp-context-set-foreground ul-color) - (gimp-context-set-background lr-color) - - (gimp-edit-blend gradient FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 (- img-width 1) (- img-height 1)) - - (plug-in-bump-map RUN-NONINTERACTIVE img gradient bumpmap - 135 45 bevel-width 0 0 0 0 TRUE pressed 0) - - ; Create text layer - - (gimp-context-set-foreground text-color) - (let ((textl (car (gimp-text-fontname - img -1 0 0 text 0 TRUE size PIXELS font)))) - (gimp-layer-set-offsets textl - (+ bevel-width padding) - (+ bevel-width padding descent))) - - ; Done - - (gimp-selection-none img) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-button00" - _"Simple _Beveled Button..." - _"Create a simple, beveled button graphic for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "June 1997" - "" - SF-STRING _"Text" "Hello world!" - SF-ADJUSTMENT _"Font size (pixels)" '(16 2 100 1 1 0 1) - SF-FONT _"Font" "Sans" - SF-COLOR _"Upper-left color" '(0 255 127) - SF-COLOR _"Lower-right color" '(0 127 255) - SF-COLOR _"Text color" "black" - SF-ADJUSTMENT _"Padding" '(2 1 100 1 10 0 1) - SF-ADJUSTMENT _"Bevel width" '(4 1 100 1 10 0 1) - SF-TOGGLE _"Pressed" FALSE -) - -(script-fu-menu-register "script-fu-button00" - "/File/Create/Buttons") diff --git a/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm b/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm deleted file mode 100644 index 02ea5c36ab..0000000000 --- a/plug-ins/script-fu/scripts/beveled-pattern-arrow.scm +++ /dev/null @@ -1,161 +0,0 @@ -; GIMP - The GNU 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 3 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, see . - - -(define (script-fu-beveled-pattern-arrow size orientation pattern) - - (define (make-point x y) - (cons x y) - ) - - (define (point-x p) - (car p) - ) - - (define (point-y p) - (cdr p) - ) - - (define (point-list->double-array point-list) - (let* ( - (how-many (length point-list)) - (a (cons-array (* 2 how-many) 'double)) - (count 0) - ) - - (for-each (lambda (p) - (aset a (* count 2) (point-x p)) - (aset a (+ 1 (* count 2)) (point-y p)) - (set! count (+ count 1))) - point-list - ) - a - ) - ) - - (define (rotate-points points size orientation) - (map (lambda (p) - (let ((px (point-x p)) - (py (point-y p))) - (cond ((= orientation 0) (make-point px py)) ; right - ((= orientation 1) (make-point (- size px) py)) ; left - ((= orientation 2) (make-point py (- size px))) ; up - ((= orientation 3) (make-point py px)) ; down - ) - ) - ) - points - ) - ) - - (define (make-arrow size offset) - (list (make-point offset offset) - (make-point (- size offset) (/ size 2)) - (make-point offset (- size offset))) - ) - - ; the main function - - (let* ( - (img (car (gimp-image-new size size RGB))) - (background (car (gimp-layer-new img size size RGB-IMAGE _"Arrow" 100 NORMAL-MODE))) - (bumpmap (car (gimp-layer-new img size size RGB-IMAGE _"Bumpmap" 100 NORMAL-MODE))) - (big-arrow (point-list->double-array (rotate-points (make-arrow size 6) size orientation))) - (med-arrow (point-list->double-array (rotate-points (make-arrow size 7) size orientation))) - (small-arrow (point-list->double-array (rotate-points (make-arrow size 8) size orientation))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img background 0 -1) - (gimp-image-insert-layer img bumpmap 0 -1) - - ; Create pattern layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-context-set-pattern pattern) - (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - - ; Create bumpmap layer - - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 1 1 (- size 2) (- size 2)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(255 255 255)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 2 2 (- size 4) (- size 4)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-polygon img CHANNEL-OP-REPLACE 6 big-arrow) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(0 0 0)) - (gimp-image-select-polygon img CHANNEL-OP-REPLACE 6 med-arrow) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - ; Bumpmap - - (plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0) - - ; Darken arrow - - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(192 192 192)) - (gimp-image-select-polygon img CHANNEL-OP-REPLACE 6 small-arrow) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - (gimp-layer-set-mode bumpmap MULTIPLY-MODE) - - (gimp-image-flatten img) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-beveled-pattern-arrow" - _"_Arrow..." - _"Create a beveled pattern arrow for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "July 1997" - "" - SF-ADJUSTMENT _"Size" '(32 5 150 1 10 0 1) - SF-OPTION _"Orientation" '(_"Right" _"Left" _"Up" _"Down") - SF-PATTERN _"Pattern" "Wood" -) - -(script-fu-menu-register "script-fu-beveled-pattern-arrow" - "/File/Create/Web Page Themes/Beveled Pattern") diff --git a/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm b/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm deleted file mode 100644 index c76405a7e9..0000000000 --- a/plug-ins/script-fu/scripts/beveled-pattern-bullet.scm +++ /dev/null @@ -1,96 +0,0 @@ -; GIMP - The GNU 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 3 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, see . - - -(define (script-fu-beveled-pattern-bullet diameter pattern transparent) - (let* ( - (img (car (gimp-image-new diameter diameter RGB))) - (background (car (gimp-layer-new img diameter diameter RGBA-IMAGE _"Bullet" 100 NORMAL-MODE))) - (bumpmap (car (gimp-layer-new img diameter diameter RGBA-IMAGE _"Bumpmap" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img background 0 -1) - (gimp-image-insert-layer img bumpmap 0 -1) - - ; Create pattern layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-context-set-pattern pattern) - (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - - ; Create bumpmap layer - - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-ellipse img CHANNEL-OP-REPLACE 1 1 (- diameter 2) (- diameter 2)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(255 255 255)) - (gimp-image-select-ellipse img CHANNEL-OP-REPLACE 2 2 (- diameter 4) (- diameter 4)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - ; Bumpmap - - (plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0) - - ; Background - - (gimp-context-set-background '(0 0 0)) - (gimp-image-select-ellipse img CHANNEL-OP-REPLACE 0 0 diameter diameter) - (gimp-selection-invert img) - (gimp-edit-clear background) - (gimp-selection-none img) - - (gimp-image-set-active-layer img background) - (gimp-image-remove-layer img bumpmap) - - (if (= transparent FALSE) - (gimp-image-flatten img)) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-beveled-pattern-bullet" - _"_Bullet..." - _"Create a beveled pattern bullet for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "July 1997" - "" - SF-ADJUSTMENT _"Diameter" '(16 1 150 1 10 0 1) - SF-PATTERN _"Pattern" "Wood" - SF-TOGGLE _"Transparent background" FALSE -) - -(script-fu-menu-register "script-fu-beveled-pattern-bullet" - "/File/Create/Web Page Themes/Beveled Pattern") diff --git a/plug-ins/script-fu/scripts/beveled-pattern-button.scm b/plug-ins/script-fu/scripts/beveled-pattern-button.scm deleted file mode 100644 index aba96485b0..0000000000 --- a/plug-ins/script-fu/scripts/beveled-pattern-button.scm +++ /dev/null @@ -1,135 +0,0 @@ -; GIMP - The GNU 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 3 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, see . -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; All calls to gimp-text-* have been converted to use the *-fontname form. -; The corresponding parameters have been replaced by an SF-FONT parameter. -; ************************************************************************ - -(define (text-width extents) - (car extents)) - -(define (text-height extents) - (cadr extents)) - -(define (text-ascent extents) - (caddr extents)) - -(define (text-descent extents) - (cadr (cddr extents))) - -(define (script-fu-beveled-pattern-button - text text-size font text-color pattern pressed) - (let* ( - (text-extents (gimp-text-get-extents-fontname - text text-size PIXELS font)) - (ascent (text-ascent text-extents)) - (descent (text-descent text-extents)) - - (xpadding 8) - (ypadding 6) - - (width (+ (* 2 xpadding) - (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))) - (textl (car - (gimp-text-fontname - img -1 0 0 text 0 TRUE text-size PIXELS font))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img background 0 1) - (gimp-image-insert-layer img bumpmap 0 1) - - ; Create pattern layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-context-set-pattern pattern) - (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - - ; Create bumpmap layer - - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 1 1 (- width 2) (- height 2)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(255 255 255)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 2 2 (- width 4) (- height 4)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - ; Bumpmap - - (plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE pressed 0) - - ; Color and position text - - (gimp-context-set-background text-color) - (gimp-layer-set-lock-alpha textl TRUE) - (gimp-edit-fill textl BACKGROUND-FILL) - - (gimp-layer-set-offsets textl - xpadding - (+ ypadding descent)) - - ; Clean up - - (gimp-image-set-active-layer img background) - (gimp-image-remove-layer img bumpmap) - (gimp-image-flatten img) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-beveled-pattern-button" - _"B_utton..." - _"Create a beveled pattern button for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "July 1997" - "" - SF-STRING _"Text" "Hello world!" - SF-ADJUSTMENT _"Font size (pixels)" '(32 2 1000 1 10 0 1) - SF-FONT _"Font" "Sans" - SF-COLOR _"Text color" "black" - SF-PATTERN _"Pattern" "Wood" - SF-TOGGLE _"Pressed" FALSE -) - -(script-fu-menu-register "script-fu-beveled-pattern-button" - "/File/Create/Web Page Themes/Beveled Pattern") diff --git a/plug-ins/script-fu/scripts/beveled-pattern-heading.scm b/plug-ins/script-fu/scripts/beveled-pattern-heading.scm deleted file mode 100644 index 83ee2cd9da..0000000000 --- a/plug-ins/script-fu/scripts/beveled-pattern-heading.scm +++ /dev/null @@ -1,121 +0,0 @@ -; GIMP - The GNU 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 3 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, see . -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; All calls to gimp-text-* have been converted to use the *-fontname form. -; The corresponding parameters have been replaced by an SF-FONT parameter. -; ************************************************************************ - - -(define (script-fu-beveled-pattern-heading - text text-size font pattern transparent) - (let* ( - (img (car (gimp-image-new 10 10 RGB))) - (textl - (car - (gimp-text-fontname img -1 0 0 text 0 TRUE text-size PIXELS font))) - - (width (car (gimp-drawable-width textl))) - (height (car (gimp-drawable-height textl))) - - (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))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-resize img width height 0 0) - (gimp-image-insert-layer img background 0 1) - (gimp-image-insert-layer img bumpmap 0 1) - - ; Create pattern layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-context-set-pattern pattern) - (gimp-edit-bucket-fill background - PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - - ; Create bumpmap layer - - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-item img CHANNEL-OP-REPLACE textl) - (gimp-selection-shrink img 1) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(255 255 255)) - (gimp-image-select-item img CHANNEL-OP-REPLACE textl) - (gimp-selection-shrink img 2) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - ; Bumpmap - - (plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0) - - ; Clean up - - (gimp-context-set-background '(0 0 0)) - (gimp-image-select-item img CHANNEL-OP-REPLACE textl) - (gimp-selection-invert img) - (gimp-edit-clear background) - (gimp-selection-none img) - - (gimp-image-set-active-layer img background) - (gimp-image-remove-layer img bumpmap) - (gimp-image-remove-layer img textl) - - (if (= transparent FALSE) - (gimp-image-flatten img)) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-beveled-pattern-heading" - _"H_eading..." - _"Create a beveled pattern heading for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "July 1997" - "" - SF-STRING _"Text" "Hello world!" - SF-ADJUSTMENT _"Font size (pixels)" '(72 2 200 1 1 0 1) - SF-FONT _"Font" "Sans" - SF-PATTERN _"Pattern" "Wood" - SF-TOGGLE _"Transparent background" FALSE -) - -(script-fu-menu-register "script-fu-beveled-pattern-heading" - "/File/Create/Web Page Themes/Beveled Pattern") diff --git a/plug-ins/script-fu/scripts/beveled-pattern-hrule.scm b/plug-ins/script-fu/scripts/beveled-pattern-hrule.scm deleted file mode 100644 index 0ec7f5c40f..0000000000 --- a/plug-ins/script-fu/scripts/beveled-pattern-hrule.scm +++ /dev/null @@ -1,89 +0,0 @@ -; GIMP - The GNU 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 3 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, see . - - -(define (script-fu-beveled-pattern-hrule width height pattern) - (let* ( - (img (car (gimp-image-new width height RGB))) - (background (car (gimp-layer-new img - width height RGB-IMAGE - _"Rule" 100 NORMAL-MODE))) - (bumpmap (car (gimp-layer-new img - width height RGBA-IMAGE - _"Bumpmap" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img background 0 -1) - (gimp-image-insert-layer img bumpmap 0 -1) - - ; Create pattern layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-context-set-pattern pattern) - (gimp-edit-bucket-fill background PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0) - - ; Create bumpmap layer - - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(127 127 127)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 1 1 (- width 2) (- height 2)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-context-set-background '(255 255 255)) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 2 2 (- width 4) (- height 4)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - - ; Bumpmap - - (plug-in-bump-map RUN-NONINTERACTIVE img background bumpmap 135 45 2 0 0 0 0 TRUE FALSE 0) - - (gimp-image-set-active-layer img background) - (gimp-image-remove-layer img bumpmap) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-beveled-pattern-hrule" - _"_Hrule..." - _"Create a beveled pattern hrule for webpages" - "Federico Mena Quintero" - "Federico Mena Quintero" - "July 1997" - "" - SF-ADJUSTMENT _"Width" '(480 5 1500 1 10 0 1) - SF-ADJUSTMENT _"Height" '(16 1 100 1 10 0 1) - SF-PATTERN _"Pattern" "Wood" -) - -(script-fu-menu-register "script-fu-beveled-pattern-hrule" - "/File/Create/Web Page Themes/Beveled Pattern") diff --git a/plug-ins/script-fu/scripts/blended-logo.scm b/plug-ins/script-fu/scripts/blended-logo.scm deleted file mode 100644 index bcd4a35762..0000000000 --- a/plug-ins/script-fu/scripts/blended-logo.scm +++ /dev/null @@ -1,206 +0,0 @@ -; BLENDED-DROP-SHADOW-LOGO -; draw the specified text over a blended background using current gimp fg -; and bg colors. The finished blend has a drop shadow underneath that blends -; to the specified bg-color -; if the blend colors are specified as high intensity, the sharp option -; should be enabled or the logo will come out blurry - -(define (blended-logo-scale size percent) - (* size percent) -) - -(define (apply-blended-logo-effect img - logo-layer - b-size - bg-color - blend-mode - blend-fg - blend-bg - blend-gradient - blend-gradient-reverse) - (let* ( - (b-size-2 (blended-logo-scale b-size 0.5)) - (f-size (blended-logo-scale b-size 0.75)) - (ds-size (blended-logo-scale b-size 0.5)) - (ts-size (- b-size-2 3)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (blend-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Blend" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Shadow" 100 NORMAL-MODE))) - (text-shadow-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Text Shadow" 100 MULTIPLY-MODE))) - (tsl-layer-mask (car (gimp-layer-create-mask text-shadow-layer - ADD-BLACK-MASK))) - (drop-shadow-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Drop Shadow" 100 MULTIPLY-MODE))) - (dsl-layer-mask (car (gimp-layer-create-mask drop-shadow-layer - ADD-BLACK-MASK))) - ) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img text-shadow-layer drop-shadow-layer blend-layer shadow-layer) - (gimp-image-raise-item img text-shadow-layer) - (gimp-selection-none img) - (gimp-edit-clear text-shadow-layer) - (gimp-edit-clear drop-shadow-layer) - (gimp-edit-clear blend-layer) - (gimp-context-set-background bg-color) - (gimp-drawable-fill shadow-layer BACKGROUND-FILL) - (gimp-context-set-feather TRUE) - (gimp-context-set-feather-radius b-size-2 b-size-2) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE b-size-2 b-size-2 (- width b-size) (- height b-size)) - (gimp-context-set-feather FALSE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-layer-add-mask text-shadow-layer tsl-layer-mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill tsl-layer-mask BACKGROUND-FILL) - (gimp-selection-feather img f-size) - (gimp-context-set-background '(63 63 63)) - (gimp-edit-fill drop-shadow-layer BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill text-shadow-layer BACKGROUND-FILL) - (gimp-context-set-foreground '(255 255 255)) - - (gimp-edit-blend text-shadow-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 1 1) - - (gimp-selection-none img) - (gimp-context-set-foreground blend-fg) - (gimp-context-set-background blend-bg) - (gimp-context-set-gradient blend-gradient) - - (gimp-edit-blend blend-layer blend-mode NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE blend-gradient-reverse - FALSE 0 0 TRUE - 0 0 width 0) - - (gimp-layer-translate logo-layer (- b-size-2) (- b-size-2)) - (gimp-layer-translate blend-layer (- b-size) (- b-size)) - (gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size)) - (gimp-layer-translate drop-shadow-layer ds-size ds-size) - (gimp-image-select-item img CHANNEL-OP-REPLACE blend-layer) - (gimp-layer-add-mask drop-shadow-layer dsl-layer-mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill dsl-layer-mask BACKGROUND-FILL) - (gimp-layer-remove-mask drop-shadow-layer MASK-APPLY) - (gimp-selection-none img) - ) -) - -(define (script-fu-blended-logo-alpha img - logo-layer - b-size - bg-color - blend-mode - blend-fg - blend-bg - blend-gradient - blend-gradient-reverse) - (begin - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-group-start img) - (apply-blended-logo-effect img logo-layer b-size bg-color - blend-mode blend-fg blend-bg - blend-gradient blend-gradient-reverse) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-blended-logo-alpha" - _"Blen_ded..." - _"Add blended backgrounds, highlights, and shadows to the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Offset (pixels)" '(15 1 100 1 10 0 1) - SF-COLOR _"Background color" "white" - SF-OPTION _"Blend mode" '(_"FG-BG-RGB" - _"FG-BG-HSV" - _"FG-Transparent" - _"Custom Gradient") - SF-COLOR _"Start blend" '(22 9 129) - SF-COLOR _"End blend" '(129 9 82) - SF-GRADIENT _"Gradient" "Golden" - SF-TOGGLE _"Gradient reverse" FALSE -) - -(script-fu-menu-register "script-fu-blended-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-blended-logo text - size - font - text-color - bg-color - blend-mode - blend-fg - blend-bg - blend-gradient - blend-gradient-reverse) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (b-size (blended-logo-scale size 0.1)) - (text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))) - ) - (gimp-context-push) - (gimp-context-set-antialias TRUE) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - (gimp-context-set-foreground text-color) - (gimp-layer-set-lock-alpha text-layer TRUE) - (gimp-edit-fill text-layer FOREGROUND-FILL) - (apply-blended-logo-effect img text-layer b-size bg-color - blend-mode blend-fg blend-bg - blend-gradient blend-gradient-reverse) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-blended-logo" - _"Blen_ded..." - _"Create a logo with blended backgrounds, highlights, and shadows" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Crillee" - SF-COLOR _"Text color" '(124 174 255) - SF-COLOR _"Background color" "white" - SF-OPTION _"Blend mode" '(_"FG-BG-RGB" - _"FG-BG-HSV" - _"FG-Transparent" - _"Custom Gradient") - SF-COLOR _"Start blend" '(22 9 129) - SF-COLOR _"End blend" '(129 9 82) - SF-GRADIENT _"Gradient" "Golden" - SF-TOGGLE _"Gradient reverse" FALSE -) - -(script-fu-menu-register "script-fu-blended-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/bovinated-logo.scm b/plug-ins/script-fu/scripts/bovinated-logo.scm deleted file mode 100644 index 3738e9934b..0000000000 --- a/plug-ins/script-fu/scripts/bovinated-logo.scm +++ /dev/null @@ -1,140 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; Bovinated Logos v0.1 04/08/98 -; by Brian McFee -; Creates Cow-spotted logs.. what else? - -(define (apply-bovinated-logo-effect img - logo-layer - spots-x - spots-y - bg-color) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Background" 100 NORMAL-MODE))) - (blur-layer (car (gimp-layer-new img - width height RGBA-IMAGE - "Blur" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img blur-layer bg-layer) - - (gimp-selection-all img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-layer-set-lock-alpha blur-layer TRUE) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-all img) - (gimp-edit-fill blur-layer BACKGROUND-FILL) - (gimp-edit-clear blur-layer) - (gimp-context-set-background '(191 191 191)) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha blur-layer FALSE) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-edit-fill blur-layer BACKGROUND-FILL) - (plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer 5.0 1 1) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-selection-all img) - (plug-in-solid-noise RUN-NONINTERACTIVE img logo-layer 0 0 23 1 spots-x spots-y) - (gimp-brightness-contrast logo-layer 0 127) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha logo-layer FALSE) - (plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer - 135 50 10 0 0 0 30 TRUE FALSE 0) - (gimp-layer-set-offsets blur-layer 5 5) - (gimp-invert blur-layer) - (gimp-layer-set-opacity blur-layer 50.0) - (gimp-image-set-active-layer img logo-layer) - - (gimp-context-pop) - ) -) - -(define (script-fu-bovinated-logo-alpha img - logo-layer - spots-x - spots-y - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-bovinated-logo-effect img logo-layer spots-x spots-y bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-bovinated-logo-alpha" - _"Bo_vination..." - _"Add 'cow spots' to the selected region (or alpha)" - "Brian McFee " - "Brian McFee" - "April 1998" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Spots density X" '(16 1 16 1 10 0 1) - SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1) - SF-COLOR _"Background Color" "white" -) - -(script-fu-menu-register "script-fu-bovinated-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-bovinated-logo text - size - font - spots-x - spots-y - bg-color) - (let* ((img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font)))) - (gimp-image-undo-disable img) - (apply-bovinated-logo-effect img text-layer spots-x spots-y bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-bovinated-logo" - _"Bo_vination..." - _"Create a logo with text in the style of 'cow spots'" - "Brian McFee " - "Brian McFee" - "April 1998" - "" - SF-STRING _"Text" "Fear the Cow" - SF-ADJUSTMENT _"Font size (pixels)" '(80 2 1000 1 10 0 1) - SF-FONT _"Font" "RoostHeavy" - SF-ADJUSTMENT _"Spots density X" '(16 1 16 1 10 0 1) - SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-bovinated-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/camo.scm b/plug-ins/script-fu/scripts/camo.scm deleted file mode 100644 index b90eb4e7d0..0000000000 --- a/plug-ins/script-fu/scripts/camo.scm +++ /dev/null @@ -1,111 +0,0 @@ -; -; -; -; Chris Gutteridge (cjg@ecs.soton.ac.uk) -; At ECS Dept, University of Southampton, England. - -; 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 3 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, see . - - -(define (script-fu-camo-pattern inSize inGrain inColor1 inColor2 inColor3 inSmooth inFlatten) - - (let* ( - (theWidth inSize) - (theHeight inSize) - (theImage (car (gimp-image-new theWidth theHeight RGB))) - (baseLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Background" 100 NORMAL-MODE))) - (thickLayer 0) - (thinLayer 0) - (theBlur 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-insert-layer theImage baseLayer 0 0) - - (set! thickLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Camo Thick Layer" 100 NORMAL-MODE))) - (gimp-image-insert-layer theImage thickLayer 0 0) - - (set! thinLayer (car (gimp-layer-new theImage theWidth theHeight RGBA-IMAGE "Camo Thin Layer" 100 NORMAL-MODE))) - (gimp-image-insert-layer theImage thinLayer 0 0) - - (gimp-selection-all theImage) - (gimp-context-set-background inColor1) - (gimp-drawable-fill baseLayer BACKGROUND-FILL) - - (plug-in-solid-noise RUN-NONINTERACTIVE - theImage thickLayer 1 0 (rand 65536) 1 inGrain inGrain) - (plug-in-solid-noise RUN-NONINTERACTIVE - theImage thinLayer 1 0 (rand 65536) 1 inGrain inGrain) - (gimp-threshold thickLayer 127 255) - (gimp-threshold thinLayer 145 255) - - (set! theBlur (- 16 inGrain)) - - (gimp-context-set-background inColor2) - (gimp-image-select-color theImage CHANNEL-OP-REPLACE thickLayer '(0 0 0)) - (gimp-edit-clear thickLayer) - (gimp-selection-invert theImage) - (gimp-edit-fill thickLayer BACKGROUND-FILL) - (gimp-selection-none theImage) - (if (= inSmooth TRUE) - (script-fu-tile-blur theImage thickLayer theBlur TRUE TRUE FALSE) - ) - - - (gimp-context-set-background inColor3) - (gimp-image-select-color theImage CHANNEL-OP-REPLACE thinLayer '(0 0 0)) - (gimp-edit-clear thinLayer) - (gimp-selection-invert theImage) - (gimp-edit-fill thinLayer BACKGROUND-FILL) - (gimp-selection-none theImage) - (if (= inSmooth TRUE) - (script-fu-tile-blur theImage thinLayer (/ theBlur 2) TRUE TRUE FALSE) - ) - - - (if (= inFlatten TRUE) - (gimp-image-flatten theImage) - ) - - (gimp-display-new theImage) - - (gimp-context-pop) - ) -) - - -; Register the function with GIMP: - -(script-fu-register - "script-fu-camo-pattern" - _"_Camouflage..." - _"Create an image filled with a camouflage pattern" - "Chris Gutteridge: cjg@ecs.soton.ac.uk" - "28th April 1998" - "Chris Gutteridge / ECS @ University of Southampton, England" - "" - SF-ADJUSTMENT _"Image size" '(256 10 1000 1 10 0 1) - SF-ADJUSTMENT _"Granularity" '(7 0 15 1 1 0 0) - SF-COLOR _"Color 1" '(33 100 58) - SF-COLOR _"Color 2" '(170 170 60) - SF-COLOR _"Color 3" '(150 115 100) - SF-TOGGLE _"Smooth" FALSE - SF-TOGGLE _"Flatten image" TRUE -) - - -(script-fu-menu-register "script-fu-camo-pattern" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/carved-logo.scm b/plug-ins/script-fu/scripts/carved-logo.scm deleted file mode 100644 index 20625a5343..0000000000 --- a/plug-ins/script-fu/scripts/carved-logo.scm +++ /dev/null @@ -1,179 +0,0 @@ -; CARVE-TEXT -; Carving, embossing, & stamping -; Process taken from "The Photoshop 3 WOW! Book" -; http://www.peachpit.com - - -(define (carve-brush brush-size) - (cond ((<= brush-size 5) "Circle (05)") - ((<= brush-size 7) "Circle (07)") - ((<= brush-size 9) "Circle (09)") - ((<= brush-size 11) "Circle (11)") - ((<= brush-size 13) "Circle (13)") - ((<= brush-size 15) "Circle (15)") - ((<= brush-size 17) "Circle (17)") - ((> brush-size 17) "Circle (19)"))) - -(define (carve-scale val scale) - (* (sqrt val) scale)) - -(define (calculate-inset-gamma img layer) - (let* ((stats (gimp-histogram layer 0 0 255)) - (mean (car stats))) - (cond ((< mean 127) (+ 1.0 (* 0.5 (/ (- 127 mean) 127.0)))) - ((>= mean 127) (- 1.0 (* 0.5 (/ (- mean 127) 127.0))))))) - -(define (script-fu-carved-logo text size font bg-img carve-raised padding) - (let* ( - (img (car (gimp-file-load 1 bg-img bg-img))) - (offx (carve-scale size 0.33)) - (offy (carve-scale size 0.25)) - (feather (carve-scale size 0.3)) - (brush-size (carve-scale size 0.3)) - (b-size (+ (carve-scale size 0.5) padding)) - (layer1 (car (gimp-image-get-active-drawable img))) - (mask-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))) - (width (car (gimp-drawable-width mask-layer))) - (height (car (gimp-drawable-height mask-layer))) - (mask-fs 0) - (mask (car (gimp-channel-new img width height "Engraving Mask" 50 '(0 0 0)))) - (inset-gamma (calculate-inset-gamma img layer1)) - (mask-fat 0) - (mask-emboss 0) - (mask-highlight 0) - (mask-shadow 0) - (shadow-layer 0) - (highlight-layer 0) - (cast-shadow-layer 0) - (csl-mask 0) - (inset-layer 0) - (il-mask 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - - (gimp-image-set-filename img "") - - (gimp-image-insert-channel img mask -1 0) - - (gimp-layer-set-lock-alpha mask-layer TRUE) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill mask-layer BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill mask BACKGROUND-FILL) - - (plug-in-tile RUN-NONINTERACTIVE img layer1 width height FALSE) - - (gimp-edit-copy mask-layer) - (set! mask-fs (car (gimp-edit-paste mask FALSE))) - (gimp-floating-sel-anchor mask-fs) - (if (= carve-raised TRUE) - (gimp-invert mask) - ) - - (gimp-image-remove-layer img mask-layer) - - (set! mask-fat (car (gimp-channel-copy mask))) - (gimp-image-insert-channel img mask-fat -1 0) - (gimp-image-select-item img CHANNEL-OP-REPLACE mask-fat) - (gimp-context-set-brush (carve-brush brush-size)) - (gimp-context-set-foreground '(255 255 255)) - (gimp-edit-stroke mask-fat) - (gimp-selection-none img) - - (set! mask-emboss (car (gimp-channel-copy mask-fat))) - (gimp-image-insert-channel img mask-emboss -1 0) - (plug-in-gauss-rle RUN-NONINTERACTIVE img mask-emboss feather TRUE TRUE) - (plug-in-emboss RUN-NONINTERACTIVE img mask-emboss 315.0 45.0 7 TRUE) - - (gimp-context-set-background '(180 180 180)) - (gimp-image-select-item img CHANNEL-OP-REPLACE mask-fat) - (gimp-selection-invert img) - (gimp-edit-fill mask-emboss BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE mask) - (gimp-edit-fill mask-emboss BACKGROUND-FILL) - (gimp-selection-none img) - - (set! mask-highlight (car (gimp-channel-copy mask-emboss))) - (gimp-image-insert-channel img mask-highlight -1 0) - (gimp-levels mask-highlight 0 180 255 1.0 0 255) - - (set! mask-shadow mask-emboss) - (gimp-levels mask-shadow 0 0 180 1.0 0 255) - - (gimp-edit-copy mask-shadow) - (set! shadow-layer (car (gimp-edit-paste layer1 FALSE))) - (gimp-floating-sel-to-layer shadow-layer) - (gimp-layer-set-mode shadow-layer MULTIPLY-MODE) - - (gimp-edit-copy mask-highlight) - (set! highlight-layer (car (gimp-edit-paste shadow-layer FALSE))) - (gimp-floating-sel-to-layer highlight-layer) - (gimp-layer-set-mode highlight-layer SCREEN-MODE) - - (gimp-edit-copy mask) - (set! cast-shadow-layer (car (gimp-edit-paste highlight-layer FALSE))) - (gimp-floating-sel-to-layer cast-shadow-layer) - (gimp-layer-set-mode cast-shadow-layer MULTIPLY-MODE) - (gimp-layer-set-opacity cast-shadow-layer 75) - (plug-in-gauss-rle RUN-NONINTERACTIVE img cast-shadow-layer feather TRUE TRUE) - (gimp-layer-translate cast-shadow-layer offx offy) - - (set! csl-mask (car (gimp-layer-create-mask cast-shadow-layer ADD-BLACK-MASK))) - (gimp-layer-add-mask cast-shadow-layer csl-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill csl-mask BACKGROUND-FILL) - - (set! inset-layer (car (gimp-layer-copy layer1 TRUE))) - (gimp-image-insert-layer img inset-layer 0 1) - - (set! il-mask (car (gimp-layer-create-mask inset-layer ADD-BLACK-MASK))) - (gimp-layer-add-mask inset-layer il-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill il-mask BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-levels inset-layer 0 0 255 inset-gamma 0 255) - - (gimp-image-remove-channel img mask) - (gimp-image-remove-channel img mask-fat) - (gimp-image-remove-channel img mask-highlight) - (gimp-image-remove-channel img mask-shadow) - - (gimp-item-set-name layer1 _"Carved Surface") - (gimp-item-set-name shadow-layer _"Bevel Shadow") - (gimp-item-set-name highlight-layer _"Bevel Highlight") - (gimp-item-set-name cast-shadow-layer _"Cast Shadow") - (gimp-item-set-name inset-layer _"Inset") - - (gimp-display-new img) - (gimp-image-undo-enable img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-carved-logo" - _"Carved..." - _"Create a logo with text raised above or carved in to the specified background image" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-STRING _"Text" "Marble" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "Engraver" - SF-FILENAME _"Background Image" - (string-append gimp-data-directory - "/scripts/images/texture3.jpg") - SF-TOGGLE _"Carve raised text" FALSE - SF-ADJUSTMENT _"Padding around text" '(10 0 1000 1 10 0 1) -) - -(script-fu-menu-register "script-fu-carved-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/chalk.scm b/plug-ins/script-fu/scripts/chalk.scm deleted file mode 100644 index 4f613a7c4e..0000000000 --- a/plug-ins/script-fu/scripts/chalk.scm +++ /dev/null @@ -1,136 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; chalk.scm version 0.11 10/10/97 -; -; Copyright (C) 1997 Manish Singh -; -; Makes a logo with a chalk-like text effect. - -(define (apply-chalk-logo-effect img - logo-layer - bg-color) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img - width height RGB-IMAGE - "Background" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img bg-layer) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - ; the actual effect - (gimp-layer-set-lock-alpha logo-layer FALSE) - (plug-in-gauss-rle RUN-NONINTERACTIVE img logo-layer 2.0 1 1) - (plug-in-spread RUN-NONINTERACTIVE img logo-layer 5.0 5.0) - (plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 0 0 0 TRUE TRUE) - (plug-in-ripple RUN-NONINTERACTIVE img logo-layer 27 2 1 0 0 TRUE TRUE) - - ; sobel doesn't work on a layer with transparency, so merge layers: - (let ((logo-layer - (car (gimp-image-merge-down img logo-layer EXPAND-AS-NECESSARY)))) - (plug-in-sobel RUN-NONINTERACTIVE img logo-layer TRUE TRUE TRUE) - (gimp-levels logo-layer 0 0 120 3.5 0 255) - - ; work-around for sobel edge detect screw-up (why does this happen?) - ; the top line of the image has some garbage instead of the bgcolor - (gimp-image-select-rectangle img CHANNEL-OP-ADD 0 0 width 1) - (gimp-edit-clear logo-layer) - ) - - (gimp-selection-none img) - - (gimp-context-pop) - ) -) - - -(define (script-fu-chalk-logo-alpha img - logo-layer - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-chalk-logo-effect img logo-layer bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-chalk-logo-alpha" - _"_Chalk..." - _"Create a chalk drawing effect for the selected region (or alpha)" - "Manish Singh " - "Manish Singh" - "October 1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-COLOR _"Background color" "black" -) - -(script-fu-menu-register "script-fu-chalk-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-chalk-logo text - size - font - bg-color - chalk-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))) - ) - - (gimp-context-push) - - (gimp-image-undo-disable img) - (gimp-context-set-foreground chalk-color) - (gimp-layer-set-lock-alpha text-layer TRUE) - (gimp-edit-fill text-layer FOREGROUND-FILL) - (apply-chalk-logo-effect img text-layer bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-chalk-logo" - _"_Chalk..." - _"Create a logo resembling chalk scribbled on a blackboard" - "Manish Singh " - "Manish Singh" - "October 1997" - "" - SF-STRING _"Text" "CHALK" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Sans" - SF-COLOR _"Background color" "black" - SF-COLOR _"Chalk color" "white" -) - -(script-fu-menu-register "script-fu-chalk-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/chip-away.scm b/plug-ins/script-fu/scripts/chip-away.scm deleted file mode 100644 index 7bd0ade509..0000000000 --- a/plug-ins/script-fu/scripts/chip-away.scm +++ /dev/null @@ -1,206 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Supposed to look vaguely like roughly carved wood. Chipped away if you will. -; -; Options: Text String - the string to make the logo from -; Font - which font to use -; Font Size - how big -; Chip Amount - how rought he chipping is (how spread the bump map is) -; Blur Amount - the bump layer is blurred slighty by this amount -; Invert - whether or not to invert the bumpmap (gives a carved in feel) -; Drop Shadow - whether or not to draw a drop shadow -; 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 Background - whether or not to remove the background layer -; -; Adrian Likins (Adrian@gimp.org) -; Jan 11, 1998 v1 -; -; see http://www.gimp.org/~adrian/script.html -; -; 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 3 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, see . -; -; Some suggested patterns: Dried mud, 3D green, Slate -; - -(define (apply-chip-away-logo-effect img - logo-layer - spread-amount - blur-amount - invert - drop-shadow - keep-bump - bg-fill - keep-back - pattern) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (bump-layer (car (gimp-layer-new img width height RGBA-IMAGE "Bump Layer" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img bump-layer bg-layer) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-context-set-pattern pattern) - - (gimp-context-set-background '(255 255 255)) - (gimp-selection-all img) - - (if (= bg-fill TRUE) - (gimp-edit-bucket-fill bg-layer - PATTERN-BUCKET-FILL NORMAL-MODE - 100 255 FALSE 1 1) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - ) - - (gimp-selection-all img) - (gimp-edit-clear bump-layer) - (gimp-selection-none img) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-edit-fill bump-layer BACKGROUND-FILL) - (gimp-edit-bucket-fill logo-layer - PATTERN-BUCKET-FILL NORMAL-MODE 100 255 FALSE 1 1) - (gimp-selection-none img) - - (gimp-layer-set-lock-alpha bump-layer FALSE) - (plug-in-spread RUN-NONINTERACTIVE img bump-layer spread-amount spread-amount) - (gimp-image-select-item img CHANNEL-OP-REPLACE bump-layer) - (plug-in-gauss-rle RUN-NONINTERACTIVE img bump-layer blur-amount TRUE TRUE) - - (gimp-selection-none img) - - (plug-in-bump-map RUN-NONINTERACTIVE img logo-layer bump-layer - 135.00 25.0 60 0 0 0 0 TRUE invert 1) - - (gimp-item-set-visible bump-layer FALSE) - - (if (= drop-shadow TRUE) - (begin - (let* ((shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow layer" 100 NORMAL-MODE)))) - (gimp-image-set-active-layer img logo-layer) - (script-fu-util-image-add-layers img shadow-layer) - (gimp-selection-all img) - (gimp-edit-clear shadow-layer) - (gimp-selection-none img) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-selection-none img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer 5 TRUE TRUE) - (gimp-layer-translate shadow-layer 6 6)))) - - (if (= keep-bump FALSE) - (gimp-image-remove-layer img bump-layer)) - - (if (= keep-back FALSE) - (gimp-image-remove-layer img bg-layer)) - - (gimp-context-pop) - ) -) - -(define (script-fu-chip-away-logo-alpha img - logo-layer - spread-amount - blur-amount - invert - drop-shadow - keep-bump - bg-fill - keep-back - pattern) - (begin - (gimp-image-undo-group-start img) - (apply-chip-away-logo-effect img logo-layer spread-amount blur-amount - invert drop-shadow keep-bump bg-fill - keep-back pattern) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-chip-away-logo-alpha" - _"Chip Awa_y..." - _"Add a chipped woodcarving effect to the selected region (or alpha)" - "Adrian Likins " - "Adrian Likins " - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Chip amount" '(30 0 200 1 10 0 1) - SF-ADJUSTMENT _"Blur amount" '(3 1 100 1 10 1 0) - SF-TOGGLE _"Invert" FALSE - SF-TOGGLE _"Drop shadow" TRUE - SF-TOGGLE _"Keep bump layer" FALSE - SF-TOGGLE _"Fill BG with pattern" TRUE - SF-TOGGLE _"Keep background" TRUE - SF-PATTERN _"Pattern" "Burlwood" -) - -(script-fu-menu-register "script-fu-chip-away-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-chip-away-logo text - font - font-size - spread-amount - blur-amount - invert - drop-shadow - keep-bump - bg-fill - keep-back - pattern) - (let* ((img (car (gimp-image-new 256 256 RGB))) - (text-layer (car (gimp-text-fontname img -1 0 0 - text 30 TRUE font-size PIXELS font)))) - (gimp-image-undo-disable img) - (apply-chip-away-logo-effect img text-layer spread-amount blur-amount - invert drop-shadow keep-bump bg-fill - keep-back pattern) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-chip-away-logo" - _"Chip Awa_y..." - _"Create a logo resembling a chipped wood carving" - "Adrian Likins " - "Adrian Likins " - "1997" - "" - SF-STRING _"Text" "Sloth" - SF-FONT _"Font" "RoostHeavy" - SF-ADJUSTMENT _"Font size (pixels)" '(200 2 1000 1 10 0 1) - SF-ADJUSTMENT _"Chip amount" '(30 0 200 1 10 0 1) - SF-ADJUSTMENT _"Blur amount" '(3 1 100 1 10 1 0) - SF-TOGGLE _"Invert" FALSE - SF-TOGGLE _"Drop shadow" TRUE - SF-TOGGLE _"Keep bump layer" FALSE - SF-TOGGLE _"Fill BG with pattern" TRUE - SF-TOGGLE _"Keep background" TRUE - SF-PATTERN _"Pattern" "Burlwood" -) - -(script-fu-menu-register "script-fu-chip-away-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/chrome-logo.scm b/plug-ins/script-fu/scripts/chrome-logo.scm deleted file mode 100644 index f5682f07a5..0000000000 --- a/plug-ins/script-fu/scripts/chrome-logo.scm +++ /dev/null @@ -1,133 +0,0 @@ -; CHROME-LOGOS - -(define (apply-chrome-logo-effect img - logo-layer - offsets - bg-color) - (let* ( - (offx1 (* offsets 0.4)) - (offy1 (* offsets 0.3)) - (offx2 (* offsets (- 0.4))) - (offy2 (* offsets (- 0.3))) - (feather (* offsets 0.5)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 DIFFERENCE-MODE))) - (layer2 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 2" 100 DIFFERENCE-MODE))) - (layer3 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 3" 100 NORMAL-MODE))) - (shadow (car (gimp-layer-new img width height RGBA-IMAGE "Drop Shadow" 100 NORMAL-MODE))) - (background (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img layer1 layer2 layer3 shadow background) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-none img) - (gimp-edit-fill layer1 BACKGROUND-FILL) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-edit-clear shadow) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-item-set-visible logo-layer FALSE) - (gimp-item-set-visible shadow FALSE) - (gimp-item-set-visible background FALSE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill layer1 BACKGROUND-FILL) - (gimp-selection-translate img offx1 offy1) - (gimp-selection-feather img feather) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-selection-translate img (* 2 offx2) (* 2 offy2)) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-selection-none img) - (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - ; if the original image contained more than one visible layer: - (while (> (car (gimp-image-get-item-position img layer1)) - (car (gimp-image-get-item-position img shadow))) - (gimp-image-raise-item img layer1) - ) - (gimp-invert layer1) - (gimp-layer-add-mask layer1 layer-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-feather img feather) - (gimp-edit-fill layer-mask BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-translate img offx1 offy1) - (gimp-edit-fill shadow BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-context-set-background bg-color) - (gimp-edit-fill background BACKGROUND-FILL) - (gimp-item-set-visible shadow TRUE) - (gimp-item-set-visible background TRUE) - (gimp-item-set-name layer1 (car (gimp-item-get-name logo-layer))) - (gimp-image-remove-layer img logo-layer) - - (gimp-context-pop) - ) -) - - -(define (script-fu-chrome-logo-alpha img - logo-layer - offsets - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-chrome-logo-effect img logo-layer offsets bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-chrome-logo-alpha" - _"C_hrome..." - _"Add a simple chrome effect to the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball & Peter Mattis" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Offsets (pixels * 2)" '(10 2 100 1 10 0 1) - SF-COLOR _"Background Color" "lightgrey" -) - -(script-fu-menu-register "script-fu-chrome-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-chrome-logo text - size - font - bg-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (b-size (* size 0.2)) - (text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))) - ) - (gimp-image-undo-disable img) - (apply-chrome-logo-effect img text-layer (* size 0.1) bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-chrome-logo" - _"C_hrome..." - _"Create a simplistic, but cool, chromed logo" - "Spencer Kimball" - "Spencer Kimball & Peter Mattis" - "1997" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "Bodoni" - SF-COLOR _"Background color" "lightgrey" -) - -(script-fu-menu-register "script-fu-chrome-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/comic-logo.scm b/plug-ins/script-fu/scripts/comic-logo.scm deleted file mode 100644 index f31d693e30..0000000000 --- a/plug-ins/script-fu/scripts/comic-logo.scm +++ /dev/null @@ -1,169 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; Comic Book Logo v0.1 04/08/98 -; by Brian McFee -; Creates snazzy-looking text, inspired by watching a Maxx marathon :) - -(define (apply-comic-logo-effect img - logo-layer - gradient - gradient-reverse - ol-width - ol-color - bg-color) - (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 RGBA-IMAGE - "Background" 100 NORMAL-MODE))) - (white-layer (car (gimp-layer-copy logo-layer 1))) - (black-layer (car (gimp-layer-copy logo-layer 1))) - ) - - (gimp-context-push) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img black-layer white-layer bg-layer) - (gimp-layer-translate white-layer posx posy) - (gimp-item-set-name white-layer "White") - (gimp-layer-translate black-layer posx posy) - (gimp-item-set-name black-layer "Black") - - (gimp-selection-all img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-layer-set-lock-alpha white-layer TRUE) - (gimp-context-set-background ol-color) - (gimp-selection-all img) - (gimp-edit-fill white-layer BACKGROUND-FILL) - (gimp-layer-set-lock-alpha white-layer FALSE) - (plug-in-spread RUN-NONINTERACTIVE img white-layer (* 3 ol-width) (* 3 ol-width)) - (plug-in-gauss-rle RUN-NONINTERACTIVE img white-layer (* 2 ol-width) 1 1) - (plug-in-threshold-alpha RUN-NONINTERACTIVE img white-layer 0) - (gimp-layer-set-lock-alpha white-layer TRUE) - (gimp-edit-fill white-layer BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-context-set-background '(0 0 0)) - (gimp-layer-set-lock-alpha black-layer TRUE) - (gimp-selection-all img) - (gimp-edit-fill black-layer BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha black-layer FALSE) - (plug-in-gauss-rle RUN-NONINTERACTIVE img black-layer ol-width 1 1) - (plug-in-threshold-alpha RUN-NONINTERACTIVE img black-layer 0) - - (gimp-context-set-gradient gradient) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-selection-all img) - - (gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE gradient-reverse - FALSE 0 0 TRUE - 0 (* height 0.3) 0 (* height 0.78)) - - (plug-in-noisify RUN-NONINTERACTIVE img logo-layer 0 0.20 0.20 0.20 0.20) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha logo-layer FALSE) - (gimp-brightness-contrast logo-layer 0 30) - (plug-in-threshold-alpha RUN-NONINTERACTIVE img logo-layer 60) - (gimp-image-set-active-layer img logo-layer) - - (gimp-context-pop) - ) -) - -(define (script-fu-comic-logo-alpha img - logo-layer - gradient - gradient-reverse - ol-width - ol-color - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-comic-logo-effect img logo-layer - gradient gradient-reverse - ol-width ol-color bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-comic-logo-alpha" - _"Comic Boo_k..." - _"Add a comic-book effect to the selected region (or alpha) by outlining and filling with a gradient" - "Brian McFee " - "Brian McFee" - "April 1998" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-GRADIENT _"Gradient" "Incandescent" - SF-TOGGLE _"Gradient reverse" FALSE - SF-ADJUSTMENT _"Outline size" '(5 1 100 1 10 0 1) - SF-COLOR _"Outline color" "white" - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-comic-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-comic-logo text - size - font - gradient - gradient-reverse - ol-width - ol-color - bg-color) - (let* ((img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname - img -1 0 0 text border TRUE size PIXELS font)))) - (gimp-image-undo-disable img) - (apply-comic-logo-effect img text-layer gradient gradient-reverse - ol-width ol-color bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-comic-logo" - _"Comic Boo_k..." - _"Create a comic-book style logo by outlining and filling with a gradient" - "Brian McFee " - "Brian McFee" - "April 1998" - "" - SF-STRING _"Text" "Moo" - SF-ADJUSTMENT _"Font size (pixels)" '(85 2 1000 1 10 0 1) - SF-FONT _"Font" "Tribeca" - SF-GRADIENT _"Gradient" "Incandescent" - SF-TOGGLE _"Gradient reverse" FALSE - SF-ADJUSTMENT _"Outline size" '(5 1 100 1 10 0 1) - SF-COLOR _"Outline color" "white" - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-comic-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/coolmetal-logo.scm b/plug-ins/script-fu/scripts/coolmetal-logo.scm deleted file mode 100644 index 47341c0498..0000000000 --- a/plug-ins/script-fu/scripts/coolmetal-logo.scm +++ /dev/null @@ -1,193 +0,0 @@ -; COOL-METAL -; Create a text effect that looks like metal with a reflection of -; the horizon, a reflection of the text in the mirrored ground, and -; an interesting dropshadow -; This script was inspired by Rob Malda's 'coolmetal.gif' graphic - -(define (apply-cool-metal-logo-effect img - logo-layer - size - bg-color - gradient - gradient-reverse) - (let* ( - (feather (/ size 5)) - (smear 7.5) - (period (/ size 3)) - (amplitude (/ size 40)) - (shrink (+ 1 (/ size 30))) - (depth (/ size 20)) - (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)))) - (img-width (+ width (* 0.15 height) 10)) - (img-height (+ (* 1.85 height) 10)) - (bg-layer (car (gimp-layer-new img img-width img-height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img img-width img-height RGBA-IMAGE "Shadow" 100 NORMAL-MODE))) - (reflect-layer (car (gimp-layer-new img width height RGBA-IMAGE "Reflection" 100 NORMAL-MODE))) - (channel 0) - (fs 0) - (layer-mask 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - (gimp-context-set-feather FALSE) - (gimp-context-set-interpolation INTERPOLATION-NONE) - (gimp-context-set-transform-resize TRANSFORM-RESIZE-ADJUST) - - (gimp-selection-none img) - (gimp-image-resize img img-width img-height posx posy) - (script-fu-util-image-add-layers img shadow-layer reflect-layer bg-layer) - (gimp-layer-set-lock-alpha logo-layer TRUE) - - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear reflect-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - - (gimp-context-set-gradient gradient) - - (gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE gradient-reverse - FALSE 0 0 TRUE - 0 0 0 (+ height 5)) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 (- (/ height 2) feather) img-width (* 2 feather)) - (plug-in-gauss-iir RUN-NONINTERACTIVE img logo-layer smear TRUE TRUE) - (gimp-selection-none img) - (plug-in-ripple RUN-NONINTERACTIVE img logo-layer period amplitude 1 0 1 TRUE FALSE) - (gimp-layer-translate logo-layer 5 5) - (gimp-layer-resize logo-layer img-width img-height 5 5) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (set! channel (car (gimp-selection-save img))) - (gimp-selection-shrink img shrink) - (gimp-selection-invert img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img channel feather TRUE TRUE) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-invert img) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill channel BACKGROUND-FILL) - (gimp-selection-none img) - - (plug-in-bump-map RUN-NONINTERACTIVE img logo-layer channel 135 45 depth 0 0 0 0 FALSE FALSE 0) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (set! fs (car (gimp-selection-float shadow-layer 0 0))) - (gimp-edit-clear shadow-layer) - (gimp-item-transform-perspective fs - (+ 5 (* 0.15 height)) (- height (* 0.15 height)) - (+ 5 width (* 0.15 height)) (- height (* 0.15 height)) - 5 height - (+ 5 width) height) - (gimp-floating-sel-anchor fs) - (plug-in-gauss-rle RUN-NONINTERACTIVE img shadow-layer smear TRUE TRUE) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 5 5 width height) - (gimp-edit-copy logo-layer) - (set! fs (car (gimp-edit-paste reflect-layer FALSE))) - (gimp-floating-sel-anchor fs) - (gimp-item-transform-scale reflect-layer - 0 0 width (* 0.85 height)) - (gimp-context-set-transform-resize TRANSFORM-RESIZE-CLIP) - (gimp-item-transform-flip-simple reflect-layer ORIENTATION-VERTICAL - TRUE 0) - (gimp-layer-set-offsets reflect-layer 5 (+ 3 height)) - - (set! layer-mask (car (gimp-layer-create-mask reflect-layer ADD-WHITE-MASK))) - (gimp-layer-add-mask reflect-layer layer-mask) - (gimp-context-set-foreground '(255 255 255)) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-blend layer-mask FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 (- (/ height 2)) 0 height) - - (gimp-image-remove-channel img channel) - - (gimp-context-pop) - ) -) - - -(define (script-fu-cool-metal-logo-alpha img - logo-layer - size - bg-color - gradient - gradient-reverse) - (begin - (gimp-image-undo-group-start img) - - (if (= (car (gimp-layer-is-floating-sel logo-layer)) TRUE) - (begin - (gimp-floating-sel-to-layer logo-layer) - (set! logo-layer (car (gimp-image-get-active-layer img))) - ) - ) - - (apply-cool-metal-logo-effect img logo-layer size bg-color - gradient gradient-reverse) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-cool-metal-logo-alpha" - _"Cool _Metal..." - _"Add a metallic effect to the selected region (or alpha) with reflections and perspective shadows" - "Spencer Kimball & Rob Malda" - "Spencer Kimball & Rob Malda" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1) - SF-COLOR _"Background color" "white" - SF-GRADIENT _"Gradient" "Horizon 1" - SF-TOGGLE _"Gradient reverse" FALSE -) - -(script-fu-menu-register "script-fu-cool-metal-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-cool-metal-logo text - size - font - bg-color - gradient - gradient-reverse) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (text-layer (car (gimp-text-fontname img -1 0 0 text 0 TRUE - size PIXELS font))) - ) - (gimp-image-undo-disable img) - (apply-cool-metal-logo-effect img text-layer size bg-color - gradient gradient-reverse) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-cool-metal-logo" - _"Cool _Metal..." - _"Create a metallic logo with reflections and perspective shadows" - "Spencer Kimball & Rob Malda" - "Spencer Kimball & Rob Malda" - "1997" - "" - SF-STRING _"Text" "Cool Metal" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "Crillee" - SF-COLOR _"Background color" "white" - SF-GRADIENT _"Gradient" "Horizon 1" - SF-TOGGLE _"Gradient reverse" FALSE -) - -(script-fu-menu-register "script-fu-cool-metal-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/crystal-logo.scm b/plug-ins/script-fu/scripts/crystal-logo.scm deleted file mode 100644 index 5f58c08290..0000000000 --- a/plug-ins/script-fu/scripts/crystal-logo.scm +++ /dev/null @@ -1,228 +0,0 @@ -; CRYSTAL -; Create a text effect that simulates crystal - -(define (script-fu-crystal-logo chrome-factor text size font bg-img env-map) - - (define (set-pt a index x y) - (begin - (aset a (* index 2) x) - (aset a (+ (* index 2) 1) y) - ) - ) - - (define (spline1) - (let* ((a (cons-array 18 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 31 235) - (set-pt a 2 63 23) - (set-pt a 3 95 230) - (set-pt a 4 127 25) - (set-pt a 5 159 210) - (set-pt a 6 191 20) - (set-pt a 7 223 240) - (set-pt a 8 255 31) - a - ) - ) - - (define (crystal-brush brush-size) - (cond ((<= brush-size 5) "Circle (05)") - ((<= brush-size 7) "Circle (07)") - ((<= brush-size 9) "Circle (09)") - ((<= brush-size 11) "Circle (11)") - ((<= brush-size 13) "Circle (13)") - ((<= brush-size 15) "Circle (15)") - ((<= brush-size 17) "Circle (17)") - ((> brush-size 17) "Circle Fuzzy (19)") - ) - ) - - (define (shadows val) - (/ (* 0.96 val) 2.55) - ) - - (define (midtones val) - (/ val 2.55) - ) - - (define (highlights val) - (/ (* 1.108 val) 2.55) - ) - - (define (rval col) - (car col) - ) - - (define (gval col) - (cadr col) - ) - - (define (bval col) - (caddr col) - ) - - (define (sota-scale val scale chrome-factor) - (* (sqrt val) (* scale chrome-factor)) - ) - - (define (copy-layer-crystal dest-image dest-drawable source-image source-drawable) - (gimp-selection-all dest-image) - (gimp-edit-clear dest-drawable) - (gimp-selection-none dest-image) - (gimp-selection-all source-image) - (gimp-edit-copy source-drawable) - (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE)))) - (gimp-floating-sel-anchor floating-sel) - ) - ) - - (let* ( - (img (car (gimp-image-new 256 256 GRAY))) - (back-img (car (gimp-file-load 1 bg-img bg-img))) - (back-layer (car (gimp-image-get-active-drawable back-img))) - (banding-img (car (gimp-file-load 1 env-map env-map))) - (banding-layer (car (gimp-image-get-active-drawable banding-img))) - (banding-height (car (gimp-drawable-height banding-layer))) - (banding-width (car (gimp-drawable-width banding-layer))) - (banding-type (car (gimp-drawable-type banding-layer))) - (b-size (sota-scale size 2 chrome-factor)) - (offx1 (sota-scale size 0.33 chrome-factor)) - (offy1 (sota-scale size 0.25 chrome-factor)) - (offx2 (sota-scale size (- 0.33) chrome-factor)) - (offy2 (sota-scale size (- 0.25) chrome-factor)) - (feather (sota-scale size 0.5 chrome-factor)) - (blur (sota-scale size 0.5 chrome-factor)) - (displace (sota-scale size 0.25 chrome-factor)) - (brush-size (sota-scale size 0.5 chrome-factor)) - (text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))) - (width (car (gimp-drawable-width text-layer))) - (height (car (gimp-drawable-height text-layer))) - (tile-ret (plug-in-tile RUN-NONINTERACTIVE back-img back-layer width height TRUE)) - (tile-img (car tile-ret)) - (tile-layer (cadr tile-ret)) - (tile-width (car (gimp-drawable-width tile-layer))) - (tile-height (car (gimp-drawable-height tile-layer))) - (tile-type (car (gimp-drawable-type tile-layer))) - (bg-layer (car (gimp-layer-new img tile-width tile-height tile-type "BG-Layer" 100 NORMAL-MODE))) - (layer1 (car (gimp-layer-new img banding-width banding-height banding-type "Layer1" 100 NORMAL-MODE))) - (layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE-MODE))) - (layer3 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 3" 100 NORMAL-MODE))) - (layer-mask 0) - (layer-mask2 0) - (disp-map 0) - ) - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-delete back-img) - (gimp-image-undo-disable img) - (gimp-image-resize img width height 0 0) - (gimp-image-insert-layer img layer3 0 0) - (gimp-image-insert-layer img layer2 0 0) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-none img) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-item-set-visible text-layer FALSE) - - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-translate img offx1 offy1) - (gimp-selection-feather img feather) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-selection-translate img (* 2 offx2) (* 2 offy2)) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-selection-none img) - (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (gimp-invert layer2) - - (gimp-image-insert-layer img layer1 0 0) - (copy-layer-crystal img layer1 banding-img banding-layer) - (gimp-image-delete banding-img) - (gimp-layer-scale layer1 width height FALSE) - (plug-in-gauss-iir RUN-NONINTERACTIVE img layer1 10 TRUE TRUE) - (gimp-layer-set-opacity layer1 50) - (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (gimp-curves-spline layer1 0 18 (spline1)) - - (set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))) - (gimp-layer-add-mask layer1 layer-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill layer-mask BACKGROUND-FILL) - - (set! disp-map (car (gimp-selection-save img))) - (gimp-context-set-brush (crystal-brush brush-size)) - (gimp-context-set-foreground '(0 0 0)) - (gimp-edit-stroke disp-map) - (gimp-selection-none img) - - (plug-in-gauss-rle RUN-NONINTERACTIVE img disp-map blur TRUE TRUE) - (gimp-levels disp-map 0 0 255 1.0 96 255) - - (if (= (car (gimp-drawable-is-rgb bg-layer)) 1) - (gimp-image-convert-rgb img)) - - - - (gimp-image-insert-layer img bg-layer 0 2) - (copy-layer-crystal img bg-layer tile-img tile-layer) - (gimp-image-delete tile-img) - (set! layer2 (car (gimp-layer-copy bg-layer TRUE))) - (gimp-image-insert-layer img layer2 0 1) - - (plug-in-displace RUN-NONINTERACTIVE img layer2 displace displace TRUE TRUE disp-map disp-map 0) - (set! layer-mask2 (car (gimp-layer-create-mask layer2 ADD-BLACK-MASK))) - (gimp-layer-add-mask layer2 layer-mask2) - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill layer-mask2 BACKGROUND-FILL) - - (gimp-selection-none img) - (gimp-levels layer2 0 0 200 1.5 50 255) - (gimp-layer-set-mode layer1 OVERLAY-MODE) - - (plug-in-gauss-rle RUN-NONINTERACTIVE img text-layer blur TRUE TRUE) - (gimp-layer-set-lock-alpha text-layer TRUE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill text-layer BACKGROUND-FILL) - (gimp-layer-set-mode text-layer OVERLAY-MODE) - (gimp-layer-translate text-layer offx1 offy1) - - (gimp-image-remove-channel img disp-map) - - (gimp-item-set-visible text-layer TRUE) - (gimp-item-set-name layer1 "Crystal") - (gimp-item-set-name layer2 "Interior") - (gimp-item-set-name bg-layer "Background") - (gimp-item-set-name text-layer "Shadow") - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-crystal-logo" - _"Crystal..." - _"Create a logo with a crystal/gel effect displacing the image underneath" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-ADJUSTMENT _"Chrome factor" '(1.0 0.2 4 0.1 1 1 0) - SF-STRING _"Text" "Crystal" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Engraver" - SF-FILENAME _"Background image" - (string-append gimp-data-directory - "/scripts/images/texture1.jpg") - SF-FILENAME _"Environment map" - (string-append gimp-data-directory - "/scripts/images/beavis.jpg") -) - -(script-fu-menu-register "script-fu-crystal-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/flatland.scm b/plug-ins/script-fu/scripts/flatland.scm deleted file mode 100644 index fe3261bed7..0000000000 --- a/plug-ins/script-fu/scripts/flatland.scm +++ /dev/null @@ -1,75 +0,0 @@ - -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; FlatLand - creates a tileable pattern that looks like a map -; Copyright (C) 1997 Adrian Likins -; -; 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 3 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, see . - -; -; FlatLand -; -; When used with the Land gradient It produces a tileble pattern that -; looks a lot like a map. -; -; Should be really cool once map-sphere starts working again. -; -; To use: open gradient editor, load the Land gradient then run the script. -; -; Adrian Likins -; - - -(define (script-fu-flatland width height seed detail xscale yscale) - (let* ( - (img (car (gimp-image-new width height RGB))) - (layer-one (car (gimp-layer-new img width height - RGB-IMAGE "bottom" 100 NORMAL-MODE))) - (layer-two 0) - ) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img layer-one 0 0) - ; (gimp-img-add-layer img layer-two 1) - - (plug-in-solid-noise RUN-NONINTERACTIVE img layer-one 1 0 seed detail xscale yscale ) - (plug-in-c-astretch RUN-NONINTERACTIVE img layer-one) - (set! layer-two (car (gimp-layer-copy layer-one TRUE))) - (gimp-image-insert-layer img layer-two 0 -1) - (gimp-image-set-active-layer img layer-two) - - (plug-in-gradmap RUN-NONINTERACTIVE img layer-two) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-flatland" - _"_Flatland..." - _"Create an image filled with a Land Pattern" - "Adrian Likins " - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Image width" '(256 10 2000 1 10 0 1) - SF-ADJUSTMENT _"Image height" '(256 10 2000 1 10 0 1) - SF-ADJUSTMENT _"Random seed" '(80 1 2000000 1 10 0 1) - SF-ADJUSTMENT _"Detail level" '(3 1 15 1 10 1 0) - SF-ADJUSTMENT _"Scale X" '(4 0.1 16 0.1 2 1 1) - SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 0.1 2 1 1) -) - -(script-fu-menu-register "script-fu-flatland" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/frosty-logo.scm b/plug-ins/script-fu/scripts/frosty-logo.scm deleted file mode 100644 index b7eb80981f..0000000000 --- a/plug-ins/script-fu/scripts/frosty-logo.scm +++ /dev/null @@ -1,210 +0,0 @@ -; FROZEN-TEXT effect -; Thanks to Ed Mackey for this one -; Written by Spencer Kimball - -(define (apply-frosty-logo-effect img - logo-layer - size - bg-color - isnew) ; The parameter isnew is used - ; when the script is called - ; using the logo script (not - ; alpha to logo), in order to - ; make sure some actions are - ; performed only then - (let* ( - (border (/ size 5)) - (width (+ (car (gimp-drawable-width logo-layer)) border)) - (height (+ (car (gimp-drawable-height logo-layer)) border)) - (logo-layer-mask (car (gimp-layer-create-mask logo-layer - ADD-BLACK-MASK))) - (sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Sparkle" 100 NORMAL-MODE))) - (matte-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Matte" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img - (+ border width) - (+ border height) - RGBA-IMAGE - "Shadow" 90 MULTIPLY-MODE))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE - "Background" 100 NORMAL-MODE))) - (selection 0) - (stack (car (gimp-image-get-item-position img logo-layer))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (if ( = isnew 1) (script-fu-util-image-resize-from-layer img shadow-layer)) - - (gimp-layer-add-mask logo-layer logo-layer-mask) - (gimp-image-insert-layer img sparkle-layer 0 (+ 1 stack)) - (gimp-image-insert-layer img matte-layer 0 (+ 2 stack)) - (gimp-image-insert-layer img shadow-layer 0 (+ 3 stack)) - (gimp-layer-translate shadow-layer (- border) (- border)) - (gimp-image-insert-layer img bg-layer 0 5) - (gimp-selection-none img) - (gimp-edit-clear sparkle-layer) - (gimp-edit-clear matte-layer) - (gimp-edit-clear shadow-layer) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (set! selection (car (gimp-selection-save img))) - (gimp-selection-feather img border) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill sparkle-layer BACKGROUND-FILL) - (plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE 0.2 0.2 0.2 0.0) - (plug-in-c-astretch RUN-NONINTERACTIVE img sparkle-layer) - (gimp-selection-none img) - (plug-in-sparkle RUN-NONINTERACTIVE img sparkle-layer 0.03 0.5 - (/ (min width height) 2) - 6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0) - (gimp-levels sparkle-layer 1 0 255 0.2 0 255) - (gimp-levels sparkle-layer 2 0 255 0.7 0 255) - (gimp-image-select-item img CHANNEL-OP-REPLACE sparkle-layer) - (gimp-context-set-foreground '(0 0 0)) - (gimp-context-set-brush "Circle Fuzzy (11)") - (gimp-edit-stroke matte-layer) - (gimp-selection-feather img border) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill logo-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill logo-layer-mask BACKGROUND-FILL) - (gimp-selection-feather img border) - (gimp-selection-translate img (/ border 2) (/ border 2)) - (gimp-edit-fill logo-layer BACKGROUND-FILL) - (gimp-layer-remove-mask logo-layer 0) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (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) - (gimp-image-remove-channel img selection) - - (gimp-layer-translate shadow-layer border border) - - (if ( = isnew 1) (script-fu-util-image-resize-from-layer img logo-layer)) - - (gimp-layer-translate bg-layer (- 0 border) (- 0 border)) - - (gimp-context-pop) - ) -) - -(define (script-fu-frosty-logo-alpha img - logo-layer - size - bg-color) - - (gimp-image-undo-group-start img) - - ;Checking if the effect size is to big or not - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-feather img (/ size 5)) - (gimp-selection-sharpen img) - - (if (= 1 (car(gimp-selection-is-empty img))) - (begin - (gimp-image-undo-group-end img) - (gimp-selection-none img) - (gimp-message "Your layer's opaque parts are either too small for -this effect size, or they are not inside the canvas.") - ) - ) - - (if (= 0 (car(gimp-selection-is-empty img))) - (begin - (gimp-selection-none img) - (gimp-layer-resize-to-image-size logo-layer) - (apply-frosty-logo-effect img logo-layer size bg-color 0) - - (gimp-selection-none img) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) - ) -) - -(script-fu-register "script-fu-frosty-logo-alpha" - _"_Frosty..." - _"Add a frost effect to the selected region (or alpha) with an added drop shadow" - "Spencer Kimball & Ed Mackey" - "Spencer Kimball & Ed Mackey" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-frosty-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-frosty-logo text - size - font - bg-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 5)) - (text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS font))) - (error-string "The text you entered contains only spaces.") - ) - - (if (= text-layer -1) ; checking that the text layer was created - ; succesfully - it has more then just - ; empty charcters - (begin - (gimp-image-delete img) - (gimp-message error-string) - ) - (begin ; Checking if the effect size is too big or not - (gimp-image-undo-disable img) - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-selection-feather img border) - (gimp-selection-sharpen img) - - (if (= 0 (car(gimp-selection-is-empty img))) ; Checking whether - ; the effect size - ; is too big - (begin - (apply-frosty-logo-effect img text-layer size bg-color 1) - (gimp-selection-all img) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) - ) - (if (= 1 (car(gimp-selection-is-empty img))) - (begin - (gimp-image-delete img) - (gimp-message error-string) - ) - ) - ) - ) - ) -) - -(script-fu-register "script-fu-frosty-logo" - _"_Frosty..." - _"Create frozen logo with an added drop shadow" - "Spencer Kimball & Ed Mackey" - "Spencer Kimball & Ed Mackey" - "1997" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-FONT _"Font" "Becker" - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-frosty-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/glossy.scm b/plug-ins/script-fu/scripts/glossy.scm deleted file mode 100644 index 0df4dd5bc7..0000000000 --- a/plug-ins/script-fu/scripts/glossy.scm +++ /dev/null @@ -1,295 +0,0 @@ -; glossy-patterned-shadowed-and-bump-mapped-logo -; creates anything you can create with it :) -; (use it wisely, use it in peace...) -; -; GIMP - The GNU 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 3 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, see . - -(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 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img grow-me bg-layer) - (gimp-item-set-name grow-me "Grow-me") - (gimp-layer-translate grow-me posx posy) - - (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-image-select-item img CHANNEL-OP-REPLACE 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) - ) - ) - - (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-image-select-item img CHANNEL-OP-REPLACE 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) - ) - ) - - (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 (if (= noninteractive TRUE) - RUN-NONINTERACTIVE - RUN-INTERACTIVE) - 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-image-select-item img CHANNEL-OP-REPLACE 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-selection-none img) - ) - ) - - (if (= shadow-toggle TRUE) - (begin - (gimp-image-select-item img CHANNEL-OP-REPLACE 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" - "/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" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/glowing-logo.scm b/plug-ins/script-fu/scripts/glowing-logo.scm deleted file mode 100644 index 8bfb1e062e..0000000000 --- a/plug-ins/script-fu/scripts/glowing-logo.scm +++ /dev/null @@ -1,122 +0,0 @@ -; GLOWING -; Create a text effect that simulates a glowing hot logo - -(define (apply-glowing-logo-effect img - logo-layer - size - bg-color) - (let* ( - (grow (/ size 4)) - (feather1 (/ size 3)) - (feather2 (/ size 7)) - (feather3 (/ size 10)) - (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)))) - (glow-layer (car (gimp-layer-copy logo-layer TRUE))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img glow-layer bg-layer) - (gimp-layer-translate glow-layer posx posy) - - (gimp-selection-none img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill logo-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-feather img feather1) - (gimp-context-set-background '(221 0 0)) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-feather img feather2) - (gimp-context-set-background '(232 217 18)) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-feather img feather3) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-layer-set-mode logo-layer OVERLAY-MODE) - (gimp-item-set-name glow-layer "Glow Layer") - - (gimp-context-pop) - ) -) - - -(define (script-fu-glowing-logo-alpha img - logo-layer - size - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-glowing-logo-effect img logo-layer (* size 3) bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-glowing-logo-alpha" - _"Glo_wing Hot..." - _"Add a glowing hot metal effect to the selected region (or alpha)" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Effect size (pixels)" '(50 1 500 1 10 0 1) - SF-COLOR _"Background color" '(7 0 20) -) - -(script-fu-menu-register "script-fu-glowing-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-glowing-logo text - size - font - bg-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))) - ) - (gimp-image-undo-disable img) - (apply-glowing-logo-effect img text-layer size bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-glowing-logo" - _"Glo_wing Hot..." - _"Create a logo that looks like glowing hot metal" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-STRING _"Text" "GLOWING" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Slogan" - SF-COLOR _"Background color" '(7 0 20) -) - -(script-fu-menu-register "script-fu-glowing-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/gradient-bevel-logo.scm b/plug-ins/script-fu/scripts/gradient-bevel-logo.scm deleted file mode 100644 index 6021d24dba..0000000000 --- a/plug-ins/script-fu/scripts/gradient-bevel-logo.scm +++ /dev/null @@ -1,148 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; Gradient Bevel v0.1 04/08/98 -; by Brian McFee -; Create cool glossy bevelly text - -(define (apply-gradient-bevel-logo-effect img - logo-layer - b-size - bevel-height - bevel-width - bg-color) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (indentX (+ b-size 12)) - (indentY (+ b-size (/ height 8))) - (bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE))) - (blur-layer (car (gimp-layer-new img width height RGBA-IMAGE "Blur" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img blur-layer bg-layer) - - (gimp-selection-all img) - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-selection-none img) - - (gimp-layer-set-lock-alpha blur-layer TRUE) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-all img) - (gimp-edit-fill blur-layer BACKGROUND-FILL) - (gimp-edit-clear blur-layer) - (gimp-selection-none img) - (gimp-layer-set-lock-alpha blur-layer FALSE) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-edit-fill blur-layer BACKGROUND-FILL) - (plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer bevel-width 1 1) - (gimp-selection-none img) - (gimp-context-set-background '(127 127 127)) - (gimp-context-set-foreground '(255 255 255)) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (gimp-selection-all img) - - (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-RADIAL 95 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - indentX indentY indentX (- height indentY)) - - (gimp-selection-none img) - (gimp-layer-set-lock-alpha logo-layer FALSE) - (plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0) - (gimp-layer-set-offsets blur-layer 5 5) - (gimp-invert blur-layer) - (gimp-layer-set-opacity blur-layer 50.0) - (gimp-image-set-active-layer img logo-layer) - - (gimp-context-pop) - ) -) - -(define (script-fu-gradient-bevel-logo-alpha img - logo-layer - b-size - bevel-height - bevel-width - bg-color) - (gimp-image-undo-group-start img) - (apply-gradient-bevel-logo-effect img logo-layer b-size - bevel-height bevel-width bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) -) - -(script-fu-register "script-fu-gradient-bevel-logo-alpha" - _"Gradient Beve_l..." - _"Add a shiny look and bevel effect to the selected region (or alpha)" - "Brian McFee " - "Brian McFee" - "April 1998" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Border size (pixels)" '(22 1 300 1 10 0 1) - SF-ADJUSTMENT _"Bevel height (sharpness)" '(40 1 250 1 10 0 1) - SF-ADJUSTMENT _"Bevel width" '(2.5 1 200 1 10 1 1) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-gradient-bevel-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-gradient-bevel-logo text - size - font - bevel-height - bevel-width - bg-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname img -1 0 0 text - border TRUE size PIXELS font))) - ) - (gimp-image-undo-disable img) - (apply-gradient-bevel-logo-effect img text-layer border - bevel-height bevel-width bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-gradient-bevel-logo" - _"Gradient Beve_l..." - _"Create a logo with a shiny look and beveled edges" - "Brian McFee " - "Brian McFee" - "April 1998" - "" - SF-STRING _"Text" "Moo" - SF-ADJUSTMENT _"Font size (pixels)" '(90 2 1000 1 10 0 1) - SF-FONT _"Font" "Sans Bold" - SF-ADJUSTMENT _"Bevel height (sharpness)" '(40 1 250 1 10 0 1) - SF-ADJUSTMENT _"Bevel width" '(2.5 1 200 1 10 1 1) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-gradient-bevel-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/i26-gunya2.scm b/plug-ins/script-fu/scripts/i26-gunya2.scm deleted file mode 100644 index 225b4d751d..0000000000 --- a/plug-ins/script-fu/scripts/i26-gunya2.scm +++ /dev/null @@ -1,107 +0,0 @@ -;;; i26-gunya2.scm -*-scheme-*- -;;; Time-stamp: <1997/05/11 18:46:26 narazaki@InetQ.or.jp> -;;; Author: Shuji Narazaki (narazaki@InetQ.or.jp) -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; All calls to gimp-text-* have been converted to use the *-fontname form. -; The corresponding parameters have been replaced by an SF-FONT parameter. -; ************************************************************************ - -;;; Comment: -;;; This is the first font decoration of Imigre-26 (i26) -;;; Code: - -(define (script-fu-i26-gunya2 text text-color frame-color font font-size frame-size) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ font-size 10)) - (text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) - TRUE font-size PIXELS font))) - (width (car (gimp-drawable-width text-layer))) - (height (car (gimp-drawable-height text-layer))) - (dist-text-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Distorted text" 100 NORMAL-MODE))) - (dist-frame-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Distorted text" 100 NORMAL-MODE))) - (distortion-img (car (gimp-image-new width height GRAY))) - (distortion-layer (car (gimp-layer-new distortion-img width height - GRAY-IMAGE "temp" 100 NORMAL-MODE))) - (radius (/ font-size 10)) - (prob 0.5) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-undo-disable distortion-img) - (gimp-image-resize img width height 0 0) - (gimp-image-insert-layer img dist-text-layer 0 -1) - (gimp-image-insert-layer img dist-frame-layer 0 -1) - (gimp-image-insert-layer distortion-img distortion-layer 0 -1) - (gimp-selection-none img) - (gimp-edit-clear dist-text-layer) - (gimp-edit-clear dist-frame-layer) - ;; get the text shape - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - ;; fill it with the specified color - (gimp-context-set-foreground text-color) - (gimp-edit-fill dist-text-layer FOREGROUND-FILL) - ;; get the border shape - (gimp-selection-border img frame-size) - (gimp-context-set-background frame-color) - (gimp-edit-fill dist-frame-layer BACKGROUND-FILL) - (gimp-selection-none img) - ;; now make the distortion data - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill distortion-layer BACKGROUND-FILL) - (plug-in-noisify RUN-NONINTERACTIVE distortion-img distortion-layer FALSE prob prob prob 0.0) - (plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1) - (plug-in-c-astretch RUN-NONINTERACTIVE distortion-img distortion-layer) - (plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1) - ;; OK, apply it to dist-text-layer - (plug-in-displace RUN-NONINTERACTIVE img dist-text-layer radius radius 1 1 - distortion-layer distortion-layer 0) - ;; make the distortion data once again fro the frame - (gimp-edit-fill distortion-layer BACKGROUND-FILL) - (plug-in-noisify RUN-NONINTERACTIVE distortion-img distortion-layer FALSE prob prob prob 0.0) - (plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1) - (plug-in-c-astretch RUN-NONINTERACTIVE distortion-img distortion-layer) - (plug-in-gauss-rle RUN-NONINTERACTIVE distortion-img distortion-layer radius 1 1) - ;; then, apply it to dist-frame-layer - (plug-in-displace RUN-NONINTERACTIVE img dist-frame-layer radius radius 1 1 - distortion-layer distortion-layer 0) - ;; Finally, clear the bottom layer (text-layer) - (gimp-selection-all img) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill text-layer BACKGROUND-FILL) - ;; post processing - (gimp-image-set-active-layer img dist-text-layer) - (gimp-selection-none img) - (gimp-image-undo-enable img) - (gimp-image-delete distortion-img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - - -(script-fu-register "script-fu-i26-gunya2" - _"Imigre-_26..." - _"Create a logo in a two-color, scribbled text style" - "Shuji Narazaki" - "Shuji Narazaki" - "1997" - "" - SF-STRING _"Text" "GIMP" - SF-COLOR _"Text color" "red" - SF-COLOR _"Frame color" '(0 34 255) - SF-FONT _"Font" "Becker" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-ADJUSTMENT _"Frame size" '(2 1 20 1 5 0 1) -) - -(script-fu-menu-register "script-fu-i26-gunya2" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/land.scm b/plug-ins/script-fu/scripts/land.scm deleted file mode 100644 index b514cf999a..0000000000 --- a/plug-ins/script-fu/scripts/land.scm +++ /dev/null @@ -1,91 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Land --- create a pattern that resembles a Topographic map -; Copyright (C) 1997 Adrian Karstan Likins -; aklikins@eos.ncsu.edu -; -; -; This script works on the current gradient you have loaded. -; Some suggested gradients: -; Land (produces a earthlike map) -; Brushed_aluminum (looks like the moon) -; -; -; Thanks to Quartic for helping me debug this thing. -; -; 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 3 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, see . - - - -(define (script-fu-land width height seed detail landheight seadepth xscale yscale gradient) - (let* ( - (img (car (gimp-image-new width height RGB))) - (layer-one (car (gimp-layer-new img width height - RGB-IMAGE "Bottom" 100 NORMAL-MODE))) - (layer-two 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - (gimp-context-set-gradient gradient) - (gimp-image-undo-disable img) - (gimp-image-insert-layer img layer-one 0 0) - - (plug-in-solid-noise RUN-NONINTERACTIVE img layer-one TRUE FALSE seed detail xscale yscale) - (plug-in-c-astretch RUN-NONINTERACTIVE img layer-one) - (set! layer-two (car (gimp-layer-copy layer-one TRUE))) - (gimp-image-insert-layer img layer-two 0 -1) - (gimp-image-set-active-layer img layer-two) - - (plug-in-gradmap RUN-NONINTERACTIVE img layer-two) - - (gimp-image-select-color img CHANNEL-OP-REPLACE layer-one '(190 190 190)) - (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 landheight 0 0 0 0 TRUE FALSE 0) - - ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) - (gimp-selection-invert img) - (plug-in-bump-map RUN-NONINTERACTIVE img layer-two layer-one 135.0 35 seadepth 0 0 0 0 TRUE FALSE 0) - - ;(plug-in-c-astretch RUN-NONINTERACTIVE img layer-two) - - ; uncomment the next line if you want to keep a selection of the "land" - (gimp-selection-none img) - - (gimp-display-new img) - (gimp-image-undo-enable img) - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-land" - _"_Land..." - _"Create an image filled with a topographic map pattern" - "Adrian Likins " - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Image width" '(256 10 1000 1 10 0 1) - SF-ADJUSTMENT _"Image height" '(256 10 1000 1 10 0 1) - SF-ADJUSTMENT _"Random seed" '(32 0 15000000 1 10 0 1) - SF-ADJUSTMENT _"Detail level" '(4 1 15 1 5 0 0) - SF-ADJUSTMENT _"Land height" '(60 1 65 1 10 0 1) - SF-ADJUSTMENT _"Sea depth" '(4 1 65 1 10 0 1) - SF-ADJUSTMENT _"Scale X" '(4 0.1 16 1 5 0.1 0) - SF-ADJUSTMENT _"Scale Y" '(4 0.1 16 1 5 0.1 0) - SF-GRADIENT _"Gradient" "Land 1" -) - -(script-fu-menu-register "script-fu-land" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/neon-logo.scm b/plug-ins/script-fu/scripts/neon-logo.scm deleted file mode 100644 index 58bdcec4fc..0000000000 --- a/plug-ins/script-fu/scripts/neon-logo.scm +++ /dev/null @@ -1,295 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; NEON -; Create a text effect that simulates neon lighting - -(define (apply-neon-logo-effect img - tube-layer - size - bg-color - glow-color - shadow) - - (define (set-pt a index x y) - (begin - (aset a (* index 2) x) - (aset a (+ (* index 2) 1) y))) - - (define (neon-spline1) - (let* ((a (cons-array 6 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 127 145) - (set-pt a 2 255 255) - a)) - - (define (neon-spline2) - (let* ((a (cons-array 6 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 110 150) - (set-pt a 2 255 255) - a)) - - (define (neon-spline3) - (let* ((a (cons-array 6 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 100 185) - (set-pt a 2 255 255) - a)) - - (define (neon-spline4) - (let* ((a (cons-array 8 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 64 64) - (set-pt a 2 127 192) - (set-pt a 3 255 255) - a)) - - (define (find-hue-offset color) - (let* ( - (R (car color)) - (G (cadr color)) - (B (caddr color)) - (max-val (max R G B)) - (min-val (min R G B)) - (delta (- max-val min-val)) - (hue 0) - ) - (if (= delta 0) - 0 - (begin - (cond - ((= max-val R) - (set! hue (/ (- G B) (* 1.0 delta)))) - ((= max-val G) - (set! hue (+ 2 (/ (- B R) (* 1.0 delta))))) - ((= max-val B) - (set! hue (+ 4 (/ (- R G) (* 1.0 delta))))) - ) - (set! hue (* hue 60)) - (if (< hue 0) (set! hue (+ hue 360))) - (if (> hue 360) (set! hue (- hue 360))) - (if (> hue 180) (set! hue (- hue 360))) - hue - ) - ) - ) - ) - - (let* ( - (tube-hue (find-hue-offset glow-color)) - (shrink (/ size 14)) - (grow (/ size 40)) - (feather (/ size 5)) - (feather1 (/ size 25)) - (feather2 (/ size 12)) - (inc-shrink (/ size 100)) - (shadow-shrink (/ size 40)) - (shadow-feather (/ size 20)) - (shadow-offx (/ size 10)) - (shadow-offy (/ size 10)) - (width (car (gimp-drawable-width tube-layer))) - (height (car (gimp-drawable-height tube-layer))) - (glow-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Neon Glow" 100 NORMAL-MODE))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE - "Background" 100 NORMAL-MODE))) - (shadow-layer (if (= shadow TRUE) - (car (gimp-layer-new img width height RGBA-IMAGE - "Shadow" 100 NORMAL-MODE)) - 0)) - (selection 0) - (max_shrink 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - ; ensure that we don't shrink selection so much - ; that we create an empty selection. - (gimp-image-select-item img CHANNEL-OP-REPLACE tube-layer) - (while (= (car (gimp-selection-is-empty img)) FALSE) - (begin - (gimp-selection-shrink img 1) - (set! max_shrink (+ max_shrink 1)) - ; escape early if we know that we can perform - ; as much shrink steps as we want - (if (> max_shrink shrink) - (gimp-selection-none img)) - ) - ) - (if (= (car (gimp-selection-is-empty img)) TRUE) - (if (> max_shrink 0) - (set! max_shrink (- max_shrink 1)))) - ; clamp upper bounds to valid shrink step range - (if (> shrink max_shrink) - (set! shrink max_shrink)) - (if (> inc-shrink (/ max_shrink 3)) - (set! inc-shrink (/ max_shrink 3))) - (if (> shadow-shrink max_shrink) - (set! shadow-shrink max_shrink)) - - (script-fu-util-image-resize-from-layer img tube-layer) - (script-fu-util-image-add-layers img glow-layer bg-layer) - (if (not (= shadow 0)) - (begin - (gimp-image-insert-layer img shadow-layer 0 -1) - (gimp-edit-clear shadow-layer))) - - (gimp-context-set-background '(0 0 0)) - (gimp-image-select-item img CHANNEL-OP-REPLACE tube-layer) - (set! selection (car (gimp-selection-save img))) - (gimp-selection-none img) - - (gimp-edit-clear glow-layer) - (gimp-edit-clear tube-layer) - - (gimp-context-set-background bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill tube-layer BACKGROUND-FILL) - (gimp-selection-shrink img shrink) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill selection BACKGROUND-FILL) - (gimp-edit-clear tube-layer) - - (gimp-selection-none img) - (if (not (= feather1 0)) - (plug-in-gauss-rle RUN-NONINTERACTIVE img tube-layer feather1 TRUE TRUE)) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (if (not (= feather2 0)) - (plug-in-gauss-rle RUN-NONINTERACTIVE img tube-layer feather2 TRUE TRUE)) - - (gimp-selection-feather img inc-shrink) - (gimp-selection-shrink img inc-shrink) - (gimp-curves-spline tube-layer 4 6 (neon-spline1)) - - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-feather img inc-shrink) - (gimp-selection-shrink img (* inc-shrink 2)) - (gimp-curves-spline tube-layer 4 6 (neon-spline2)) - - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-feather img inc-shrink) - (gimp-selection-shrink img (* inc-shrink 3)) - (gimp-curves-spline tube-layer 4 6 (neon-spline3)) - - (gimp-layer-set-lock-alpha tube-layer 1) - (gimp-image-select-item img CHANNEL-OP-REPLACE tube-layer) - (gimp-selection-invert img) - (gimp-context-set-background glow-color) - (gimp-edit-fill tube-layer BACKGROUND-FILL) - - (gimp-selection-none img) - (gimp-layer-set-lock-alpha tube-layer 0) - (gimp-curves-spline tube-layer 4 8 (neon-spline4)) - - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-grow img grow) - (gimp-selection-invert img) - (gimp-edit-clear tube-layer) - (gimp-selection-invert img) - - (gimp-selection-feather img feather) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - - (if (not (= shadow 0)) - (begin - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-grow img grow) - (gimp-selection-shrink img shadow-shrink) - (gimp-selection-feather img shadow-feather) - (gimp-selection-translate img shadow-offx shadow-offy) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill shadow-layer BACKGROUND-FILL))) - (gimp-selection-none img) - - (gimp-item-set-name tube-layer "Neon Tubes") - (gimp-image-remove-channel img selection) - - (gimp-context-pop) - ) -) - -(define (script-fu-neon-logo-alpha img - tube-layer - size - bg-color - glow-color - shadow) - (begin - (gimp-image-undo-group-start img) - (apply-neon-logo-effect img tube-layer (* size 5) bg-color glow-color shadow) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-neon-logo-alpha" - _"N_eon..." - _"Convert the selected region (or alpha) into a neon-sign like object" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Effect size (pixels)" '(30 1 200 1 10 0 1) - SF-COLOR _"Background color" "black" - SF-COLOR _"Glow color" '(38 211 255) - SF-TOGGLE _"Create shadow" FALSE -) - -(script-fu-menu-register "script-fu-neon-logo-alpha" - "/Filters/Alpha to Logo") - -(define (script-fu-neon-logo text - size - font - bg-color - glow-color - shadow) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (tube-layer (car (gimp-text-fontname img -1 0 0 text border TRUE size PIXELS font))) - ) - (gimp-image-undo-disable img) - (apply-neon-logo-effect img tube-layer size bg-color glow-color shadow) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-neon-logo" - _"N_eon..." - _"Create a logo in the style of a neon sign" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-STRING _"Text" "NEON" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "Blippo" - SF-COLOR _"Background color" "black" - SF-COLOR _"Glow color" '(38 211 255) - SF-TOGGLE _"Create shadow" FALSE -) - -(script-fu-menu-register "script-fu-neon-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/news-text.scm b/plug-ins/script-fu/scripts/news-text.scm deleted file mode 100644 index b9c8f8fad0..0000000000 --- a/plug-ins/script-fu/scripts/news-text.scm +++ /dev/null @@ -1,94 +0,0 @@ -; Newsprint text -; Copyright (c) 1998 Austin Donnelly -; -; -; Based on alien glow code from Adrian Likins -; -; 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 3 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, see . - - -(define (script-fu-newsprint-text string font font-size cell-size - density blur-radius text-color bg-color) - (let* ( - (text-ext (gimp-text-get-extents-fontname string font-size PIXELS font)) - (width (+ (car text-ext) 20 blur-radius)) - (height (+ (list-ref text-ext 1) 20 blur-radius)) - (img (car (gimp-image-new width height RGB))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (text-layer (car (gimp-layer-new img width height RGBA-IMAGE "Text layer" 100 NORMAL-MODE))) - (text-mask 0) - (grey (/ (* density 255) 100)) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img bg-layer 0 1) - (gimp-image-insert-layer img text-layer 0 -1) - - (gimp-context-set-background bg-color) - (gimp-edit-clear bg-layer) - (gimp-edit-clear text-layer) - - (gimp-context-set-foreground text-color) - (gimp-floating-sel-anchor - (car (gimp-text-fontname img text-layer - (/ (+ 20 blur-radius) 2) (/ (+ 20 blur-radius) 2) - string 0 TRUE font-size PIXELS font))) - - (set! text-mask (car (gimp-layer-create-mask text-layer ADD-ALPHA-MASK))) - (gimp-layer-add-mask text-layer text-mask) - - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background (list grey grey grey)) - (gimp-edit-fill text-mask BACKGROUND-FILL) - (gimp-selection-none img) - (if (> blur-radius 0) - (plug-in-gauss-iir RUN-NONINTERACTIVE img text-mask blur-radius 1 1) - ) - - (plug-in-newsprint RUN-NONINTERACTIVE img text-mask cell-size - 0 0 45.0 3 45.0 0 45.0 0 45.0 0 3) - - (gimp-edit-fill text-layer FOREGROUND-FILL) - (gimp-layer-remove-mask text-layer MASK-APPLY) - - (gimp-image-undo-enable img) - - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-newsprint-text" - _"Newsprint Te_xt..." - _"Create a logo in the style of newspaper printing" - "Austin Donnelly" - "Austin Donnelly" - "1998" - "" - SF-STRING _"Text" "Newsprint" - SF-FONT _"Font" "Sans" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-ADJUSTMENT _"Cell size (pixels)" '(7 1 100 1 10 0 1) - SF-ADJUSTMENT _"Density (%)" '(60 0 100 1 10 0 0) - SF-ADJUSTMENT _"Blur radius" '(0 0 100 1 5 0 0) - SF-COLOR _"Text color" "black" - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-newsprint-text" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/pupi-button.scm b/plug-ins/script-fu/scripts/pupi-button.scm deleted file mode 100644 index f8cafb6e62..0000000000 --- a/plug-ins/script-fu/scripts/pupi-button.scm +++ /dev/null @@ -1,212 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Round Button --- create a round beveled Web button. -; Copyright (C) 1998 Federico Mena Quintero & Arturo Espinosa Aldama -; federico@nuclecu.unam.mx arturo@nuclecu.unam.mx -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; All calls to gimp-text-* have been converted to use the *-fontname form. -; The corresponding parameters have been replaced by an SF-FONT parameter. -; ************************************************************************ -; -; 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 3 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, see . - -(define (script-fu-round-button text - size - font - ul-color - lr-color - text-color - ul-color-high - lr-color-high - hlight-color - xpadding - ypadding - bevel - ratio - notpressed - notpressed-active - pressed) - - (cond ((eqv? notpressed TRUE) - (do-pupibutton text size font ul-color lr-color - text-color xpadding ypadding bevel ratio 0))) - (cond ((eqv? notpressed-active TRUE) - (do-pupibutton text size font ul-color-high lr-color-high - hlight-color xpadding ypadding bevel ratio 0))) - (cond ((eqv? pressed TRUE) - (do-pupibutton text size font ul-color-high lr-color-high - hlight-color xpadding ypadding bevel ratio 1)))) - -(define (do-pupibutton text - size - font - ul-color - lr-color - text-color - xpadding - ypadding - bevel - ratio - pressed) - - (define (text-width extents) - (car extents)) - - (define (text-height extents) - (cadr extents)) - - (define (text-ascent extents) - (caddr extents)) - - (define (text-descent extents) - (cadr (cddr extents))) - - (define (round-select img - x - y - width - height - ratio) - (let* ((diameter (* ratio height))) - (gimp-image-select-ellipse img CHANNEL-OP-ADD x y diameter height) - (gimp-image-select-ellipse img CHANNEL-OP-ADD (+ x (- width diameter)) y - diameter height) - (gimp-image-select-rectangle img CHANNEL-OP-ADD (+ x (/ diameter 2)) y - (- width diameter) height))) - - (let* ( - (text-extents (gimp-text-get-extents-fontname text - size - PIXELS - font)) - (ascent (text-ascent text-extents)) - (descent (text-descent text-extents)) - - (height (+ (* 2 (+ ypadding bevel)) - (+ ascent descent))) - - (radius (/ (* ratio height) 4)) - - (width (+ (* 2 (+ radius xpadding)) - bevel - (text-width text-extents))) - - (img (car (gimp-image-new width height RGB))) - - (bumpmap (car (gimp-layer-new img width height - RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE))) - (gradient (car (gimp-layer-new img width height - RGBA-IMAGE "Button" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-antialias FALSE) - (gimp-context-set-feather FALSE) - (gimp-image-undo-disable img) - - ; Create bumpmap layer - - (gimp-image-insert-layer img bumpmap 0 -1) - (gimp-selection-none img) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (round-select img (/ bevel 2) (/ bevel 2) - (- width bevel) (- height bevel) ratio) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill bumpmap BACKGROUND-FILL) - - (gimp-selection-none img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img bumpmap bevel 1 1) - - ; Create gradient layer - - (gimp-image-insert-layer img gradient 0 -1) - (gimp-edit-clear gradient) - (round-select img 0 0 width height ratio) - (gimp-context-set-foreground ul-color) - (gimp-context-set-background lr-color) - - (gimp-edit-blend gradient FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 0 (- height 1)) - - (gimp-selection-none img) - - (plug-in-bump-map RUN-NONINTERACTIVE img gradient bumpmap - 135 45 bevel 0 0 0 0 TRUE pressed 0) - -; Create text layer - - (cond ((eqv? pressed 1) (set! bevel (+ bevel 1)))) - - (gimp-context-set-foreground text-color) - (let ((textl (car (gimp-text-fontname - img -1 0 0 text 0 TRUE size PIXELS - font)))) - (gimp-layer-set-offsets textl - (+ xpadding radius bevel) - (+ ypadding descent bevel))) - -; Delete some fucked-up pixels. - - (gimp-selection-none img) - (round-select img 1 1 (- width 1) (- height 1) ratio) - (gimp-selection-invert img) - (gimp-edit-clear gradient) - -; Done - - (gimp-image-remove-layer img bumpmap) - (gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY) - - (gimp-selection-none img) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-round-button" - _"_Round Button..." - _"Create images, each containing an oval button graphic" - "Arturo Espinosa (stolen from quartic's beveled button)" - "Arturo Espinosa & Federico Mena Quintero" - "June 1998" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(16 2 100 1 1 0 1) - SF-FONT _"Font" "Sans" - SF-COLOR _"Upper color" '(192 192 0) - SF-COLOR _"Lower color" '(128 108 0) - SF-COLOR _"Text color" "black" - SF-COLOR _"Upper color (active)" '(255 255 0) - SF-COLOR _"Lower color (active)" '(128 108 0) - SF-COLOR _"Text color (active)" '(0 0 192) - SF-ADJUSTMENT _"Padding X" '(4 0 100 1 10 0 1) - SF-ADJUSTMENT _"Padding Y" '(4 0 100 1 10 0 1) - SF-ADJUSTMENT _"Bevel width" '(2 0 100 1 10 0 1) - SF-ADJUSTMENT _"Round ratio" '(1 0.05 20 0.05 1 2 1) - SF-TOGGLE _"Not pressed" TRUE - SF-TOGGLE _"Not pressed (active)" TRUE - SF-TOGGLE _"Pressed" TRUE -) - -(script-fu-menu-register "script-fu-round-button" - "/File/Create/Buttons") diff --git a/plug-ins/script-fu/scripts/rendermap.scm b/plug-ins/script-fu/scripts/rendermap.scm deleted file mode 100644 index 3cfbd21714..0000000000 --- a/plug-ins/script-fu/scripts/rendermap.scm +++ /dev/null @@ -1,94 +0,0 @@ -; Chris Gutteridge (cjg@ecs.soton.ac.uk) -; At ECS Dept, University of Southampton, England. - -; 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 3 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, see . - - -(define (script-fu-render-map inSize - inGrain - inGrad - inWiden) - - (let* ( - (theWidth inSize) - (theHeight inSize) - (theImage (car(gimp-image-new theWidth theHeight RGB))) - (theLayer 0) - (thinLayer 0) - ) - - (gimp-context-push) - - (gimp-selection-all theImage) - - (set! theLayer (car (gimp-layer-new theImage theWidth theHeight - RGBA-IMAGE - "I've got more rubber ducks than you!" - 100 NORMAL-MODE))) - (gimp-image-insert-layer theImage theLayer 0 0) - (plug-in-solid-noise RUN-NONINTERACTIVE - theImage theLayer 1 0 (rand 65536) - inGrain inGrain inGrain) - - (if (= inWiden 1) - (begin - (set! thinLayer (car (gimp-layer-new theImage theWidth theHeight - RGBA-IMAGE "Camo Thin Layer" - 100 NORMAL-MODE))) - (gimp-image-insert-layer theImage thinLayer 0 0) - - (let ((theBigGrain (min 15 (* 2 inGrain)))) - (plug-in-solid-noise RUN-NONINTERACTIVE - theImage thinLayer 1 0 (rand 65536) - theBigGrain theBigGrain theBigGrain)) - - (gimp-context-set-background '(255 255 255)) - (gimp-context-set-foreground '(0 0 0)) - - (let ((theMask (car (gimp-layer-create-mask thinLayer 0)))) - (gimp-layer-add-mask thinLayer theMask) - - (gimp-edit-blend theMask FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-TRIANGULAR FALSE - FALSE 0 0 TRUE - 0 0 0 (/ theHeight 2))) - - (set! theLayer (car(gimp-image-flatten theImage))))) - - (gimp-selection-none theImage) - (gimp-context-set-gradient inGrad) - (plug-in-gradmap RUN-NONINTERACTIVE theImage theLayer) - - (gimp-display-new theImage) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-render-map" - _"Render _Map..." - _"Create an image filled with an Earth-like map pattern" - "Chris Gutteridge: cjg@ecs.soton.ac.uk" - "28th April 1998" - "Chris Gutteridge / ECS @ University of Southampton, England" - "" - SF-ADJUSTMENT _"Image size" '(256 0 2048 1 10 0 0) - SF-ADJUSTMENT _"Granularity" '(4 0 15 1 1 0 0) - SF-GRADIENT _"Gradient" "Land and Sea" - SF-TOGGLE _"Gradient reverse" FALSE - SF-OPTION _"Behavior" '(_"Tile" _"Detail in Middle") -) - -(script-fu-menu-register "script-fu-render-map" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/sota-chrome-logo.scm b/plug-ins/script-fu/scripts/sota-chrome-logo.scm deleted file mode 100644 index 5cd760bdaa..0000000000 --- a/plug-ins/script-fu/scripts/sota-chrome-logo.scm +++ /dev/null @@ -1,224 +0,0 @@ -; CHROME-LOGO2 -; State of the art chrome logos -; - -(define (script-fu-sota-chrome-logo chrome-saturation chrome-lightness - chrome-factor text size fontname - env-map hc cc) - - (define (set-pt a index x y) - (begin - (aset a (* index 2) x) - (aset a (+ (* index 2) 1) y) - ) - ) - - (define (spline1) - (let* ((a (cons-array 18 'byte))) - (set-pt a 0 0 0) - (set-pt a 1 31 235) - (set-pt a 2 63 23) - (set-pt a 3 95 230) - (set-pt a 4 127 25) - (set-pt a 5 159 210) - (set-pt a 6 191 20) - (set-pt a 7 223 240) - (set-pt a 8 255 31) - a - ) - ) - - (define (brush brush-size) - (cond ((<= brush-size 5) "Circle Fuzzy (05)") - ((<= brush-size 7) "Circle Fuzzy (07)") - ((<= brush-size 9) "Circle Fuzzy (09)") - ((<= brush-size 11) "Circle Fuzzy (11)") - ((<= brush-size 13) "Circle Fuzzy (13)") - ((<= brush-size 15) "Circle Fuzzy (15)") - ((<= brush-size 17) "Circle Fuzzy (17)") - (else "Circle Fuzzy (19)") - ) - ) - - (define (shadows val) - (/ (* 0.96 val) 2.55) - ) - - (define (midtones val) - (/ val 2.55) - ) - - (define (highlights val) - (let ((h (/ (* 1.108 val) 2.55))) - (if (> h 100) 100 h) - ) - ) - - (define (rval col) - (car col) - ) - - (define (gval col) - (cadr col) - ) - - (define (bval col) - (caddr col) - ) - - (define (sota-scale val scale chrome-factor) - (* (sqrt val) (* scale chrome-factor)) - ) - - (define (copy-layer-sota dest-image dest-drawable source-image source-drawable) - (gimp-selection-all dest-image) - (gimp-edit-clear dest-drawable) - (gimp-selection-none dest-image) - (gimp-selection-all source-image) - (gimp-edit-copy source-drawable) - (let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE)))) - (gimp-floating-sel-anchor floating-sel) - ) - ) - - (let* ( - (img (car (gimp-image-new 256 256 GRAY))) - (banding-img (car (gimp-file-load 1 env-map env-map))) - (banding-layer (car (gimp-image-get-active-drawable banding-img))) - (banding-height (car (gimp-drawable-height banding-layer))) - (banding-width (car (gimp-drawable-width banding-layer))) - (banding-type (car (gimp-drawable-type banding-layer))) - (b-size (sota-scale size 2 chrome-factor)) - (offx1 (sota-scale size 0.33 chrome-factor)) - (offy1 (sota-scale size 0.25 chrome-factor)) - (offx2 (sota-scale size (- 0.33) chrome-factor)) - (offy2 (sota-scale size (- 0.25) chrome-factor)) - (feather (sota-scale size 0.5 chrome-factor)) - (brush-size (sota-scale size 0.5 chrome-factor)) - (text-layer (car (gimp-text-fontname img -1 0 0 text (* b-size 2) TRUE size PIXELS fontname))) - (width (car (gimp-drawable-width text-layer))) - (height (car (gimp-drawable-height text-layer))) - (layer1 (car (gimp-layer-new img banding-width banding-height banding-type "Layer1" 100 NORMAL-MODE))) - (layer2 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 2" 100 DIFFERENCE-MODE))) - (layer3 (car (gimp-layer-new img width height GRAYA-IMAGE "Layer 3" 100 NORMAL-MODE))) - (shadow (car (gimp-layer-new img width height GRAYA-IMAGE "Drop Shadow" 100 NORMAL-MODE))) - (layer-mask 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-resize img width height 0 0) - (gimp-image-insert-layer img shadow 0 0) - (gimp-image-insert-layer img layer3 0 0) - (gimp-image-insert-layer img layer2 0 0) - (gimp-context-set-background '(255 255 255)) - (gimp-selection-none img) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-edit-clear shadow) - (gimp-item-set-visible text-layer FALSE) - (gimp-item-set-visible shadow FALSE) - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE (/ b-size 2) (/ b-size 2) (- width b-size) (- height b-size)) - (gimp-image-select-rectangle img CHANNEL-OP-SUBTRACT b-size b-size (- width (* b-size 2)) (- height (* b-size 2))) - (gimp-edit-fill text-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-translate img offx1 offy1) - (gimp-selection-feather img feather) - (gimp-edit-fill layer2 BACKGROUND-FILL) - (gimp-selection-translate img (* 2 offx2) (* 2 offy2)) - (gimp-edit-fill layer3 BACKGROUND-FILL) - (gimp-selection-none img) - (gimp-item-set-visible layer2 TRUE) - (gimp-item-set-visible layer3 TRUE) - (set! layer2 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (gimp-invert layer2) - - (gimp-image-insert-layer img layer1 0 0) - (copy-layer-sota img layer1 banding-img banding-layer) - (gimp-image-delete banding-img) - (gimp-layer-scale layer1 width height FALSE) - (plug-in-gauss-iir RUN-NONINTERACTIVE img layer1 10 TRUE TRUE) - (gimp-layer-set-opacity layer1 50) - (gimp-item-set-visible layer1 TRUE) - (gimp-item-set-visible layer2 TRUE) - (set! layer1 (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (gimp-curves-spline layer1 0 18 (spline1)) - - (set! layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))) - (gimp-layer-add-mask layer1 layer-mask) - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill layer-mask BACKGROUND-FILL) - - (set! layer2 (car (gimp-layer-copy layer1 TRUE))) - (gimp-image-insert-layer img layer2 0 0) - (gimp-context-set-brush (brush brush-size)) - (gimp-context-set-foreground '(255 255 255)) - (gimp-edit-stroke layer-mask) - - (gimp-context-set-background '(0 0 0)) - (gimp-selection-feather img (* feather 1.5)) - (gimp-selection-translate img (* 2.5 offx1) (* 2.5 offy1)) - (gimp-edit-fill shadow BACKGROUND-FILL) - - (gimp-selection-all img) - (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) - - (gimp-image-convert-rgb img) - - (gimp-color-balance layer1 0 TRUE (shadows (rval hc)) (shadows (gval hc)) (shadows (bval hc))) - (gimp-color-balance layer1 1 TRUE (midtones (rval hc)) (midtones (gval hc)) (midtones (bval hc))) - (gimp-color-balance layer1 2 TRUE (highlights (rval hc)) (highlights (gval hc)) (highlights (bval hc))) - - (gimp-color-balance layer2 0 TRUE (shadows (rval cc)) (shadows (gval cc)) (shadows (bval cc))) - (gimp-color-balance layer2 1 TRUE (midtones (rval cc)) (midtones (gval cc)) (midtones (bval cc))) - (gimp-color-balance layer2 2 TRUE (highlights (rval cc)) (highlights (gval cc)) (highlights (bval cc))) - (gimp-hue-saturation layer2 0 0 chrome-lightness chrome-saturation) - - (gimp-item-set-visible shadow TRUE) - (gimp-item-set-visible text-layer TRUE) - - (gimp-item-set-name text-layer "Background") - (gimp-item-set-name layer2 "Chrome") - (gimp-item-set-name layer1 "Highlight") - - (gimp-layer-translate shadow (/ b-size -4) (/ b-size -4)) - (gimp-layer-translate layer2 (/ b-size -4) (/ b-size -4)) - (gimp-layer-translate layer1 (/ b-size -4) (/ b-size -4)) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-sota-chrome-logo" - _"SOTA Chrome..." - _"Create a State Of The Art chromed logo" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-ADJUSTMENT _"Chrome saturation" '(-80 -100 100 1 10 0 0) - SF-ADJUSTMENT _"Chrome lightness" '(-47 -100 100 1 10 0 0) - SF-ADJUSTMENT _"Chrome factor" '(.75 0 1 0.1 0.01 2 0) - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(150 2 1000 1 10 0 1) - SF-FONT _"Font" "RoostHeavy" - SF-FILENAME _"Environment map" - (string-append gimp-data-directory - "/scripts/images/beavis.jpg") - SF-COLOR _"Highlight balance" '(211 95 0) - SF-COLOR _"Chrome balance" "black" -) - -(script-fu-menu-register "script-fu-sota-chrome-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/speed-text.scm b/plug-ins/script-fu/scripts/speed-text.scm deleted file mode 100644 index b95504b89b..0000000000 --- a/plug-ins/script-fu/scripts/speed-text.scm +++ /dev/null @@ -1,101 +0,0 @@ -; Speed text -; Copyright (c) 1998 Austin Donnelly -; -; -; Based on alien glow code from Adrian Likins -; -; 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 3 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, see . - - -(define (script-fu-speed-text string font font-size density text-color bg-color) - (let* ( - (text-ext (gimp-text-get-extents-fontname string font-size PIXELS font)) - (wid (+ (car text-ext) 20)) - (hi (+ (list-ref text-ext 1) 20)) - (img (car (gimp-image-new wid hi RGB))) - (bg-layer (car (gimp-layer-new img wid hi RGB-IMAGE "Background" 100 NORMAL-MODE))) - (text-layer (car (gimp-layer-new img wid hi RGBA-IMAGE "Text layer" 100 NORMAL-MODE))) - (text-mask 0) - (saved-select 0) - (cell-size (/ font-size 8)) - (grey (/ (* density 255) 100)) - (saved-sel 0) - (text-mask 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img bg-layer 0 1) - (gimp-image-insert-layer img text-layer 0 -1) - - (gimp-context-set-background bg-color) - (gimp-edit-clear bg-layer) - (gimp-edit-clear text-layer) - - (gimp-floating-sel-anchor (car (gimp-text-fontname img text-layer 10 10 string 0 TRUE font-size PIXELS font))) - - ; save the selection for later - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (set! saved-sel (car (gimp-selection-save img))) - - ; add layer mask - (set! text-mask (car (gimp-layer-create-mask text-layer ADD-ALPHA-MASK))) - (gimp-layer-add-mask text-layer text-mask) - - ; grow the layer - (gimp-layer-set-edit-mask text-layer FALSE) - (gimp-selection-grow img 10) - (gimp-context-set-foreground text-color) - (gimp-edit-fill text-layer FOREGROUND-FILL) - - ; feather the mask - (gimp-layer-set-edit-mask text-layer TRUE) - (gimp-image-select-item img CHANNEL-OP-REPLACE saved-sel) - (gimp-selection-feather img 10) - (gimp-context-set-background (list grey grey grey)) - (gimp-edit-fill text-mask BACKGROUND-FILL) - (gimp-edit-fill text-mask BACKGROUND-FILL) - (gimp-edit-fill text-mask BACKGROUND-FILL) - (gimp-selection-none img) - - (plug-in-newsprint RUN-NONINTERACTIVE img text-mask cell-size 0 0 0.0 1 45.0 0 45.0 0 45.0 0 5) - - (gimp-layer-remove-mask text-layer MASK-APPLY) - - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-speed-text" - _"Speed Text..." - _"Create a logo with a speedy text effect" - "Austin Donnelly" - "Austin Donnelly" - "1998" - "" - SF-STRING _"Text" "Speed!" - SF-FONT _"Font" "Charter" - SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1) - SF-ADJUSTMENT _"Density (%)" '(80 0 100 1 10 0 0) - SF-COLOR _"Text color" "black" - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-speed-text" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/starscape-logo.scm b/plug-ins/script-fu/scripts/starscape-logo.scm deleted file mode 100644 index 1652153c50..0000000000 --- a/plug-ins/script-fu/scripts/starscape-logo.scm +++ /dev/null @@ -1,152 +0,0 @@ -; Nova Starscape -; Create a text effect that simulates an eerie alien glow around text - -(define (apply-starscape-logo-effect img logo-layer size glow-color) - - (define (find-blend-coords w h) - (let* ( - (denom (+ (/ w h) (/ h w))) - (bx (/ (* -2 h) denom)) - (by (/ (* -2 w) denom)) - ) - (cons bx by) - ) - ) - - (define (find-nova-x-coord drawable x1 x2 y) - (let* ( - (x 0) - (alpha 3) - (range (- x2 x1)) - (min-clearance 5) - (val '()) - (val-left '()) - (val-right '()) - (val-top '()) - (val-bottom '()) - (limit 100) - (clearance 0) - ) - - (while (and (= clearance 0) (> limit 0)) - (set! x (+ (rand range) x1)) - (set! val (cadr (gimp-drawable-get-pixel drawable x y))) - (set! val-left (cadr (gimp-drawable-get-pixel drawable (- x min-clearance) y))) - (set! val-right (cadr (gimp-drawable-get-pixel drawable (+ x min-clearance) y))) - (set! val-top (cadr (gimp-drawable-get-pixel drawable x (- y min-clearance)))) - (set! val-bottom (cadr (gimp-drawable-get-pixel drawable x (+ y min-clearance)))) - (if (and (= (aref val alpha) 0) (= (aref val-left alpha) 0) - (= (aref val-right alpha) 0) (= (aref val-top alpha) 0) - (= (aref val-bottom alpha) 0) - ) - (set! clearance 1) - (set! limit (- limit 1)) - ) - ) - x - ) - ) - - (let* ( - (border (/ size 4)) - (grow (/ size 30)) - (offx (* size 0.03)) - (offy (* size 0.02)) - (feather (/ size 4)) - (shadow-feather (/ size 25)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (w (* (/ (- width (* border 2)) 2.0) 0.75)) - (h (* (/ (- height (* border 2)) 2.0) 0.75)) - (novay (* height 0.3)) - (novax (find-nova-x-coord logo-layer (* width 0.2) (* width 0.8) novay)) - (novaradius (/ (min height width) 7.0)) - (cx (/ width 2.0)) - (cy (/ height 2.0)) - (bx (+ cx (car (find-blend-coords w h)))) - (by (+ cy (cdr (find-blend-coords w h)))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (glow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Glow" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Drop Shadow" 100 NORMAL-MODE))) - (bump-channel (car (gimp-channel-new img width height "Bump Map" 50 '(0 0 0)))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-selection-none img) - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img shadow-layer glow-layer bg-layer) - (gimp-image-insert-channel img bump-channel 0 0) - (gimp-layer-set-lock-alpha logo-layer TRUE) - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - (gimp-edit-clear shadow-layer) - (gimp-edit-clear glow-layer) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-grow img grow) - (gimp-selection-feather img feather) - (gimp-context-set-background glow-color) - (gimp-selection-feather img feather) - (gimp-edit-fill glow-layer BACKGROUND-FILL) - - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-selection-feather img shadow-feather) - (gimp-context-set-background '(0 0 0)) - (gimp-selection-translate img offx offy) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - - (gimp-selection-none img) - (gimp-context-set-background '(31 31 31)) - (gimp-context-set-foreground '(255 255 255)) - - (gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-BILINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - cx cy bx by) - - (plug-in-nova RUN-NONINTERACTIVE img glow-layer novax novay glow-color novaradius 100 0) - - (gimp-selection-all img) - (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 RUN-NONINTERACTIVE img logo-layer bump-channel - 135.0 45.0 4 0 0 0 0 FALSE FALSE 0) - (gimp-image-remove-channel img bump-channel) - (gimp-selection-none img) - - (gimp-context-pop) - ) -) - -(define (script-fu-starscape-logo text size fontname glow-color) - (let* ( - (img (car (gimp-image-new 256 256 RGB))) - (border (/ size 4)) - (text-layer (car (gimp-text-fontname img -1 0 0 text border - TRUE size PIXELS fontname))) - ) - (gimp-image-undo-disable img) - (apply-starscape-logo-effect img text-layer size glow-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-starscape-logo" - _"Sta_rscape..." - _"Create a logo using a rock-like texture, a nova glow, and shadow" - "Spencer Kimball" - "Spencer Kimball" - "1997" - "" - SF-STRING _"Text" "Nova" - SF-ADJUSTMENT _"Font size (pixels)" '(150 1 1000 1 10 0 1) - SF-FONT _"Font" "Engraver" - SF-COLOR _"Glow color" '(28 65 188) -) - -(script-fu-menu-register "script-fu-starscape-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/swirltile.scm b/plug-ins/script-fu/scripts/swirltile.scm deleted file mode 100644 index d3475f3bbe..0000000000 --- a/plug-ins/script-fu/scripts/swirltile.scm +++ /dev/null @@ -1,69 +0,0 @@ -; -; Swirl-tile -; produces a (hope-fully) seamlessly tiling swirling effect -; -; Adrian Likins -; -; http://www4.ncsu.edu/eos/users/a/aklikins/pub/gimp/ -; - - -(define (script-fu-swirl-tile depth azimuth elevation blurRadius height width whirl-amount noise-level bg-color) - (let* ( - (img (car (gimp-image-new width height RGB))) - (layer-one (car (gimp-layer-new img width height - RGB-IMAGE "TEST" 100 NORMAL-MODE))) - (cx (/ width 2)) - (cy (/ height 2)) - ) - - (gimp-context-push) - - (gimp-image-undo-disable img) - - (gimp-image-insert-layer img layer-one 0 0) - (gimp-context-set-background bg-color) - (gimp-edit-fill layer-one BACKGROUND-FILL) - (plug-in-noisify RUN-NONINTERACTIVE img layer-one FALSE noise-level noise-level noise-level 1.0) - - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - - (gimp-drawable-offset layer-one TRUE 0 cx cy) - - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - (plug-in-whirl-pinch RUN-NONINTERACTIVE img layer-one whirl-amount 0.0 1.0) - - (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one blurRadius TRUE TRUE) - - (plug-in-bump-map RUN-NONINTERACTIVE img layer-one layer-one azimuth elevation depth 0 0 0 0 FALSE FALSE 0) - - (gimp-display-new img) - (gimp-image-undo-enable img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-swirl-tile" - _"Swirl-_Tile..." - _"Create an image filled with a swirled tile effect" - "Adrian Likins " - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Depth" '(10 1 64 1 1 0 0) - SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0) - SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0) - SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0) - SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1) - SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1) - SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0) - SF-ADJUSTMENT _"Roughness" '(0.5 0 1 0.1 0.01 2 1) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-swirl-tile" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/swirly-pattern.scm b/plug-ins/script-fu/scripts/swirly-pattern.scm deleted file mode 100644 index 2ee0550777..0000000000 --- a/plug-ins/script-fu/scripts/swirly-pattern.scm +++ /dev/null @@ -1,94 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Pattern00 --- create a swirly tileable pattern -; 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 3 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, see . - - -(define (script-fu-swirly-pattern qsize angle times) - (define (whirl-it img drawable angle times) - (if (> times 0) - (begin - (plug-in-whirl-pinch RUN-NONINTERACTIVE img drawable angle 0.0 1.0) - (whirl-it img drawable angle (- times 1))))) - - (let* ((hsize (* qsize 2)) - (img-size (* qsize 4)) - (img (car (gimp-image-new img-size img-size RGB))) - (drawable (car (gimp-layer-new img img-size img-size - RGB-IMAGE "Swirly pattern" - 100 NORMAL-MODE)))) - - (gimp-context-push) - (gimp-context-set-feather FALSE) - - (gimp-image-undo-disable img) - (gimp-image-insert-layer img drawable 0 0) - - ; Render checkerboard - - (gimp-context-set-foreground '(0 0 0)) - (gimp-context-set-background '(255 255 255)) - - (plug-in-checkerboard RUN-NONINTERACTIVE img drawable 0 qsize) - - ; Whirl upper left - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 0 hsize hsize) - (whirl-it img drawable angle times) - (gimp-invert drawable) - - ; Whirl upper right - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE hsize 0 hsize hsize) - (whirl-it img drawable (- angle) times) - - ; Whirl lower left - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE 0 hsize hsize hsize) - (whirl-it img drawable (- angle) times) - - ; Whirl lower right - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE hsize hsize hsize hsize) - (whirl-it img drawable angle times) - (gimp-invert drawable) - - ; Terminate - - (gimp-selection-none img) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-swirly-pattern" - _"_Swirly..." - _"Create an image filled with a swirly pattern" - "Federico Mena Quintero" - "Federico Mena Quintero" - "June 1997" - "" - SF-ADJUSTMENT _"Quarter size" '(20 0 2048 1 10 0 1) - SF-ADJUSTMENT _"Whirl angle" '(90 0 360 1 1 0 0) - SF-ADJUSTMENT _"Number of times to whirl" '(4 0 128 1 1 0 1) -) - -(script-fu-menu-register "script-fu-swirly-pattern" - "/File/Create/Patterns") diff --git a/plug-ins/script-fu/scripts/t-o-p-logo.scm b/plug-ins/script-fu/scripts/t-o-p-logo.scm deleted file mode 100644 index 058b02823e..0000000000 --- a/plug-ins/script-fu/scripts/t-o-p-logo.scm +++ /dev/null @@ -1,155 +0,0 @@ -;; Trace of Particles Effect -;; Shuji Narazaki (narazaki@InetQ.or.jp) -;; Time-stamp: <97/03/15 17:27:33 narazaki@InetQ.or.jp> -;; Version 0.2 - -(define (apply-t-o-p-logo-effect img - logo-layer - b-size - hit-rate - edge-size - edge-only - base-color - bg-color) - (let* ( - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (logo-layer-mask (car (gimp-layer-create-mask logo-layer ADD-BLACK-MASK))) - (sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE "Sparkle" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE "Shadow" 90 ADDITION-MODE))) - (bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE))) - (selection 0) - (white '(255 255 255)) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img sparkle-layer shadow-layer bg-layer) - (gimp-selection-none img) - (gimp-edit-clear shadow-layer) - (gimp-edit-clear sparkle-layer) - (gimp-context-set-background base-color) - (gimp-edit-fill sparkle-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (set! selection (car (gimp-selection-save img))) - (gimp-selection-grow img edge-size) - (plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE - (* 0.1 hit-rate) (* 0.1 hit-rate) (* 0.1 hit-rate) 0.0) - (gimp-selection-border img edge-size) - (plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE hit-rate hit-rate hit-rate 0.0) - (gimp-selection-none img) - (plug-in-sparkle RUN-NONINTERACTIVE img sparkle-layer 0.03 0.49 width 6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-shrink img edge-size) - (gimp-levels sparkle-layer 0 0 255 1.2 0 255) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-border img edge-size) - (gimp-levels sparkle-layer 0 0 255 0.5 0 255) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-grow img (/ edge-size 2.0)) - (gimp-selection-invert img) - (gimp-edit-clear sparkle-layer) - (if (= edge-only TRUE) - (begin - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-shrink img (/ edge-size 2.0)) - (gimp-edit-clear sparkle-layer) - (gimp-image-select-item img CHANNEL-OP-REPLACE selection) - (gimp-selection-grow img (/ edge-size 2.0)) - (gimp-selection-invert img))) - (gimp-context-set-foreground '(0 0 0)) - (gimp-context-set-background '(255 255 255)) - (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 bg-color) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - (gimp-item-set-visible logo-layer 0) - (gimp-image-set-active-layer img sparkle-layer) - - (gimp-context-pop) - ) -) - - -(define (script-fu-t-o-p-logo-alpha img - logo-layer - b-size - hit-rate - edge-size - edge-only - base-color - bg-color) - (begin - (gimp-image-undo-group-start img) - (apply-t-o-p-logo-effect img logo-layer b-size hit-rate - edge-size edge-only base-color bg-color) - (gimp-image-undo-group-end img) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-t-o-p-logo-alpha" - _"_Particle Trace..." - _"Add a Trace of Particles effect to the selected region (or alpha)" - "Shuji Narazaki (narazaki@InetQ.or.jp)" - "Shuji Narazaki" - "1997" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Border size (pixels)" '(20 1 200 1 10 0 1) - SF-ADJUSTMENT _"Hit rate" '(0.2 0 1 .01 .01 2 0) - SF-ADJUSTMENT _"Edge width" '(2 0 128 1 1 0 0) - SF-TOGGLE _"Edge only" FALSE - SF-COLOR _"Base color" '(0 40 0) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-t-o-p-logo-alpha" - "/Filters/Alpha to Logo") - - -(define (script-fu-t-o-p-logo text - size - fontname - hit-rate - edge-size - edge-only - base-color - bg-color) - (let* ((img (car (gimp-image-new 256 256 RGB))) - (border (/ size 5)) - (text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS fontname)))) - (gimp-image-undo-disable img) - (apply-t-o-p-logo-effect img text-layer border hit-rate - edge-size edge-only base-color bg-color) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-t-o-p-logo" - _"_Particle Trace..." - _"Create a logo using a Trace Of Particles effect" - "Shuji Narazaki (narazaki@InetQ.or.jp)" - "Shuji Narazaki" - "1997" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(100 1 1000 1 10 0 1) - SF-FONT _"Font" "Becker" - SF-ADJUSTMENT _"Hit rate" '(0.2 0 1 .01 .01 2 0) - SF-ADJUSTMENT _"Edge width" '(2 0 128 1 1 0 0) - SF-TOGGLE _"Edge only" FALSE - SF-COLOR _"Base color" '(0 40 0) - SF-COLOR _"Background color" "white" -) - -(script-fu-menu-register "script-fu-t-o-p-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/text-circle.scm b/plug-ins/script-fu/scripts/text-circle.scm deleted file mode 100644 index c1688ea80a..0000000000 --- a/plug-ins/script-fu/scripts/text-circle.scm +++ /dev/null @@ -1,223 +0,0 @@ -;; text-circle.scm -- a script for GIMP -;; Author: Shuji Narazaki -;; Time-stamp: <1998/11/25 13:26:51 narazaki@gimp.org> -;; Version 2.5 -;; Thanks: -;; jseymour@jimsun.LinxNet.com (Jim Seymour) -;; Sven Neumann -;; -;; Modified June 24, 2005 by Kevin Cozens -;; Incorporated changes made by Daniel P. Stasinski in his text-circle2.scm -;; script. The letters are now placed properly for both positive and negative -;; fill angles. - -(if (not (symbol-bound? 'script-fu-text-circle-debug? (current-environment))) - (define script-fu-text-circle-debug? #f) -) - -(define (script-fu-text-circle text radius start-angle fill-angle - font-size antialias font-name) - - (define (wrap-string str) - (string-append "\"" str "\"") - ) - (define (white-space-string? str) - (or (equal? " " str) (equal? "\t" str)) - ) - - (let* ( - (drawable-size (* 2.0 (+ radius (* 2 font-size)))) - (script-fu-text-circle-debug? #f) - (img (car (gimp-image-new drawable-size drawable-size RGB))) - (BG-layer (car (gimp-layer-new img drawable-size drawable-size - RGBA-IMAGE "background" 100 NORMAL-MODE))) - (merged-layer #f) - (char-num (string-length text)) - (radian-step 0) - (rad-90 (/ *pi* 2)) - (center-x (/ drawable-size 2)) - (center-y center-x) - (font-infos (gimp-text-get-extents-fontname "lAgy" font-size - PIXELS font-name)) - (desc (nth 3 font-infos)) - (start-angle-rad (* (/ (modulo start-angle 360) 360) 2 *pi*)) - (angle-list #f) - (letter "") - (new-layer #f) - (index 0) - (ndx 0) - (ndx-start 0) - (ndx-step 1) - (ccw 0) - (fill-angle-rad 0) - (rot-op 0) - (radian-step 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - (gimp-context-set-antialias antialias) - (gimp-image-undo-disable img) - (gimp-image-insert-layer img BG-layer 0 0) - (gimp-edit-fill BG-layer BACKGROUND-FILL) - - ;; change units - (if (< fill-angle 0) - (begin - (set! ccw 1) - (set! fill-angle (abs fill-angle)) - (set! start-angle-rad (* (/ (modulo (+ (- start-angle fill-angle) 360) 360) 360) 2 *pi*)) - (set! ndx-start (- char-num 1)) - (set! ndx-step -1) - ) - ) - - (set! fill-angle-rad (* (/ fill-angle 360) 2 *pi*)) - (set! radian-step (/ fill-angle-rad char-num)) - - ;; make width-list - ;; In a situation, - ;; (car (gimp-drawable-width (car (gimp-text ...))) - ;; != (car (gimp-text-get-extent ...)) - ;; Thus, I changed to gimp-text from gimp-text-get-extent at 2.2 !! - (let ( - (temp-list '()) - (temp-str #f) - (temp-layer #f) - (scale 0) - (temp #f) - ) - (set! ndx ndx-start) - (set! index 0) - (while (< index char-num) - (set! temp-str (substring text ndx (+ ndx 1))) - (if (white-space-string? temp-str) - (set! temp-str "x") - ) - (set! temp-layer (car (gimp-text-fontname img -1 0 0 - temp-str - 1 antialias - font-size PIXELS - font-name))) - (set! temp-list (cons (car (gimp-drawable-width temp-layer)) temp-list)) - (gimp-image-remove-layer img temp-layer) - (set! ndx (+ ndx ndx-step)) - (set! index (+ index 1)) - ) - (set! angle-list (nreverse temp-list)) - (set! temp 0) - (set! angle-list - (mapcar - (lambda (angle) - (let ((tmp temp)) - (set! temp (+ angle temp)) - (+ tmp (/ angle 2)) - ) - ) - angle-list - ) - ) - (set! scale (/ fill-angle-rad temp)) - (set! angle-list (mapcar (lambda (angle) (* scale angle)) angle-list)) - ) - (set! ndx ndx-start) - (set! index 0) - (while (< index char-num) - (set! letter (substring text ndx (+ ndx 1))) - (if (not (white-space-string? letter)) - ;; Running gimp-text with " " causes an error! - (let* ( - (new-layer (car (gimp-text-fontname img -1 0 0 - letter - 1 antialias - font-size PIXELS - font-name))) - (width (car (gimp-drawable-width new-layer))) - (height (car (gimp-drawable-height new-layer))) - (rotate-radius (- (/ height 2) desc)) - (angle (+ start-angle-rad (- (nth index angle-list) rad-90))) - ) - - (gimp-layer-resize new-layer width height 0 0) - (set! width (car (gimp-drawable-width new-layer))) - (if (not script-fu-text-circle-debug?) - (begin - (if (= ccw 0) - (set! rot-op (if (< 0 fill-angle-rad) + -)) - (set! rot-op (if (> 0 fill-angle-rad) + -)) - ) - (gimp-item-transform-rotate new-layer - (rot-op angle rad-90) - TRUE 0 0) - (gimp-layer-translate new-layer - (+ center-x - (* radius (cos angle)) - (* rotate-radius - (cos (if (< 0 fill-angle-rad) - angle - (+ angle *pi*) - ) - ) - ) - (- (/ width 2)) - ) - (+ center-y - (* radius (sin angle)) - (* rotate-radius - (sin (if (< 0 fill-angle-rad) - angle - (+ angle *pi*) - ) - ) - ) - (- (/ height 2)) - ) - ) - ) - ) - ) - ) - (set! ndx (+ ndx ndx-step)) - (set! index (+ index 1)) - ) - - (gimp-item-set-visible BG-layer 0) - (if (not script-fu-text-circle-debug?) - (begin - (set! merged-layer - (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE))) - (gimp-item-set-name merged-layer - (if (< (string-length text) 16) - (wrap-string text) - "Text Circle" - ) - ) - ) - ) - (gimp-item-set-visible BG-layer 1) - (gimp-image-undo-enable img) - (gimp-image-clean-all img) - (gimp-display-new img) - (gimp-context-pop) - (gimp-displays-flush) - ) -) - -(script-fu-register "script-fu-text-circle" - _"Text C_ircle..." - _"Create a logo by rendering the specified text along the perimeter of a circle" - "Shuji Narazaki " - "Shuji Narazaki" - "1997-1998" - "" - SF-STRING _"Text" "The GNU Image Manipulation Program Version 2.0 " - SF-ADJUSTMENT _"Radius" '(80 1 8000 1 1 0 1) - SF-ADJUSTMENT _"Start angle" '(0 -180 180 1 1 0 1) - SF-ADJUSTMENT _"Fill angle" '(360 -360 360 1 1 0 1) - SF-ADJUSTMENT _"Font size (pixels)" '(18 1 1000 1 1 0 1) - SF-TOGGLE _"Antialias" TRUE - SF-FONT _"Font" "Sans" -) - -(script-fu-menu-register "script-fu-text-circle" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/textured-logo.scm b/plug-ins/script-fu/scripts/textured-logo.scm deleted file mode 100644 index d6ff45c741..0000000000 --- a/plug-ins/script-fu/scripts/textured-logo.scm +++ /dev/null @@ -1,180 +0,0 @@ -; BLENDED-DROP-SHADOW-LOGO -; draw the specified text over a blended background using current gimp fg -; and bg colors. The finished blend has a drop shadow underneath that blends -; to the specified bg-color -; if the blend colors are specified as high intensity, the sharp option -; should be enabled or the logo will come out blurry - -(define (scale size percent) (* size percent)) - -(define (apply-textured-logo-effect img - logo-layer - b-size - text-pattern - tile-type - bg-color - blend-fg - blend-bg) - (let* ( - (b-size-2 (scale b-size 0.5)) - (f-size (scale b-size 0.75)) - (ds-size (scale b-size 0.5)) - (ts-size (- b-size-2 3)) - (width (car (gimp-drawable-width logo-layer))) - (height (car (gimp-drawable-height logo-layer))) - (blend-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Blend" 100 NORMAL-MODE))) - (shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Shadow" 100 NORMAL-MODE))) - (text-shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Text Shadow" 100 MULTIPLY-MODE))) - (tsl-layer-mask (car (gimp-layer-create-mask text-shadow-layer - ADD-BLACK-MASK))) - (drop-shadow-layer (car (gimp-layer-new img width height RGBA-IMAGE - "Drop Shadow" 100 MULTIPLY-MODE))) - (dsl-layer-mask (car (gimp-layer-create-mask drop-shadow-layer - ADD-BLACK-MASK))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (script-fu-util-image-resize-from-layer img logo-layer) - (script-fu-util-image-add-layers img text-shadow-layer drop-shadow-layer blend-layer shadow-layer) - (gimp-image-raise-item img text-shadow-layer) - (gimp-selection-all img) - (gimp-context-set-pattern text-pattern) - (gimp-layer-set-lock-alpha logo-layer TRUE) - (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) - (gimp-context-set-background bg-color) - (gimp-drawable-fill shadow-layer BACKGROUND-FILL) - (gimp-context-set-feather-radius b-size-2 b-size-2) - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE b-size-2 b-size-2 (- width b-size) (- height b-size)) - (gimp-context-set-feather FALSE) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill shadow-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer) - (gimp-layer-add-mask text-shadow-layer tsl-layer-mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill tsl-layer-mask BACKGROUND-FILL) - (gimp-selection-feather img f-size) - (gimp-context-set-background '(63 63 63)) - (gimp-edit-fill drop-shadow-layer BACKGROUND-FILL) - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill text-shadow-layer BACKGROUND-FILL) - (gimp-context-set-foreground '(255 255 255)) - - (gimp-edit-blend text-shadow-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-SHAPEBURST-ANGULAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 1 1) - - (gimp-selection-none img) - (gimp-context-set-foreground blend-fg) - (gimp-context-set-background blend-bg) - - (gimp-edit-blend blend-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0 0 TRUE - 0 0 width 0) - - (plug-in-mosaic RUN-NONINTERACTIVE img blend-layer 12 1 1 0.7 TRUE 135 0.2 TRUE FALSE - tile-type 1 0) - - (gimp-layer-translate logo-layer (- b-size-2) (- b-size-2)) - (gimp-layer-translate blend-layer (- b-size) (- b-size)) - (gimp-layer-translate text-shadow-layer (- ts-size) (- ts-size)) - (gimp-layer-translate drop-shadow-layer ds-size ds-size) - (gimp-image-select-item img CHANNEL-OP-REPLACE blend-layer) - (gimp-layer-add-mask drop-shadow-layer dsl-layer-mask) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill dsl-layer-mask BACKGROUND-FILL) - (gimp-layer-remove-mask drop-shadow-layer MASK-APPLY) - (gimp-selection-none img) - - (gimp-context-pop) - ) -) - -(define (script-fu-textured-logo-alpha img - logo-layer - b-size - text-pattern - tile-type - bg-color - blend-fg - blend-bg) - (begin - (gimp-image-undo-group-start img) - (apply-textured-logo-effect img logo-layer b-size text-pattern tile-type - bg-color blend-fg blend-bg) - (gimp-image-undo-group-end img) - (gimp-displays-flush)) -) - -(script-fu-register "script-fu-textured-logo-alpha" - _"_Textured..." - _"Fill the selected region (or alpha) with a texture and add highlights, shadows, and a mosaic background" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "RGBA" - SF-IMAGE "Image" 0 - SF-DRAWABLE "Drawable" 0 - SF-ADJUSTMENT _"Border size (pixels)" '(20 1 100 1 10 0 1) - SF-PATTERN _"Pattern" "Fibers" - SF-OPTION _"Mosaic tile type" '(_"Squares" - _"Hexagons" - _"Octagons") - SF-COLOR _"Background color" "white" - SF-COLOR _"Starting blend" '(32 106 0) - SF-COLOR _"Ending blend" '(0 0 106) -) - -(script-fu-menu-register "script-fu-textured-logo-alpha" - "/Filters/Alpha to Logo") - -(define (script-fu-textured-logo text - size - fontname - text-pattern - tile-type - bg-color - blend-fg - blend-bg) - (let* ((img (car (gimp-image-new 256 256 RGB))) - (b-size (scale size 0.1)) - (text-layer (car (gimp-text-fontname img -1 0 0 text b-size - TRUE size PIXELS fontname)))) - (gimp-image-undo-disable img) - (apply-textured-logo-effect img text-layer b-size text-pattern tile-type - bg-color blend-fg blend-bg) - (gimp-image-undo-enable img) - (gimp-display-new img) - ) -) - -(script-fu-register "script-fu-textured-logo" - _"_Textured..." - _"Create a textured logo with highlights, shadows, and a mosaic background" - "Spencer Kimball" - "Spencer Kimball" - "1996" - "" - SF-STRING _"Text" "GIMP" - SF-ADJUSTMENT _"Font size (pixels)" '(200 1 1000 1 10 0 1) - SF-FONT _"Font" "CuneiFont" - SF-PATTERN _"Text pattern" "Fibers" - SF-OPTION _"Mosaic tile type" '(_"Squares" - _"Hexagons" - _"Octagons") - SF-COLOR _"Background color" "white" - SF-COLOR _"Starting blend" '(32 106 0) - SF-COLOR _"Ending blend" '(0 0 106) -) - -(script-fu-menu-register "script-fu-textured-logo" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/title-header.scm b/plug-ins/script-fu/scripts/title-header.scm deleted file mode 100644 index cca47f1b14..0000000000 --- a/plug-ins/script-fu/scripts/title-header.scm +++ /dev/null @@ -1,178 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; Bump-mapped title script --- create a bump-mapped title image for web pages -; Copyright (C) 1997 Federico Mena Quintero -; federico@nuclecu.unam.mx -; ************************************************************************ -; Changed on Feb 4, 1999 by Piet van Oostrum -; For use with GIMP 1.1. -; -; The corresponding parameters have been replaced by an SF-FONT parameter. -; The call to gimp-context-set-background has been given a real layer -; (although it is not used) otherwise gimp 1.1 crashed. -; ************************************************************************ -; -; 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 3 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, see . - - -(define (script-fu-title-header text - size - fontname - gradient-reverse) - (let* (; Parameters - - (padding 8) - (fade-width 64) - - ; Image - - (img (car (gimp-image-new 256 256 RGB))) - - ; Text layer - - (text-layer (car (gimp-text-fontname - img - -1 - 0 - 0 - text - padding - TRUE - size - PIXELS - fontname))) - (text-width (car (gimp-drawable-width text-layer))) - (text-height (car (gimp-drawable-height text-layer))) - - ; Sizes - - (text-layers-offset (/ text-height 2)) - - (img-width (+ text-layers-offset text-width fade-width)) - (img-height text-height) - - ; Additional layers - - (bg-layer (car (gimp-layer-new img img-width img-height RGBA-IMAGE - "bg-layer" 100 NORMAL-MODE))) - (bumpmap-layer (car (gimp-layer-new img - text-width - text-height - RGBA-IMAGE - "bumpmap-layer" - 100 - NORMAL-MODE))) - (fore-layer (car (gimp-layer-new img text-width text-height RGBA-IMAGE - "fore-layer" 100 NORMAL-MODE))) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - ; Create image - - (gimp-image-undo-disable img) - (gimp-image-resize img img-width img-height 0 0) - - (gimp-image-insert-layer img bg-layer 0 -1) - (gimp-image-insert-layer img bumpmap-layer 0 -1) - (gimp-image-insert-layer img fore-layer 0 -1) -; (gimp-image-insert-layer img text-layer 0 -1) - (gimp-image-raise-item img text-layer) - (gimp-image-raise-item img text-layer) - (gimp-image-raise-item img text-layer) - (gimp-layer-set-offsets bg-layer 0 0) - (gimp-layer-set-offsets text-layer text-layers-offset 0) - (gimp-layer-set-offsets bumpmap-layer text-layers-offset 0) - (gimp-layer-set-offsets fore-layer text-layers-offset 0) - - ; Create bumpmap layer - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bumpmap-layer BACKGROUND-FILL) - (gimp-image-select-item img CHANNEL-OP-REPLACE text-layer) - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill bumpmap-layer BACKGROUND-FILL) - (gimp-selection-none img) - (plug-in-gauss-rle RUN-NONINTERACTIVE img bumpmap-layer 4.0 TRUE TRUE) - - ; Fore layer, bumpmap - - (gimp-context-set-background '(255 255 255)) - (gimp-edit-fill fore-layer BACKGROUND-FILL) - (plug-in-bump-map RUN-NONINTERACTIVE img fore-layer bumpmap-layer 135.0 45.0 4 0 0 0 0 FALSE FALSE 0) - - ; Text layer - - (gimp-item-set-visible text-layer TRUE) - (gimp-layer-set-lock-alpha text-layer TRUE) - - (gimp-edit-blend text-layer CUSTOM-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE gradient-reverse - FALSE 0.2 3 TRUE - padding padding - (- text-width padding 1) (- text-height padding 1)) - - ; Semicircle at the left - - (gimp-context-set-background '(0 0 0)) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - (gimp-image-select-ellipse img CHANNEL-OP-REPLACE 0 0 text-height text-height) - (gimp-context-set-background (car (gimp-image-pick-color img text-layer - text-layers-offset 0 - TRUE FALSE 0))) - (gimp-edit-fill bg-layer BACKGROUND-FILL) - - ; Fade-out gradient at the right - - (gimp-image-select-rectangle img CHANNEL-OP-REPLACE - (- img-width fade-width) 0 - fade-width text-height) - (gimp-context-set-foreground (car (gimp-context-get-background))) - (gimp-context-set-background '(0 0 0)) - - (gimp-edit-blend bg-layer FG-BG-RGB-MODE NORMAL-MODE - GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE - FALSE 0.2 3 TRUE - (- img-width fade-width) 0 (- img-width 1) 0) - - (gimp-selection-none img) - - ; Done - -; (gimp-image-flatten img) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-title-header" - _"Web Title Header..." - _"Create a decorative web title header" - "Federico Mena Quintero" - "Federico Mena Quintero" - "June 1997" - "" - SF-STRING _"Text" "Hello world!" - SF-ADJUSTMENT _"Font size (pixels)" '(32 2 256 1 10 0 0) - SF-FONT _"Font" "Sans" - SF-TOGGLE _"Gradient reverse" FALSE -) - -(script-fu-menu-register "script-fu-title-header" - "/File/Create/Logos") diff --git a/plug-ins/script-fu/scripts/truchet.scm b/plug-ins/script-fu/scripts/truchet.scm deleted file mode 100644 index 312eb165a1..0000000000 --- a/plug-ins/script-fu/scripts/truchet.scm +++ /dev/null @@ -1,180 +0,0 @@ -; GIMP - The GNU Image Manipulation Program -; Copyright (C) 1995 Spencer Kimball and Peter Mattis -; -; 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 3 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, see . -; -; Truchet - a script to create Truchet patterns -; by Adrian Likins -; http://www4.ncsu.edu/~aklikins/ -; version about .8 give or take -; -; Lots of thanks to Quartic for his help. -; -; -; The utility of this script is left as an exercise for the reader. -; -; NOTE: This script works best with even values for 'thickness'. - -(define (center-ellipse img cx cy rx ry op aa feather frad) - (gimp-context-push) - (gimp-context-set-antialias aa) - (gimp-context-set-feather feather) - (gimp-context-set-feather-radius frad frad) - (gimp-image-select-ellipse img op (- cx rx) (- cy ry) (+ rx rx ) (+ ry ry )) - (gimp-context-pop) -) - -(define (use-tiles img drawable height width img2 drawable2 xoffset yoffset) - (gimp-edit-copy drawable2) - (let ((floating-sel (car (gimp-edit-paste drawable FALSE)))) - (gimp-layer-set-offsets floating-sel xoffset yoffset) - (gimp-floating-sel-anchor floating-sel) - ) -) - - -(define (create-tiles img drawable1 drawable2 size thickness backcolor forecolor) - (let* ( - (half-thickness (/ thickness 2)) - (outer-radius (+ (/ size 2) half-thickness)) - (inner-radius (- (/ size 2) half-thickness)) - ) - - (gimp-context-push) - - (gimp-selection-all img) - (gimp-context-set-background backcolor) - (gimp-edit-fill drawable1 BACKGROUND-FILL) - - (let* ( - (tempSize (* size 3)) - (temp-img (car (gimp-image-new tempSize tempSize RGB))) - (temp-draw (car (gimp-layer-new temp-img tempSize tempSize RGB-IMAGE "Jabar" 100 NORMAL-MODE))) - ) - (gimp-image-undo-disable temp-img) - (gimp-image-insert-layer temp-img temp-draw 0 0) - (gimp-context-set-background backcolor) - (gimp-edit-fill temp-draw BACKGROUND-FILL) - - - (center-ellipse temp-img size size outer-radius outer-radius CHANNEL-OP-REPLACE TRUE FALSE 0) - (center-ellipse temp-img size size inner-radius inner-radius CHANNEL-OP-SUBTRACT TRUE FALSE 0) - - (center-ellipse temp-img (* size 2) (* size 2) outer-radius outer-radius CHANNEL-OP-ADD TRUE FALSE 0) - (center-ellipse temp-img (* size 2) (* size 2) inner-radius inner-radius CHANNEL-OP-SUBTRACT TRUE FALSE 0) - (gimp-context-set-background forecolor) - (gimp-edit-fill temp-draw BACKGROUND-FILL) - - (gimp-selection-none temp-img) - - (gimp-image-resize temp-img size size (- size) (- size)) - ; woo hoo it works....finally... - - - (gimp-selection-all temp-img) - (gimp-edit-copy temp-draw) - (let ((floating-sel (car (gimp-edit-paste drawable2 FALSE)))) - (gimp-floating-sel-anchor floating-sel)) - - - (let ((floating-sel (car (gimp-edit-paste drawable1 FALSE)))) - (gimp-floating-sel-anchor floating-sel)) - - (gimp-context-set-transform-resize TRANSFORM-RESIZE-CLIP) - (let ((drawble (car (gimp-item-transform-flip-simple drawable1 - ORIENTATION-VERTICAL TRUE 0))))) - - - ;(gimp-display-new temp-img) - (gimp-image-delete temp-img) - (gimp-context-pop) - ) - ) -) - - -(define (script-fu-truchet size thickness backcolor forecolor xtiles ytiles) - (let* ( - (width (* size xtiles)) - (height (* size ytiles)) - (img (car (gimp-image-new width height RGB))) - (tile (car (gimp-image-new size size RGB))) - (layer-one (car (gimp-layer-new img width height - RGB-IMAGE "Rambis" 100 NORMAL-MODE))) - (tiledraw1 (car (gimp-layer-new tile size size - RGB-IMAGE "Johnson" 100 NORMAL-MODE))) - (tiledraw2 (car (gimp-layer-new tile size size - RGB-IMAGE "Cooper" 100 NORMAL-MODE))) - (Xindex 0) - (Yindex 0) - ) - - (gimp-context-push) - (gimp-context-set-defaults) - - (gimp-image-undo-disable img) - (gimp-image-undo-disable tile) - - (gimp-image-insert-layer img layer-one 0 0) - (gimp-image-insert-layer tile tiledraw1 0 0) - (gimp-image-insert-layer tile tiledraw2 0 0) - - - ;just to look a little better - (gimp-selection-all img) - (gimp-context-set-background backcolor) - (gimp-edit-fill layer-one BACKGROUND-FILL) - (gimp-selection-none img) - - (create-tiles tile tiledraw1 tiledraw2 size thickness backcolor forecolor) - - - (while (<= Xindex xtiles) - (while (<= Yindex ytiles) - (if (= (rand 2) 0) - (use-tiles img layer-one height width tile tiledraw1 (* Xindex size) (* Yindex size)) - (use-tiles img layer-one height width tile tiledraw2 (* Xindex size) (* Yindex size)) - ) - (set! Yindex (+ Yindex 1)) - ) - (set! Yindex 0) - (set! Xindex (+ Xindex 1)) - ) - - - (gimp-image-delete tile) - (gimp-image-undo-enable img) - (gimp-display-new img) - - (gimp-context-pop) - ) -) - -(script-fu-register "script-fu-truchet" - _"T_ruchet..." - _"Create an image filled with a Truchet pattern" - "Adrian Likins " - "Adrian Likins" - "1997" - "" - SF-ADJUSTMENT _"Block size" '(32 2 512 1 10 1 1) - SF-ADJUSTMENT _"Thickness" '(2 1 512 1 10 1 1) - SF-COLOR _"Background color" "white" - SF-COLOR _"Foreground color" "black" - SF-ADJUSTMENT _"Number of X tiles" '(5 1 512 1 10 1 1) - SF-ADJUSTMENT _"Number of Y tiles" '(5 1 512 1 10 1 1) -) - -(script-fu-menu-register "script-fu-truchet" - "/File/Create/Patterns")