<%
use ../
sun.frink
g = new graphics
d = parseDate["
$date UTC"]
g.color[.05,.05,.05] // Draw dark opaque moon disk
g.fillEllipseCenter[0,0,2,2]
g.color[.8,.8,.8] // Draw illuminated crescent.
g.add[drawMoonPolygonRelativeToZenith[d,eval[lat] degrees,eval[long] degrees,0,0,1,true]]
g.writeFormatTransparent["-", "png", 100, 100]
%>