%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      :"Background"
Copyright  :"@2005"
Author     :"James Ryan"
Organization:"Astroplugins"
URL:"http://www.grekalova.com/plugins/"
Filename   :"Background.8bf"
Description:"Background"
Version    :"v1.01"
About      :"!T !V\n!D\n"
            "!c\n!U"
Dialog: Text = "AstroPlugins Star Bloat !V  !c !A"


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




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


// Insert you own slider label names and comment out the slider that
// you don't need
ctl(0):"Red",range=(0,50),val=12
ctl(1):"Green",range=(0,50),val=8
ctl(2):"Blue",range=(0,50),val=15

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

ForEveryTile:{

	int x,y,r,g,b;
   
for (y=y_start; y<y_end; y++){ // loop through all rows

		//Update progress bar and cancel if ESC key was pressed
		if ( updateProgress(y,Y) ) break;
			
		for (x=x_start; x<x_end; x++){ // loop through all columns

            r = src(x,y,0);
 			g = src(x,y,1);
			b = src(x,y,2);


           if (r<ctl(0))   
            {
              pset(x,y,0, ctl(0) ); //red channel
            }
           else
            {
              pset(x,y,0,r);  
            }
          
           if (g<ctl(1))   
            {
              pset(x,y,1, ctl(1) ); //red channel
            }
           else
            {
              pset(x,y,1,g);  
            }
          if (b<ctl(2))   
            {
              pset(x,y,2, ctl(2) ); //red channel
            }
           else
            {
              pset(x,y,2,b);  
            }

		

		}
	}

	
	return true;	

}//ForEveryTile