Как изменить толщину линии?

IGOR66666666666

uses graphABC;
var a,b,h,xc,yc,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5:integer;
    x,m,u,u1,r:real;
 begin
xc:=windowwidth div 2; //центр экрана
yc:=windowheight div 2;
a:=300;//стороны прямоугольника
b:=150;
r:=sqrt(a*a+b*b);//радиус описанной окружности
u:=arctan(b/a);//угол между большей стороной и диагональю
u1:=0;//начальный угол поворота прямоугольника
h:=yc-round(r)-20;//амплитуда движения по синусоиде
m:=(xc-r)/(2*pi);//масштаб по Х
x:=-2*pi;//левый край
x5:=xc+round(x*m);//положение центра прямоугольника
y5:=yc-round(sin(x)*h);
lockdrawing;
while x5<=2*xc do
 begin
  clearwindow;
  x1:=x5+round(r*cos(u1+u));
  y1:=y5-round(r*sin(u1+u));
  x2:=x5+round(r*cos(u1+pi-u));
  y2:=y5-round(r*sin(u1+pi-u));
  x3:=x5+round(r*cos(u1+pi+u));
  y3:=y5-round(r*sin(u1+pi+u));
  x4:=x5+round(r*cos(u1-u));
  y4:=y5-round(r*sin(u1-u));
  setpencolor(clRed);
  line(x1,y1,x2,y2);
  line(x2,y2,x3,y3);
  line(x3,y3,x4,y4);
  line(x4,y4,x1,y1);
  sleep(30);
  u1:=u1+0.1;
  x:=x+0.1;
  x5:=xc+round(x*m);
  y5:=yc-round(sin(x)*h);
  redraw
 end;
2 ответа

IGOR66666666666

Толщина линии устанавливается SetPenWidth(w: integer); А что это за огрызок программы?