Visibility of Luna and Lunar Crescent

)
{
gmr4c6-0r{41.0+50.5484V60.0y60,0+(6640184-812866'si+0.093104'st'st-
0.0000062rst'srlsr)6600.0r
east4@=eEst Erc{€lltsi'cos(epsilon'PUl 80.0yt 5.0i
smstz€rc-lGmrzro/24.0ldoubl{long(8tui4b24-0)))'24.0r
gdu€re1Gastu o/24.0!doubL(loos(ssrz'o24.0)))'24 0;
if(smEm<o-o) 8rnst4'o+=24.0;
i(gnsldo>24.0) gott4to-=24.0i
i(s6rzerc<0.0) gaslzco+=24.0i
i(easrzerc>0.0) gastzdo-=24.0;
smstcun_Cnstrcro+frac124,01 I 002? 3 ?909I5 i
gasrcuFsdzero+firc'24.0* 1.00273?90935;
i(snslcuP24.0) snslcun-=24 0i
i(emslcun<0.0) Smslcud+=24.0i
i(sastcud>24.0) eastcuft-=24.0i
i(gastcuft<0.0) sostcud+=240;
lostcllFgnncd+plong/15.0i
l4rcuFedlcur+Plong/15.0i
lastcun-=24.0;
i(lastcuPla.0)
i(lostcud24.0) lnsrcud.=z4 0;
i(ldlcm 0O'
ii(lmsbu<0.0)
ls(c!r-240i
lhsr.!nt=24.0;
)
void convcn dmndouble c@d)
{
cdesdouble(lone(coord)):
cmin=(coo'd{d€s)i60.0;
c*clcmin'dolble(1o.8(cmio)))'60.0:
pnd( %3dooz2dn"/o2ds,in(cde8),in(cnin).in(cscc));
)
void conven bn(double cood)
{
cdes=double(loneGoord));
cmin=Good{dee)i60.0;
csc=Lcmid.double(lons(cmin)))t60 0i
prinr ( o!2dhoo)dn' o2dr".,ntrcdegl,inlr(min).rnl, cscc\):
)
void sun cood(double)
{
fplFfopen( v$pean.txt', t )i
// LO,\]GITUDE OF EARTH
fodi=o;i<6:i+)
{ tehp=o.oi
fo{=0j<lnellilj++)
2t2