Commit 16a8573a authored by Kevin Cozens's avatar Kevin Cozens Committed by Kevin Cozens

From various changes made to Script-Fu in GIMP

2007-01-11  Kevin Cozens  <kcozens@cvs.gnome.org>

	From various changes made to Script-Fu in GIMP

	* tinyscheme/scheme.c: Don't include malloc.h file. Fixes bug #391195.

	* scripts/Makefile.am
	* scripts/difference-clouds.scm: Added new script "Difference Clouds"
	written by Martin Nordholts (bug #363458).

	* scripts/drop-shadow.scm: Removed hyphen from menu entry and
	description.

	* scripts/old-photo.scm: Fixed crash when Mottle option is selected
	(mLayer was incorrectly declared).

	* scripts/*.scm: Changed "The GIMP" to just "GIMP" in headers.

svn path=/trunk/; revision=345
parent aec299e2
2007-01-11 Kevin Cozens <kcozens@cvs.gnome.org>
From various changes made to Script-Fu in GIMP
* tinyscheme/scheme.c: Don't include malloc.h file. Fixes bug #391195.
* scripts/Makefile.am
* scripts/difference-clouds.scm: Added new script "Difference Clouds"
written by Martin Nordholts (bug #363458).
* scripts/drop-shadow.scm: Removed hyphen from menu entry and
description.
* scripts/old-photo.scm: Fixed crash when Mottle option is selected
(mLayer was incorrectly declared).
* scripts/*.scm: Changed "The GIMP" to just "GIMP" in headers.
2006-12-15 Kevin Cozens <kcozens@cvs.gnome.org>
* scripts/burn-in-anim.scm: Don't allow one of the two layers to be a
......
; 3d-outlined-patterned-shadowed-and-bump-mapped-logo :)
; creates outlined border of a text with patterns
;
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; 3d-outline creates outlined border of a text with patterns
......
; The GIMP -- an image manipulation program
; 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
......
......@@ -44,6 +44,7 @@ scripts = \
coolmetal-logo.scm \
copy-visible.scm \
crystal-logo.scm \
difference-clouds.scm \
distress-selection.scm \
drop-shadow.scm \
erase-rows.scm \
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; add-bevel.scm version 1.04
......@@ -74,7 +74,6 @@
"Bumpmap"
100
NORMAL-MODE)))
(bevelling-whole-image)
(select)
)
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Alien Glow themed arrows for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Alien Glow themed hrule for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Alien Glow themed bullets for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Alien Glow themed button
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; alien-neon-logo.scm - creates multiple outlines around the letters
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Button00 --- create a simple beveled Web button
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Beveled pattern arrow for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Beveled pattern bullet for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Beveled pattern button for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Beveled pattern heading for web pages
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Beveled pattern hrule for web pages
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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.
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Circuit board effect
......
; The GIMP -- an image manipulation program
; 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
......
; "Contact Sheet" v1.1 September 2, 2004
; by Kevin Cozens <kcozens@interlog.com>
;
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; "Copy Visible" -- copy the visible selection so that it can be pasted easily
......
; Plugin for the GNU Image Manipulation Program
; Copyright (C) 2006 Martin Nordholts
;
; This program is free software; you can redistribute it and/or modify
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; Renders Difference Clouds onto a layer, i.e. solid noise merged down with the
; Difference Mode
;
(define (script-fu-difference-clouds image
drawable)
(let* ((draw-offset-x (car (gimp-drawable-offsets drawable)))
(draw-offset-y (cadr (gimp-drawable-offsets drawable)))
(has-sel (car (gimp-drawable-mask-intersect drawable)))
(sel-offset-x (cadr (gimp-drawable-mask-intersect drawable)))
(sel-offset-y (caddr (gimp-drawable-mask-intersect drawable)))
(width (cadddr (gimp-drawable-mask-intersect drawable)))
(height (caddr (cddr (gimp-drawable-mask-intersect drawable))))
(type (car (gimp-drawable-type-with-alpha drawable)))
(diff-clouds (car (gimp-layer-new image width height type
"Clouds" 100 DIFFERENCE-MODE)))
(offset-x 0)
(offset-y 0)
)
(gimp-image-undo-group-start image)
; Add the cloud layer above the current layer
(gimp-image-add-layer image diff-clouds -1)
; Clear the layer (so there are no noise in it)
(gimp-drawable-fill diff-clouds TRANSPARENT-FILL)
; Selections are relative to the drawable; adjust the final offset
(set! offset-x (+ draw-offset-x sel-offset-x))
(set! offset-y (+ draw-offset-y sel-offset-y))
; Offset the clouds layer
(if (gimp-drawable-is-layer drawable)
(gimp-layer-translate diff-clouds offset-x offset-y))
; Show the solid noise dialog
(plug-in-solid-noise 0 image diff-clouds 0 0 0 1 4.0 4.0)
; Merge the clouds layer with the layer below
(gimp-image-merge-down image diff-clouds EXPAND-AS-NECESSARY)
(gimp-image-undo-group-end image)
)
)
(script-fu-register "script-fu-difference-clouds"
_"Difference Clouds..."
_"Solid noise applied with Difference layer mode"
"Martin Nordholts <enselic@hotmail.com>"
"Martin Nordholts"
"2006/10/25"
"RGB* GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0)
(script-fu-menu-register "script-fu-difference-clouds"
"<Image>/Filters/Render/Clouds")
; The GIMP -- an image manipulation program
; 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
......@@ -124,7 +124,7 @@
shadow-width
shadow-height
type
"Drop-Shadow"
"Drop Shadow"
shadow-opacity
NORMAL-MODE)))
(gimp-image-add-layer image shadow-layer -1)
......@@ -165,8 +165,8 @@
)
(script-fu-register "script-fu-drop-shadow"
_"_Drop-Shadow..."
_"Add a drop-shadow to the selected region (or alpha)"
_"_Drop Shadow..."
_"Add a drop shadow to the selected region (or alpha)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"1999/12/21"
......
......@@ -17,7 +17,7 @@
; it to the layer
;
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; FlatLand - creates a tileable pattern that looks like a map
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; www.gimp.org web headers
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; www.gimp.org web labels
......
......@@ -2,7 +2,7 @@
; creates anything you can create with it :)
; (use it wisely, use it in peace...)
;
; The GIMP -- an image manipulation program
; 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?)
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Gradient example script --- create an example image of a custom gradient
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Land --- create a pattern that resembles a Topographic map
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Lava effect
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Make-Brush - a script for the script-fu program
......
......@@ -57,9 +57,11 @@
(set! theWidth (car (gimp-image-width theImage)))
(set! theHeight (car (gimp-image-height theImage)))
(if (= inMottle TRUE)
(begin (set! mLayer (car (gimp-layer-new theImage theWidth theHeight
RGBA-IMAGE "Mottle"
100 DARKEN-ONLY-MODE)))
(let (
(mLayer (car (gimp-layer-new theImage theWidth theHeight
RGBA-IMAGE "Mottle"
100 DARKEN-ONLY-MODE)))
)
(gimp-image-add-layer theImage mLayer 0)
(gimp-selection-all theImage)
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; script-fu-paste-as-brush
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; script-fu-paste-as-pattern
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Predator effect
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Round Button --- create a round beveled Web button.
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Selection-to-brush
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Selection to Image
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Based on select-to-brush by
......
;; selection-rounded-rectangle.scm -*-scheme-*-
;; The GIMP -- an image manipulation program
;; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Pattern00 --- create a swirly tileable pattern
......
......@@ -6,7 +6,7 @@
; returns an INT8ARRAY containing the colours from a specified palette.
; This array can be used as the cmap argument for gimp-image-set-cmap.
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
......@@ -5,7 +5,7 @@
; This was the first TinyScheme based script ever created and run for the
; 2.x version of the GIMP.
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; 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
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Weave script --- make an image look as if it were woven
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; gimp-online.scm
......
; The GIMP -- an image manipulation program
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; xach effect script
......
......@@ -74,9 +74,6 @@
#include <string.h>
#include <stdlib.h>
#ifndef __APPLE__
# include <malloc.h>
#endif
#define stricmp utf8_stricmp
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment