Вращение треугольника

Категория реферата: Рефераты по информатике, программированию
Теги реферата: дипломная работа по юриспруденции, реферат по физкультуре
Добавил(а) на сайт: Karachjov.

Program CursProj;
Uses graph,crt, Drivers; const
Ctr : Array [1 .. 2 , 1 .. 3] of Integer =((-77,0 , 77 ),

(-50,91,-50));
Var x_c , y_c : Integer;

Time2W : Byte;

Event : TEvent; grDriver : Integer; grMode : Integer;

ErrCode : Integer; xn, yn, a : Integer;

Angle : Real;

K : ShortInt;

Procedure VgaDrv; external;
{$L EGAVGA.OBJ }

procedure SetCenter(x_nc , y_nc : integer); begin x_c := x_nc ; y_c := y_nc; end;

Function Str2(Num:Integer):String;
Type S = String; var P : ^S;
Begin
New(P); Str(Num,P^); Str2 := P^; Dispose(P);
End;

procedure draw(color:integer); begin

SetColor(Color);

Line(x_c+ctr[1][1],y_c+ctr[2][1],x_c+ctr[1][2],y_c+ctr[2][2]);

Line(x_c+ctr[1][2],y_c+ctr[2][2],x_c+ctr[1][3],y_c+ctr[2][3]);

Line(x_c+ctr[1][3],y_c+ctr[2][3],x_c+ctr[1][1],y_c+ctr[2][1]); end;

procedure DrawText(XX,YY : Integer; Text : String);
Begin
SetColor(Black);
OutTextXY(XX,YY,'(((');
SetColor(White);
OutTextXY(XX,YY,Text);
End;

procedure ShowD;
Begin

GetKeyEvent(Event);
If Event.What = evKeyDown Then

Case Event.KeyCode of kbUp : Begin if Time2W > 2 Then Time2W := Time2W - 1;

SetColor(Black);

OutTextXY(85,10, '(((((((((((((');

SetColor(White);

OutTextXY(90,10,Str2(100-Time2W));

End; kbDown : Begin if Time2W < 100 Then Time2W := Time2W + 1;

SetColor(Black);

Поделитесь этой записью или добавьте в закладки