// Program to test moon drawing routines in sun.frink.

use sun.frink

n = now[]
lat = 39 deg North
long = 104 deg West

g = new graphics
gp = drawMoonPolygon[0, 0, 1, moonPositionAngleRelativeToZenith[n, lat, long], moonIlluminatedFraction[n], false]
g.add[gp]
g.show[]

//gp = drawMoonPolygon[0, 0, 1, 90 degrees, moonIlluminatedFraction[n], false]

g = new graphics

for a = 0 to 12
{
   angle = 30 degrees a
   for kf = 0 to 10
   {
      k = kf / 10
      gp = drawMoonPolygon[2.2 a, 2.2 kf, 1, angle, k, false]
      g.add[gp]
   }
   for kf = 9 to 0 step -1
   {
      k = (9 - kf) / 10
      gp = drawMoonPolygon[2.2 a, 2.2 kf + 24.2, 1, angle, k, false]
      g.add[gp]
   }
}

g.show[]