x=0; y=R; d=3-2*R;
WideEightSymmetric;
while x<y
    x=x+1;
    if (d >= 0)
        d=d+10+4*x-4*y;
        y=y-1;
    else
        d=d+6+4*x;
    end
    WideEightSymmetric;
end