Tom Keil 3D convertion

#****************************************
#3D Anaglyph
#****************************************

#@gimp 3D Conversion : gimp_make3D, gimp_make3D_preview(1)
#@gimp : sep = separator()
#@gimp : note = note("Stereoscopic settings:")
#@gimp : Scene selector = choice("light motive","dark motive","landscape","center foreground","centerbackground","left foreground","right foreground","underwater")
#@gimp : Stereo base = float(50,0,200)
#@gimp : Depth control = float(0,0,100)
#@gimp : Flip left / right = bool(0)
#@gimp : Use indivial depth map = bool(0)
#@gimp : note = note("<small>To use this option your depth map must be placed below your image. Switch input layers to <i><b>Active and below</b></i>.</small>")
#@gimp : sep = separator()
#@gimp : note = note("Image adjustment:")
#@gimp : Black & White = bool (0)
#@gimp : Stereo pair = bool (0)
#@gimp : Gamma compensation = float(1,0,4)
#@gimp : Color boost = float(1,0,4)
#@gimp : Red / cyan compensation = float(0,-255,255)
#@gimp : sep = separator(), Preview type = choice("Full","Forward horizontal","Forward vertical","Backward horizontal","Backward vertical")
#@gimp : sep = separator(), note = note("<small>Author : <i>Tom Keil</i>.      Last update : <i>2011/03/01</i>.</small>")
#@gimp : note = link("Filter explained here","http://www.flickr.com/groups/gmic/discuss/72157626154386744/")

gimp_make3D :

 -repeat @# -l[$>] -if {$6==0} -to_rgb[0] --gimp_do_nothing[0]
 -else -luminance[0] -to_rgb[0] --gimp_do_nothing[0] -endif
 -if {$5==0}
 -if {$1==0} --luminance[-1]
 -gimp_channel_processing[-1] 1,{$3/25},0,0,0,0,100,256,0,0,0,2,0,0
 -elif {$1==1} --luminance[-1] -negative[-1]
 -gimp_channel_processing[-1] 1,{$3/25},0,0,0,0,100,256,0,0,0,2,0,0
 -elif {$1==2}
 --gimp_linear_gradient[-1] 0,0,0,255,255,255,255,255,0,90,0,{100-$3}
 -elif {$1==3}
 --gimp_radial_gradient[-1] 0,0,0,255,255,255,255,255,1,$3,100,50,50
 -elif {$1==4}
 --gimp_radial_gradient[-1] 0,0,0,255,255,255,255,255,0,0,{100-$3},50,50
 -elif {$1==5}
 --gimp_linear_gradient[-1] 0,0,0,255,255,255,255,255,1,0,$3,100
 -elif {$1==6}
 --gimp_linear_gradient[-1] 0,0,0,255,255,255,255,255,0,0,0,{100-$3}
 -elif {$1==7} --channels[-1] 0
 -gimp_channel_processing[-1] 1,{$3/25},0,0,0,0,100,256,0,0,0,2,0,0
 -endif
 -gimp_gaussian_blur[-1] 0,0,{{w+h}*0.00285},1,0,0,0

 -else -rv[1,-1] -to_rgb[-1] -luminance[-1] -endif

 -r[-1] 100%,100%,1,2 -s[-1] c -f[-1] 0 -n[-2] 0,$2 -a[-1,-2] c
 -warp[-2] [-1],1 -rm[-1]
 -if {$7==0} -s c
 -if {$4==0} -rm[-1,-2,-6]  -mv[-1] 0 -a[-1,-2,-3] c
 -else -rm[-3,-4,-5] -a[-1,-2,-3] c -endif
 -else -if {$4==1} -rv[-1,-2] -endif
 -r[-1,-2] 50%,50% -a[-1,-2] x -endif
 -apply_gamma $8
 -gimp_mix_lab 1,0,0,$9,0,0,$8,0,0,0,2,0
 -if {$7==0} -gimp_mix_rgb 1,$10,0,1,0,0,1,0,0,0,2,0 -endif -endl -done

gimp_make3D_preview :
 -gimp_split_preview "-gimp_make3D ${1--2}",$-1


#************END OF FILTER***************