uses tuspace,openfgr;
var rat:integer;
    U:Integer;

Procedure Atrib;
 begin
 rat:=(mx+my)div 5+20;
 u:=round(g(2*arctan(2/(sqrt(5)+1))));
 with f do begin
 np:=12;nl:=30;
  for i:=1 to np do new(p[i]);
  for i:=1 to 12 do with p[i]^do begin x:=0;y:=rat;z:=0;end;
  for i:=7 to 12 do with p[i]^do y:=-Y;
  for i:=2 to 11 do with p[i]^do RotAx('z',u,x,y,z,x,y,z);
  for i:=2 to 6 do with p[i]^ do RotAx('y',72*i,x,y,z,x,y,z);
  for i:=7 to 11 do with p[i]^do RotAx('y',72*(i-3),x,y,z,x,y,z);

  for i:=1 to nl do new(ls[i]);
  for i:=1 to 5 do with ls[i]^do begin n1:=1;n2:=i+1;end;
  for i:=6 to 10 do with ls[i]^do begin n1:=12;n2:=i+1;end;
  for I:=2 to 6 do begin
   with ls[i+9]^ do begin n1:=i;n2:=(i-1)mod 5+2;end;
   with ls[i+14]^do begin n1:=i+5;n2:=(i-1)mod 5+7;end;
   with ls[i+19]^do begin n1:=i;n2:=i+5;end;
   with ls[i+24]^do begin n1:=i;n2:=(i-1)mod 5+7;end;
  end;
 end;
 end;

 begin
 init(5);
 atrib;
PutInFile('Icosaedr.txt');
halt(0);
 end.