іва стенаd (4.0, 0.0); glVertex3f (12, 11.0, 0); d (4.0, 1.0); glVertex3f (12.0, 11.0, 1); d (0.0, 1.0); glVertex3f ( 12.0, 7.0, 1); d (0.0, 0.0); glVertex3f (12.0, 7.0, 0);; (GL_QUADS); f (-1, 0, 1);// права стенаd (19.0, 0.0); glVertex3f ( 12, 7.0, 0); d (19.0, 5.0); glVertex3f (12.0, 7.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);;;
// підлога і стеля (0.0, 0.0, 5); (GL_QUADS); (1,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); ('blue.bmp', true); (GL_TEXTURE_2D); (GL_QUADS); f (1,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);
;; (-1.5, -11.9,0.5); pict = 1 then
// рами для картин; (1.5,1.5,1.5);
p: = 9;;; (13.4,4,0.5); (90,0,0,1);: = 12; j: = 1 to 3 do (p);; ( 6,0,0);; (1.8,6.9, -0.5); (90,0,0,1);: = 18; j: = 1 to 2 do; (1.5,1.5,1.5); (p) ;;; (7,0,0);; (2.7,4.1,0.5); (90,0,0,1);: = 13; j: = 1 to 3do (p);; (6,0, 0);
end;;
// Промальовування обмежувачів до картин
glPopMatrix;; (-13, -12, 1); j: = 1 to 2 dok: = 1 to 2 do (4, 0.0, 0.0); f (0.7, 0.7, 0.4) ; (quadObj, 0.4, 0.4, 4, 20, 1); i: = 1 to 10 do; (0.4, 0.0, 0); (quadObj, 0.01, 0.01, 4, 5,1);; (36, 0.0 , 0.0, 1.0);;; (quadObj, 0.8, 0.4, 0.4, 4, 1);;; (6, 0, 0);;;
; (11.5, -10.0, 3.5); k: = 1 to 2 doj: = 1 to 2 dof (0.7,0.3,0.1); i: = 1 to 5 do (quadObj, 0.07 , 0.07,1.5, 6, 1);
// glTranslatef (0, 0, -1); (quadObj, 0, 0.08, 10, 1); (0,4,0);; f (1,0,0); (GL_QUADS); f (1,1,0); f (0, -4.0, 0.0); f (0, -4.0, 0.2); f (0, -20, 0.2); f (0, -20, 0.0);; (0, -43, 0);; f (-1,1,0); (-23, 50, 0);;;; (-7.5, 11.5, 3.5); k: = 1 to 2 dof (0.7,0.3,0.1); i: = 1 to 4 do (quadObj, 0.07, 0.07,1.5, 6, 1); (quadObj, 0, 0.08, 10, 1); (5,0,0) ;; f (1,0,0); (0, 0, 0.1); (GL_QUADS); f (1,1,0); f (-5, 0, 0.0); f (-5.0, 0, 0.2 ); f (-20.0, 0, 0.2); f (-20.0, 0, 0.0);; (-18, -47, -0.1);;
;; (-4, -11.5,3.5); f (0.7,0.3,0.1); i: = 1 to 3 do (quadObj, 0.07, 0.07,1.5, 6, 1); (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;;;
{========================================= ==...
