Download or view drawMarsJupiter.frink in plain text format
/** This draws the 2024 conjunction of Mars and Jupiter and Saturn for any given
date. Try:
frink drawMarsJupiter.frink "2024-08-14 09:00"
for what is probably the closest approach for
Denver, Colorado, USA. Try a few hours early for nighttime.
*/
use planets.frink
lat = 40 deg North
long = 105 deg West
if length[ARGS] > 0
d = parseDate[ARGS@0]
else
d = now[]
[maz, malt] = Planet.Mars.refractedAzimuthAltitude[d, lat, long]
[jaz, jalt] = Planet.Jupiter.refractedAzimuthAltitude[d, lat, long]
jrad = Planet.Jupiter.radiusAngle[d]
mrad = Planet.Mars.radiusAngle[d]
// Center on Jupiter (because it moves the slowest in the sky)
g1 = Planet.drawJupiterMoonsRelativeToZenith[d, lat, long, (jaz-jaz) cos[-jalt],
-(jalt-jalt), jrad, true, true]
g2 = Planet.Mars.drawPolygonRelativeToZenith[d, lat, long, (maz-jaz) cos[-jalt], -(malt-jalt), mrad, true]
g = new graphics
g.add[g1]
g.add[g2]
g.invertGrays[].show[]
g.invertGrays[].write["drawMarsJupiter.png", 2048, undef]
g.invertGrays[].write["drawMarsJupiter.svg", 2048, undef]
g.print[]
Download or view drawMarsJupiter.frink in plain text format
This is a program written in the programming language Frink.
For more information, view the Frink
Documentation or see More Sample Frink Programs.
Alan Eliasen was born 20152 days, 19 hours, 26 minutes ago.