Решение метрических задач по начертательной геометрии на ЭВМ. Воронков А.И - 34 стр.

 setfillstyle(1,0);
 circle(x,y,3);
{ floodfill(x,y,0);}
end;

procedure ris1;
begin
 setcolor(8);
 setbkcolor(15);
 Line(2*20,26+14*6,12*20,26+14*6); {x12}
 Line(2*20+1,27+14*6,12*20,27+14*6);
 Line(2*20,26+14*6,2*20+10,30+14*6); {стрелки}
 Line(2*20,26+14*6,2*20+10,22+14*6);
 Line(5*20,25+14*2,11*20,25+14*4); {A2B2}
 Line(5*20,26+14*2,11*20,26+14*4);
 Line(5*20,27+14*2,11*20,27+14*4);
 Line(20*5,25+11*14,11*20,25+14*7); {A1B1}
 Line(20*5,26+11*14,11*20,26+14*7);
 Line(20*5,27+11*14,11*20,27+14*7);
 Line(20*5,26+14*2,20*5,26+14*11); {A1A2}
 Line(11*20,26+14*4,11*20,26+14*7); {B1B2}
 t_ka(5*20,26+14*2); {A2} t_ka(11*20,26+14*4); {B2}
 t_ka(5*20,26+14*11); {A1} t_ka(11*20,26+14*7); {B1}
 outtextxy(10,26+14*6-4,'X');   outtextxy(20,26+14*6-1,'12');
 outtextxy(20*2+10,26+14*5,'П'); outtextxy(20*3,26+14*5+3,'2');
 outtextxy(20*2+12,26+14*6+6,'П'); outtextxy(20*3,26+14*6+9,'1');
 outtextxy(20*4+10,26+14*1,'A'); outtextxy(20*5,26+14*1+3,'2');
 outtextxy(11*20,26+14*3,'B');   outtextxy(11*20+10,26+14*3+3,'2');
 outtextxy(20*4,26+14*11-10,'A'); outtextxy(20*4+8,26+14*11-7,'1');
 outtextxy(20*11+5,26+14*7-10,'B'); outtextxy(20*11+13,26+14*7-7,'1');
end;

procedure ris2;
begin
 setcolor(8);
 setbkcolor(15);
 Line(20*4,26+14*14,20*13,26+14*8); {x_12}
 Line(20*4+1,25+14*14,20*13,25+14*8);
 Line(20*4,26+14*14,20*4+10,26+14*14-8); {стрелки}
 Line(20*4,26+14*14,20*4+15,26+14*14-3);
 outtextxy(20*3-10,26+14*14-4,'X'); outtextxy(20*3-11,26+14*14-10,'-');
 outtextxy(20*3,26+14*14-1,'12');   outtextxy(20*4+3,26+14*13-7,'П');
 outtextxy(20*4+11,26+14*13-4,'1'); outtextxy(20*5-12,26+14*14+5,'П');
 outtextxy(20*5-13,26+14*14-1,'-'); outtextxy(20*5-2,26+14*14+8,'2');

34