; Début script-fu dessin_peinture_avec_gmic.scm
;
; Accès sur l'image par : Filtres > Artistique > Dessin, peinture avec G'MIC...
;
; Script de démonstration.
;
; Exemple d'utilisation du greffon G'MIC avec une commande multiple
;
; version 1.0 du 20 décembre 2010
; version 1.01 2010-23-12 forcer le mode rvb (version boguée)
; version 1.02 2010-23-12 tester et forcer le mode rvb
;
; licence GPL
;
; Images de Test
; http://www.flickr.com/photos/nabok/2421643830/  Margot, par Nabok. Cette photo a été prise le 5 novembre 2008 avec une Nikon Coolpix P5100. Licence CC by-nc-sa (visage)
; http://www.flickr.com/photos/db2r/3423820420/ Par db2r. Cette photo a été prise le 4 avril 2009. Licence CC by-sa (visage)
; http://www.flickr.com/photos/40188017@N07/3695913878/ Par Mickael Imma. Cette photo a été prise le 25 mai 2008 avec un Nikon D70s. Licence CC by-nc-sa (visage)
; http://www.flickr.com/photos/steve_nordby/2608718227/ Par Steve Nordby. Cette photo a été prise le 23 juin 2008 avec un Nikon D40X. Licence CC by-nc (racoon)
; http://www.flickr.com/photos/ppym1/543945045/ Par Prescott Pym. Cette photo a été prise le 10 juin 2007 avec un Canon EOS 350D Digital. Licence CC by-nc (parrot)
; http://wallpapers-diq.net/fr_15_~_Cat_Nap,_Leopard,_Africa.html  (desktop background)
; http://wallpapers-diq.net/fr_63_~_Chateau_De_Pierrefonds,_France.html  (desktop background)
; http://wallpapers-diq.net/fr_84_~_Bob_Marley,_Legend.html  (desktop background)
; http://wallpapers-diq.net/fr_15_~_Bared_Teeth,_Grey_Wolf.html (desktop background)
; http://wallpapers-diq.net/fr_78_~_Emmanuelle_Beart_.html  (desktop background)
; 
; 
;
;
;

(define 
	(
		dessin_peinture_avec_gmic
		img
		drawable
		nettete
		detail
		gris
		messages
	)

	;; début groupe undo
	(gimp-undo-push-group-start img)

	; passer en rvb si couleurs indexées
	(if 
		(= (car (gimp-drawable-is-indexed drawable)) TRUE)	
			;; convertir en rvb
			(gimp-image-convert-rgb img)
	)

	; passer en rvb si couleurs en niveaux de gris
	(if 
		(= (car (gimp-drawable-is-gray drawable)) TRUE)	
			;; convertir en rvb
			(gimp-image-convert-rgb img)
	)	
	
	
	(let* 
		(
			(message (car (gimp-message-get-handler)))
			(layer_dessin_peinture_avec_gmic 0)
			(layer_dessin_peinture_gris_avec_gmic 0)
	
		) 

		
		
; layer_dessin_peinture_avec_gmic*************************************************************

	;; sélectionner la console erreurs pour envoyer un message
	(gimp-message-set-handler 2)

	;; envoyer un message
	(if (= messages TRUE) (gimp-message "Debut du Script-Fu dessin_peinture_avec_gmic.scm. Patienter et attendre le message de FIN"))

	;; ajouter le calque
	(set! layer_dessin_peinture_avec_gmic (car (gimp-layer-new-from-visible img img "layer_dessin_peinture_avec_gmic")))

	;; activer le calque
	(gimp-image-add-layer img layer_dessin_peinture_avec_gmic 0)

	;; Exemple de commande multiple utilisant G'MIC.
	(plug-in-gmic 1 img layer_dessin_peinture_avec_gmic 1
		(string-append
			"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
			"-gimp_anisotropic_smoothing 80,"
			(number->string (+ 0.8 (/ nettete 1000))) ",0.3,0.6,1.1,0.8,30,2,0,1,5,1,1 -n 127,255 -sharpen "
			(number->string (/ nettete 2)) " -cartoon "
			(number->string  (- 10 (/ detail 10)))","
			(number->string (+ 10 (/ nettete 4))) ",30,0.18,0.75,256 -sharpen "
			(number->string  nettete)
		)
	)	
 
; layer_dessin_peinture_gris_avec_gmic********************************************************


	; passer en gris
	(if 
		(= gris TRUE)
			(begin

				; copier visible
				(set! layer_dessin_peinture_gris_avec_gmic (car (gimp-layer-new-from-visible img img "layer_gris_dessin_peinture_avec_gmic")))	

				;; activer le calque
				(gimp-image-add-layer img layer_dessin_peinture_gris_avec_gmic 0)				
			
				; appel du greffon G'MIC
				(plug-in-gmic 1 img layer_dessin_peinture_gris_avec_gmic 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-to_gray -n 0,255"
					)
				)					
			)
	)	


	;; envoyer un message
	(if (= messages TRUE) (gimp-message "FIN du Script-Fu dessin_peinture_avec_gmic.scm"))

	;; rétablir le mode message
	(gimp-message-set-handler message)
	
    ;; fin groupe undo
	(gimp-undo-push-group-end img)
	
    ;; afficher
	(gimp-displays-flush)
	
	
	)
)

(script-fu-register
	"dessin_peinture_avec_gmic"
	"<Image>/Filters/Artistic/Dessin, peinture avec G'MIC..."
	"Dessin avec G'MIC"
	"samj"
	"samj"
	"2010-20-12"
	"*"
	SF-IMAGE      "Image"		0
	SF-DRAWABLE   "Drawable"	0
	SF-ADJUSTMENT "Nettete / Sharpen"  '(200 0 1000 1 10 0 0) ;
	SF-ADJUSTMENT "Detail / Precision"  '(80 10 100 1 10 0 0) ;
	SF-TOGGLE "Gris / Grey" FALSE
	SF-TOGGLE "Messages" FALSE
)

; FIN script-fu