Контрольная работа: Деякі формати мультимедіа. Використання шейдерів та фракталів

Left = 163

Top = 167

Width = 385

Height = 272

Caption = #1055#1079#1089'-504 '#1070#1088#1095#1091#1082' '#1057'.'#1051'.'

Color = clBlack

Font.Charset = RUSSIAN_CHARSET

Font.Color = clMaroon

Font.Height = -16

Font.Name = 'Times New Roman'

Font.Style = [fsBold, fsItalic]

OldCreateOrder = True

Position = poScreenCenter

OnCreate = FormCreate

OnDestroy = FormDestroy

OnKeyDown = FormKeyDown

OnPaint = FormPaint

OnResize = FormResize

PixelsPerInch = 96

TextHeight = 19

end

procedure TfrmGL.FormPaint(Sender: TObject);

begin

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glPushMatrix;

glRotatef(Angle, 0.0, 1.0, 0.0); // поворот на угол

glMaterialfv(GL_FRONT, GL_AMBIENT_AND_DIFFUSE, @MaterialColor);

OutText ('ЮРЧУК С.Л.');

glPopMatrix;