- if (Value=0)or(Value=2)or(Value=4)or(Value=8) then
- begin
- fAA := Value;
- SetLength(fAAOS, fAA*2+1);
- fAAOS[0,0] := 0.0;
- fAAOS[0,1] := 0.0;
- if (fAA>=2) then
- begin
- fAAOS[1,0] := -1.0; fAAOS[1,1] := +1.0;
- fAAOS[2,0] := +1.0; fAAOS[2,1] := +1.0;
- fAAOS[3,0] := -1.0; fAAOS[3,1] := -1.0;
- fAAOS[4,0] := +1.0; fAAOS[4,1] := -1.0;
- if (fAA>=4) then
- begin
- fAAOS[5,0] := -0.5; fAAOS[5,1] := +0.5;
- fAAOS[6,0] := +0.5; fAAOS[6,1] := +0.5;
- fAAOS[7,0] := -0.5; fAAOS[7,1] := -0.5;
- fAAOS[8,0] := +0.5; fAAOS[8,1] := -0.5;
- if (fAA>=8) then
- begin
- fAAOS[9,0] := 0.0; fAAOS[9,1] := +1.0;
- fAAOS[10,0] := -1.0; fAAOS[10,1] := 0.0;
- fAAOS[11,0] := +1.0; fAAOS[11,1] := 0.0;
- fAAOS[12,0] := 0.0; fAAOS[12,1] := -1.0;
- fAAOS[13,0] := 0.0; fAAOS[13,1] := +0.5;
- fAAOS[14,0] := -0.5; fAAOS[14,1] := 0.0;
- fAAOS[15,0] := +0.5; fAAOS[15,1] := 0.0;
- fAAOS[16,0] := 0.0; fAAOS[16,1] := -0.5;
- end;
- end;
- end;
- end;