function voidbk = airportfilmz(varargin)
     voidbk = 0;
     rad = 8;
% showflug.m Beipiel-Plots f\"ur Flugrouten
hdtx = text(-8,8.5,'Airport Frankfurt', ...
    'FontUnits','points','FontSize',18 , ...
   'Fontweight','demi');

%axis([-10 10 -10 10]); axis square;
hold on
%%%view(70,22)
wipl = 15*pi/180; tepl = -19*pi/180;
%

% meridiannetz.m  Zeichnen eines Meridian-Netzes
for klg = 1:4
  long = (klg-1)*30;
  pl = rad*grosskreisfct(long, 360);
  if long == 0
% Muster  hdkr1 = plot3ers(x,y,zc1, 0,tet,0,0,'g',2) ; hold on; 
    hdzm = plot3ers(pl(1,:),pl(2,:),pl(3,:), wipl,tepl, 0,-1,'k',2) ;
  else 
    hdgke(klg-1) =   plot3ers(pl(1,:),pl(2,:),pl(3,:), wipl,tepl, 0,-1,'b',1) ;
    hdgkw(klg-1) =  plot3ers(-pl(1,:),pl(2,:),pl(3,:), wipl,tepl, 0,-1,'b',1) ;
  end
end
for klat = -4:4
  lat = klat*15;
 pb = rad*breitkreisfct(lat);
  if lat == 0
     hdbr(klat+5) = plot3ers(pb(1,:),pb(2,:),pb(3,:), wipl,tepl, 0,-1,'k',2) ;
  else 
    hdbr(klat+5) =  plot3ers(pb(1,:),pb(2,:),pb(3,:), wipl,tepl, 0,-1,'b',1) ;
  end
end

%Start = Frankfurt
longs = 8.6833; lats = 50.1167; 
%      Ankara,   Athen,  Bejing,  Berlin,  Chicago  Kairo,   Kapstadt, London,
%       Mexico, Moskau, NYC , Rio, Sydney , Tokyo,  Frisco,  
lat = [39.9167  37.9667   39.9167   52.5   41.7833   30.0333   -35.9167 ...
         19.4332  55.75 40.65  -22.95  -34.0  35.6667   37.6167    ];

long = [32.9167  23.7167  116.25  13.4167  -95.35 31.35   18.3667  ...
        -99.1167  37.6  -73.7833   -43.2  151.0  139.75  -122.3833   ];


%      Ankara,   Athen,   Berlin,   Kairo,   Kapstadt, London,
%       Bejing, Moskau, Rio, Sydney , Tokyo,  Frisco,  NYC , Chicago
%lat = [39.9167  37.9667    52.5    30.0333   -35.9167 ...
%        39.9167  55.75  -22.95  -34.0  35.6667   37.6167  40.65  41.7833   ];
%long = [32.9167  23.7167  13.4167  31.35   18.3667  ...
%        116.25  37.6     -43.2  151.0  139.75  -122.3833  -73.7833 -95.35];
for k = 1:length(long)
  [dist,azi,maxbreit,norvec] = grosskreis(longs,lats,long(k),lat(k));
  pl = rad*flugfct(longs,lats,azi,dist/6336.2*180/pi);

  ll = length(pl);
  for dkl = 1:20
    dpart = 5*dkl;
    if dkl > 1 
      delete(hdflac);
    end
    hdflac =   plot3ers(pl(1,1:dpart), pl(2,1:dpart), ...
        pl(3,1:dpart), wipl,tepl, 0,-1,'r',2) ;
    pause(0.05)
  end
  hdflg(k) = hdflac;
  pause(0.1);
end
pause(1.2)
for kk= 1:length(long)
  delete(hdflg(kk))
end
for klat = 1:9
  delete(hdbr(klat))
end
for klg = 1:3
  delete(hdgke(klg))
  delete(hdgkw(klg))
end
delete(hdzm)
delete(hdtx)
