Контрольная работа: Перетворення координат, операції масштабування в бібліотеці Opengl

{$R *.DFM}

const

stripeImageWidth = 32;

var

stripeImage : Array [0..3*stripeImageWidth-1] of GLubyte;

procedure makeStripeImage;

var

j : GLint;

begin

For j := 0 to stripeImageWidth - 1 do begin

If j <= 4

then stripeImage[3*j] := 255

else stripeImage[3*j] := 0;

If j > 4

then stripeImage[3*j + 1] := 255

else stripeImage[3*j + 1] := 0;

stripeImage[3*j+2] := 0;

end;

end;

procedure OutText (Litera : PChar);

begin

glListBase(GLF_START_LIST);

glCallLists(Length (Litera), GL_UNSIGNED_BYTE, Litera);

end;

procedure TfrmGL.Init;

const

sgenparams : Array [0..3] of GLfloat = (1.0, 1.0, 1.0, 0.0);

begin

glEnable(GL_DEPTH_TEST);// разрешаем тест глубины