帕斯卡代码：

if y * y >= x * x then begin
  p := 4 * y * y - y - x;
  if y < x then
    p := p - 2 * (y - x)
end
else begin
  p := 4 * x * x - y - x;
  if y < x then
    p := p + 2 *(y - x)
end;

说明：左上半对角线（0-4-16-36-64）包含平方的层号（4*layer^2）。外部if语句定义层并在左上半平面的相应行或列中找到位置的（预）结果，而内部if语句则为镜像位置校正结果。