FN = 'helvetica';
FS = 28;

s1 = 'WHOI SSI PMEL MIT ONR MBARI FCT';
for i = 1:length(s1),
   h(i) = text(0,0,s1(i));
   set(h(i), 'FontSize', FS);   
   set(h(i), 'FontName', FN);   
   set(h(i), 'FontWeight', 'bold');
   l0 = get(h(i), 'Extent');
   l1(i) = l0(3);
end;

s2 = 'ALTEX'
for i = 1:length(s2),
   h(i) = text(0,0,s2(i));
   set(h(i), 'FontSize', FS);   
   set(h(i), 'FontName', FN);   
   set(h(i), 'FontWeight', 'bold');
   l0 = get(h(i), 'Extent');
   l2(i) = l0(3);
end;

clf;
%----------------------------------------------------
% DO TOP PORTION OF PATCH ARC....
s = s1;

r = 0.4;    % radius of circle (0.4 good)
da = (360-90)/length(s); 
start = 90 + da*length(s)/2;

rot = 0
% rot = Text read from inside (0) or outside (180) circle

for i = 1:length(s),
   angle = start - da*(i-0.5);
   
   x = r * cos(angle*3.14159/180) + 0.5;
   y = r * sin(angle*3.14159/180) + 0.5;
   theta = angle - 90;
   
   h(i) = text(x,y,s(i));
   set(h(i), 'HorizontalAlignment', 'center');   
   set(h(i), 'VerticalAlignment', 'bottom');   
   set(h(i), 'Rotation', theta+rot);   
   set(h(i), 'FontSize', FS);   
   set(h(i), 'FontName', FN);   
   set(h(i), 'FontWeight', 'bold');
end;

%----------------------------------------------------
% DO BOTTOM PORTION OF PATCH ARC....

s = 'ALTEX'

r = 0.42;    % radius of circle (0.4 good) 
da = -60/length(s); 
rot = 180;  
start = 270 + da*length(s)/2;

for i = 1:length(s),
   angle = start - da*(i-0.5);
   
   x = r * cos(angle*3.14159/180) + 0.5;
   y = r * sin(angle*3.14159/180) + 0.5;
   theta = angle - 90;
   
   h(i) = text(x,y,s(i));
   set(h(i), 'HorizontalAlignment', 'center');   
   set(h(i), 'VerticalAlignment', 'top');   
   set(h(i), 'Rotation', theta+rot);   
   set(h(i), 'FontSize', FS+4);   
   set(h(i), 'FontName', FN);   
   set(h(i), 'FontWeight', 'bold');
   set(h(i), 'Color', 'b');
end;

axis equal
axis off