ANNEX 2 
832 
Program Spotslopes (input, output); 
Const pi = 3.141592717 ; 
Var slopang, lkang, visang, sunel, azim, shine, view 
phitwo, phithree, minsh, maxsh, minvis, maxvis : 
imagename : packed array [1..30] of char ; 
scenid : packed array [1..10] of char ; 
Function minfa,b:real):real; 
begin if (a < b) then min a else min := b end; 
Function acos(x : real) : real; 
begin 
if x > 0 then 
acos arctan(sqrt(l-x*x)/x) 
else if x < 0 then 
acos := PI - acos(-x) 
else 
acos :=* PI / 2 
end; 
Function acosd(x : real) : real; 
begin 
acosd :* 180 * acos(x) / PI 
end; 
Function atand(x : real) : real ; 
begin 
atand 180 * arctan(x) / PI 
end; 
Function tand(a : real) : real; 
begin 
a :=* a * pi / 180; 
tand ;» sin(a)/cos(a) 
end; 
Function cosd(a : real) : real; 
begin 
a :=* a * pi / 180; 
cosd := cos(a) 
end; 
Function iglo( x, delta : real) : real; 
begin if delta > x then iglo := 0 
else iglo := acosd(tand(delta)/tand(x)) end; 
: real 
real;