>>108823328
library(png)
a=commandArgs(T);x=readPNG(a[1]);t=ifelse(length(a)>1,as.numeric(a[2]),.12)
if(length(dim(x))<3)x=array(rep(x,3),c(dim(x),3))
x=x[,,1:3];h=dim(x)[1];w=dim(x)[2]
b=(x[1,1,]+x[1,w,]+x[h,1,]+x[h,w,])/4
m=rowSums((array(b,c(h,w,3),T)-x)^2,dims=2)>t^2
v=matrix(F,h,w);qx=integer(h*w);qy=integer(h*w);l=1;r=0
add=function(i,j){if(i>=1&&i<=h&&j>=1&&j<=w&&!v[i,j]&&!m[i,j]){r<<-r+1;qx[r]<<-i;qy[r]<<-j;v[i,j]<<-T}}
for(i in 1:h){add(i,1);add(i,w)}
for(j in 1:w){add(1,j);add(h,j)}
while(l<=r){i=qx[l];j=qy[l];l=l+1;add(i-1,j);add(i+1,j);add(i,j-1);add(i,j+1)}
cat(sum(!v),"\n")
Rscript area.R polygon.png