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

 outtextxy(20*17+5,26+14*12+2,'-'); outtextxy(20*17+13,26+14*12+12,'1');
 outtextxy(20*16,26+14*13+7,'П'); outtextxy(20*16,26+14*13,'=');
 outtextxy(20*16+10,26+14*13+10,'2');
 arc(20*16+2,26+14*12+3,140,230,15); {дуга}
 putpixel(20*16-6,26+14*12+3,14); {точка}
 circle(20*16-6,26+14*12+3,1);
 arc(20*4+11,26+14*4-4,80,330,5);
 arc(20*5,26+14*4,0,150,5);
 arc(20*5,26+14*4,280,0,5);
 arc(20*10+1,26+14*13-8,130,0,5);
 arc(20*10+1,26+14*13-8,0,50,5);
 arc(20*10+8,26+14*12+1,0,220,5);
 arc(20*10+8,26+14*12+1,340,360,5);
 Line(20*8,26+14*4,20*8,26+14*4-8);
 Line(20*8,26+14*4,20*8+4,26+14*4-7);
 Line(20*8-10,26+14*7+4,20*8-10,26+14*7-4);
 Line(20*8-10,26+14*7+4,20*8-6,26+14*7-3);
 Line(20*8-7,26+14*7+5,20*8-3,26+14*7-2);
 Line(20*15,26+14*13+1,20*15,26+14*13+10);
 Line(20*15-4,26+14*13+2,20*15,26+14*13+10);
 Line(20*15+3,26+14*13-1,20*15+3,26+14*13+8);
 Line(20*9+10,26+14*7-4,20*9+10,26+14*7+4);
 Line(20*9+6,26+14*7-3,20*9+10,26+14*7+4);
 outtextxy(20*8+6,26+14*14+10,'A'); outtextxy(20*8+16,26+14*14+13,'2');
 outtextxy(20*7+10,26+14*8,'='); outtextxy(20*8+5,26+14*14+3,'=');
 outtextxy(20*7+11,26+14*8+7,'B'); outtextxy(20*8,26+14*8+10,'2');
 outtextxy(20*14+6,26+14*14+9,'C'); outtextxy(20*14+15,26+14*14+12,'2');
 outtextxy(20*14+5,26+14*14+2,'=');
end;

procedure list1;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 setbkcolor(15);
 nazv1;
 setcolor(8);
 setbkcolor(15);
 niz;
 setcolor(8);
 setbkcolor(15);
 outtextxy(10,50,' Путем замены исходных ("старых") плоскостей проекций
геометрические фигуры');

                                                                           39