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

end;

procedure ris3;
begin
 setcolor(8);
 setbkcolor(15);
 Line(11*20,26+14*7,20*13-2,26+14*10+4); {B1B_2}
 Line(20*5,26+14*11,20*8-3,26+14*16); {A1A_2}
 Line(20*13-2,25+14*10+4,20*8-3,25+14*16); {A_2B_2}
 Line(20*13-2,26+14*10+4,20*8-3,26+14*16);
 Line(20*13-2,27+14*10+4,20*8-3,27+14*16);
 arc(20*12+1,26+14*9-5,124,209,15); {дуга}
 putpixel(20*12-8,26+14*9-6,14); {точка}
 circle(20*12-8,26+14*9-6,1);
 Line(20*7-10,26+14*14+5,20*8-10,26+14*14+7); {штрихи}
 Line(20*12-1,26+14*9+4,20*13-3,26+14*9+6);
 Line(20*12+3,26+14*9+8,20*13-1,26+14*9+10);
 Line(20*5-4,26+14*4-4,20*5+4,26+14*4+4); {штрихи}
 Line(11*20-4,26+14*5-5,11*20+4,26+14*5-1);
 Line(11*20-4,26+14*5+1,11*20+4,26+14*5+5);
 t_ka(5*20,26+14*11); {A1}        t_ka(11*20,26+14*7); {B1}
 t_ka(8*20-3,26+14*16); {A_2} t_ka(13*20-2,26+14*10+4); {B_2}
 outtextxy(20*9-12,26+14*16-8,'-'); outtextxy(20*9-11,26+14*16-2,'A');
 outtextxy(20*8+19,26+14*16+1,'2'); outtextxy(20*13+5,26+14*10-6,'-');
 outtextxy(13*20+6,26+14*10,'B'); outtextxy(14*20-4,26+14*10+3,'2');
end;

procedure ris4;
begin
 setcolor(8);
 setbkcolor(15);
 Line(13*20-2,26+14*10+4,20*5+4,26+14*19); {B_2A__1}
 t_ka(8*20-3,26+14*16); {A_2} t_ka(13*20-2,26+14*10+4); {B_2}
 t_ka(5*20+4,26+14*19); {A__1}
 Line(20*4+14,26+14*16,20*9-10,26+14*20-3); {X__21}
 Line(20*4+15,26+14*16,20*9-9,26+14*20-3);
 Line(20*4+14,26+14*16,20*5+6,26+14*16+12); {стрелки}
 Line(20*4+14,26+14*16,20*5+14,26+14*16+8);
 arc(20*6+8,26+14*18-4,318,50,15); {дуга}
 putpixel(20*6+17,26+14*18-5,14); {точка}
 circle(20*6+17,26+14*18-5,1);
 Line(20*6,26+14*12-1,20*5+5,26+14*12+1); {галка}
 Line(20*5+5,26+14*12+1,20*6-4,26+14*12-6);
 Line(20*6-6,26+14*18-1,20*6-1,26+14*18+10); {галка}
 Line(20*6-6,26+14*18-1,20*6+5,26+14*18+7);

                                                                         35