clear; clf; 
hold on;
%% Plotting the boundaries for Scer chr8
plot([545000,567639],[-5000,-5000],'k-');
plot([545000,545000],[-4500,-5500],'k-');
plot([567639,567639],[-4500,-5500],'k-');
%% Text at position 567639,-5300:  Scer chr8
h = text(567639.0, -5300.0, 'Scer chr8');
set(h,'VerticalAlignment','top')
set(h,'HorizontalAlignment','right')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
%% Hooks at the end of Scer chr8
plot([545000,545000,545000],[-5500,-5500,-5400],'k-');
plot([567639,567639,567639],[-4500,-4500,-4600],'k-');
%% 
%% Arrow from [549633,543606] to [-5000,-5000].  Width 300, indent 400, length 6027
fill([549633.00,544006.00,543606.00,544006.00,549633.00,549633.00], ...
	[-4700.00,-4700.00,-5000.00,-5300.00,-5300.00,-4700.00], 'm-');
%% Text at position 546619,-4700:  YHRCTY1-1
h = text(546619.0, -4700.0, 'YHRCTY1-1');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [549342,543960] to [-5000,-5000].  Width 300, indent 400, length 5382
fill([549342.00,544360.00,543960.00,544360.00,549342.00,549342.00], ...
	[-4700.00,-4700.00,-5000.00,-5300.00,-5300.00,-4700.00], 'b-');
%% Text at position 546651,-4700:  YHR214C-B
h = text(546651.0, -4700.0, 'YHR214C-B');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [549342,547906] to [-5000,-5000].  Width 300, indent 400, length 1436
fill([549342.00,548306.00,547906.00,548306.00,549342.00,549342.00], ...
	[-4700.00,-4700.00,-5000.00,-5300.00,-5300.00,-4700.00], 'b-');
%% Text at position 548624,-4700:  YHR214C-C
h = text(548624.0, -4700.0, 'YHR214C-C');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [549633,549302] to [-5000,-5000].  Width 300, indent 297.9, length 331
fill([549633.00,549599.90,549302.00,549599.90,549633.00,549633.00], ...
	[-4700.00,-4700.00,-5000.00,-5300.00,-5300.00,-4700.00], 'm-');
%% Text at position 549467,-4700:  YHRCDELTA16
h = text(549467.0, -4700.0, 'YHRCDELTA16');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [552095,553498] to [-5000,-5000].  Width 300, indent 400, length 1403
fill([552095.00,553098.00,553498.00,553098.00,552095.00,552095.00], ...
	[-5300.00,-5300.00,-5000.00,-4700.00,-4700.00,-5300.00], 'b-');
%% Text at position 552796,-4700:  YHR215W (PHO12)
h = text(552796.0, -4700.0, 'YHR215W (PHO12)');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [554392,555963] to [-5000,-5000].  Width 300, indent 400, length 1571
fill([554392.00,555563.00,555963.00,555563.00,554392.00,554392.00], ...
	[-5300.00,-5300.00,-5000.00,-4700.00,-4700.00,-5300.00], 'b-');
%% Text at position 555177,-4700:  YHR216W (PUR5)
h = text(555177.0, -4700.0, 'YHR216W (PUR5)');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [557038,556577] to [-5000,-5000].  Width 300, indent 400, length 461
fill([557038.00,556977.00,556577.00,556977.00,557038.00,557038.00], ...
	[-4700.00,-4700.00,-5000.00,-5300.00,-5300.00,-4700.00], 'w-');
%% Text at position 556807,-4700:  YHR217C
h = text(556807.0, -4700.0, 'YHR217C');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [558010,559920] to [-5000,-5000].  Width 300, indent 400, length 1910
fill([558010.00,559520.00,559920.00,559520.00,558010.00,558010.00], ...
	[-5300.00,-5300.00,-5000.00,-4700.00,-4700.00,-5300.00], 'b-');
%% Text at position 558965,-4700:  YHR218W
h = text(558965.0, -4700.0, 'YHR218W');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
%% 
%% Arrow from [560169,562043] to [-5000,-5000].  Width 300, indent 400, length 1874
fill([560169.00,561643.00,562043.00,561643.00,560169.00,560169.00], ...
	[-5300.00,-5300.00,-5000.00,-4700.00,-4700.00,-5300.00], 'b-');
%% Text at position 561106,-4700:  YHR219W
h = text(561106.0, -4700.0, 'YHR219W');
set(h,'VerticalAlignment','middle')
set(h,'HorizontalAlignment','left')
set(h,'Interpreter','none')
set(h,'FontName','Times')
set(h,'FontSize',8)
set(h,'Rotation',90)
ax = axis;
axis([ax(1),ax(2),ax(3),0]);
h = gcf;
h2 = get(h,'CurrentAxes');
set(h2,'YAxisLocation','right');
title('Scer ChrVIII tile 12 positions 550kbp to 562kbp aligned against Spar Smik Sbay');
