and (tx <12) begin form3.number: = 8; showimage (form3.number); end; (ty> 20) and (ty <28) and (tx> 1) and (tx <12) begin form3.number: = 7; showimage (form3.number); end; (ty> 28) and (ty <36) and (tx> 1) and (tx <12) begin form3.number: = 6; showimage (form3.number); end; (ty> 12) and (ty < ; 20) and (tx> -11) and (tx <-1) begin form3.number: = 5; showimage (form3.number); end; (ty> 20) and (ty <28) and (tx> - 11) and (tx <-1) begin form3.number: = 4; showimage (form3.number); end; (ty> 28) and (ty <35) and (tx> -11) and (t x <-1) begin form3.number: = 3; showimage (form3.number); end; (ty> 30) and (ty <35) and (tx> 0) and (tx <8) begin form3.number: = 1; showimage (form3.number); end; (ty> 30) and (ty <35) and (tx> -8) and (tx <0) begin form3.number: = 2; showimage (form3.number) ; lock;;
Key = VK_F3begin: = not demonstr;: = 1;; Key = VK_F4kadr: = not kadr;
Key = VK_F5getpict: = not getpict; Key = VK_F8begin: = true;: = room +1;; not demonstrbeginKey = VK_Left then: = ty;: = tx;: = ty - sin (f * pi/180)/2;: = tX + cos (f * pi/180)/2;; Key = VK_Right then: = ty;: = tx;: = ty + sin (f * pi/180)/2 ;: = tX - cos (f * pi/180)/2;; Key = VK_up then: = ty;: = tx;: = ty + sin ((f +90) * pi/180)/2;: = tX - cos ((f +90) * pi/180)/2;; Key = VK_down then: = ty;: = tx;: = ty - sin ((f +90) * pi/180)/5;: = tX + cos ((f +90) * pi/180)/5;; Key = VK_delete then: = tz-0.5; Key = VK_insert then: = tz +0.5;
room = 2 (tx <= -11) and (tx> = -12): = -11; begin
(tx <= -11) and (tx> = -12) and (((ty> -12) and (ty <-10.5)) or ((ty> -6.5) and ( ty <36))): = -11; (tx> = -13) and (tx <= -12) and (((ty> -12) and (ty <-10.5)) or ((ty> -6.5 ) and (ty <36))): = -13;;
room> = 4begin (tx> = 11) and (tx <= 12) and (((ty> -12) and (ty <6.5)) or ((ty> 10.5) and ( ty <36))): = 11; (tx <= 13) and (tx> = 12) and (((ty> -12) and (ty <6.5)) or ((ty> 10.5) and (ty < 36))): = 13; if tx> = 11tx: = 11;
(ty <= -11) ty: = -11; (ty> = 35) ty: = 35; (ty> 11.4) and (ty <12.4) and ((tx> 8) or (tx <-8) or ((tx <5) and (tx> -5))) begin: = ty0;; (ty> 12) and (ty <28.4) and (tx> -0.8) and (tx < ; 0.8): = tx0; (tx> -0.8) and (tx <0.8) and (ty <28.4) and (ty> 27): = ty0;
(ty <12)// and (tx <12) and (tx> -12) pict: = 1begin
{if tx <-12pict: = 1; tx> 12pict: = 1} pict: = 2;;
(Handle, nil, False);;
{========================================= =============================
Процедура перемальовування галереї} TfrmGL.FormResize (Sender: TObject); (0, 0, ClientWidth, ClientHeight); (GL_PROJECTION);; (50, Width/Height, 0.1, 48.2); (GL_MODELVIEW );; (90.0, 1.0, 0.0, 0.0);// поворот об'єкту - вісь Y (Handle, nil, False);;
{========================================= =========================== ...
