Реферат Розробка програми створення віртуальної фотогалереї

.31,0 .. 2] of Glbyte;: = TBitmap.Create;. LoadFromFile ('image /' + name);// завантаження текстури з файлаk theni: = 0 to 63 doj: = 0 to 63 do [i, j, 0]: = GetRValue (Bitmap.Canvas.Pixels [i, j]); [i, j, 1]: = GetGValue (Bitmap.Canvas.Pixels [i, j]); [i, j, 2] : = GetBValue (bitmap.Canvas.Pixels [i, j]);; D (GL_TEXTURE_2D, 0, GL_RGBA,

64,64,// ​​тут задається розмір текстури

, GL_RGB, GL_UNSIGNED_BYTE, @ Bits1);

endbegini: = 0 to 31 doj: = 0 to 31 do [i, j, 0]: = GetRValue (Bitmap.Canvas.Pixels [i, j]); [i, j, 1 ]: = GetGValue (Bitmap.Canvas.Pixels [i, j]); [i, j, 2]: = GetBValue (bitmap.Canvas.Pixels [i, j]);; D (GL_TEXTURE_2D, 0, GL_RGBA,

31,31,// ​​тут задається розмір текстури

, GL_RGB, GL_UNSIGNED_BYTE, @ Bits2);

end; (GL_TEXTURE_2D, GL_TEXTURE_Mag_FILTER, GL_LINEAR); (GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); (GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE);

;

{========================================= =====================

Створення рами для картин, а також виведення зображення картин}

Procedure rama;: byte; (form2.colpic [p] = true) i: = 1 to 4 dof (0.72,0.31,0.05); f (0,1,0); (Gl_Quads ); d (0.5,0); glVertex3f (0,0,0); d (0.5,2); glVertex3f (0,0,2); d (0, 2); glVertex3f (0.2,0.1,1.78); d (0, 0); glVertex3f (0.2,0.1,0.18);; f (0.491,0.25,0.1); (Gl_Quads); d (0.2, 0); glVertex3f (0.2,0.1,0.18); d (0.2, 2); glVertex3f (0.2,0.1,1.78); d (0, 2); glVertex3f (0.3,0.05,1.78); d (0, 0); (0, 1); f (0.3,0.05,0.3); d (1, 1); f (0.3,0.05,1.7); d (1, 0); f (1.7,0.05,1.7); d (0 , 0); f (1.7,0.05,0.3);; (GL_TEXTURE_2D); (2,0,0); (-90,0,1,0);;;

{========================================= ====================

Процедура створення 3 та 4 кімнати фотогалереї}

zal0;, k, j: integer;: GLUquadricObj;;: = gluNewQuadric; f (0.9, 0.9, 1);// стіни (room> = 3) begin (GL_QUADS); f ( 1, 0, 1);// ліва стенаd (2.0, 0.0); glVertex3f (-12, 12.0, 0); d (2.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);;

фотогалерея алгоритм перегляд графічний

glBegin (GL_QUADS); f (1, 0, 1);// ліва стена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 (18.0, 0.0); glVertex3f (-12, 7.0, 0); d (18.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);;

(GL_QUADS); f (0, -1, 1);// стенаf (-12, 11.0, 1); f (-12, 7.0, 1); f (-12.2...