%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      :"Star Isolate"
Copyright  :"@2005 James Ryan all rights reserved"
Author     :"James Ryan"
Organization:"Astroplugins"
URL:"http://www.grekalova.com/plugins/"
Filename   :"Star Isolate.8bf"
Description:"Isolate Stars"
Version    :"1.01"
About      :"!T !V\n!D\n"
            "!c\n!U"

//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",val=255
ctl(1):"Green",val=128
ctl(2):"Blue",val=255
ctl(3):"Radius",range = (1,20), val=28


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

ForEveryTile:{

	int x,y,r,g,b,r1,g1,b1;
    word intensity, cubed, xbox, i,j,k,l;
    cubed = ctl(0) + ctl(1) + ctl(2);
    xbox = ctl(3);



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

			

            pset(x,y,0, 0 ); //red channel
			pset(x,y,1, 0 ); //green channel
			pset(x,y,2, 0); //blue channel

          

		}
	}

	
	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

			//Calculation of unsupported FF expressions
			//Comment out the not needed variables!
			r = src(x,y,0);
			g = src(x,y,1);
			b = src(x,y,2);

            if ((r + g + b) > cubed)
              {
                for (i=max(x-xbox,x_start); i<min(x+xbox,x_end);i++)
                   {

                     for (j=max(y-xbox,y_start); j<min(y+xbox,y_end);j++)
                       {
                         k=abs(i-x);
                         l=abs(j-y);
                         if (k*k+l*l<xbox*xbox)
                            {
                                r = src(i,j,0);
			                    g = src(i,j,1);
	 		                    b = src(i,j,2);

                             
			                    pset(i,j,0, r ); //red channel
			                    pset(i,j,1, g ); //green channel
			                    pset(i,j,2, b); //blue channel
                             }

                       }
                    }

               }


		}
	}

	


	
	return true;	

}//ForEveryTile