%ffp

// This template gets you started when you plan to enhance one of 
// your FilterFactory plugins with FilterMeister. For this purpose it is
// important to be put the FF source code into FilterMeister's 
// ForEverTile handler as it gives you a lot of new possibilities.



//------------------------------------------------------------------------------------------
// Filter Infos

Category   :"AstroPlugins"
Title      :"Complete Image"
Copyright  :"@2005"
Author     :"James Ryan"
Organization:"Astroplugins"
URL:"http://www.grekalova.com/plugins/"
Filename   :"Complete Image.8bf"
Description:"Complete Image"
Version    :"v1.01"
About      :"!T !V\n!D\n"
            "!c\n!U"
Dialog: Text = "Complete Image !V  !c !A"


//Only apply filter to RGB and Grayscale images
SupportedModes: RGBMode




//------------------------------------------------------------------------------------------
// Filter Control Definitions


ctl(8):statictext,"Source",size=(150,*),pos=(300,20)
ctl(9):statictext,"Target",size=(150,*),pos=(300,100)

ctl(0):checkbox, "Red",pos=(300,40)
ctl(1):checkbox, "Green",pos=(300,60)
ctl(2):checkbox, "Blue",pos=(300,80)
ctl(3):checkbox, "Red",pos=(300,120)
ctl(4):checkbox, "Green",pos=(300,140)
ctl(5):checkbox, "Blue",pos=(300,160)

//------------------------------------------------------------------------------------------
// Here comes the filter code






ForEveryTile:{
if (ctl(0) == 1 && ctl(4)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,1,src(x,y,0));
     }

if (ctl(0) == 1 && ctl(5)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,2,src(x,y,0));
     }
if (ctl(1) == 1 && ctl(3)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,0,src(x,y,1));
     }
if (ctl(1) == 1 && ctl(5)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,2,src(x,y,1));
     }
if (ctl(2) == 1 && ctl(3)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,0,src(x,y,2));
     }

if (ctl(2) == 1 && ctl(4)==1)
     {
       for (x=0;x<X;x++)for(y=0;y<Y;y++) pset(x,y,1,src(x,y,2));
     }
     
   
  updatePreview(n);

	
	return true;	

}//ForEveryTile