callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Moved the MIN and MAX entries for image size and resolution to

Browse Source 
2006-10-20  Kevin Cozens  <kcozens@cvs.gnome.org>

	* plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries
	for image size and resolution to script_constants structureas they
	are not deprecated constants.

	* plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings.

	* plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that
	snuck in during the last big update of the scripts. This update
	reduces the number of differences to the original scripts (other than
	formatting). Some additional formatting changes in a few scripts.
	Updates to use colour names in register block where possible. Fixed a
	bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified
	the bug fix in tile-blur.scm.
This commit is contained in:
Kevin Cozens
2006-10-20 17:55:14 +00:00
committed by Kevin Cozens
parent 3cda6f2610
commit 590c4d0b9f
84 changed files with 1281 additions and 1221 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
plug-ins/script-fu/scripts/erase-rows.scm
View File

@ -2,8 +2,8 @@
(let* (
(width (car (gimp-drawable-width drawable)))
(height (car (gimp-drawable-height drawable)))
(x (car (gimp-drawable-offsets drawable)))
(y (cadr (gimp-drawable-offsets drawable)))
(position-x (car (gimp-drawable-offsets drawable)))
(position-y (cadr (gimp-drawable-offsets drawable)))
)
(gimp-image-undo-group-start img)
@ -11,8 +11,8 @@
(if (< i max)
(begin
(if (= orientation 0)
(gimp-rect-select img x (+ i y) width 1 CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img (+ i x) y 1 height CHANNEL-OP-REPLACE FALSE 0))
(gimp-rect-select img position-x (+ i position-y) width 1 CHANNEL-OP-REPLACE FALSE 0)
(gimp-rect-select img (+ i position-x) position-y 1 height CHANNEL-OP-REPLACE FALSE 0))
(if (= type 0)
(gimp-edit-clear drawable)
(gimp-edit-fill drawable BACKGROUND-FILL))
@ -32,7 +32,7 @@
)
(script-fu-register "script-fu-erase-rows"
_"_Erase every other Row..."
_"_Erase Every Other Row..."
_"Erase every other row/column of pixels of the active drawable"
"Federico Mena Quintero"
"Federico Mena Quintero"