OpenGL v Delphi3
Kužel bez textury
Příklad a zdroják ke stažení (160k)
plast := gluNewQuadric();
Funkce vytvoří nový objekt (plášť kužele).
zakl := gluNewQuadric();
Funkce vytvoří nový objekt (základnu kužele).
gluQuadricOrientation(qobj,GLU_OUTSIDE);
Vnější strana pláště odráží světlo.
gluQuadricOrientation(zakl,GLU_INSIDE);
Vnější strana základny odráží světlo.
gluCylinder(plast, 1, 0, 2, 20, 5);
Funkce zobrazí plášť.
plast - definice objektu.
1 - poloměr dolní části kužele.
0 - poloměr horní části kužele.
2 - výška kužele.
20 - počet čtyřúhelníků na X souřadnici sítě, ze které se skládá plášť.
5 - počet čtyřúhelníků na Y souřadnici sítě, ze které se skládá plášť.
gluDisk(zakl, 0, 1, 20, 1);
Funkce zobrazí základnu.
zakl - definice objektu.
0 - velikost poloměru vnitřní kružnice.
1 - velikost poloměru vnější kružnice.
20 - počet čtyřúhelníků na X souřadnici sítě, ze které se skládá základna.
1 - počet čtyřúhelníků na Y souřadnici sítě, ze které se skládá základna.
Další funkce jsou stejné jako v kapitole Zobrazení čtverce bez textury.
Příklad:
Home