--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/streamer.m	Tue Oct 20 16:23:49 2009 -0400
@@ -0,0 +1,49 @@
+function handle = streamer(fig,TitleString)
+%  STREAMER  Titles for an entire figure.
+% 	     STREAMER('text') adds text at the top of the current figure,
+% 	     going across subplots.
+%        STREAMER(fig,'text') adds it to the specified figure.
+%
+% changed default to fontsize 14 and fontweight bold   GK
+% 
+% 	     See also XLABEL, YLABEL, ZLABEL, TEXT, TITLE.
+%
+%	Keith Rogers 11/30/93
+
+% Copyright (c) by Keith Rogers 1995
+
+% 
+% Mods:
+%	11/94 adapted to 4.2
+%   06/95 clean up, added alternate figure option.
+
+if(nargin<2)
+	TitleString = fig;
+	fig = gcf;
+end
+ax = gca;
+sibs = get(fig, 'Children');
+for i = 1:max(size(sibs))
+	if(strcmp(get(sibs(i),'Type'),'axes'))
+		if(strcmp(get(sibs(i),'Tag'),'Streamer'))
+				StreamerHand = sibs(i);
+		end
+	end
+end
+if (exist('StreamerHand')~=2)
+	figure(fig);
+	StreamerHand = axes('Units','normalized',...
+						'Position',[.1 .9 .8 .05],...
+						'Box','off',...
+						'Visible','off',...
+						'Tag','Streamer');
+	handle = get(gca,'Title');
+	set(handle,'Visible','On');
+else
+	handle = get(gca,'Title');
+	axes(StreamerHand);
+end
+title(TitleString);
+axes(ax);
+
+set(handle,'fontweight','bold','fontsize',16);