uses crt,openfgr;
var rat:integer;

begin
rat:=50;
with f do begin
np:=56;nl:=84;
for i:=1 to np do new(p[i]);for i:=1 to nl do new(ls[i]);
for i:=1 to 12 do with p[i]^ do begin
 y:=-3*rat;x:=((i-1)div 6)*(-2*rat)+rat;end;
p[1]^.z:=3*rat;p[12]^.z:=3*rat;p[6]^.z:=-3*rat;p[7]^.z:=-3*rat;
p[2]^.z:=rat;p[11]^.z:=rat;p[5]^.z:=-rat;p[8]^.z:=-rat;
with p[3]^ do begin x:=3*rat;z:=rat;end;p[10]^:=p[3]^;
with p[4]^ do begin x:=3*rat;z:=-rat;end;p[9]^:=p[4]^;
p[10]^.x:=-p[10]^.x;p[9]^.x:=-p[9]^.x;
for i:=1 to 3 do p[12+i]^:=p[i]^;
for i:=13 to 15 do p[i]^.y:=-rat;
p[16]^:=p[15]^;p[16]^.z:=3*rat;
for i:=13 to 16 do begin p[i+4]^:=p[i]^; with p[i+4]^do z:=-z;end;
for i:=13 to 20 do begin p[i+8]^:=p[i]^;with p[i+8]^ do x:=-x;end;
for i:=1 to 28 do begin p[i+28]^:=p[i]^;with p[i+28]^do y:=-y;end;
for i:=1 to 12 do with ls[i]^ do begin n1:=i;n2:=i mod 12+1;end;
for j:=0 to 3 do for i:=13 to 16 do with ls[4*j+i]^do begin n1:=4*j+i;n2:=(i)mod 4+13+4*j;end;
for j:=0 to 1 do for i:=1 to 3 do with ls[28+i+3*j]^ do begin n1:=i+6*j;n2:=i+12*j+12;end;
for j:=0 to 1 do for i:=1 to 3 do with ls[i+34+3*j]^do begin n1:=i+3+6*j;n2:=20-i+4*j;end;
for i:=1 to 40 do with ls[i]^do begin ls[i+40]^.n1:=n1+28;ls[i+40]^.n2:=n2+28;end;
for i:=1 to 4 do with ls[80+i]^ do begin n1:=12+i*4;n2:=n1+28;end;
end;
PutInFile('Crux.fgr');
end.