uses graph,openfgr,crt,tuspace;
var rat:integer;
Procedure Atrib;
 begin
  with f do begin
np:=144;
for i:=1 to np do new(p[i]);
  for i:=1 to np do with p[i]^ do begin
  x:=0;y:=rat;z:=0;
 end;p[np-1]^.y:=-p[np-1]^.y;

  for i:=1 to 12 do for j:=1 to 12 do
  with p[(i-1)*12+j]^ do RotAx('z',30*(j-1),x,y,z,x,y,z);

 for i:=1 to 12 do for j:=1 to 6 do
 with p[(i-1)*12+j]^ do RotAx('y',30*(i-1),x,y,z,x,y,z);
nl:=12*12;
for i:=1 to nl do new(ls[i]);
   for i:=1 to 12 do for j:=1 to 6 do with ls[(i-1)*12+j]^do begin n1:=(i-1)*12+j;n2:=(i-1)*12+j mod 12+1 end;
   for i:=1 to 12 do for j:=1 to 6 do with ls[(i-1)*12+6+j]^do begin n1:=(i-1)*12+j;n2:=(i mod 12)*12+j end;
  end;
 end;

begin
init(2);
rat:=(my+mx)div 5;
Atrib;
putinfile('Sfera.txt');
end.