Вращение треугольника (стр. 2 из 2)

SetColor(Black);

OutTextXY(10,420,' -Exit -Freeze '+

' -Speed -Direction ');

SetColor(LightRed);

OutTextXY(10,420,' ESC Enter Up/Down TAB ');

SetTextStyle(DefaultFont, HorizDir, 1);

Repeat ShowD Until Event.KeyCode = kbEsc;

CloseGraph;

end

else Writeln('Graphics error : ', GraphErrorMsg(ErrCode));

end.