==================
Процедура промальовування першої кімнати}
Procedure zal2;, j: integer;: GLUquadricObj;: = gluNewQuadric;; f (0.9,0.9,0.8); (GL_QUADS); f (1, 0, 1);// ліва стенаf (-12, 12.0, 0); f (-12.0, 12.0, 5); f (-12.0, -12.0, 5); f (-12.0, -12.0, 0);;
(GL_QUADS); f (0, 1, 1);// дальня стенаf (12, -12.0, 0); f (12.0, -12.0, 5); f (-12.0, - 12.0, 5); f (-12.0, -12.0, 0);;
(GL_QUADS); f (-1,0, 1);// права стенаf (12, 12.0, 0); f (12.0, 12.0, 5); f (12.0, -12.0, 5); f (12.0, -12.0, 0);;
(GL_QUADS); f (0, -1, 1) ;//бліжняяf (-12, 11.8, 0); f (-12, 11.8, 5); f (-9.0, 11.8 , 5); f (-9.0, 11.8, 0);; (GL_QUADS); f (0, -1, 1); f (-9, 11.8, 0); f (-9, 11.8, 1); f (-5, 11.8, 1); f (-5, 11.8, 0);; (GL_QUADS); f (1, 0, 1); f (-9, 11.8, 1); f (-9, 12, 1); f (-5, 12, 1); f (-5, 11.8, 1);; (GL_QUADS); f (0, -1, 1) ;//бліжняяf (-5, 11.8, 0); f (-5, 11.8, 5); f (5.0, 11.8, 5); f (5.0, 11.8, 0);; (GL_QUADS); f (0, -1, 1); f (5, 11.8, 0 ); f (5, 11.8, 1); f (9, 11.8, 1); f (9, 11.8, 0);; (GL_QUADS); f (1, 0, 1); f (5, 11.8, 1 ); f (5, 12, 1); f (9, 12, 1); f (9, 11.8, 1);; (GL_QUADS); f (0, -1, 1) ;//бліжняяf (9, 11.8, 0); f (9.0, 11.8, 5); f (12.0, 11.8, 5); f (12.0, 11.8, 0);; (GL_QUADS); f (0, -1, 1);// стенаf (-0.25, -4.0, 0); f (-0.25, -4.0, 5); f (0.25, -4.0, 5); f (0.25, -4.0, 0);;
; (-0.75,0,0); f (-1,0, 1);// перегородка права стенаi: = 1 to 2 do (0.5,0,0); (GL_QUADS) ; f (0, 12.0, 0); f (0, 12.0, 5); f (0, -4.0, 5); f (0, -4.0, 0);; f (1,0, 1);//перегородка ліва стіна;; ('Roof.bmp', true); (GL_TEXTURE_2D);
(GL_QUADS);// підлога і потолокf (0,0, 1); d (12.0, 0.0); glVertex3f (12, 12.0, 0.0); d (12.0, 12.0); glVertex3f ( -12.0, 12.0, 0.0); d (0.0, 12.0); glVertex3f (-12.0, -12.0, 0.0); d (0.0, 0.0); glVertex3f (12.0, -12.0, 0.0);; (GL_TEXTURE_2D);
(0.0, 0.0, 5); ('паркет.bmp', true); f (1,1,1); (GL_TEXTURE_2D); (0,0,1);
glBegin (GL_QUADS);// підлога і стеля
glTexCoord2d (12.0, 0.0); glVertex3f (12, 12.0, 0.0); d (12.0, 12.0); glVertex3f (-12.0, 12.0, 0.0); d (0.0, 12.0); glVertex3f ( -12.0, -12.0, 0.0); d (0.0, 0.0); glVertex3f (12.0, -12.0, 0.0);; (GL_COLOR_Material); (GL_TEXTURE_2D); (0.0, 0.0, 5);;; pict = 2 then ( -5, -11.8,0.5);: = 0; j: = 1 to 2 do// рами для картин; (1.5,1.5,1.5); (p);;; (7,0,0);; ( 2.9,4,0.5); (90,0,0,1);: = 2; j: = 1 to 3 do (p);; (6,0,0);; (1.8,6,0); (90,0,0,1); (17.7,4.1,0); (90,0,0,1);: = 9; j: = 1 to 3 do (p);; (6,0,0 );;
end;
// Промальовування обмежувачів до картин;
glPushMatrix; (0.8,0,3.5); j: = 1 to 2 doi: = 1 to 3 dof (0.7,0.3,0.1); (quadObj, 0.07, 0.07,1.5, 6, 1); (quadObj, 0, 0.08, 10, 1); (0,4.5,0);; f (1,0,0); (0, -4.5, 0.1); (GL_QUADS); f (0, 0, 0.0); f (0,...
