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

 Line(20*8+10,26+14*6,20*12+8,26+14*6);
 Line(20*8+10,27+14*6,20*12+8,27+14*6);
 Line(20*5-3,26+14*7-7,20*5+7,26+14*7);
 Line(20*10+7,26+14*6-3,20*10+13,26+14*6+3);
 t_ka(20*8+10,26+14*6); {A_1}      t_ka(20*12+8,26+14*6); {B_1}
 outtextxy(20*8,26+14*6+7,'A');   outtextxy(20*8+8,26+14*6+10,'1');
 outtextxy(20*12+3,26+14*6+8,'B');    outtextxy(20*12+11,26+14*6+11,'1');
 outtextxy(20*8,26+14*6-3,'_'); outtextxy(20*12+3,26+14*6-2,'_');

end;

procedure ris2_3;
begin
 setcolor(8);
 Line(1*20+10,26+14*2,20*12+8,26+14*2);
 Line(1*20+10,26+14*4,20*11+6,26+14*4);
 Line(20*8+10,25+14*4,20*12+8,25+14*2); {A_2B_2}
 Line(20*8+10,26+14*4,20*12+8,26+14*2);
 Line(20*8+10,27+14*4,20*12+8,27+14*2);
 Line(20*8+10,26+14*6,20*8+10,26+14*4); {A_2A_1}
 Line(20*12+8,26+14*6,20*12+8,26+14*2); {B_2B_1}
 Line(20*7,26+14*4-3,20*8-5,26+14*4); {стрелки}
 Line(20*7,26+14*4+3,20*8-5,26+14*4);
 Line(20*8-15,26+14*2-3,20*8,26+14*2);
 Line(20*8-15,26+14*2+3,20*8,26+14*2);
 arc(20*6+5,26+14*4,270,360,12);
 putpixel(20*6+10,26+14*4+4,14);
 circle(20*6+10,26+14*4+4,1);
 arc(20*8,26+14*4,0,20,50);
 t_ka(20*8+10,26+14*4); {A_2} t_ka(20*12+8,26+14*2); {B_2}
 t_ka(20*8+10,26+14*6); {A_1}      t_ka(20*12+8,26+14*6); {B_1}
 t_ka(20*3,26+14*4); {A2} t_ka(20*6+5,26+14*2); {B2}
 outtextxy(20*7+10,26+14*3,'A');    outtextxy(20*8,26+14*3+3,'2');
 outtextxy(20*12+3,26+14*1,'B');    outtextxy(20*12+13,26+14*1+3,'2');
 outtextxy(20*12+3,26+14*1-9,'_');   outtextxy(20*7+10,26+14*3-9,'_');
 outtextxy(20*1-10,26+14*2-7,'W');    outtextxy(20*1,26+14*2-3,'2');
 outtextxy(20*1-10,26+14*4-7,'Ф');   outtextxy(20*1,26+14*4-3,'2');
 outtextxy(20*11-5,26+14*3+3,'q');

end;

procedure ris2_4;
begin
 setcolor(8);
 Line(20*17-8,26+14*1-3,20*17-8,26+14*6);

                                                                            51