Commit eb2b9f2b authored by Sven Neumann's avatar Sven Neumann
Browse files

Fixed some cut'n'paste errors and updated slide.scm.


--Sven
parent 86888c64
Tue May 11 22:32:22 MEST 1999 Sven Neumann <sven@gimp.org>
* tools/pdbgen/pdb/color.pdb
* app/color_cmds.c: fixed some cut'n'paste errors
* plug-ins/script-fu/scrips/slide.scm: do the rotation correctly
Tue May 11 11:43:36 MEST 1999 Sven Neumann <sven@gimp.org>
* modules/colorsel_water.c: small change not worth a ChangeLog entry
......
......@@ -799,7 +799,7 @@ color_balance_invoker (Argument *args)
if (success)
{
if (! gimp_drawable_indexed (drawable))
if (gimp_drawable_indexed (drawable))
success = FALSE;
else
{
......@@ -1089,7 +1089,7 @@ hue_saturation_invoker (Argument *args)
if (success)
{
if (! gimp_drawable_indexed (drawable))
if (gimp_drawable_indexed (drawable))
success = FALSE;
else
{
......@@ -1197,7 +1197,7 @@ threshold_invoker (Argument *args)
if (success)
{
if (! gimp_drawable_indexed (drawable) || (low_threshold >= high_threshold))
if (gimp_drawable_indexed (drawable) || (low_threshold >= high_threshold))
success = FALSE;
else
{
......
......@@ -16,12 +16,14 @@
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
;
; slide.scm version 0.30 12/13/97
; slide.scm version 0.40 99/5/11
;
; CHANGE-LOG:
; 0.20 - first public release
; 0.30 - some code cleanup
; now uses the rotate plug-in to improve speed
; 0.40 - changes to work with gimp-1.1
; if the image was rotated, rotate the whole thing back when finished
;
; !still in development!
; TODO: - change the script so that the film is rotated, not the image
......@@ -29,7 +31,7 @@
; - make 'add background' an option
; - ?
;
; Copyright (C) 1997 Sven Neumann (neumanns@uni-duesseldorf.de)
; Copyright (C) 1997,1999 Sven Neumann (neumanns@uni-duesseldorf.de)
;
; makes your picture look like a slide
;
......@@ -199,12 +201,21 @@
(gimp-threshold film-mask 127 255)
(gimp-image-add-layer image film-layer -1)
(gimp-image-add-layer-mask image film-layer film-mask))
(gimp-image-add-layer-mask image film-layer film-mask)
(gimp-image-remove-layer-mask image film-layer APPLY))
; reorder the layers
(gimp-image-raise-layer image pic-layer)
(gimp-image-raise-layer image pic-layer)
; eventually rotate the whole thing back
(if (< ratio 1)
(plug-in-rotate 1
image
pic-layer
3
TRUE))
; clean up after the script
(gimp-selection-none image)
(gimp-palette-set-background old-bg)
......@@ -216,9 +227,9 @@
(script-fu-register "script-fu-slide"
"<Image>/Script-Fu/Decor/Slide"
"Gives the image the look of a slide"
"Sven Neumann (neumanns@uni-duesseldorf.de)"
"Sven Neumann <sven@gimp.org>"
"Sven Neumann"
"12/13/1997"
"1999/5/11"
"RGB GRAY"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
......
......@@ -496,7 +496,7 @@ HELP
'PixelRegion srcPR, destPR', 'int x1, y1, x2, y2' ],
code => <<'CODE'
{
if (! gimp_drawable_indexed (drawable))
if (gimp_drawable_indexed (drawable))
success = FALSE;
else
{
......@@ -670,7 +670,7 @@ HELP
'PixelRegion srcPR, destPR', 'int x1, y1, x2, y2' ],
code => <<'CODE'
{
if (! gimp_drawable_indexed (drawable))
if (gimp_drawable_indexed (drawable))
success = FALSE;
else
{
......@@ -732,7 +732,7 @@ HELP
'PixelRegion srcPR, destPR' ],
code => <<'CODE'
{
if (! gimp_drawable_indexed (drawable) || (low_threshold >= high_threshold))
if (gimp_drawable_indexed (drawable) || (low_threshold >= high_threshold))
success = FALSE;
else
{
......
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