&sv .incover = source
&sv .outcover = result
&sv .width = 200
&sv .field = Satisfy
&sv .value = 'Yes'
&sv .half = %.width% / 2
md zedd
copy %.incover% zedd\outline
build zedd\outline line
buffer zedd\outline zedd\buf_in # # %.half% 0.000000000000000000001 line
index zedd\buf_in all
index %.incover% all
union %.incover% zedd\buf_in zedd\uni 0.000000000000000000001
reselect zedd\uni zedd\res
res %.field% = %.value% and Inside = 1;;
n
n
createlabels zedd\res
build zedd\res poly
workspace zedd
additem res.pat res.pat buffzzz 16 16 N 0
tables
select res.pat
reselect inside = 1 and %.field% = %.value%
calculate buffzzz = %.half%
quit
workspace ..
buffer zedd\res %.outcover% buffzzz # # 0.000000000000000000001 poly
dw zedd
y
q