%FRACDRW is a subroutine of the program "fractory.m".  When
%cleanup==0, it drives the mathematical iterative routine
%"fraciter.m", and plots the results.  When cleanup==1, it
%deletes the fractal and the other devices.  It is called by
%the program "makefrac.m".


%Draw Fractal
if cleanup==0
  x0=0;
  y0=0;
  Iter=20;
  fraciter
  x0=X(21);
  y0=Y(21);
  Iter=maxvar;
  donepos=0;
  mm=0;
  for mm=1:TotPlts-1
    fraciter
    axes(Gaxes);
    fractl(mm)=plot(X',Y','w.');
    donepos=(mm*maxvar/TotIt)*261;
    set(FDbox(5),'Position',[52 382 donepos 46]);
    x0=X(Iter+1);
    y0=Y(Iter+1);
    if brk
      break
    end 
  end
  Iter=rem(TotIt,maxvar);
  fraciter
  axes(Gaxes);
  fractl(mm+1)=plot(X',Y','w.');
  donepos=donepos+(Iter/TotIt)*261;
  set(FDbox(5),'Position',[52 382 donepos 46]);

%Cleanup Fractal
else
  for nn=1:mm+1
    delete(fractl(nn));
  end
  for nn=1:K
    if fcnon(nn)==1
      set(fcns(nn),'Visible','on');
    end
  end
  set(fcns(n),'Visible','on');
  for nn=1:4
    set(curpts(nn),'Visible','on');
  end
  for nn=1:5
    delete(FDbox(nn));
  end
  ctlmode='on';
  setwho=3;
  if viewon==0
    setwho=[setwho 1];
  end
  if ldsvon==0
    setwho=[setwho 2];
  end
  setctl
end