{ KOCKADAT.PAS Copyright (c) ... } { } { Pomocny subor pre Kocka3D. } { } { Author: Neznamy } { Date : 16.06.2009 http://www.trsek.com } procedure TKocka.Refresh; (* nanovo pripocita ku vsetkym bodom kocky (okrem B[1]) smerove vektory *) begin B[2].x:=B[1].x + Vx.x; B[2].y:=B[1].y + Vx.y; B[2].z:=B[1].z + Vx.z; B[3].x:=B[1].x + Vy.x; B[3].y:=B[1].y + Vy.y; B[3].z:=B[1].z + Vy.z; B[4].x:=B[1].x + Vz.x; B[4].y:=B[1].y + Vz.y; B[4].z:=B[1].z + Vz.z; B[5].x:=B[1].x + Vx.x + Vy.x; B[5].y:=B[1].y + Vx.y + Vy.y; B[5].z:=B[1].z + Vx.z + Vy.z; B[6].x:=B[1].x + Vx.x + Vz.x; B[6].y:=B[1].y + Vx.y + Vz.y; B[6].z:=B[1].z + Vx.z + Vz.z; B[7].x:=B[1].x + Vy.x + Vz.x; B[7].y:=B[1].y + Vy.y + Vz.y; B[7].z:=B[1].z + Vy.z + Vz.z; B[8].x:=B[1].x + Vx.x + Vy.x + Vz.x; B[8].y:=B[1].y + Vx.y + Vy.y + Vz.y; B[8].z:=B[1].z + Vx.z + Vy.z + Vz.z; end; procedure TKocka.Kresli; (* vykresli kocku = premietne vsetky body kocky na obrazovku a pospaja ich *) type Pixely=record x,y:integer; end; var V:Vektory; i:integer; t:real; s:string; pix:array[1..8]of Pixely; begin str(B[1].x,s); insert('X=',s,1); OutTextXY(20,10,s); str(B[1].y,s); insert('Y=',s,1); OutTextXY(20,20,s); str(B[1].z,s); insert('Z=',s,1); OutTextXY(20,30,s); if (B[1].z>=Hranica.z1)and(B[1].z-Hranica.x)and(B[1].x-Hranica.y)and(B[1].y