BÀI TẬP LỚN MÔN ĐỒ HOẠ.doc.DOC

b¸o c¸o bµi tËp lín m«n ®å ho¹

§Ò tµi II

I/ Giíi thiÖu ®Ò tµi:

§å ho¹ m¸y tÝnh lµ mét trong c¸c lÜnh vùc mµ ngµnh tin häc quan t©m vµ ®· ®îc

®a vµo ch¬ng tr×nh ®µo t¹o chÝnh kho¸ cho ngµnh tin häc t¹i c¸c trêng §¹i häc. Néi

dung chñ yÕu cña m«n häc lµ nghiªn cøu c¸c thuËt to¸n, c¸c kü thuËt vÏ h×nh trªn m¸y

tÝnh, gióp sinh viªn cã thÓ x©y dùng c¸c phÇn mÒm vÒ ®å ho¹ m¸y tÝnh.

Lµ sinh viªn Cao ®¼ng tin häc, chóng em còng ®îc tiÕp xóc lµm quen víi mét sè

kü thuËt ®å ho¹ trªn m¸y vi tÝnh th«ng qua c¸c bµi gi¶ng vµ gi¸o tr×nh do Thµy D¬ng

ViÕt Th¾ng biªn so¹n. Víi kiÕn thøc cßn nhiÒu h¹n chÕ nªn ë ®Ò tµi nµy môc tiªu cña

chóng em chñ yÕu lµ vËn dông mét sè kiÕn thøc häc ®îc ®a vµo vËn dông thùc tÕ th«ng

qua bµi tËp lín.

Trong phÇn Nh÷ng bµi tËp lín §å ho¹, nhãm chóng em thùc hiÖn ®Ò II bao gåm

c¶ §å ho¹ ph¼ng vµ §å ho¹ kh«ng gian. Néi dung ®Ò tµi cô thÓ gåm:

§å ho¹ ph¼ng:

1. VÏ ®å thÞ hµm bËc ba / bËc nhÊt lªn cöa sæ (c1,h1,c2,h2).

2. VÏ ®å thÞ hµm sè theo tham sè x=f1(t), y=f2(t) lªn cöa sæ (c1,h1,c2,h2). (*)

3. VÏ ®å thÞ hµm sè ®éc cùc r=f(ϕ) lªn cöa sæ (c1,h1,c2,h2). (*)

4. VÏ h×nh sao n c¸nh tù quay quanh t©m lªn cöa sæ (c1,h1,c2,h2). (*)

§å ho¹ kh«ng gian:

1. VÏ khèi ®a diÖn ®Òu cã ph©n biÖt nÐt khuÊt.

Trong ®Ò tµi, cã mét sè môc ®¸nh dÊu (*) chóng em kh«ng gi¶i thÝch cßn l¹i

phÇn gi¶i thÝch cña chóng em kÌm sau mçi thñ tôc cña ch¬ng tr×nh. Trong b¸o c¸o nµy

chóng em cã m« t¶ c¸c thñ tôc vÏ b»ng mét sè h×nh ¶nh minh ho¹ cho thªm phÇn sinh

®éng ( H×nh ¶nh minh ho¹ ë cuèi b¸o c¸o).

II/ Unit ch¬ng tr×nh:

Unit UnitDT2;

Interface

Var c,h,d,C1,h1,c2,m,h2,Co,Ho,Xn,Yn,R2,R1,mau,goc:Integer;

X0,DE,Y0,x2,x1,y2,y1:Real;

XA,YA,ZA, XB,YB,ZB, XC,YC,ZC,

XD,YD,ZD,Xe,Ye,Ze,Xf,Yf,Zf,Xg,Yg,Zg,Xh,Yh,Zh:REAL;

Phi,Theta,t,Tmax,Rho,Kx,Ky,R3,RR3,a,b,cx,E,Anfa,Beta,ax,bx:Real;

ch:char;

stv ,Td:String;

Procedure MhDoHoa;

Procedure

Chu_Bong(c,h,Font,Huong,KThuoc,Mauc,Maub,v:Integer;Tde:string);

Procedure Beep;

Procedure Chu_Chay;

Procedure About;

Procedure Gwrite(Var c,h:Integer;St:String);

Procedure Gwriteln(Var c,h:Integer;St:String);

Procedure Gread(Var c,h:Integer;Var luu:String);

Procedure Greadln(Var c,h:Integer;Var luu:String);

Procedure Cuaso(C1,H1,C2,H2,Mau_tr,Mau_d,Mau_n,V:Integer);

Procedure Menu_doc(K:Integer);

Procedure Menu_Ngang(K:Integer);

Procedure Projec(x,y,z:real;Var XProj,YProj:real);

1

Procedure KGMoveto(x,y,z:real);

Procedure KGPutPixel(x,y,z:real;color:byte);

Procedure KGLineto(x,y,z:real;Color:byte);

Procedure KGLine(x1,y1,z1,x2,y2,z2:real;color:byte);

Procedure KG_WriteXYZ(X,Y,Z:real;St:String;color:byte);

Procedure Vetruc(D:integer;Color:byte);

Procedure ProjecP(x,y,z:real;Var XProj,YProj:real);

Procedure KGMovetoP(x,y,z:real);

Procedure KGPutPixelP(x,y,z:real;color:byte);

Procedure KGLinetoP(x,y,z:real;Color:byte);

Procedure KGLineP(x1,y1,z1,x2,y2,z2:real;color:byte);

Procedure KG_WriteXYZP(X,Y,Z:real;St:String;color:byte);

Procedure VetrucP(D:integer;Color:byte);

Implementation

Uses Crt,graph;

Procedure MhDoHoa;

var Gd,Gm,ktra:integer;

Path:String;

Begin

Path:='c:\Tp\Bgi';

Repeat

Gd:=detect; InitGraph(Gd,Gm,Path);

Ktra:=GraphResult;

If Ktra <> 0 then

Begin

Write('Loi do hoa! Go lai Path, Neu quen thi

Enter!');

Readln(Path);

if Path='' then Halt(1);

end;

Until Ktra=0;

end;

{**********************}

Procedure

Chu_Bong(c,h,Font,Huong,KThuoc,Mauc,Maub,v:Integer;Tde:string);

Var I:Integer;

Begin

SetTextStyle(Font,Huong,Kthuoc);

SetColor(Maub);

for i:=1 to v do

OutTextXY(C+i,H-i,Tde);

SetColor(Mauc);OutTextXY(c,h,Tde);

end;

{******************************}

Procedure Beep;

Begin

Sound(450);

Delay(100);

Nosound;

end;

{***********************************}

Procedure Chu_Chay;

var cc,cc1:Integer;

St,st1:String;

Ch:Char;

Begin

Cc:=1;Cc1:=cc-340;

St:='Chuong trinh do nhom G2 thuc hien <-> ';

2