расскажите, пожалуйста, как обернуть квадрат на 45 градусов.
Program Bar2;
Uses Graph,CRT;
var
driver, regim, error: integer;
Begin
Detectgraph(driver,regim);
Initgraph(driver,regim,' ');
Error:=GraphResult;
if Error <> grOK then
begin
writeln(GraphErrorMsg(Error));
Halt(Error)
end;
SetLineStyle(0,0,1);
SetFillStyle(1,Cyan);
Bar(160,120,360,380);
Readln;
CloseGraph;
Еnd.
куда повернуть? налево?
http://forum.pascal.net.ru/index.php?showtopic=3867&st=0&p=21320entry21320
благодарю