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


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




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


ctl(0):"Red",range=(0,50),val=12
ctl(1):"Green",range=(0,50),val=6
ctl(2):"Blue",range=(0,50),val=16


                
 ForEveryTile:{
  
    
	for (y=0; y<Y;y++)
                  {
                     for (x=0; x<X;x++)
                       {
                         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));
                            }
                             else
                            {
                             pset(x,y,0,r);
                            }
                          if (g<ctl(1))
                            {
                             pset(x,y,1,ctl(1));
                            }
                             else
                            {
                             pset(x,y,1,g);
                            }
                          if (b<ctl(2))
                           {
                             pset(x,y,2,ctl(2));
                            }
                             else
                            {
                             pset(x,y,2,b);
                            }

                       }
                 }



	return true;	

}//ForEveryTile