Контрольная работа: Графічні роботи на комп’ютері

frmGL: TfrmGL;

mx,my:byte;

implementation

uses DGLUT;

{$R *.DFM}

procedure TfrmGL.FormPaint(Sender: TObject);

begin

glClear (GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glPushMatrix;

glScalef (my/mx, my/mx, my/mx);

glRotatef (ry, 0.0, 1.0, 0.0);

glTranslatef (tx, 0.0, 0.0);

glutSolidSphere (1.5, 20, 20);

glScalef (mx/my, mx/my, mx/my);

glPopMatrix;

SwapBuffers(DC);

end;

procedure SetDCPixelFormat (hdc : HDC);

var

pfd : TPixelFormatDescriptor;

nPixelFormat : Integer;

begin

FillChar (pfd, SizeOf (pfd), 0);

pfd.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;

nPixelFormat := ChoosePixelFormat (hdc, @pfd);

SetPixelFormat (hdc, nPixelFormat, @pfd);

end;

procedure TfrmGL.FormCreate(Sender: TObject);

begin