#@gmic

																																																																																																																																																																		


#@gimp _<b>Testing</b>
#@gimp <i>004</i>













#################################################
##                                             ##
##                Texture 001                  ##
##                                             ##
#################################################



#@gimp Texture 001  : samj_gimp_texture_zero_zero_un, samj_gimp_texture_zero_zero_un_preview(0)
#@gimp : note = note("<small>Gimp Chat Forum</small>")
#@gimp : note = link("http://gimpchat.com/viewtopic.php?f=4&t=9175","http://gimpchat.com/viewtopic.php?f=4&t=9175")
#@gimp : sep = separator()
#@gimp : Smoothness Gradient RGB = float(0,0.5,2)
#@gimp : Max threshold Gradient RGB = float(20,10,50)
#@gimp : sep = separator()
#@gimp : Amplitude Noise = float(80.0,40,200)
#@gimp : sep = separator()
#@gimp : Colors = float(0,-20,20)
#@gimp : Automatic color balance = bool(0)
#@gimp : sep = separator()
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>samj - Latest update : <i>2013/12/04</i>.</small>")


samj_gimp_texture_zero_zero_un :

-repeat @# -l[$>]

	Smoothness_Gradient_RGB=$1
	Max_threshold_Gradient_RGB=$2

	Amplitude_Noise=$3
	
	Colors=$4
	Automatic_color_balance=$5

	--gimp_do_nothing
	-gimp_gradient2rgb[-1] $Smoothness_Gradient_RGB,0,$Max_threshold_Gradient_RGB,0,0
	{w},{h},1,3
	-fill_color[-1] 255,255,255
	-to_rgb[-1]
	-gimp_noise[-1] $Amplitude_Noise,0,2,0
	-gimp_blend[-1,-2] 25,1,0
	-gimp_tk_colortemp[-1] $Colors,$Automatic_color_balance
	-gimp_local_orientation[-1] 0,0,100,0,7
	
	-gimp_normalize_local[-1] 0,6,5,20,1,2
	-gimp_blend[0,-1] 13,1,0

-endl -done
  
samj_gimp_texture_zero_zero_un_preview :
	-gimp_split_preview "-samj_gimp_texture_zero_zero_un $*",$-1


#################################################
##                                             ##
##              FIN Texture 001                ##
##                                             ##
#################################################




#################################################
##                                             ##
##       gimp_Polygonize_Colored_Pencils       ##
##                                             ##
#################################################




#### assemblage de filtres samj 20131204
#@gimp Polygonize Colored Pencils : gimp_Polygonize_Colored_Pencils, gimp_Polygonize_Colored_Pencils_preview(0)
#@gimp : sep = separator(), note = note("<small>Polygonize parameters</small>")
#@gimp : Amplitude = int(300,0,2000)
#@gimp : Smoothness = float(10,0,100)
#@gimp : Minimal area = float(10,0,100)
#@gimp : X-resolution = float(10,1,256)
#@gimp : Y-resolution = float(10,1,256)
#@gimp : sep = separator(), note = note("<small>Colored Pencils parameters</small>")
#@gimp : Size = float(1.3,0,5)
#@gimp : Amplitude = float(50,0,200)
#@gimp : Quantize colors = int (20,2,255)
#@gimp : Color smoothness = float(2,0,30)
#@gimp : Mixer mode = choice(2,"Color Doping","Darken","Hard Light","Grain Merge","Lightness","Multiply","Soft Light","Value")
#@gimp : Color intensity =float (1,0,1)
#@gimp : sep = separator(), note = note("<small>Local Normalization</small>")
#@gimp : Normalization = choice(0,"No","ALL","Luminance")
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>Filters by David Tschumperl&#233; - PhotoComiX  Latest update : <i>2013/12/04</i>.</small>")


gimp_Polygonize_Colored_Pencils :

-repeat @# -l[$>]
-polygonize[-1] $1,$2,$3,$4,$5
-gimp_cpencil[-1] $6,$7,$8,$9,$10,$11
-if {$12==1}
	-gimp_normalize_local[-1] 2,6,5,20,1,0
-elif {$12==2}
	-gimp_normalize_local[-1] 2,6,5,20,1,3
-endif
-endl -done
  
gimp_Polygonize_Colored_Pencils_preview :
	-gimp_split_preview "-gimp_Polygonize_Colored_Pencils $*",$-1

	


#################################################
##                                             ##
##     FIN gimp_Polygonize_Colored_Pencils     ##
##                                             ##
#################################################






#################################################
##                                             ##
##               Rays_Of_Colors                ##
##                                             ##
#################################################




#### samj 20131211
#@gimp Rays Of Colors : samj_Rays_Of_Colors, samj_Rays_Of_Colors_preview(0)
#@gimp : Color Intensity = int(300,1,800)
#@gimp : Color Density = int(8,2,20)
#@gimp : Radius = float(40,0,400)
#@gimp : Border smoothness = float(16,0,200)
#@gimp : Border width = float(38,0,100)
#@gimp : Merge Layers  = bool(1)
#@gimp : sep = separator()
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>samj - Latest update : <i>2013/12/11</i>.</small>")


samj_Rays_Of_Colors :


Color_Intensity=$1
Color_Density=($2/512*{w})
Radius=$3
Border_smoothness=$4
Border_width=$5
Merge_Layers=$6

-repeat @# -l[$>]
	
	--gimp_do_nothing
	-to_rgb[-1]
	-fill_color[-1] 0,0,0


	-repeat $Color_Intensity

		R_Couleur={round(?(0,255))}
		V_Couleur={round(?(0,255))}
		B_Couleur={round(?(0,255))}	

		X_point={round(?(0,{w}))}
		Y_point={round(?(0,{h}))}					

		-polygon[-1] 4,$X_point,$Y_point,$X_point,{$Y_point+$Color_Density},{$X_point+$Color_Density},{$Y_point+$Color_Density},{$X_point+$Color_Density},$Y_point,1,$R_Couleur,$V_Couleur,$B_Couleur,255
		
	-done

	-gimp_textured_glass[-1] 40,40,1,1,0,2,0

	-gimp_map_sphere[-1] {w},{h},$Radius,0.5,0,$Border_smoothness,$Border_width,0,0,100,3


	#####

	
	-fill_color[-2] 0,0,0


	-repeat $Color_Intensity

		R_Couleur={round(?(0,255))}
		V_Couleur={round(?(0,255))}
		B_Couleur={round(?(0,255))}	

		X_point={round(?(0,{w}))}
		Y_point={round(?(0,{h}))}					

		-polygon[-2] 4,$X_point,$Y_point,$X_point,{$Y_point+$Color_Density},{$X_point+$Color_Density},{$Y_point+$Color_Density},{$X_point+$Color_Density},$Y_point,1,$R_Couleur,$V_Couleur,$B_Couleur,255
		
	-done

	-gimp_textured_glass[-2] 40,40,1,1,0,2,0

	-gimp_map_sphere[-2] {w},{h},$Radius,0.5,0,$Border_smoothness,$Border_width,0,0,100,3	

	-if {$Merge_Layers==1}
		-gimp_blend[-2,-1] 0,1,0
	-endif	



-endl -done




samj_Rays_Of_Colors_preview :
	-gimp_split_preview "-samj_Rays_Of_Colors $*",$-1



	


#################################################
##                                             ##
##              FIN Rays_Of_Colors             ##
##                                             ##
#################################################





#################################################
##                                             ##
##           From_Scratch_Challenge            ##
##                                             ##
#################################################





#@gimp From Scratch Challenge  : samj_From_Scratch_Challenge, samj_From_Scratch_Challenge_preview(0)
#@gimp : note = note("<small>Gimp Chat Forum</small>")
#@gimp : note = link("http://gimpchat.com/viewtopic.php?f=28&t=9249")
#@gimp : sep = separator()
#@gimp : note = link("Album","https://plus.google.com/photos/117441237982283011318/albums/5956473343124252001/5956473346053165362");
#@gimp : sep = separator()
#@gimp : Choice of image to create = choice(0,"Exit","samj 1 - Rays Of Colors","samj 2 - From Scratch","samj 3 - Cercles 3D","samj 4 - Cupid","samj 5 - Geo","samj 6 - Blanc","samj 7 - Christmas Ghost","samj 8 - Degradation","samj 9 - Geometrique","samj 10 - O ","samj 11 - 1.5.8.1 ")
#@gimp : sep = separator()
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>samj - Latest update : <i>2013/12/16</i>.</small>")


samj_From_Scratch_Challenge :

-repeat @# -l[$>]


-if {$1==0}
	#### Exit
-elif {$1==1}	# samj 1
	-resize[-1] 512,512 512,512,1,3 -to_rgb[-1,-2] -fill_color[-1,-2] 0,0,0 -samj_Rays_Of_Colors[-1] 300,8,40,16,38,1 -gimp_blend[-2,-1] 0,1,0
-elif {$1==2}	# samj 2
	-resize[-1] 640,400 640,400,1,3 -to_rgb[-1,-2] -fill_color[-1,-2] 0,0,0 -warhol[-1] 10,10,10,60 -gimp_local_orientation[-1] 5,0,100,0,0,0 -gimp_symmetrizoscope[-1] 4,270,2,0 -gimp_map_sphere[-1] 640,400,90,0.5,0,0,20,0,1,100,2.36009 -gimp_colormap[-1] 9,1,2,2,0,0,0,255,255,255,255,0,0,0,255,0,0,0,255,255,255,0,255,0,255,0,255,255,0 -gimp_blend[-2,-1] 0,1,0
-elif {$1==3}	# samj 3 ( -gimp_meancurvature_smoothing 30,21,0,0,0,24,0  donne un carr au centre, remplac par -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,0,10,2,0,24,0 )
	-resize[-1] 512,512 512,512,1,3 -to_rgb[-1,-2] -fill_color[-1,-2] 0,0,0 -gimp_chessboard[-1] 60,60,0,0,45,1,0,0,0,255,255,255,255,255,0 -gimp_circle_transform[-1] 0.5,0.5,1,1.4,0.5,1,1,1,1 -gimp_blur_angular[-1] 3.88278,0.5,0.5,100.733,0,0 -c[-1] 0,255 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,0,10,2,0,24,0 -gimp_sepia[-1] 0,1,0,0 -gimp_blend[-2,-1] 0,1,0
-elif {$1==4}	# samj 4
	-resize[-1] 640,400 640,400,1,3 -to_rgb[-1,-2] -fill_color[-2] 0,0,0 -gimp_noise[-1] 200,0,0,0,0 -gimp_wind[-1] 30,0,0.7,20,1,0,0 -water[-1] 5,1 -gimp_watercolor[-1] 1.8,0.1,1,80,0,0.5,0,0,0,2,0,2,4,2,0,3,3,2,0,4,2,0,0,0,0,0 -gimp_cupid[-1] 0,192,192,192,255 -gimp_dreamsmooth[-1] 3,1,1,0.8,0,0.2,1,24,0 -gimp_blend[-2,-1] 0,1,0
-elif {$1==5}	# samj 5
	-resize[-1] 512,512 512,512,1,3 -to_rgb[-1,-2] -fill_color[-1,-2] 0,0,0 -gimp_plasma[-1] 0.5,0,8,0,0 -gimp_circle_transform[-1] 0.5,0.5,4,6,1,0,0,2,1 -gimp_gradient_norm[-1] 2,0.5,0,100,0,0 -gimp_gradient2rgb[-1] 0,0,100,0,0,0 -gimp_tk_dri[-1] 0,1,0,1,0.5,1,1,0 -gimp_array_fade[-1] 2,2,0,0,80,90,0,0 -gimp_blend[-2,-1] 0,1,0
-elif {$1==6}	# samj 6
	640,400,1,3 -to_rgb[-1] -fill_color[-1] 255,255,255 -gimp_rotate_tiles[-1] 7,7,15,3,3,1.8 --gimp_do_nothing[-1] -gimp_circle_transform[-2] 0.5,0.5,-2,-2,0.2,0,1,1,1 -gimp_blend[-2,-1] 1,1,0 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,1,21,1,24,0 -gimp_frame_painting[-1] 4,0.4,6,255,255,255,2,400,50,10,1,0.5,123456,0 -rm[-2]
-elif {$1==7}	# samj 7 - Christmas Ghost
	640,400,1,3 -to_rgb[-1] -fill_color[-1] 0,0,0 -gimp_rotate_tiles[-1] 1,1,15,3,3,1.8 -gimp_circle_transform[-1] 0.5,0.483146,-8.61124,-1.49813,0.134831,0,1,1,1 -gimp_circle_transform[-1] 0.5,0.483146,-8.61124,-1.49813,0.134831,0,1,1,1 --gimp_do_nothing[-1] -gimp_textured_glass[-1] 40,40,1,1,0,2,0,0 -gimp_blend[-1,-2] 1,1,0 -gimp_gradient_norm[-1] 0,0.5,0,100,0,0 -gimp_gradient2rgb[-1] 0,0,100,0,0,0 -gimp_tk_metallic[-1] 1,0,1,0 -gimp_tk_metallic[-1] 1,0,4,0 -gimp_frame_painting[-1] 4,1,0,64,64,64,0,400,82.7249,50.2183,1,0.786026,123456,0 -rm[-2]
-elif {$1==8}	# samj 8 - Dgradation
	640,400,1,3 -to_rgb[-1] -fill_color[-1] 255,255,255 -gimp_superformula[-1] 1669,0.429119,0.697318,12,-24,24,32,0,0,15,6,128,128,128,255 -gimp_superformula[-1] 2,0,0,8,1,5,8,0,0,0,13.9847,192,192,64,255 -twirl[-1] 1,0.5,0.5,1 -samj_chalkitup[-1] 5,2.5,1.5,50,1,5,5,0,0,2,0.8,1.9,0,0 --gimp_do_nothing[-1] -gimp_textured_glass[-2] 40.8163,40,1,1,0,4.12245,3,0 -gimp_blend_fade[-1,-2] 1,-0.102564,0,5,0,0,0,0,0,0,"cos(4*pi*x/w) * sin(4*pi*y/h)" -gimp_normalize_local[-1] 2,6,5,20,1,19,0 -gimp_frame_painting[-1] 10,0.4,6,108,23,20,2,400,50,10,1,0.5,123456,0 -rm[-2]
-elif {$1==9}	# samj 9 - Geometrique
	512,512,1,3 -to_rgb[-1] -fill_color[-1] 0,0,0 -gimp_frame_fuzzy[-1] 20,20,40,0,127,127,127,255 -gimp_frame[-1] 0,100,0,100,8,8,64,64,64,255,1,192,192,192,255 -gimp_frame_pattern[-1] 8,1,1,1 -gimp_array_fade[-1] 2,2,0,0,80,90,3,1 -gimp_droste[-1] 0,0,100,0,100,100,0,100,1,0,0,45,0.8,0,1,0,0 -gcd_hsl[-1] 1,0,0,270,0.5,0,1,1,0 -gimp_frame[-1] 0,100,0,100,1,1,91,69,112,255,2,145,112,192,255 -rm[-2]
-elif {$1==10}	# samj 10 - O
	640,400,1,3 -to_rgb[-1] -fill_color[-1] 255,255,255 -gimp_mandelbrot[-1] 0,0,0,3,1,"0.25","0.00",64,64,64,128,128,128,192,192,192,255,255,255 --gimp_do_nothing[-1] -gimp_rotoidoscope[-1] 0.5,0.5,4,5,0 -gimp_blend[-1,-2] 19,1,1 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,10,0,1,24,0 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,10,0,1,24,0 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,10,0,1,24,0 -gimp_anisotropic_smoothing[-1] 60,0.7,0.3,0.6,1.1,0.8,30,2,0,1,10,0,1,24,0 -gimp_sepia[-1] 0.0358209,2.25373,-34.2537,0 -gimp_frame_pattern[-1] 30,1,1,0 -rm[-2]
-elif {$1==11}	# samj 11 - 1.5.8.1
	512,512,1,3 -to_rgb[-1] -fill_color[-1] 0,0,0 -gimp_random3d[-1] 3,300,14.1172,180,22.9707,0,0,-100,0.5,0.7,3,1 -gimp_equalize_details[-1]  0,0,2,0,0,0,2,0,0,0,2,0,0,3,2,0,1,32,0,0 -frame_cube[-1] 0.1,0,0,0,0,0,0 -rm[-2]
-endif




-endl -done
  
samj_From_Scratch_Challenge_preview :
	-gimp_split_preview "-samj_From_Scratch_Challenge $*",$-1




#################################################
##                                             ##
##         FIN From_Scratch_Challenge          ##
##                                             ##
#################################################




#################################################
##                                             ##
##              Toile_D_Araignee               ##
##                                             ##
#################################################




#### samj 20131213
#@gimp Toile Araign&#233;e - Cobweb : samj_Toile_D_Araignee, samj_Toile_D_Araignee_preview(0)
#@gimp : Details = int(0,0,127)
#@gimp : Resolution = float(10,4,20)
#@gimp : Threshold = float(4,2,20)
#@gimp : sep = separator()
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>samj - Latest update : <i>2013/12/13</i>.</small>")


samj_Toile_D_Araignee :

Details=$1
Polygonize_Resolution=$2
Threshold_Thin_Edges=$3


-repeat @# -l[$>]
	
	-gimp_apply_curve[0] $Details,-1,128,-1,128,-1,128,-1,128,-1,128,255,1,0,0,0,0
	--gimp_do_nothing[-1]
	--gimp_do_nothing[-1]
	-gimp_polygonize[-2] 300,100,0,$Polygonize_Resolution,$Polygonize_Resolution,0,0,0,255
	-gimp_thin_edges[-1] 0,$Threshold_Thin_Edges,0
	-gimp_blend[-2,-1] 36,1,1
	-gimp_isophotes[-1] 8,0,1
	-gimp_blend_edges[-2,-1] 1,5,0
	-to_rgb[-1] 
	-rgb2hsl8[-1] 
	-split[-1] c 
	-rm[-2,-3]
	-gimp_thin_edges[-1] 0,15,0,0


-endl -done



samj_Toile_D_Araignee_preview :
	-gimp_split_preview "-samj_Toile_D_Araignee $*",$-1
	


#################################################
##                                             ##
##             FIN Toile_D_Araignee            ##
##                                             ##
#################################################




#################################################
##                                             ##
##                Texture 002                  ##
##                                             ##
#################################################




#### samj 20131214
#@gimp Texture 002 : samj_gimp_texture_zero_zero_deux, samj_gimp_texture_zero_zero_deux_preview(0)
#@gimp : Details = int(0,0,127)
#@gimp : Resolution = float(10,4,20)
#@gimp : Threshold = float(4,2,20)
#@gimp : sep = separator()
#@gimp : Edges = float(10,5,20)
#@gimp : Blend Colors = float(0.5,0,1)
#@gimp : Colors Boost = bool(1)
#@gimp : Boost Intensity = float(1,0,1)
#@gimp : sep = separator()
#@gimp : Black Lines = bool(1)
#@gimp : Blend Black Lines = float(0.5,0,1)
#@gimp : sep = separator()
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>samj - Latest update : <i>2013/12/14</i>.</small>")


samj_gimp_texture_zero_zero_deux :

Details_TA=$1
Polygonize_Resolution_TA=$2
Threshold_Thin_Edges_TA=$3
Edges_Threshold=$4
Blend_Colors_Opacity=$5
Colors_Boost=$6
Boost_Intensity=$7
Black_Lines=$8
Blend_Black_Lines_Opacity=$9


-repeat @# -l[$>]
	
	--gimp_do_nothing[-1]
	-if {$Colors_Boost==1}
		--gimp_do_nothing[-1]
	-endif
	-samj_Toile_D_Araignee[-1] $Details_TA,$Polygonize_Resolution_TA,$Threshold_Thin_Edges_TA
	-if {$Black_Lines==1}
		--gimp_do_nothing[-1]
		-gimp_edges[-1] 0,$Edges_Threshold,0
		-gimp_local_orientation[-1] 0,0,100,0,0,0
		-gimp_blend[-1,-3] 3,$Blend_Colors_Opacity,0
		-gimp_blend[-1,-2] 24,$Blend_Black_Lines_Opacity,0
	-else
		-gimp_edges[-1] 0,$Edges_Threshold,0
		-gimp_local_orientation[-1] 0,0,100,0,0,0
		-gimp_blend[-1,-2] 3,$Blend_Colors_Opacity,0
	-endif
	-if {$Colors_Boost==1}
		-gimp_blend[-1,-2] 13,$Boost_Intensity,0
	-endif

-endl -done



samj_gimp_texture_zero_zero_deux_preview :
	-gimp_split_preview "-samj_gimp_texture_zero_zero_deux $*",$-1
	


#################################################
##                                             ##
##               FIN Texture 001               ##
##                                             ##
#################################################







