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

 Line(20*6+3,26+15*14+10,20*6-3,26+14*15+18);
 Line(20*10-6,26+14*8+4,20*10+6,26+14*8+4);
 Line(20*10,26+14*8+6,20*10+12,26+14*8+6);
 Line(20*10+6,26+14*8+8,20*10+18,26+14*8+8);
 Line(20*13-3,26+14*8-4,20*13+3,26+14*8+4);
 Line(20*13-8,26+14*8-6,20*13-2,26+14*8+2);
 Line(20*11+2,25+14*5+4,20*17-6,25+14*12-5); {B_1C_1}
 Line(20*11+2,26+14*5+4,20*17-6,26+14*12-5);
 Line(20*11+2,27+14*5+4,20*17-6,27+14*12-5);
 t_ka(14*20-3,26+14*8+6); {A_1} t_ka(20*11+2,26+14*5+4); {B_1}
 t_ka(17*20-6,26+14*12-5); {C_1} t_ka(6*20,26+14*6+4); {C2}
 t_ka(7*20,26+14*3+3); {B2}
 outtextxy(20*14+3,26+14*8-3,'A = f'); outtextxy(20*14+11,26+14*8,'1 1');
 outtextxy(20*14+2,26+14*8-10,'- -'); outtextxy(20*11+7,26+14*5-10,'-');
 outtextxy(20*11+8,26+14*5-3,'B'); outtextxy(20*11+16,26+14*5,'1');
 outtextxy(20*17+3,26+14*11+1,'C'); outtextxy(20*17+11,26+14*11+4,'1');
 outtextxy(20*17+2,26+14*11-6,'-'); outtextxy(20*2-5,26+14*1+9,'f');
 outtextxy(20*2+5,26+14*1+12,'2');
end;

procedure ris34;
begin
 setcolor(8);
 setbkcolor(15);
 Line(20*9+10,26+14*5,20*17+4,26+13*14+6); {x_21}
 Line(20*9+10,25+14*5,20*17+4,25+14*13+6);
 Line(20*17+4,26+14*13+6,20*16+8,26+14*13-1); {стрелки}
 Line(20*17+4,26+14*13+6,20*17-5,26+14*13-6);
 Line(20*8+11,26+14*14,20*14-3,26+14*8+6); {A__2A_1}
 Line(20*8+12,26+14*8-2,20*11+2,26+14*5+4); {B__2B_1}
 Line(20*14+8,26+14*14,20*17-6,26+14*12-5); {C__2C_1}
 Line(20*8+12,25+14*8-2,20*14++10,25+14*14-1); {B__2C__2}
 Line(20*8+12,26+14*8-2,20*14+10,26+14*14-1);
 Line(20*8+12,27+14*8-2,20*14+10,27+14*14-1);
 Line(20*8+11,25+14*14,20*14+10,25+14*14-1); {A__2C__2}
 Line(20*8+11,26+14*14,20*14+10,26+14*14-1);
 Line(20*8+11,27+14*14,20*14+10,27+14*14-1);
 Line(20*8+12,26+14*14,20*8+13,26+14*8-2); {A__2B__2}
 Line(20*8+11,26+14*14,20*8+12,26+14*8-2);
 Line(20*8+10,26+14*14,20*8+11,26+14*8-2);
 t_ka(14*20-3,26+14*8+6); {A_1} t_ka(20*11+2,26+14*5+4); {B_1}
 t_ka(17*20-6,26+14*12-5); {C_1} t_ka(20*8+11,26+14*14); {A__2}
 t_ka(20*8+12,26+14*8-2); {B__2} t_ka(20*14+10,26+14*14-1); {C__2}
 outtextxy(20*17,26+14*14+1,'X'); outtextxy(20*17,26+14*14-7,'=');
 outtextxy(20*17+10,26+14*14+4,'12'); outtextxy(20*17+5,26+14*12+9,'П');

38