uses crt,tuspace,openfgr;
var rat:integer;
begin
rat:=250;
with f do begin
np:=6;nl:=12;
for i:=1 to 6 do new(p[i]);for i:=1 to 12 do new(ls[i]);

for i:=1 to 6 do with p[i]^do begin x:=0;y:=0;z:=0;end;
p[5]^.y:=rat;p[6]^.y:=-rat;p[1]^.x:=rat;p[3]^.x:=-rat;p[2]^.z:=rat;p[4]^.z:=-rat;


for i:=1 to 4 do begin with ls[i]^do begin n1:=5;n2:=i;end;
                     with ls[i+4]^do begin n1:=6;n2:=i;end;
          with ls[i+8]^do begin n1:=(i)mod 4+1;n2:=i;end;
                 end;
end;

putinfile('Octaedru.fgr');
end.