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

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.