); (quadObj, 0, 0.08, 10, 1); (4,0,0);; f (1,0,0); (0, 0, 0.1); (GL_QUADS); f (1,1,0); f (-4, 0, 0.0); f (-4.0, 0, 0.2); f (-12.0, 0, 0.2); f ( -12.0, 0, 0.0);
glEnd;;;
{========================================= ====================
Процедура промальовування першої кімнати}
Procedure zal1;, k, j: integer;: GLUquadricObj;;: = gluNewQuadric; f (0.9, 0.9, 1);// колір стін ('w.bmp', true); ( GL_TEXTURE_2D); room> = 4begin (GL_QUADS); f (1, 0, 1);// ліва стенаd (19.0, 0.0); glVertex3f (-12, 12.0, 0); d (19.0, 5.0); glVertex3f (- 12.0, 12.0, 5); d (0.0, 5.0); glVertex3f (-12.0, -7.0, 5); d (0.0, 0.0); glVertex3f (-12.0, -7.0, 0);; (GL_QUADS); f ( 1, 0, 1);// ліва стенаd (4.0, 0.0); glVertex3f (-12, -7.0, 0); d (4.0, 1.0); glVertex3f (-12.0, -7.0, 1); d (0.0, 1.0); glVertex3f (-12.0, -11.0, 1); d (0.0, 0.0); glVertex3f (-12.0, -11.0, 0);; (GL_QUADS); f (1, 0, 1);// ліва стенаd (1.0, 0.0); glVertex3f (-12, -11.0, 0); d (1.0, 5.0); glVertex3f (-12.0, -11.0, 5); d (0.0, 5.0); glVertex3f (-12.0, -12.0, 5); d (0.0, 0.0); glVertex3f (-12.0, -12.0, 0);; begin (GL_QUADS); f (1, 0, 1);// ліва стенаd (24.0, 0.0); glVertex3f (-12 , 12.0, 0); d (24.0, 5.0); glVertex3f (-12.0, 12.0, 5); d (0.0, 5.0); glVertex3f (-12.0, -12.0, 5); d (0.0, 0.0); glVertex3f ( -12.0, -12.0, 0);;; (GL_QUADS); f (0, 1, 1) ;//дальняяd (3.0, 0.0); glVertex3f (-12, -12.0, 0); d (3.0, 5.0) ; glVertex3f (-12, -12.0, 5); d (0.0, 5.0); glVertex3f (-9.0, -12.0, 5); d (0.0, 0.0); glVertex3f (-9.0, -12.0, 0);; ( GL_QUADS); f (0, 1, 1); d (4.0, 0.0); glVertex3f (-9, -12.0, 0); d (4.0, 1); glVertex3f (-9, -12.0, 1); d ( 0.0, 1); glVertex3f (-5, -12.0, 1); d (0.0, 0.0); glVertex3f (-5, -12.0, 0);; (GL_QUADS); f (0, 1, 1) ;// дальняяd (10, 0.0); glVertex3f (-5, -12.0, 0); d (10, 5.0); glVertex3f (-5, -12.0, 5); d (0.0, 5.0); glVertex3f (5.0, -12.0, 5); d (0.0, 0.0); glVertex3f (5.0, -12.0, 0);;
(GL_QUADS); f (0, 1, 1); d (4.0, 0.0); glVertex3f (5, -12.0, 0); d (4.0, 1); glVertex3f (5, - 12.0, 1); d (0.0, 1); glVertex3f (9, -12.0, 1); d (0.0, 0.0); glVertex3f (9, -12.0, 0);; (GL_QUADS); f (0, 1, 1) ;//дальняяd (3.0, 0.0); glVertex3f (9, -12.0, 0); d (3.0, 5.0); glVertex3f (9.0, -12.0, 5); d (0.0, 5.0); glVertex3f (12.0, -12.0, 5); d (0.0, 0.0); glVertex3f (12.0, -12.0, 0);; (GL_QUADS); f (0, -1, 1);// бліжняяd (24.0, 0.0); glVertex3f (12 , 12.0, 0); d (24.0, 5.0); glVertex3f (12.0, 12.0, 5); d (0.0, 5.0); glVertex3f (-12.0, 12.0, 5);
glTexCoord2d (0.0, 0.0); glVertex3f (-12.0, 12.0, 0);; room> = 3// Промальовування проходу в третю кімнату, якщо вона підключена
then begin (GL_QUADS); f (-1, 0, 1);// права стенаd (1.0, 0.0); glVertex3f (12, 12.0, 0); d (1.0, 5.0); glVertex3f (12.0, 12.0, 5); d (0.0, 5.0); glVertex3f (12.0, 11.0, 5); d (0.0, 0.0); glVertex3f (12.0, 11.0, 0);; (GL_QUADS); f (-1 , 0, 1);// л...
