Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Технологии программирования > Программирование графики
Перезагрузить страницу Как дальше писать эту программу( не доходит...
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
Nasya Nasya вне форума
Новичок
 
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 31.10.2011
Question Как дальше писать эту программу( не доходит... - 31.10.2011, 04:53

Нужно написать прогу чтобы шарик летел до середины увеличива после середины уменьшался. Начинал лететь красным на середине становился зеленым а заканчивал лететь синим..

Вот что я уже написала... как дальше не знаю( помогите умные люди


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OpenGl, Math;

type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure FormPaint(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
Dc1:HDC;
Hrc1:HGLRC;
i:Integer;
BeginTime: Cardinal;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
Pfd1: TpixelFormatDescriptor;
nPixelFormat: Integer;
begin
Dc1 := GetDC(Form1.Handle);
FillChar(Pfd1,SizeOf(Pfd1),0);
Pfd1.dwFlags := PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;
nPixelFormat := ChoosePixelFormat(Dc1,@Pfd1);
SetPixelFormat(Dc1,nPixelFormat,@Pfd1);
Hrc1 := wglCreateContext(Dc1);
wglMakeCurrent(Dc1,Hrc1);

end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
wglMakeCurrent(0,0);
wglDeleteContext(Hrc1);
ReleaseDC(Form1.Handle,Dc1);
DeleteDC(Dc1);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
glViewPort(0, 0, Form1.ClientWidth, Form1.ClientHeight);
glClearColor(0.0,0.0,0.0,1.0);
glClear(GL_COLOR_BUFFER_BIT);
glMatrixMode(GL_PROJECTION);
glLoadIdentity;
gluOrtho2D(-Form1.ClientWidth/Form1.clientHeight, Form1.ClientWidth/Form1.clientHeight, -1.0,1.0);
glMatrixMode(GL_MODELVIEW);
glPushmatrix;

glTranslatef(-1.5,0,0);
glTranslateF(4*((GetTickCount-BeginTime)mod 2000)/2000,0,0);
glScalef(2*((GetTickCount-BeginTime)mod 2000)/2000,2*((GetTickCount-BeginTime)mod 2000)/2000,1);
glColor3f(1.0,1.0,1.0);
glBegin(Gl_TRIANGLE_FAN);

glVertex2f(-1.2,0.0);




for i :=0 to 1000 do
glVertex2f(-1.2 + 0.2*cos(DegToRad(I/1000*360)),0.0 +0.2*
sin(DegToRad(i/1000*360)));



glend;
glPopMatrix;
glFlush;
SwapBuffers(Dc1);
Application.ProcessMessages;
if not Application.Terminated then InvalidateRect(Form1.Handle,nil,false);



end;

end.
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
При загрузке Win7 дальше эмблемы не грузиться. Jekson Windows 7 0 12.03.2012 23:14
Не знаю что делать дальше... mimimimio Любые вопросы от новичков 1 14.02.2012 01:15
Компьютер не запускается дальше окна материнки Meridan Техническая поддержка 1 24.04.2011 14:04
Что обнаружил Dr.Web и что делать дальше? Semionova MS Любые вопросы от новичков 30 08.06.2010 19:06
Фильм воспроизводится 30 минут и дальше останавливается. olesya88 Любые вопросы от новичков 2 27.01.2010 01:35
После вируса загрузка ХР доходит до эрана приветствия и дальше не загружается. frolio Любые вопросы от новичков 15 20.09.2008 18:19
что сделать дальше? Mur3ilka Моддинг 27 25.08.2007 15:28
С чего начать писать программу lw Delphi 1 03.05.2006 22:48
В поле типа Memo не хочет писать дальше 2-ой строчки AllHaveMan C++ Builder 3 17.12.2005 12:14
Как описывать грамматику в XML и что с ней дальше делать Andrey1 Алгоритмы 3 01.09.2004 13:23
Скрипт срабатывает, а почта не доходит Anonymous Perl 3 11.01.2003 18:11



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов