spickmap.m

% spickmap.m
%
% program system for learning the location of towns on the earth
% * show all towns in overview
%
% 17.11.03 Markus Penzkofer

global Ort1 Ort2 Ort3 Ort4 Ort5 Ort6 Ort7 Ort8 Ort9 Ort10
global Ort11 Ort12 Ort13 Ort14 Ort15 Ort16 Ort17 Ort18 Ort19 Ort20
global Ort21 Ort22 Ort23 Ort24 Ort25 Ort26 Ort27 Ort28
global Land1 Land2 Land3 Land4 Land5 Land6 Land7 Land8 Land9 Land10
global Land11 Land12 Land13 Land14 Land15 Land16 Land17 Land18 Land19 Land20
global Land21 Land22 Land23 Land24 Land25 Land26 Land27 Land28
global Bedeutung
global K
global cos_phi
global HFS

% overview window
HFS=figure('NumberTitle','off','Name','P I C K M A P - Overview Window',...
 'Units','normalized','Position',[0.30 0.20 0.70 0.60]);
axis([-180.00 180.00 -80.00 80.00])
set(gca,'DataAspectRatio',[1/cos_phi 1 1]);
hold on


% coast lines
load lb.mat
x1=lb(1:2:15971,1);
x1(x1>180) = x1(x1>180)-360;
y1=lb(1:2:15971,2);
clear lb;
plot(x1,y1,'b.','MarkerSize',4)


% show all towns
maxi = ceil(0.1*length(K))*10-10+1;
for i=1:10:maxi
 if (i<maxi-10)
  maxsch = i+9;
 else 
  maxsch = length(K);
 end
 for sch=i:1:maxsch
  num = ceil(0.1*sch);
  red = ceil(0.1*sch)*10-10;
  Stadt_sch = eval(['Ort' num2str(num) '(' num2str(sch-red) ',:)']);
  plot(K(sch,1),K(sch,2),'g.');
  text(K(sch,1)+0.01,K(sch,2),Stadt_sch,'FontSize',8);      
 end
end