;
;GIMP script-fu. Creates a child coloring image.
;Copyright (C) 2006  Olivier Azeau
;
;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., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
;

(define (script-fu-create-basic-child-coloring img drawable)
	(plug-in-sobel 1 img drawable TRUE TRUE TRUE)
	(plug-in-vinvert 1 img drawable)
	(car (plug-in-decompose 1 img drawable "Value" TRUE))
)

(define (script-fu-child-coloring img drawable)
	(let*
		(
			(newimage (script-fu-create-basic-child-coloring img drawable))
		)
		(gimp-display-new newimage)
	)
)

(script-fu-register "script-fu-child-coloring"
		    _"<Image>/Script-Fu/Azeau.com/Coloriage pour enfants"
		    "Coloriage pour enfants depuis l'image courante"
		    "Olivier Azeau <gimp@azeau.com>"
		    "Olivier Azeau"
		    "2006"
		    "RGB* GRAY*"
        SF-IMAGE      "The Image"     0
        SF-DRAWABLE   "The Layer"     0
)