event init(t=TDROP)
{refine (level < LVL_MAX &&
sq(EPS - dR) - sq(x-X_CEN) - sq(y-Y_CEN) < 0.0 &&
sq(EPS + dR) - sq(x-X_CEN) - sq(y-Y_CEN) > 0.0)
fraction (f, sq(EPS) - sq(x-X_CEN) - sq(y-Y_CEN)); }
where LVL_MAX is the maximal level refinement and dR a small thickness that I define usually with dR = (1 << LVL_MAX - 1) but you can also use a factor instead as 0.9*EPS and 1.1*EPS.