833
Procedure readin ;
Begin
page ;
writeln (' WELCOME TO PROGRAMME SPOTSLOPES ');
writeln;
writeln;
writeln ( ' This program analyzes the shadows in sidelook SPOT imagery and ');
writeln ('the visibility of steep slope facets around the lookdirection.');
writeln ('Stereo-observation establishes the presence of slopes.') ;
writeln;
writeln (' Enter NAME and DATE of image, max. 30 characters: ');
write (' >')?
readin (Imagename);
writeln ;
writeln (' ' Enter scene-identifiers [K/J]:') ;
write (' >'); readin (scenid);
writeln;
writeln (' Enter sun elevation angle:');
write(' >'); readin (sunel);
writeln;
writeln (' Enter incidence angle:');
write(' >'); readin (lkang);
visang := (90 - lkang);
writeln;
writeln (' Enter sun azimuth direction :');
write(' >'); readin (azim);
shine (azim + 180);
writeln;
writeln (' Enter viewing direction :');
writeln (' (Normally - orientation + 270 if Rightlooking [* 278.7]) ');
writeln (' (Normally - orientation + 90 if Leftlooking [- 98.7]) ');
write(' >'); readin (view);
writeln;
end;{readin}
Procedure header
Begin
writeln ;
writeln
writeln
writeln
writeln
writeln
writeln
writeln
writeln;
writeln
writeln
writeln;
end; {header}
Image :
imagename )
Scene-identifier:
Sun elevation angle:
Incidence angle:
Sun azimuth :
Look direction:
SLOPE
(degrees)
NOT VISIBLE
(exposure
scenid);
(sunel): 3 :1 );
' , (lkang):3:1 );
(azim): 3 :1 );
(view): 3 :1 );
SHADOWED');
directions ) ');
