zum einen...
Delphi-Quellcode:
...
rquadr : integer;
..
rquadr=sqr(radius); // dann brauchs nicht jdesmal neu berechnet zu werden daher ausserhalb der schleife berechnen
..
if nx*nx+ny*ny <= rquadr then
zum anderen, wenn du das für verschiedene radien machen willst, dann mache dies gleichzeitig für den jeweiligen mittelpunkt! d.h. du solltest dein OutData[i,j] um eine ebene der radien erweitern!
ps.: herzlich willkommen bei
dp!