;; Version 21 du 27 novembre 2010 pour Gimp 2.6.x
;; But : Obtenir plus de 3 douzaines de motifs divers en utilisant G'MIC
;; Il faut que le greffon G'MIC soit installé
;; Testé sur Gimp 2.6.11 (32 bits) O.S. :  W7-64bits / Ubuntu 10.10 32 bits / G'MIC 1.4.5.2 
;; Remarque : Comme exemple, une seule fonction est souvent appelée lors de l'utilisation du greffon G'MIC.
;; Utilisation : Créer une nouvelle image de 256*256 puis appeler le script-fu par Filtres > G'MIC 36 motifs...
;;               Il n'y a pas de paramétrage pour ce script.
;;
;;   File        : 36motifs.scm
;;                 ( Scheme script for GIMP )
;;
;;   Description : Show how to call G'MIC commands from a GIMP script.
;;                 ( http://gmic.sourceforge.net )
;;                 ( http://www.aljacom.com/~gmic )
;;
;;   Copyright   : David Tschumperle / samj
;;                 ( http://www.greyc.ensicaen.fr/~dtschump/ )
;;                 ( http://www.aljacom.com/~gimp )
;;
;;   License     : CeCILL v2.0
;;                 ( http://www.cecill.info/licences/Licence_CeCILL_V2-en.html )
;;
;;   This software is governed by the CeCILL  license under French law and
;;   abiding by the rules of distribution of free software.  You can  use,
;;   modify and/ or redistribute the software under the terms of the CeCILL
;;   license as circulated by CEA, CNRS and INRIA at the following URL
;;   "http://www.cecill.info".
;;
;;   As a counterpart to the access to the source code and  rights to copy,
;;   modify and redistribute granted by the license, users are provided only
;;   with a limited warranty  and the software's author,  the holder of the
;;   economic rights,  and the successive licensors  have only  limited
;;   liability.
;;
;;   In this respect, the user's attention is drawn to the risks associated
;;   with loading,  using,  modifying and/or developing or reproducing the
;;   software by the user in light of its specific status of free software,
;;   that may mean  that it is complicated to manipulate,  and  that  also
;;   therefore means  that it is reserved for developers  and  experienced
;;   professionals having in-depth computer knowledge. Users are therefore
;;   encouraged to load and test the software's suitability as regards their
;;   requirements in conditions enabling the security of their systems and/or
;;   data to be ensured and,  more generally, to use and operate it in the
;;   same conditions as regards security.
;;
;;   The fact that you are presently reading this means that you have had
;;   knowledge of the CeCILL license and that you accept its terms.
;;

(define	
	(script_36_motifs_with-gmic
										img
										drawable

	)

	;; Start undo group.
	(gimp-image-undo-group-start img)

	
; ******************************************* 2 CALQUES COULEURS PP ET AP Ajout V 8
	(let*
		(	
			;; verification des dimensions
				(erreur 0)
				(width (car (gimp-drawable-width drawable))) ; largeur
				(height (car (gimp-drawable-height drawable))) ; hauteur
			;; mémoriser les couleurs PP et AP d'origine dans les 2 premiers calques
				(origine_pp (car (gimp-context-get-foreground)))
				(origine_ap (car (gimp-context-get-background)))
				(couleur_pp (car (gimp-layer-copy drawable TRUE)))
				(couleur_ap (car (gimp-layer-copy drawable TRUE)))
		)
	
	;; Autorisation déroulement script, interdiction si largeur < 23 hauteur > 23 et largeur * hauteur > 512*512
	(if (< width 24) (set! erreur (+ erreur 1)))
	(if (< height 24) (set! erreur (+ erreur 10)))
	(if (> (* width height) (* 512 512)) (set! erreur (+ erreur 100)))

	(if (= erreur 1) (gimp-message "ERROR 36_motifs_with-gmic WIDTH<24"))
	(if (= erreur 10) (gimp-message "ERROR 36_motifs_with-gmic HEIGHT<24"))
	(if (= erreur 11) (gimp-message "ERROR 36_motifs_with-gmic WIDTH<24 & HEIGHT<24"))
	(if (= erreur 100) (gimp-message "ERROR 36_motifs_with-gmic WIDTH*HEIGHT>262144"))
	(if (= erreur 101) (gimp-message "ERROR 36_motifs_with-gmic WIDTH<24 & WIDTH*HEIGHT>262144"))
	(if (= erreur 110) (gimp-message "ERROR 36_motifs_with-gmic HEIGHT<24 & WIDTH*HEIGHT>262144"))

	(if (= erreur 0)
	
		(begin
		
		;; Add a layer
		(gimp-image-add-layer img couleur_pp -1)		

		;; Add a layer
		(gimp-image-add-layer img couleur_ap -1)		
		
		;; donner un nom au calque
		(gimp-drawable-set-name couleur_pp "couleur_pp")
		
		;; donner un nom au calque
		(gimp-drawable-set-name couleur_ap "couleur_ap")

		;; remplir de pp	
		(gimp-drawable-fill couleur_pp 0)

		;; remplir de ap	
		(gimp-drawable-fill couleur_ap 1)
		

; *******************************************MOTIF 1	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_01 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_01 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_01 "motif_01")	

				;; greffon plasma sur le calque motif_01
				(plug-in-plasma 1 img motif_01 alea 3)
		
				;; Render custom deformation using G'MIC.
				(plug-in-gmic 1 img motif_01 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_custom_deformation (w+h)/20*cos(y*20/h),(w+h)/20*sin(x*20/w),1,1,1"
					)
				)

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_01 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 250,1,1,4,1,1,180,5,0,1,1,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_01)
		
			)

	
; *******************************************MOTIF 2	

			(let*
				(
					(alea (random 999999999)) ; nombre aléatoire
					(motif_02 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_02 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_02 "motif_02")

				;; remplir de blanc	
				(gimp-drawable-fill motif_02 2)
	
				;; greffon plasma sur le calque motif_01
				(plug-in-plasma 1 img motif_02 alea 3)
		
				;; Render water using G'MIC.
				(plug-in-gmic 1 img motif_02 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-water 160,2"
					)
				)
		
				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_02 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 60,1,1,4,1,1,30,2,0,1,1,1,1"
					)
				)		

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_02)
	
			)
	
; *******************************************MOTIF 3	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_03 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_03 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_03 "motif_03")

				;; remplir de blanc	
				(gimp-drawable-fill motif_03 2)	

				(set! width (/ width 24))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 24))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_03 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		
	
			)
	

; *******************************************MOTIF 4	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_04 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_04 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_04 "motif_04")

				;; remplir de blanc	
				(gimp-drawable-fill motif_04 2)	

				(set! width (/ width 36))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 36))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_04 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render puzzle using G'MIC.
				(plug-in-gmic 1 img motif_04 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_puzzle "
						(number->string width 10) ",2"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_04)
		
			)	
	
	
; *******************************************MOTIF 5	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_05 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_05 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_05 "motif_05")

				;; remplir de blanc	
				(gimp-drawable-fill motif_05 2)	

				(set! width (/ width 10))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 10))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_05 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render hearts using G'MIC.
				(plug-in-gmic 1 img motif_05 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_hearts 10,2"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_05)
		
			)	
	


; *******************************************MOTIF 6	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_06 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_06 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_06 "motif_06")

				;; remplir de blanc	
				(gimp-drawable-fill motif_06 2)	

				(set! width (/ width 30))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 30))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_06 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render hearts using G'MIC.
				(plug-in-gmic 1 img motif_06 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_hearts 4,2"
					)
				)	

				;; Render apply curve using G'MIC.
				(plug-in-gmic 1 img motif_06 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_apply_curve 255,40,180,88,148,128,128,168,100,215,60,0,1,2,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_06)
		
			)	



; *******************************************MOTIF 7	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_07 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_07 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_07 "motif_07")	

				;; Obtenir une couleur aléatoire en mode RGB avec G'MIC.
				(plug-in-gmic 1 img motif_07 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"rouge={round(u*255)} vert={round(u*255)} bleu={round(u*255)} -to_colormode 3 -fill_color $rouge,$vert,$bleu"
					)
				)			

				;; Render rgb2bayer using G'MIC.
				(plug-in-gmic 1 img motif_07 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-rgb2bayer 1,1"
					)
				)
				
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_07)
		
			)


; *******************************************MOTIF 8	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_08 (car (gimp-layer-copy drawable TRUE)))			
				)

		
				;; Add a layer
				(gimp-image-add-layer img motif_08 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_08 "motif_08")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_08 2)

				(set! width (/ width 5))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 5))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_08 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render flower using G'MIC.
				(plug-in-gmic 1 img motif_08 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_flower 30,6,0,0,0.5,0.5,1"
					)
				)		

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_08 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 60,1,1,4,1,1,30,2,0,1,1,1,1"
					)
				)	
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_08)
		
			)

	
; *******************************************MOTIF 9	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_09 (car (gimp-layer-copy drawable TRUE)))			
				)

		
				;; Add a layer
				(gimp-image-add-layer img motif_09 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_09 "motif_09")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_09 2)

				(set! width (/ width 50))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 50))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_09 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render flower using G'MIC.
				(plug-in-gmic 1 img motif_09 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_flower 30,6,0,0,0.5,0.5,1"
					)
				)		

	
		
				;; Render ditheredbw using G'MIC.
				(plug-in-gmic 1 img motif_09 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_ditheredbw 1,1,0,0"
					)
				)	
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_09)
		
			)

	


; *******************************************MOTIF 10	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_10 (car (gimp-layer-copy drawable TRUE)))			
				)

		
				;; Add a layer
				(gimp-image-add-layer img motif_10 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_10 "motif_10")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_10 2)

				(set! width (/ width 10))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 10))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_10 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render tetris using G'MIC.
				(plug-in-gmic 1 img motif_10 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_tetris 10"
					)
				)		

	
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_10)
		
			)

	


; *******************************************MOTIF 11
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_11 (car (gimp-layer-copy drawable TRUE)))
				)

		
				;; Add a layer
				(gimp-image-add-layer img motif_11 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_11 "motif_11")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_11 2)

				(set! width (/ width 63))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 63))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_11 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render rotoidoscope using G'MIC.
				(plug-in-gmic 1 img motif_11 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_rotoidoscope 0.5,0.5,10,0.5,2"
					)
				)		

				;; Render unsharp using G'MIC.
				(plug-in-gmic 1 img motif_11 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_unsharp 0,1.25,30,3,0,1,1,1,0,2"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_11)


			)


; *******************************************MOTIF 12	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(alea (random 999999999)) ; nombre aléatoire
					(motif_12 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_12 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_12 "motif_12")	

				;; greffon plasma sur le calque motif_12
				;;(plug-in-plasma 1 img motif_12 alea 3)		
				;;(gimp-context-set-foreground (car (gimp-image-pick-color img motif_12 1 1 TRUE FALSE 0)))		
				;; remplir de couleur premier plan	
				;;(gimp-drawable-fill motif_12 0)	
				
				;; Obtenir une couleur aléatoire en mode RGB avec G'MIC.
				(plug-in-gmic 1 img motif_12 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"rouge={round((g+5)*25.5)} vert={round((g+5)*25.5)} bleu={round((g+5)*25.5)} -to_colormode 3 -fill_color $rouge,$vert,$bleu"
					)
				)	
		
				;; Render dots using G'MIC.
				(plug-in-gmic 1 img motif_12 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_color_ellipses 100,20,0.5"
					)
				)		

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_12 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 180,1,1,4,1,1,30,2,0,1,2,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_12)
		
			)

; *******************************************MOTIF 13	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_13 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_13 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_13 "motif_13")	

				;; greffon plasma sur le calque motif_13
				(plug-in-plasma 1 img motif_13 alea 3)
		
				;; Render ellipsionism using G'MIC.
				(plug-in-gmic 1 img motif_13 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_ellipsionism 20,10,0.5,0.7,8,0.5"
					)
				)

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_13 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 250,1,1,4,1,1,180,5,0,1,1,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_13)
		
			)


; *******************************************MOTIF 14	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_14 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_14 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_14 "motif_14")	

				;; greffon plasma sur le calque motif_14
				(plug-in-plasma 1 img motif_14 alea 3)
		
				;; Render kaleidoscope using G'MIC.
				(plug-in-gmic 1 img motif_14 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_kaleidoscope 0.5,0.5,0,0,100,10,1"
					)
				)

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_14 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 250,1,1,4,1,1,180,5,0,1,1,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_14)
		
			)




; *******************************************MOTIF 15	
	
			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_15 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_15 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_15 "motif_15")

				;; remplir de blanc	
				(gimp-drawable-fill motif_15 2)	

				(set! width (/ width 40))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 40))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_15 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)
		
				;; Render kaleidoscope using G'MIC.
				(plug-in-gmic 1 img motif_15 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_kaleidoscope 0.5,0.5,0,0,100,10,1"
					)
				)

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_15 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 250,1,1,4,1,1,180,5,0,1,1,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_15)
		
			)



; *******************************************MOTIF 16	
	
			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_16 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_16 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_16 "motif_16")

				;; remplir de blanc	
				(gimp-drawable-fill motif_16 2)	

				(set! width (/ width 20))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 20))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_16 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)
		
				;; Render cartoon using G'MIC.
				(plug-in-gmic 1 img motif_16 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-cartoon 2,200,10,0.25,1.5,32"
					)
				)
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_16)
		
			)

; *******************************************MOTIF 17	
	
			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_17 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_17 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_17 "motif_17")

				;; remplir de blanc	
				(gimp-drawable-fill motif_17 2)	

				(set! width (/ width 30))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 30))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_17 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)
		
				;; Render cartoon using G'MIC.
				(plug-in-gmic 1 img motif_17 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-cartoon 2,200,10,0.25,1.5,32"
					)
				)

				;; Render apply curve using G'MIC.
				(plug-in-gmic 1 img motif_17 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_apply_curve 255,40,180,88,148,128,128,168,100,215,60,0,1,2,1,1"
					)
				)
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_17)
		
			)


; *******************************************MOTIF 18	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_18 (car (gimp-layer-copy drawable FALSE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_18 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_18 "motif_18")	

				;; greffon plasma sur le calque motif_18
				(plug-in-plasma 1 img motif_18 alea 3)
		
				;; Render painting using G'MIC.
				(plug-in-gmic 1 img motif_18 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_painting 1,1.5,2"
					)
				)

				;; Render whirl using G'MIC.
				(plug-in-gmic 1 img motif_18 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-draw_whirl 10"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_18)
		
			)

	
	
; *******************************************MOTIF 19	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(fond_motif_19 (car (gimp-layer-copy drawable TRUE)))
					(motif_19 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_19 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_19 "fond_motif_19")			
		
				;; remplir de blanc	
				(gimp-drawable-fill fond_motif_19 2)
		
				;; Add a layer
				(gimp-image-add-layer img motif_19 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_19 "motif_19")	

				;; greffon plasma sur le calque motif_19
				(plug-in-plasma 1 img motif_19 alea 3)

				;; Render segment watershed using G'MIC * 2.
				(plug-in-gmic 1 img motif_19 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_segment_watershed 2,1,3 -gimp_segment_watershed 2,1,3"
					)
				)
		
				;; Render shift tiles using G'MIC.
				(plug-in-gmic 1 img motif_19 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_shift_tiles 10,10,10,1"
					)
				)
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_19)
		
			)

	
; *******************************************MOTIF 20	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_20 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_20 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_20 "motif_20")

				;; remplir de blanc	
				(gimp-drawable-fill motif_20 2)	

				(set! width (/ width 36))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 64))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_20 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render transform polar using G'MIC.
				(plug-in-gmic 1 img motif_20 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_transform_polar 1,50,50,r+R/10*cos(a*5),a,1"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_20)
		
			)	
	
	
	
	
; *******************************************MOTIF 21	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_21 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_21 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_21 "motif_21")

				;; remplir de blanc	
				(gimp-drawable-fill motif_21 2)	

				(set! width (/ width 15))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 15))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_21 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render transform polar using G'MIC.
				(plug-in-gmic 1 img motif_21 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_transform_polar 1,50,50,r+R/10*cos(a*5),a,1"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_21)
		
			)	
	
	

; *******************************************MOTIF 22	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_22 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_22 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_22 "motif_22")

				;; remplir de blanc	
				(gimp-drawable-fill motif_22 2)	

				(set! width (/ width 15))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 15))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_22 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render transform polar using G'MIC.
				(plug-in-gmic 1 img motif_22 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_transform_polar 2,50,50,r+R/10*cos(a*5),a,1"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_22)
		
			)	
	
	

; *******************************************MOTIF 23	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_23 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_23 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_23 "motif_23")

				;; remplir de blanc	
				(gimp-drawable-fill motif_23 2)	

				(set! width (/ width 20))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 20))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_23 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render transform polar using G'MIC.
				(plug-in-gmic 1 img motif_23 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_transform_polar 0,50,50,r+R/10*cos(a*5),a,1"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_23)
		
			)	
	
	

; *******************************************MOTIF 24	

			(let*
				(
					(motif_24 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_24 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_24 "motif_24")

				;; remplir de blanc	
				(gimp-drawable-fill motif_24 2)	

				;; Render corner gradient using G'MIC.
				(plug-in-gmic 1 img motif_24 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_corner_gradient 0,0,255,255,255,255,0,255,0,255,0,255,255,0,255,255"
					)
				)	

				;; Render light relief using G'MIC.
				(plug-in-gmic 1 img motif_24 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_light_relief 0.3,0.2,0.2,0,2,0.5,0.5,5,0.5,0,0"
					)
				)			
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_24)
		
			)	
	


; *******************************************MOTIF 25	

			(let*
				(
					(motif_25 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_25 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_25 "motif_25")

				;; remplir de blanc	
				(gimp-drawable-fill motif_25 2)	

				;; Render corner gradient using G'MIC.
				(plug-in-gmic 1 img motif_25 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_corner_gradient 0,0,255,255,255,0,0,255,0,255,0,255,255,127,255,255"
					)
				)	

				;; Render light relief using G'MIC.
				(plug-in-gmic 1 img motif_25 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_light_relief 0.3,0.2,0.2,0,2,0.5,0.5,5,0.5,0,0"
					)
				)			

				;; Render cracks relief using G'MIC.
				(plug-in-gmic 1 img motif_25 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_cracks 1,-80,1,2"
					)
				)	

		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_25)
		
			)	
	


; *******************************************MOTIF 26	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_26 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_26 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_26 "motif_26")	

				;; greffon plasma sur le calque motif_26
				(plug-in-plasma 1 img motif_26 alea 3)
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_26 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill motif_26 0)	
		
				;; Render polka dots using G'MIC.
				(plug-in-gmic 1 img motif_26 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_polka_dots 80,20,50,50,0,0.5,0.1,1,255,255,255,255"
					)
				)		

	
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_26)
		
			)


; *******************************************MOTIF 27	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_27 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_27 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_27 "motif_27")	

				;; greffon plasma sur le calque motif_27
				(plug-in-plasma 1 img motif_27 alea 3)
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_27 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill motif_27 0)	
		
				;; Render polka dots using G'MIC.
				(plug-in-gmic 1 img motif_27 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_polka_dots 80,20,50,50,0,0.5,0.1,1,255,255,255,255"
					)
				)		
		
			)



; *******************************************MOTIF 28	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_28 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_28 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_28 "motif_28")	

				;; greffon plasma sur le calque motif_28
				(plug-in-plasma 1 img motif_28 alea 3)
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_28 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill motif_28 0)	
		
				;; Render random3d using G'MIC.
				(plug-in-gmic 1 img motif_28 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_random3d 3,140,6,100,45,0,0,-100,0.5,0.7,5,1"
					)
				)		

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_28 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 60,1,1,4,1,1,30,2,0,1,1,1,1"
					)
				)	
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_28)
		
			)


; *******************************************MOTIF 29	

			(let*
				(
					(motif_29 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
				)

				(set! width (/ width 10))
				(set! width (round width))	
				(set! height (/ height 10))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_29 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_29 "motif_29")

				;; remplir de blanc	
				(gimp-drawable-fill motif_29 2)	

				;; Render chessboard using G'MIC.
				(plug-in-gmic 1 img motif_29 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_chessboard "
						(number->string width) ","
						(number->string height) ",0,0,0,1,0,0,0,255,255,255,255,255"
					)
				)		

		
			)	
	

; *******************************************MOTIF 30	

			(let*
				(
					(motif_30 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
				)

				(set! width (/ width 8))
				(set! width (round width))	
				(set! height (/ height 8))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_30 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_30 "motif_30")

				;; remplir de blanc	
				(gimp-drawable-fill motif_30 2)	

				;; Render chessboard using G'MIC.
				(plug-in-gmic 1 img motif_30 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_chessboard "
						(number->string width) ","
						(number->string height) ",0,0,0,1,0,0,0,255,255,255,255,255"
					)
				)		

		
			)	
	

; *******************************************MOTIF 31	

			(let*
				(
					(motif_31 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
				)

				(set! width (/ width 16))
				(set! width (round width))	
				(set! height (/ height 16))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_31 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_31 "motif_31")

				;; remplir de blanc	
				(gimp-drawable-fill motif_31 2)	

				;; Render chessboard using G'MIC.
				(plug-in-gmic 1 img motif_31 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_chessboard "
						(number->string width) ","
						(number->string height) ",0,0,0,1,0,0,0,255,255,255,255,255"
					)
				)		

				;; Render fish_eye using G'MIC.
				(plug-in-gmic 1 img motif_31 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-fish_eye 50,50,80,1"
					)
				)	
		
			)	
	


; *******************************************MOTIF 32	

			(let*
				(
					(motif_32 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
				)

				(set! width (/ width 16))
				(set! width (round width))	
				(set! height (/ height 16))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_32 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_32 "motif_32")

				;; remplir de blanc	
				(gimp-drawable-fill motif_32 2)	

				;; Render chessboard using G'MIC.
				(plug-in-gmic 1 img motif_32 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_chessboard "
						(number->string width) ","
						(number->string height) ",0,0,0,1,0,0,0,255,255,255,255,255"
					)
				)		

				;; Render fish_eye using G'MIC.
				(plug-in-gmic 1 img motif_32 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-fish_eye 50,50,80,1"
					)
				)	

				;; Render edge offsets using G'MIC.
				(plug-in-gmic 1 img motif_32 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_edge_offsets 0,15,4,1,0"
					)
				)	

				;; rendre le motif raccordable
				;;(plug-in-make-seamless 1 img  motif_32)

		
			)	
	

; *******************************************MOTIF 33	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_33 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_33 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_33 "motif_33")	

				;; greffon plasma sur le calque motif_33
				(plug-in-plasma 1 img motif_33 alea 3)
		
				;; Render gradient2rgb using G'MIC.
				(plug-in-gmic 1 img motif_33 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_gradient2rgb 0,0,100,0,1"
					)
				)

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_33 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 250,1,1,4,1,1,180,5,0,1,1,1,1"
					)
				)		
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_33)
		
			)

; *******************************************MOTIF 34	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_34 (car (gimp-layer-copy drawable TRUE)))	
				)

				;; Add a layer
				(gimp-image-add-layer img motif_34 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_34 "motif_34")

				;; remplir de blanc	
				(gimp-drawable-fill motif_34 2)	

				(set! width (/ width 24))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 24))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_34 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render wave using G'MIC.
				(plug-in-gmic 1 img motif_34 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-wave 10,0.4,50,50"
					)
				)

				;; Render segment watershed using G'MIC * 2.
				(plug-in-gmic 1 img motif_34 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_segment_watershed 2,1,3 -gimp_segment_watershed 2,1,3"
					)
				)
		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_34)
		
			)


; *******************************************MOTIF 35	

			(let*
				(
					(motif_35 (car (gimp-layer-copy drawable TRUE)))
					(fond_motif_35 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_35 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_35 "fond_motif_35")

				;; Add a layer
				(gimp-image-add-layer img motif_35 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_35 "motif_35")		
		
				;; remplir de blanc	
				(gimp-drawable-fill fond_motif_35 2)	

		
				;; Render rainbow using G'MIC.
				(plug-in-gmic 1 img motif_35 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_rainbow 100,100,200,200,1.3,100"
					)
				)		
	
			)


	

; *******************************************MOTIF 36	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_36 (car (gimp-layer-copy drawable TRUE)))
					(fond_motif_36 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_36 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_36 "fond_motif_36")

				;; remplir de blanc	
				(gimp-drawable-fill fond_motif_36 2)
		
				;; Add a layer
				(gimp-image-add-layer img motif_36 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_36 "motif_36")	

				;; greffon plasma sur le calque motif_36
				(plug-in-plasma 1 img motif_36 alea 3)
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_36 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill motif_36 0)	
		
				;; Render rgb2bayer using G'MIC.
				(plug-in-gmic 1 img motif_36 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-rgb2bayer 1,1"
					)
				)		

				;; sélection de la couleur du point 1 1
				(gimp-by-color-select motif_36 (car (gimp-image-pick-color img motif_36 1 1 TRUE FALSE 0)) 0 CHANNEL-OP-REPLACE  FALSE FALSE 0 FALSE)

				;; effacer la couleur sélectionnée
				(gimp-edit-clear motif_36)
		
				;; ne rien sélectionner
				(gimp-selection-none img)
		
			)

	
; *******************************************MOTIF 37	

			(let*
				(
					(motif_37 (car (gimp-layer-copy drawable TRUE)))
					(fond_motif_37 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_37 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_37 "fond_motif_37")	
		
				;; remplir d'un motif
				(gimp-drawable-fill fond_motif_37 4)

				;; Render solarize using G'MIC.
				(plug-in-gmic 1 img fond_motif_37 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-solarize -to_gray -n 0,255"
					)
				)				

				;; rendre le fond raccordable
				(plug-in-make-seamless 1 img  fond_motif_37)

				;; Add a layer
				(gimp-image-add-layer img motif_37 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_37 "motif_37")
				
				;; remplir de blanc	
				(gimp-drawable-fill motif_37 2)

				;; Render snowflake using G'MIC.
				(plug-in-gmic 1 img motif_37 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-snowflake 3,20,70,80,70,50,10,1,0,0,0"
					)
				)		
	
			)
		
	
; *******************************************MOTIF 38	

			(let*
				(
					(motif_38 (car (gimp-layer-copy drawable TRUE)))
					(alea (random 999999999)) ; nombre aléatoire
				)


				;; Add a layer
				(gimp-image-add-layer img motif_38 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_38 "motif_38")		

				;; greffon plasma sur le calque motif_38
				(plug-in-plasma 1 img motif_38 alea 3)
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_38 1 1 TRUE FALSE 0)))
		
				;; remplir couleur premier plan
				(gimp-drawable-fill motif_38 0)	

		
				;; Render sierpinski using G'MIC.
				(plug-in-gmic 1 img motif_38 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-sierpinski 6,50,0,0,100,100,100"
					)
				)		
	
			)
		
	
; *******************************************MOTIF 39	

			(let*
				(
					(motif_39 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
				)

				(set! width (/ width 16))
				(set! width (round width))	
				(set! height (/ height 16))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_39 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_39 "motif_39")

				;; remplir d'un motif
				(gimp-drawable-fill motif_39 4)			

				;; Render euclidean2polar using G'MIC.
				(plug-in-gmic 1 img motif_39 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_euclidean2polar 0.5,0.5,1,1,0"
					)
				)	

				;; Render gimp_morpho using G'MIC.
				(plug-in-gmic 1 img motif_39 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_morpho 3,5,1,0,3,1"
					)
				)		

				;; Render richardson lucy using G'MIC.
				(plug-in-gmic 1 img motif_39 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_richardson_lucy 2,10,20,0.1,1,2"
					)
				)

		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_39)
		
			)	
	
; *******************************************MOTIF 40	ajout V2	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_40 (car (gimp-layer-copy drawable TRUE)))	
					(fond_motif_40 (car (gimp-layer-copy drawable TRUE)))
					(alea (random 999999999)) ; nombre aléatoire
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_40 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_40 "fond_motif_40")	

				;; greffon plasma sur le calque fond_motif_40
				(plug-in-plasma 1 img fond_motif_40 alea 3)		
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_40 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill fond_motif_40 0)

				;; Add a layer
				(gimp-image-add-layer img motif_40 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_40 "motif_40")

				;; remplir de blanc	
				(gimp-drawable-fill motif_40 2)	

				(set! width (/ width 24))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 24))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_40 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Render stencil using G'MIC.
				(plug-in-gmic 1 img motif_40 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_stencil 3,0,8,0,2,0"
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_40)
		
			)


	
; *******************************************MOTIF 41	Ajout V3	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(fond_motif_41 (car (gimp-layer-copy drawable TRUE)))
					(motif_41 (car (gimp-layer-copy drawable TRUE)))
					(alea (random 999999999)) ; nombre aléatoire
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_41 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_41 "fond_motif_41")	

				;; greffon plasma sur le calque fond_motif_41
				(plug-in-plasma 1 img fond_motif_41 alea 3)		
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_41 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill fond_motif_41 0)			
		
				;; Add a layer
				(gimp-image-add-layer img motif_41 -1)
		
				;; donner un nom au calque
				(gimp-drawable-set-name motif_41 "motif_41")

				;; remplir de blanc	
				(gimp-drawable-fill motif_41 2)	

				(set! width (/ width 24))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 24))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_41 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)		

				;; Redéfinir les bonnes dimensions pour éviter les problèmes avec la fonction gimp_dots de G'MIC
				(set! width (car (gimp-drawable-width drawable))) ; largeur
				(set! height (car (gimp-drawable-height drawable))) ; hauteur		
		
		
				;; Render dots using G'MIC . Ajouter la fonction resize pour éviter les problèmes (nom du calque ...).
				(plug-in-gmic 1 img motif_41 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_dots 30,10,3,3,1 -resize "
						(number->string width 10) ","
						(number->string height 10)
					)
				)	

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_41)
		
			)
	
	
; *******************************************MOTIF 42 Ajout V4	

			(let*
				(
					(motif_42 (car (gimp-layer-copy drawable TRUE)))
					(active-layer (car (gimp-image-get-active-layer img)))
					(alea (random 999999999)) ; nombre aléatoire
					(fond_motif_42 (car (gimp-layer-copy drawable TRUE)))
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_42 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_42 "fond_motif_42")	

				;; greffon plasma sur le calque fond_motif_41
				(plug-in-plasma 1 img fond_motif_42 alea 3)		
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_42 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill fond_motif_42 0)
		
				;; Add a layer
				(gimp-image-add-layer img motif_42 -1)
		
				;; donner un nom au calque
				(gimp-drawable-set-name motif_42 "motif_42")

				;; remplir de blanc	
				(gimp-drawable-fill motif_42 2)	
		
				;; Render radial gradient using G'MIC.
				(plug-in-gmic 1 img motif_42 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_radial_gradient 0,0,0,255,255,255,255,255,0,0,100,50,50"
					)
				)
				;; mettre le calque en mode écran
				(gimp-layer-set-mode motif_42 4)
			)
	
; *******************************************MOTIF 43 Ajout V4	

			(let*
				(
					(motif_43 (car (gimp-layer-copy drawable TRUE)))
					(active-layer (car (gimp-image-get-active-layer img)))
					(alea (random 999999999)) ; nombre aléatoire
					(fond_motif_43 (car (gimp-layer-copy drawable TRUE)))
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_43 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_43 "fond_motif_43")	

				;; greffon plasma sur le calque fond_motif_41
				(plug-in-plasma 1 img fond_motif_43 alea 3)		
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_43 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill fond_motif_43 0)
		
				;; Add a layer
				(gimp-image-add-layer img motif_43 -1)
		
				;; donner un nom au calque
				(gimp-drawable-set-name motif_43 "motif_43")

				;; remplir de blanc	
				(gimp-drawable-fill motif_43 2)	
		
				;; Render linear gradient using G'MIC.
				(plug-in-gmic 1 img motif_43 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_linear_gradient 0,0,0,255,255,255,255,255,0,45,0,100"
					)
				)
				
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_43)
		
				;; mettre le calque en mode écran
				(gimp-layer-set-mode motif_43 4)
			)
	
; *******************************************MOTIF 44	Ajout V5	

			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_44 (car (gimp-layer-copy drawable TRUE)))
					(alea (random 60)) ; nombre aléatoire			
				)

		
				;; Add a layer
				(gimp-image-add-layer img motif_44 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_44 "motif_44")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_44 2)

				(set! width (/ width 50))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 50))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_44 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render flower using G'MIC.
				(plug-in-gmic 1 img motif_44 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_flower 30,18,0,0,0.5,0.5,1"
					)
				)		
		
				;; Render ditheredbw using G'MIC.
				(plug-in-gmic 1 img motif_44 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_ditheredbw 1,1,0,0"
					)
				)	

				(set! alea (round alea))
				;(gimp-message (number->string alea 10))
		
				;; Redéfinir les bonnes dimensions pour éviter les problèmes avec la fonction warhol de G'MIC
				(set! width (car (gimp-drawable-width drawable))) ; largeur
				(set! height (car (gimp-drawable-height drawable))) ; hauteur	
		
				;; Render warhol using G'MIC . Ajouter la fonction resize pour éviter les problèmes (nom du calque ...).
				(plug-in-gmic 1 img motif_44 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-warhol 3,3,2,"
						(number->string alea 10) " -resize "
						(number->string width 10) ","
						(number->string height 10)
					)
				)	

		
			)
	
; *******************************************MOTIF 45	Ajout V6	

			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_45 (car (gimp-layer-copy drawable TRUE)))
					(fond_motif_45 (car (gimp-layer-copy drawable TRUE)))
					(alea (random 999999999)) ; nombre aléatoire			
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_45 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_45 "fond_motif_45")	

				;; greffon plasma sur le calque fond_motif_41
				;;(plug-in-plasma 1 img fond_motif_45 alea 3)		
				;;(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_45 1 1 TRUE FALSE 0)))		
				;; remplir de couleur premier plan	
				;;(gimp-drawable-fill fond_motif_45 0)
				
				;; Obtenir une couleur aléatoire très claire en mode RGB avec G'MIC.
				(plug-in-gmic 1 img fond_motif_45 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"rouge={round((u*15)+240)} vert={round((u*15)+240)} bleu={round((u*15)+240)}  -to_colormode 3 -fill_color $rouge,$vert,$bleu"
					)
				)
		
				;; Add a layer
				(gimp-image-add-layer img motif_45 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_45 "motif_45")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_45 2)

				(set! width (/ width 50))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 50))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_45 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

		
				;; Render flower using G'MIC.
				(plug-in-gmic 1 img motif_45 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_flower 30,8,0,0,0.5,0.5,1"
					)
				)		
		
				;; Render ditheredbw using G'MIC.
				(plug-in-gmic 1 img motif_45 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_ditheredbw 1,1,0,0  -to_rgb"
					)
				)	
		
				;; Redéfinir les bonnes dimensions pour éviter les problèmes avec la fonction rotate tiles de G'MIC
				(set! width (car (gimp-drawable-width drawable))) ; largeur
				(set! height (car (gimp-drawable-height drawable))) ; hauteur	
		
				;; Render rotate tiles using G'MIC . Ajouter la fonction resize pour éviter les problèmes (nom du calque ...).
				(plug-in-gmic 1 img motif_45 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_rotate_tiles 16,16,15,1 -resize "
						(number->string width 10) ","
						(number->string height 10)
					)
				)	
		
			)

; *******************************************MOTIF 46	Ajout V7	
	
			(let*
				(
					(motif_46 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(fond_motif_46 (car (gimp-layer-copy drawable TRUE)))
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_46 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_46 "fond_motif_46")	

				;; remplir de motif	
				(gimp-drawable-fill fond_motif_46 4)	
		
				(gimp-context-set-foreground (car (gimp-image-pick-color img fond_motif_46 1 1 TRUE FALSE 0)))
		
				;; remplir de couleur premier plan	
				(gimp-drawable-fill fond_motif_46 0)		

				;; Add a layer
				(gimp-image-add-layer img motif_46 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_46 "motif_46")

				;; remplir de motif	
				(gimp-drawable-fill motif_46 4)
	
				;; rendre le motif raccordable
				;;(plug-in-make-seamless 1 img  motif_46)
	
				;; Redéfinir les bonnes dimensions pour éviter les problèmes avec la fonction rotate tiles de G'MIC
				(set! width (car (gimp-drawable-width drawable))) ; largeur
				(set! height (car (gimp-drawable-height drawable))) ; hauteur	
		
				;; Render imageobject3d using G'MIC .
				(plug-in-gmic 1 img motif_46 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_imageobject3d 1,"
						(number->string (* width 1.4) 10) ","
						(number->string (* height 1.4) 10) ",0.5,45,45,0,45,0,0,-100,0.5,0.7,4 -autocrop 0 -resize "
						(number->string width 10) ","
						(number->string height 10) " -n 0,255"
					)
				)
				
				;; rendre le motif raccordable
				;;(plug-in-make-seamless 1 img  motif_46)	
			)		


			
; *******************************************MOTIF 47	Ajout V10
	
			(let*
				(
					;; correspondance des variables
					(R (random 255)) ; nombre aléatoire
					(V (random 255)) ; nombre aléatoire
					(B (random 255)) ; nombre aléatoire
					(motif_47 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_47 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_47 "motif_47")	

				(set! R (round R))
				(set! V (round V))
				(set! B (round B))
		
				;; Render ball using G'MIC.
				(plug-in-gmic 1 img motif_47 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-ball "
						(number->string R 10) ","
						(number->string V 10) ","
						(number->string B 10) " -to_colormode 3 -replace_color 0,20,0,0,0,"
						(number->string (- 255 R) 10) ","
						(number->string (- 255 V) 10) ","
						(number->string (- 255 B) 10) " -n 0,255"
					)
				)
				
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_47)
				
			)			
			
			
; *******************************************MOTIF 48 Ajout V11	
	
			(let*
				(
					;; correspondance des variables
					(alea (random 999999999)) ; nombre aléatoire
					(motif_48 (car (gimp-layer-copy drawable TRUE)))			
				)

				;; Add a layer
				(gimp-image-add-layer img motif_48 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_48 "motif_48")	

				;; greffon plasma sur le calque motif_48
				(plug-in-plasma 1 img motif_48 alea 3)
		
				;; Render skeleton using G'MIC.
				(plug-in-gmic 1 img motif_48 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-skeleton -n 0,255"
					)
				)

		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_48)
		
			)

			
; *******************************************MOTIF 49 V12	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_49 (car (gimp-layer-copy drawable TRUE)))
					(fond_motif_49 (car (gimp-layer-copy drawable TRUE)))					
				)

				;; Add a layer
				(gimp-image-add-layer img fond_motif_49 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_49 "fond_motif_49")	
				
				;; Add a layer
				(gimp-image-add-layer img motif_49 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_49 "motif_49")	

		
				;; remplir de blanc	
				(gimp-drawable-fill motif_49 2)

				(set! width (/ width 10))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 10))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color using G'MIC.
				(plug-in-gmic 1 img motif_49 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1"
					)
				)

				(gimp-context-set-foreground (car (gimp-image-pick-color img motif_49 1 1 TRUE FALSE 0)))

				;; remplir de couleur PP	
				(gimp-drawable-fill fond_motif_49 0)
				
				;; Render isophotes using G'MIC.
				(plug-in-gmic 1 img motif_49 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-isophotes 6"
					)
				)		
	
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_49)

				;; mettre le calque en mode valeur
				(gimp-layer-set-mode motif_49 14)
				
			)

; *******************************************MOTIF 50 V14	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_50 (car (gimp-layer-copy drawable TRUE)))
					(R 0)
					(V 0)
					(B 0)
					(n1 3)	
					(n2 3)					
					(fond_motif_50 (car (gimp-layer-copy drawable TRUE)))					
				)

				;;(set! R (random 255))
				;;(set! V (random 255))
				;;(set! B (random 255))

				;;(set! R (round R))
				;;(set! V (round V))
				;;(set! B (round B))

				;;(gimp-message (number->string R 10))
				;;(gimp-message (number->string V 10))
				;;(gimp-message (number->string B 10))
				
				(set! n1 (random 8))				
				(set! n1 (round n1))
				(set! n1 (+ 2 n1))

				(set! n2 (random 4))				
				(set! n2 (round n2))
				(set! n2 (+ 4 n2))

				;; Add a layer
				(gimp-image-add-layer img fond_motif_50 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_50 "fond_motif_50")	

				;; remplir de gris
				;;(gimp-context-set-foreground '(127 127 127))
				;;(gimp-drawable-fill fond_motif_50 0)
				
				;; Obtenir une couleur aléatoire foncée en mode RGB avec G'MIC.
				(plug-in-gmic 1 img fond_motif_50 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"rouge={round((g+5)*5)} vert={round((g+5)*5)} bleu={round((g+5)*5)}  -to_colormode 3 -fill_color $rouge,$vert,$bleu"
					)
				)

				;; Add a layer
				(gimp-image-add-layer img motif_50 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_50 "motif_50")
		
				;; Render grid, rotate tiles using G'MIC.
				(plug-in-gmic 1 img motif_50 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-grid "
						(number->string n1 10) "%,"
						(number->string n1 10) "%,0,0,1,"
						(number->string R 10) ","
						(number->string V 10) ","
						(number->string B 10) " -rotate_tiles 45,"
						(number->string n2 10) ","
						(number->string n2 10) " -resize "
						(number->string width 10) ","
						(number->string height 10) ",1,4,5 -cut 0,255"
					)
				)		

				;; sélection du blanc
				(gimp-by-color-select motif_50 '(255 255 255) 0 CHANNEL-OP-REPLACE FALSE FALSE 0 FALSE)
				
				;; supprimer le blanc
				(gimp-edit-clear motif_50)
				
				;; ne rien sélectionner
				(gimp-selection-none img)
				
			)



			
; *******************************************MOTIF 51 V 13	

			(let*
				(
					(motif_51 (car (gimp-layer-copy drawable TRUE)))
					(a 0)
					(b 1)
					(c 0)
					(d 0)
					(e 0)
					(f 0)
					(g 0)
					(h 1)
					(i 0)			
				)
				
				(set! a (random 255))
				(set! b (random 255))
				(set! c (random 255))
				(set! d (random 255))
				(set! e (random 255))
				(set! f (random 255))
				(set! g (random 255))
				(set! h (random 255))
				(set! i (random 255))
				(set! a (round a))
				(set! c (round c))
				(set! d (round d))
				(set! e (round e))
				(set! f (round f))
				(set! g (round g))
				(set! h (round h))
				(set! i (round i))
				
				;;(gimp-message (number->string a 10))
				;;(gimp-message (number->string b 10))
				;;(gimp-message (number->string c 10))
				;;(gimp-message (number->string d 10))
				;;(gimp-message (number->string e 10))
				;;(gimp-message (number->string f 10))
				;;(gimp-message (number->string g 10))
				;;(gimp-message (number->string h 10))
				;;(gimp-message (number->string i 10))

				;; Add a layer
				(gimp-image-add-layer img motif_51 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_51 "motif_51")

				;; Render plasma, lic, topographic, mix using G'MIC.
				(plug-in-gmic 1 img motif_51 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-plasma 4,0.1 -n 0,255 -lic 100,1 -topographic_map 20,5 -mix_rgb "
						(number->string a 10) ","
						(number->string b 10) ","
						(number->string c 10) ","
						(number->string d 10) ","
						(number->string e 10) ","
						(number->string f 10) ","
						(number->string g 10) ","
						(number->string h 10) ","
						(number->string i 10) 
					)
				)		

				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_51)
				
			)
	
; *******************************************MOTIF 52 V18	

			(let*
				(
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_52 (car (gimp-layer-copy drawable TRUE)))	
					(a 0)
					(b 1)
					(c 0)
					(d 0)
					(e 0)
					(f 0)
					(g 0)
					(h 1)
					(i 0)			
				)
				
				(set! a (random 255))
				(set! b (random 255))
				(set! c (random 255))
				(set! d (random 255))
				(set! e (random 255))
				(set! f (random 255))
				(set! g (random 255))
				(set! h (random 255))
				(set! i (random 255))
				(set! a (round a))
				(set! c (round c))
				(set! d (round d))
				(set! e (round e))
				(set! f (round f))
				(set! g (round g))
				(set! h (round h))
				(set! i (round i))

				;; Add a layer
				(gimp-image-add-layer img motif_52 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_52 "motif_52")

				;; remplir de blanc	
				(gimp-drawable-fill motif_52 2)	

				(set! width (/ width 24))
				(set! width (+ width 1))
				(set! width (round width))
				(set! height (/ height 24))
				(set! height (+ height 1))
				(set! height (round height))
		
				;; Render array color, topographic map, mix rgb using G'MIC.
				(plug-in-gmic 1 img motif_52 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_array_color "
						(number->string width 10) ","
						(number->string height 10) ",1 -topographic_map 20,5 -mix_rgb "
						(number->string a 10) ","
						(number->string b 10) ","
						(number->string c 10) ","
						(number->string d 10) ","
						(number->string e 10) ","
						(number->string f 10) ","
						(number->string g 10) ","
						(number->string h 10) ","
						(number->string i 10) 
					)
				)		
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_52)	
			)
	

; *******************************************MOTIF 53	
	
			(let*
				(
					;; correspondance des variables
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(motif_53 (car (gimp-layer-copy drawable TRUE)))			
					;;(fond_motif_53 (car (gimp-layer-copy drawable TRUE)))					
				)

				;; Add a layer
				;;(gimp-image-add-layer img fond_motif_53 -1)

				;; donner un nom au calque
				;;(gimp-drawable-set-name fond_motif_53 "fond_motif_53")

				;; remplir de blanc
				;;(gimp-drawable-fill fond_motif_53 2)	
				
				;; Add a layer
				(gimp-image-add-layer img motif_53 -1)

				
				;; donner un nom au calque
				(gimp-drawable-set-name motif_53 "motif_53")	

				(set! width (/ width 9))
				(set! width (+ width 1))
				(set! width (round width))

				
				;; Render dilate oct using G'MIC.
				(plug-in-gmic 1 img motif_53 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-color_ellipses "
						(number->string height 10) ",10,1 -dilate_oct "
						(number->string width 10) " -to_colormode 3"
					)
				)		

				;; Render smoothing using G'MIC.
				(plug-in-gmic 1 img motif_53 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_anisotropic_smoothing 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,1,1,1"
					)
				)
				
				;; rendre le motif raccordable
				(plug-in-make-seamless 1 img  motif_53)
		
			)	
	

	
	
; *******************************************MOTIF 54	

			(let*
				(
					(motif_54 (car (gimp-layer-copy drawable TRUE)))
					(width (car (gimp-drawable-width drawable))) ; largeur
					(height (car (gimp-drawable-height drawable))) ; hauteur
					(fond_motif_54 (car (gimp-layer-copy drawable TRUE)))			
				)
		
				;; Add a layer
				(gimp-image-add-layer img fond_motif_54 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name fond_motif_54 "fond_motif_54")			
		
				;; Obtenir une couleur aléatoire très claire en mode RGB avec G'MIC.
				(plug-in-gmic 1 img fond_motif_54 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"rouge={round((u*20)+235)} vert={round((u*20)+235)} bleu={round((u*20)+235)} -to_colormode 3 -fill_color $rouge,$vert,$bleu"
					)
				)

				(set! width (/ width 8))
				(set! width (round width))	
				(set! height (/ height 8))
				(set! height (round height))			
	
		
				;; Add a layer
				(gimp-image-add-layer img motif_54 -1)

				;; donner un nom au calque
				(gimp-drawable-set-name motif_54 "motif_54")

				;; remplir de blanc	
				(gimp-drawable-fill motif_54 2)	

				;; Render chessboard, sponge using G'MIC.
				(plug-in-gmic 1 img motif_54 1
					(string-append
						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
						"-gimp_chessboard "
						(number->string width) ","
						(number->string height) ",0,0,0,1,0,0,0,255,255,255,255,255 -sponge 5 -to_colormode 0"
					)
				)		
		
	
				;; sélection du noir
				(gimp-by-color-select motif_54 '(0 0 0) 0 CHANNEL-OP-REPLACE FALSE FALSE 0 FALSE)
				
				;; supprimer le noir
				(gimp-edit-clear motif_54)

				;; remplir de motif	
				(gimp-edit-fill motif_54 4)

				;; inverser la séletion
				(gimp-selection-invert img)

				;; supprimer le blanc
				(gimp-edit-clear motif_54)
				
				;; ne rien sélectionner
				(gimp-selection-none img)	
	
				;; rendre le motif raccordable
				;(plug-in-make-seamless 1 img  motif_54)	
	
			)		
	
	
			
; *******************************************FIN MOTIFS	


; *******************************************CE QUI NE FONCTIONNE PAS TROP BIEN

;			(let*
;				(
;					(width (car (gimp-drawable-width drawable))) ; largeur
;					(height (car (gimp-drawable-height drawable))) ; hauteur
;					(motif_42 (car (gimp-layer-copy drawable TRUE)))
;					(active-layer (car (gimp-image-get-active-layer img)))
;				)
;				;; Add a layer
;				(gimp-image-add-layer img motif_42 -1)
;		
;				;; donner un nom au calque
;				(gimp-drawable-set-name motif_42 "motif_42")
;
;				;; remplir de blanc	
;				(gimp-drawable-fill motif_42 2)	
;		
;				;; Render rainbow using G'MIC . Ajouter la fonction resize pour mettre à l'échelle.
;				(plug-in-gmic 1 img motif_42 1
;					(string-append
;						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
;						"-rainbow_lut -c 0,255 -n 0,255 -to_rgb -resize "
;						(number->string width 10) ","
;						(number->string height 10)
;					)
;				)	
;		
;				;; bricolage pour renommer le calque (car le nom a changé avec G'MIC) et impossible de supprimer le calque supplémentaire créé par G'MIC
;				;;   [G'MIC] : -v - -rainbow_lut -c 0,255 -n 0,255 -to_rgb -resize 64,64
;				(set! active-layer (car (gimp-image-get-active-layer img)))		
;				(gimp-drawable-set-name active-layer "motif_42")
;				;; rendre le motif raccordable
;				;(plug-in-make-seamless 1 img  active-layer)



;*********


;				(gimp-message (string (integer->char 34)))
;				(gimp-message (string (integer->char 39)))
;		
;				;; Render elevation3d using G'MIC.
;				(plug-in-gmic 1 img motif_46 1
;					(string-append
;						"-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
;						"-elevation3d " 
;						(string (integer->char 34))
;						(string (integer->char 39)) "30*sin(x*y)^2"
;						(string (integer->char 39))
;						(string (integer->char 34)) ",-4,-4,4,4 -color3d 255,0,0,1 -gimp_render3d 256,256,0.4,0,0,0,45,0,0,-100,0.5,0.7,3 -resize "
;						(number->string width 10) ","
;						(number->string height 10)
;					)
;				)	









; *******************************************FIN CE QUI NE FONCTIONNE PAS TROP BIEN





			;; mettre les couleurs PP et AP d'origine
		(gimp-context-set-foreground origine_pp)

		(gimp-context-set-background origine_ap)
		
		;; fin test erreur = 0
		)
	)
		
	)

	
	;; Flush display.
	(gimp-displays-flush)

	;; End undo group.
	(gimp-image-undo-group-end img)
)



(script-fu-register "script_36_motifs_with-gmic"
	_"<Image>/Filters/G'MIC 36 motifs..."
	"Show how to create three dozen patterns with random colors and shapes. Dimensions w,h>23 & w*h<262145"
	"David Tschumperlé, samj"
	"David Tschumperlé, samj"
	"November 2010"
	"*"
	SF-IMAGE		"Image"							0
	SF-DRAWABLE		"Drawable"						0
)

;; Fin du script