/* bomb */
surface
constant_test(float    Kfb = 1    /* fake brightness */)
{
color    surfcolor = 1;
  
  
  
if(s >= 1-t)
    surfcolor = color(0.4,0.4,0.0);
  
else
    surfcolor = color(.5,.4,.1);
    
if ((s-.3)*(s-.3) + (t-.5)*(t-.5) <.04)
    surfcolor = color(0.474,0.0,0.0);
    
if ((s-.3)*(s-.3) + (t-.45)*(t-.45) <.023)
    surfcolor = color(1,0,0);
  
if ((s-.6)*(s-.6) + (t-.5)*(t-.5) <.04)
    surfcolor = color(.309,.309,.309);
  
if ((s-.6)*(s-.6) + (t-.45)*(t-.45) <.023)
    surfcolor = color(0.4,0.4,0.4);
  
if ((s <= .60 && s >= .29) && (t <= .699 && t >= .299))
    surfcolor = color (.309,.309,.309);
    
if ((s <= .60 && s >= .29) && (t <= .6 && t >= .299))
    surfcolor = color (0.4,0.4,0.4);
    
if ((s <= .9 && s >= .8) && (t <= .54 && t >= .46))
    surfcolor = color (0.309,0.309,0.309);
    
if ((s <= .835 && s >= .8) && (t <= .492 && t >= .46))
    surfcolor = color (0.4,0.4,0.4);
    
if ((s <= .95 && s >= .85) && (t <= .699 && t >= .299))
    surfcolor = color (0.4,0.4,0.4);
    
if ((s <= .95 && s >= .85) && (t <= .699 && t >= .52))
    surfcolor = color (.309,.309,.309);
    
if ((s <= .1 && s >= .05) && (t <= .54 && t >= .46))
    surfcolor = color (0.4,0.4,0.4);
    
if ((s <= .1 && s >= .05) && (t <= .54 && t >= .51))
    surfcolor = color (.309,.309,.309);
    
if ((s <= .95 && s >= .93) && (t <= .699 && t >= .299))
    surfcolor = color (.309,.309,.309);
  
    
/* STEP 1 - set the apparent surface opacity */
Oi = Os;
  
/* STEP 2 - calculate the apparent surface color */
Ci = Oi * Cs * surfcolor * Kfb;
}