- var
- N : TVector3f;
- begin
- case Mode of
- 1 : begin N[0] := x*2-1; N[1] := y*2-1; N[2] := -1; end;
- 2 : begin N[0] := 1; N[1] := y*2-1; N[2] := x*2-1; end;
- 3 : begin N[0] := -1; N[1] := y*2-1; N[2] := x*2-1; end;
- 4 : begin N[0] := x*2-1; N[1] := 1; N[2] := y*2-1; end;
- 5 : begin N[0] := x*2-1; N[1] := -1; N[2] := y*2-1; end;
- else
- begin N[0] := x*2-1; N[1] := y*2-1; N[2] := 1; end;
- end;
- AddTriIndex(AddGlobalPoint(N[0],N[1],N[2]));
- case mode of
- 0 : begin x := N[0]; y := 1-N[1]; end;
- 1 : begin x := N[0]; y := N[1]; end;
- 2 : begin x := 1-N[2]; y := 1-N[1]; end;
- 3 : begin x := N[2]; y := N[1]; end;
- 4 : begin x := N[0]; y := N[2]; end;
- 5 : begin x := N[0]; y := 1-N[2]; end;
- end;
- FTextureCoords[FTIndex-1][0] := x;
- FTextureCoords[FTIndex-1][1] := y;