function CreateCircleRegion takes region CircleRegion, real x, real y, real radius returns nothing
 local rect rect2add
 local real r = radius
 loop
  set rect2add = Rect( (x-r)-16, (y+SquareRoot(radius*radius-r*r))+16, (x+r)+16, (y-SquareRoot(radius*radius-r*r))-16 )
  call RegionAddRect( CircleRegion, rect2add )
  call RemoveRect( rect2add )

  set r = r - 32
  exitwhen r<0
 endloop
endfunction

function Some_Function takes nothing returns nothing
 local region EventRegion = CreateRegion()
 call CreateCircleRegion( EventRegion, 10, 50, 1024 )
//10 - кордината центра по оси X
//50 - кордината центра по оси Y
//1024 - радиус окружности

//..........................
endfunction