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

 ent(5);
 if kod<>13 then
         exit;

 s:=s+1;
end;

procedure list23;
begin
 setgraphmode(1);
 setfillstyle(1,0);
 bar(0,0,getmaxx,getmaxy);
 setcolor(8);
 nazv2;
 niz;

 ris2_1;
 outtextxy(10,160,'2. Преобразовать прямую (AB) общего положения в
горизонтальную проецирующую');
 outtextxy(10,170,'прямую.');
 outtextxy(395,170,' { нажмите клавишу  } ');
 ent(5);
 if kod<>13 then
          exit;
 ris2_2; ris2_3;
 outtextxy(10,190,' Задача решается композицией двух преобразований.
Сначала плоскопараллельным');
 outtextxy(10,200,'движением относительно П прямую AB преобразуем во
фронтальную прямую уровня');
 outtextxy(10,203,'             1                            ');
 outtextxy(10,205,'__       ');
 outtextxy(10,214,'AB (см. задачу 1).');
 outtextxy(395,214,' { нажмите клавишу  } ');
 ent(5);
 if kod<>13 then
          exit;
 ris2_4;
 outtextxy(10,226,'                                  __       ');
 outtextxy(10,234,' Затем плоскопараллельным движением относительно П
прямую AB преобразуем в');
 outtextxy(10,237,'                           2              ');
 outtextxy(10,237,'                      __           __        ');
 outtextxy(10,239,'                      __    __       __        ');
 outtextxy(10,248,'горизонтально проецирующую прямую AB. При этом | A B |
= | A B |, горизон-');

                                                                       59