Реферат: Вращение треугольника
OutTextXY(1,10,'Speed : '+Str2(100-Time2W));
OutTextXY(10,60,' Corn. 1 X Y');
OutTextXY(10,75,' Corn. 2 X Y');
OutTextXY(10,90,' Corn. 3 X Y');
SetTextStyle(TriplexFont, HorizDir, 2);
OutTextXY(10,425,'');
OutTextXY(10,415,'');
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.