5 Лаборатория машғулоти Оpтогpафик пpоекциялаш. Ишни бажаришдан мақсад

5 - Лаборатория машғулоти
Оpтогpафик пpоекциялаш.


Ишни бажаришдан мақсад: Компғютерга Turbo Pascal дастурлаш тили ёрдамида обoектни проекциясини ясаш дастурини тузиш, обoектни оpтогpафик пpоекциясини хосил қилиш қилишни ўрганиш.
Лаборатория ишини бажариш учун керакли жихозлар:
IBM русумли компғютер, Turbo Pascal дастурлаш мухити.


1. Назарий қисм:
Оpтогpафик пpоекциялаш.

Оpтогpафик пpоекциялаш қийшиқ бурчакли проекциялашнинг хусусий холи бўлиб, унинг параметрлари l=0; alfa=90 гpадус. Биз z=0 текисликдаги проекциялашни кўриб чиқамиз. Тенглама қуйидагича ифодаланади:

xp = x , yp = y ;
Дастур қийшиқ бурчакли проекциялашдагига ўхшаш, фақат CALC процедураси тушириб қолдирилган, Дастурда Turbo-Pascal системаси CRT,GRAPH модулларининг стандарт функцияларидан фойдаланилган.
2- Лаборатория машғулот
2-машқ. Оpтогpафик пpоекциялаш}
DASTURI(TURBO PASKALDA)
uses crt,graph;
var
x,y,z:array[1..8] of integer;
xp,yp:array[1..8] of longint;
gd,gm:integer;i,a,b,c,d:integer;
xc,yc:integer;
key:char;
begin
a:=20; b:=20; c:=60;
d:=10; xc:=200; yc:=240;
x[1]:=a; y[1]:=0; z[1]:=b;
x[2]:=c; y[2]:=0; z[2]:=b;
x[3]:=c; y[3]:=d; z[3]:=b;
x[4]:=a; y[4]:=d; z[4]:=b;
x[5]:=-d; y[5]:=d; z[5]:=0;
x[6]:=-d; y[6]:=0; z[6]:=0;
x[7]:=c; y[7]:=0; z[7]:=0;
x[8]:=c; y[8]:=d; z[8]:=0;
gd:=vga; gm:=vgahi;
initGRAPH(gd,gm,'d:\tp6');
setbkcolor(0);
setcolor(14);
key:=readkey;
while ord(key)<>27 do begin
if keypressed then begin
key:=readkey; end;
setcolor(14);
for i:=1 to 8 do
begin
xp[i]:=xc+x[i];
yp[i]:=getmaxy-yc+y[i]; end;
moveto(xp[1],yp[1]);
for i:=2 to 8 do begin
lineto(xp[i],yp[i]);
moveto(xp[i],yp[i]); end;
line(xp[1],yp[1],xp[6],yp[6]);
line(xp[5],yp[5],xp[8],yp[8]);
line(xp[3],yp[3],xp[8],yp[8]);
line(xp[1],yp[1],xp[4],yp[4]);
line(xp[2],yp[2],xp[7],yp[7]);
line(xp[1],yp[1],xp[3],yp[3]);
line(xp[2],yp[2],xp[4],yp[4]);
delay(1000);
setcolor(0);
moveto(xp[1],yp[1]);
for i:=2 to 8 do begin
lineto(xp[i],yp[i]);
moveto(xp[i],yp[i]); end;
line(xp[1],yp[1],xp[6],yp[6]);
line(xp[5],yp[5],xp[8],yp[8]);
line(xp[3],yp[3],xp[8],yp[8]);
line(xp[1],yp[1],xp[4],yp[4]);
line(xp[2],yp[2],xp[7],yp[7]);
line(xp[1],yp[1],xp[3],yp[3]);
line(xp[2],yp[2],xp[4],yp[4]);
end; closeGRAPH;end