геометрические преобразования на плоскости Опции

[Цифровой_Aнгел]

расскажите, пожалуйста, как обернуть квадрат на 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.

[Цифровой_Aнгел]

вот так нужно


Сообщение отредактировано: Цифровой_Aнгел - 27.04.2010 22:30