Графика. Геометрическое конструирование и Машиностроительное черчение

USES CRT,graph;
Var x,y,x1,y1,StA,EndA,R,l,gm,gr,d:integer;
Procedure blok1 ( x, y,d,l:integer);
var d15:integer;
  Begin
   d15:=round(1.5*d);
   rectangle(x-d15,y,x-d15+d*12,y+l);
   Sector(x-d15+6*d,y+l div 2,180,360,40,40);
   line(x-d15,y+l div 2,x-d15+d*12,y+l div 2);
   setfillstyle(4,15);
   floodfill(x-d15+1,y+2,0);
   setfillstyle(9,15);
   floodfill(x-d15+1,y+l div 2+2,0);
   rectangle(x-d15+l div 2-y div 5 ,y+l div 2,x-d15+l div 2);
   setfillstyle(5,15);
   floodfill(x-d15+d+1,y+l div 2-2,0);
  end;
procedure gayka(x,y,d:integer);
var d2:integer;
  Begin
   d2:=d div 2;
   Bar(x-d,y-d,x+d,y);
   rectangle(x-d,y-d,x+d,y);
   rectangle(x-d2,y-d,x+d2,y);
   arc(x,y,60,120,d);
   arc(x-d,y,60,90,d);
   arc(x+d,y,90,120,d);
   arc(x+d,y-d,240,270,d);
   arc(x-d,y-d,270,300,d);
   arc(x,y-d,240,300,d);
  end;
procedure shpilka(x,y,d,l:integer);
var d2 ,d10:integer;
  begin
   d2:=d div 2;
   d10:=d div 10;
   setfillstyle(1,15);
   bar(x-d2,y,x+d2,y+l);
   rectangle (x-d2,y,x+d2,y+l-l div 10);
   rectangle (x-d2+d10, y-d10,x+d2-d10,y+d10+l-l div 10);
   line(x-d2,y,x-d2+d10,y-d10);
   line(x+d2,y+l-l div 10,x+d2-d10,y+l-l div 10+d10);
   line(x-d2,y+l-l div 10,x-d2+d10,y+l-l div 10+d10);
   line(x+d2,y,x+d2-d10,y-d10);
  end;
procedure shayba(x,y,d,l:integer);
var d13,d15:integer;
  Begin
   d13:=round(1.3*d);
   d15:=round(1.5*d);
   setfillstyle(1,15);
   Bar(x-d13,y+l-d15,x+d13,y+l-d15+d div 10);
   rectangle(x-d13,y+l-d15,x+d13,y+l-d15+d div 10);
  end;
procedure BOLT(x,y,d,l:integer);
var d2,d3,d10:integer;
  Begin
   d2:=d div 2;
   d3:=d div 3;
   shpilka(x,y,d,l);
   gayka(x,y,d);
   shayba(x,y-d2,d,l);
   gayka(x,y+l-d,d-3);
   setlinestyle(4,$ffcc,1);
   line(x,y-2*d,x,y+l+d);
   setlinestyle(0,0,1);
  end;
procedure shpilvsbore(x,y,d,l:integer);
var d2,d10:integer;
  begin
    d2:=d div 2;
    d10:=d div 10;
    shpilka(x+7*d+d2,y-11*d,d,2*l+90);
    shayba(x+7*d+d2,y-round(12.6*d),d,l);
    gayka(x+7*d+d2,y-d*9-d10,d);
    shayba(x+7*d+d2,y-round(3.5*d),d,l);
    gayka(x+7*d+d2,y+d,d-4);
    setlinestyle(4,$ffcc,1);
    line(x+7*d+d2,y-12*d,x+7*d+d,y+3*d);
    setlinestyle(0,0,1);
  end;
begin {main}
 gr:=detect;
 Initgraph(gr,gm,'');
 setfillstyle(1,15);
 Bar(0,0,GetmaxX,getmaxY);
 setcolor (0);
 d:=30;
 l:=150;
 x:=120;
 y:=50;
 blok1 ( x, y,d,l);
 BOLT(d*4,y,d,l+60);
 BOLT(12*d+d,y,d,l+60);
 readKey;
 closegraph;
end.

Procedure blok1 ( x, y,d,l:integer);
var d15:integer;
  Begin
   d15:=round(1.5*d);
   rectangle(x-d15,y,x-d15+d*12,y+l);
   Sector(x-d15+6*d,y+l div 2,180,360,40,40);
   line(x-d15,y+l div 2,x-d15+d*12,y+l div 2);
   setfillstyle(4,15);
   floodfill(x-d15+1,y+2,0);
   setfillstyle(9,15);
   floodfill(x-d15+1,y+l div 2+2,0);
   rectangle(x-d15+l div 2-y div 5 ,y+l div 2,x-d15+l div 2);
   setfillstyle(5,15);
   floodfill(x-d15+d+1,y+l div 2-2,0);
  end;

rectangle(x-d15+l div 2-y div 5 ,y+l div 2,x-d15+l div 2);

Bar(x1,y1,x2,y2); Rectangle(x1,y1,z2,y2);

Bar3D(x1,y1,x2,y2,0,TopOff);