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

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);

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

SetColor(White);

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

End;

kbEnter : Begin

SetColor(LightRed);

OutTextXY(1,30, 'Freeze');

ReadKey;

SetColor(Black);

OutTextXY(1,30, 'ƒƒƒƒƒƒƒƒƒƒƒƒƒ');

End;

kbTab : Begin

K := -K;

End;