Open GL in Delphi. Часть  3. Quadric - объекты

Previous  Top  Next

    
 

В разделе переменных укажим:

Code:

  quadObj : NewQuadricObj;

 

 

,а далее пишем следующее(я просто прокомментирую код)

 

Code:

WMPaint:

 

quadObj := gluNewQuadric;//новый объект

glRotate(5.0, 0.0, 1.0, 0.0);//повернём

glPushMatrix;//перейдём к новым координатам, сохранив старые

glRotated(-90,1.0,0.0,0.0);//ещё раз повернём

gluSphere(quadObj,1.3,20,20);//а теперь нарисуем сферу "1.3 - радиус",

   // а 20 и 20 - это колличество разбиений

glPopMatrix;//перейдём к старым координатам

gluDeleteQuadric(quadObj);//эта функция сделает "чёрную" работу

 

quadObj := gluNewQuadric;

glRotate(9.0, 0.0, 7.0, 0.0);

glPushMatrix;

glRotated(-270,1.0,0.0,0.0);

gluCylinder (quadObj, 0.5, 0.5, 2.9, 30, 30);//0.5- радиус, 0.5 - радиус, 2.9 - высота

glPopMatrix;

gluDeleteQuadric(quadObj);

 

Вот и всё!

 

http://www.ogldelphi.km.ru/about.html

©Drkb::03946