' Converted to Pico MMBasic by Kevin Moore 07/12/2021
' Based on Python project https://github.com/dr-mod/pico-solar-system
' which uses the planetry equations of motion from http://stjarnhimlen.se/comp/tutorial.html
' I have limited the year between 1901 and 2100 as the equations may not work beyond these.
' Touch points are
' Top Left     = Brightness up
' Bottom Left  = Brightness down
' Top Right    = increase date by a week at a time then a month...
' Bottom Right = decrease date by a week at a time then a month...
' Centre       = reset back to todays date, also re-initialise LCD display
'
' turn off default typing
Option DEFAULT NONE
' force explicit typing
Option EXPLICIT
' turn off blinking LED while running
'SetPin GP25, DOUT
' Screen = 480*320
Const SSF = mm.vres / 320  'Screen Scaling Factor
Const width = mm.hres
Const height = mm.vres
Const onerad = 57.2957795131
Const update = 100
Colour RGB(WHITE), RGB(BLACK) ' Set the default colours
Font 1, 3 ' Set the default font
Dim m$(11) = ("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec")
Dim planet_name$(9) = ("","Mercury","Venus","Earth","Mars","Jupiter","Saturn","Uranus","Neptune","Moon")
Dim STRING dy
Dim INTEGER x, y, orbit, year, month, day, hour, min, today = 0, dayb = 80, eveb=30, nightb=2, updb=0
Dim INTEGER dayoff = 0, cuday, cumonth, cuyear, updatescr=update, bright=80, lastb=0, lasthour=24
Dim INTEGER last_pos(1,9)
Dim INTEGER rtcl=1 ' do we have a hardware real time clock
Dim FLOAT planets_dict(1,9)
Dim FLOAT xeclip, yeclip, zeclip, long2, lat2, r, Earthx, Earthy
Dim FLOAT feta, coordinatex, coordinatey, seconds, lastsec=60.0, frac_s=0.0

' set screen backlight to mid value
'Backlight bright
' Solar system centre
y = height / 2
x = y

Do
 day = val(Left$(Date$, 2))
 hour = val(Left$(Time$, 2))

' only update planets daily or when changing or when fast scrolling
 If day <> today Or dayoff >= 2 Then
' re-initialise display once a day at midnight, when date changes
'    If dayoff <=1 Then GUI RESET LCDPANEL
   If dayoff <=4 Then CLS
   year = val(Right$(Date$, 4))
   month = val(Mid$(Date$, 4, 2))
   today = day
'    hour = val(Left$(Time$, 2))
   min = val(Mid$(Time$, 4, 2))

' call main calculations of planet positions
   coordinates(year, month, day, hour, min) ' results returned in planets_dict array

' draw Sun
   If dayoff <=4 Then
     Circle x, y, 12*SSF, 0, 1,, RGB(YELLOW)
     Circle x-5*SSF, y+2*SSF, 1*SSF, 0, 1,, RGB(0,0,0) 'Sun spots
     Circle x-8*SSF, y-3*SSF, .7*SSF, 0, 1,, RGB(0,0,0)
     Circle x+6*SSF, y-2*SSF, .5*SSF, 0, 1,, RGB(0,0,0)
   EndIf
   For orbit = 1 To 9
' planet and orbit sizeing only for a 340*240 screen
' draw orbit rings
     r = 18*SSF * orbit + 8*SSF
' change orbit spacing for inner planets
     If orbit <=3 Then r=r-12+(orbit*2) : If orbit <=1 Then r=r+4
' for speed, don't draw orbits if fast scrolling the date, no orbit for Moon
     If dayoff <= 2 And orbit <= 8 Then Circle x, y, r, 1, 1, RGB(110,110,110), -1 : last_pos(0,orbit)=0 : last_pos(1 ,orbit)=0
' draw planets
' Moon Special is geocentric, all others are Heliocentric
     If orbit = 9 Then
' Don't draw Moon if fast scrolling
       If dayoff <= 2 Then
         feta = Atan2(planets_dict(1,orbit), planets_dict(0,orbit))+1.570796327
         r= 13*SSF ' Moon orbit round Earth (keep it close)
         coordinatex = r * Sin(feta) + Earthx
         coordinatey = r * Cos(feta) + Earthy
         Call planet_name$(orbit) ,(coordinatex, coordinatey, last_pos(0,orbit), last_pos(1,orbit))
         last_pos(0,orbit) = coordinatex
         last_pos(1,orbit) = coordinatey
       EndIf
     Else
       feta = Atan2(planets_dict(0,orbit), planets_dict(1,orbit))
       coordinatex = r * Sin(feta) + x
       coordinatey = height - (r * Cos(feta) + y)
       Call planet_name$(orbit) ,(coordinatex, coordinatey, last_pos(0,orbit), last_pos(1,orbit))
       last_pos(0,orbit) = coordinatex
       last_pos(1,orbit) = coordinatey
     EndIf
     If orbit = 3 Then Earthx=coordinatex : Earthy=coordinatey ' save Earth coordinates for Moon calcs.
   Next orbit

' display current date don't disply day of week if fast scrolling date
   If dayoff <= 2 Then
     dy$=Day$(Date$)
     Text width-214, 32, dy$, "LB", 5, 1, RGB(ORANGE)
   EndIf
   Text width-185, 32, Left$(Date$, 3)+m$(val(Mid$(Date$, 4, 2))-1), "LT", 5, 1, RGB(ORANGE)
   Text width-155, 65, Right$(Date$,4), "LT", 5, 1, RGB(ORANGE)
 EndIf

' display current time and Pluto unless fast scrolling date
 If dayoff <= 2 Then
   seconds = val(Right$(Time$, 2))
   If lastsec > seconds Then Text width-166, height-56, Left$(Time$, 5), "LT", 6, 1, RGB(CYAN) : seconds=0 ' update time
   If seconds <> lastsec Then
     frac_s=0
     lastsec = seconds
   Else
     frac_s = frac_s+updatescr
   EndIf
   Pluto(seconds+(frac_s/1000))
 EndIf

' Update the backlight LED brightness every hour time and month dependent
 If hour <> lasthour Or updb Then
   lasthour=hour
' Jan, Nov or Dec
   If (month=1 Or month=11 Or month=12) And hour>=8 And hour<=15 Then
     If updb Then dayb=bright : updb=0
     bright=dayb
' May, June, July
   ElseIf (month=5 Or month=6 Or month=7) And hour>=5 And hour<=20 Then
     If updb Then dayb=bright : updb=0
     bright=dayb
' Feb, Oct
   ElseIf (month=2 Or month=10) And hour>=7 And hour<=16 Then
     If updb Then dayb=bright : updb=0
     bright=dayb
' March, Sept
   ElseIf (month=3 Or month=9) And hour>=6 And hour<=18 Then
     If updb Then dayb=bright : updb=0
     bright=dayb
' April, Aug
   ElseIf (month=4 Or month=8) And hour>=5 And hour<=19 Then
     If updb Then dayb=bright : updb=0
     bright=dayb
' Any other time of day
   Else
' Set to very dim over night.
     If hour>=23 Or hour <=6 Then
       If updb Then nightb=bright : updb=0
       bright=nightb
' Set to med bright for evening.
     Else
       If updb Then eveb=bright : updb=0
       bright=eveb
     EndIf
   EndIf

' Update actual screen brightnes
   If bright <> lastb Then lastb=bright' : Backlight bright
 EndIf

 Pause updatescr ' wait before doing next screen update
 If Touch(DOWN) Then
' save todays date for returning later
   If dayoff = 0 Then cuday = day : cumonth = month : cuyear = year
   If Touch(X) <160 Then
     If Touch(Y) <160 Then
       updb=1
       If bright <10 Then
         bright = bright + 1
       Else
         bright = bright + 5
       EndIf
       If bright >100 Then bright=100
     ElseIf Touch(Y) >=160 Then
       updb=1
       If bright <10 Then
        bright = bright - 1
       Else
         bright = bright -5
       EndIf
       If bright <0 Then bright = 0
     EndIf
   ElseIf Touch(X) >320 Then
     If Touch(Y) <160 Then
       If dayoff <97 Then day = day+7 Else month = month+1
       If day >28 Then day=1 : month = month+1
       If month >12 Then month=1 : year = year+1
'        If year > 2100 Then year = 2100
     ElseIf Touch(Y) >=160 Then
       If dayoff <97 Then day = day-7 Else month = month-1
       If day <1 Then day=28 : month = month-1
       If month <1 Then month=12 : year = year-1
       If year <1901 Then year=1901
     EndIf
     updatescr=0
     lastsec=60
     dayoff = dayoff+3

'      Date$ = Str$(day)+"/"+Str$(month)+"/"+Str$(year)
   ElseIf Touch(X) >160 And Touch(X) <320 Then
     updatescr = update
     dayoff = 0
     lastsec=60
     today=0
     If rtcl = 1 Then
'        RTC GETTIME
     Else
       Date$ = Str$(cuday)+"/"+Str$(cumonth)+"/"+Str$(cuyear)
     EndIf
   EndIf
 ElseIf dayoff >2 Then
   dayoff = 2
 ElseIf dayoff =2 Then
   dayoff = 1
   updatescr = update  ' delay between screen updates & checking for push switches
 EndIf
Loop

Sub Pluto( secs As FLOAT )
Const  R = 4
Const  BOUNCE = -0.98
Static Float  plu_x = 220.0, plu_y = y
Static Float  xpos = plu_x, ypos=plu_y
Static Float  vel_x = -3.0
Static Integer  y_height = 167, y_min = 94
Static Integer  x_min = width-165 + R, x_max = width - R
Static Float amplitude, x_fun, sway, height, sec2

  If secs < 0.01 Then
    sec2=0
    vel_x = Rnd*3+4
    If Rnd > 0.5 Then vel_x = -(vel_x)
' update 59sec and 0 sec markers every minute.
    Text width-170, 100*SSF, "0", "LB", 7, 1, RGB(156,166,183)
    Text width-170, 264*SSF, "59", "LB", 7, 1, RGB(156,166,183)
  EndIf
' update the 30sec marker every 4 seconds while less than 35 seconds
  If secs >= sec2 And secs <= 35 Then sec2 = secs+2 : Text width-25, 180*SSF, "30", "LB", 7, 1, RGB(156,166,183)

  amplitude = (60-secs)/60*2
  x_fun = secs - Fix( secs )
  sway = 1 - ((((x_fun/0.5)-1)^2) * (-1) + 1)
  height = y_height * amplitude/2
  plu_y = (height * sway) + y_height - height + y_min

  plu_x = plu_x + vel_x
  If plu_x >= x_max Then
      vel_x = vel_x * BOUNCE
      plu_x = x_max
  ElseIf plu_x <= x_min Then
      vel_x = vel_x * BOUNCE
      plu_x = x_min
  EndIf

  Box xpos-4, ypos-4, 9, 9, 0,, RGB(0,0,0)  ' blank Pluto
  Circle plu_x, plu_y*SSF, R, 0, 1,, RGB(156,166,183)  'Pluto
  xpos = plu_x
  ypos = plu_y*SSF

End Sub

Sub Mercury(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 2*SSF, 0, 1,, RGB(0,0,0)  ' blank Mercury
  Circle xs, ys, 2*SSF, 0, 1,, RGB(203,178,158)  'Mercury
End Sub

Sub Venus(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 6*SSF, 0, 1,, RGB(0,0,0)  ' blank Venus
  Circle xs, ys, 6*SSF, 0, 1,, RGB(179,132,22)  'Venus
End Sub

Sub Earth(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 7*SSF+1, 0, 1,, RGB(0,0,0)  ' blank Earth
  Circle xs, ys, 7*SSF, 0, 1,, RGB(126,152,203)  'Earth
' don't draw planet details if fast scrolling
  If dayoff <=2 Then
    ARC xs, ys, 5*SSF, 7*SSF, -90, -20, RGB(30,255,20) 'Eurasia
    triangle xs-7*SSF, ys,xs-5*SSF, ys,xs-7*SSF, ys+2*SSF, RGB(30,255,20), RGB(30,255,20)
    ARC xs, ys, 6*SSF, 7*SSF, 20, 70, RGB(30,255,20) 'N America
    ARC xs, ys, 6.9*SSF, 7*SSF, 70, 80, RGB(30,255,20) 'C America
    ARC xs, ys, 6.3*SSF, 7*SSF, 80, 130, RGB(30,255,20) 'S America
    ARC xs, ys, 6.8*SSF, 7*SSF, 130, 140, RGB(30,255,20) 'S America
   triangle xs, ys,xs+1*SSF, ys+2*SSF,xs, ys+4.5*SSF, RGB(30,255,20), RGB(30,255,20)'New Holland
   triangle xs, ys+.8*SSF,xs-.8*SSF, ys+2*SSF,xs, ys+4.5*SSF, RGB(30,255,20), RGB(30,255,20)
   triangle xs-2*SSF, ys+.8*SSF,xs-2.5*SSF, ys+2*SSF,xs-2*SSF, ys+3.3*SSF, RGB(30,255,20), RGB(30,255,20)
   Box xs-2*SSF, ys+.8*SSF, 2*SSF, 2*SSF, 0,, RGB(30,255,20)
   Box xs-1.8*SSF, ys+.3*SSF, 1*SSF, 1*SSF, 0,, RGB(30,255,20)
   Circle xs-1*SSF,ys+2*SSF, .6*SSF, 0, 2.4,, RGB(200,150,100)
   Box xs-1*SSF, ys+3.25*SSF, 2*SSF, .4*SSF, 0,, RGB(126,152,203) 'Bass Strait
   triangle xs+2*SSF, ys+2.6*SSF,xs+2*SSF, ys+4.6*SSF,xs+1.5*SSF, ys+4.7*SSF, RGB(30,255,20), RGB(30,255,20)'Aotearoa
   triangle xs+2*SSF, ys+2.2*SSF,xs+2*SSF, ys+4.6*SSF,xs+2.5*SSF, ys+2.8*SSF, RGB(30,255,20), RGB(30,255,20)'Aotearoa
   Box xs+1*SSF, ys+3.33*SSF, 2*SSF, .25*SSF, 0,, RGB(126,152,203) 'Cook Strait
    Circle xs-1.8*SSF,ys-2*SSF, 1.5*SSF, 1.2*SSF, 2, RGB(200,200,220), -1 'clouds
    Line xs-4*SSF,ys+5.7*SSF, xs+4*SSF,ys+5.7*SSF, 1.5*SSF, RGB(WHITE) 'Antarctica
    Line xs-3.5*SSF,ys-7*SSF, xs+3.5*SSF,ys-7*SSF, 1*SSF, RGB(WHITE) 'arctic
    Circle xs, ys, 9*SSF, 2*SSF, 1, RGB(0,0,0),-1 'prune the excess
  EndIf
End Sub

Sub Mars(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 3.6*SSF, 0, 1,, RGB(0,0,0)    ' blank Mars
  Circle xs, ys, 3*SSF, 0, 1,, RGB(255,160,111)    'Mars
End Sub

Sub Jupiter(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
' don't draw planet details if fast scrolling
  Circle xpos, ypos, 10*SSF+1, 0, 1,, RGB(0,0,0)  ' blank Jupiter
  Circle xpos+12*SSF,ypos+12*SSF,.7*SSF,0,1,,RGB(0,0,0) :Circle xpos+14*SSF,ypos+14*SSF,.5*SSF,0,1,,RGB(0,0,0) 'blank
  Circle xpos-11*SSF,ypos-11*SSF,.6*SSF,0,1,,RGB(0,0,0) :Circle xpos-13*SSF,ypos-13*SSF,.8*SSF,0,1,,RGB(0,0,0) 'moons
  Circle xs, ys, 10*SSF, 0, 1,, RGB(185,191,153)  'Jupiter
  If dayoff <=2 Then
    Line xs-6*SSF,ys-10*SSF,xs+6*SSF,ys-10*SSF, 2*SSF, RGB(130,130,110)
    Line xs-9*SSF,ys-6*SSF,xs+9*SSF,ys-6*SSF, 1*SSF, RGB(182,134,86)
    Line xs-10*SSF,ys-4*SSF,xs+10*SSF,ys-4*SSF, 2*SSF, RGB(182,134,86)
    Line xs-11*SSF,ys,xs+11*SSF,ys, 2*SSF, RGB(202,150,100)
    Line xs-9*SSF,ys+5*SSF,xs+9*SSF,ys+5*SSF, 3*SSF, RGB(140,140,120)
    Line xs-4.5*SSF,ys+9*SSF,xs+4.5*SSF,ys+9*SSF, 2*SSF, RGB(130,130,110)
    Circle xs+2*SSF,ys+2*SSF, 3*SSF, 0, 1.75,, RGB(240,144,91)
    Circle xs, ys, 12*SSF, 2*SSF, 1, RGB(0,0,0),-1 'prune the excess
    Circle xs+12*SSF,ys+12*SSF,.7*SSF,0,1,,RGB(200,200,200) :Circle xs+14*SSF,ys+14*SSF,.5*SSF,0,1,,RGB(200,200,200) 'Gallilean
    Circle xs-11*SSF,ys-11*SSF,.6*SSF,0,1,,RGB(200,200,200) :Circle xs-13*SSF,ys-13*SSF,.8*SSF,0,1,,RGB(200,200,200) 'Moons
  EndIf
End Sub

Sub Saturn(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 8*SSF, 0, 1,, RGB(0,0,0) ' blank Saturn
  Circle xpos, ypos, 4*SSF,2*SSF,3.5,RGB(0,0,0) ' blank Ring
  Circle xs, ys, 8*SSF, 0, 1,, RGB(222,182,113) 'Saturn
  Circle xs,ys,5*SSF,3*SSF,3.5,RGB(131,134,144),-1 ' Ring
  Circle xs,ys,3.5*SSF,.1*SSF,4.5,RGB(20,20,20),-1 ' Ring gap
  ARC xs, ys, 0, 8*SSF, -90, 90, RGB(222,182,113) 'hide ring behind Saturn
  ARC xs, ys-50*SSF, 50.3*SSF, 50.6*SSF, 171, 189, RGB(112,182,123) 'cloud band
  ARC xs, ys-50*SSF, 48*SSF, 48.6*SSF, 171, 189, RGB(172,142,123) 'cloud band
  ARC xs, ys-50*SSF, 44*SSF, 44.5*SSF, 174, 186, RGB(172,142,123) 'cloud band
  ARC xs, ys-50*SSF, 55.6*SSF, 55.8*SSF, 174, 186, RGB(72,102,113) 'cloud band
End Sub

Sub Uranus(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 7*SSF, 0, 1,, RGB(0,0,0)   ' blank Uranus
  Circle xpos,ypos,12*SSF,.3*SSF,.3,RGB(0,0,0) 'blank Ring
  Circle xs, ys, 7*SSF, 0, 1,, RGB(173,217,244)   'Uranus
  Circle xs,ys,12*SSF,.3*SSF,.3,RGB(100,100,100),-1 ' Ring
  ARC xs, ys, 0, 7*SSF, 0, 180, RGB(173,217,244) 'hide ring behind Uranus
End Sub

Sub Neptune(xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
  Circle xpos, ypos, 7*SSF, 0, 1,, RGB(0,0,0)    ' blank Neptune
  Circle xs, ys, 7*SSF, 0, 1,, RGB(116,142,193)    'Neptune
    Line xs-6*SSF,ys-5*SSF,xs+6*SSF,ys-5*SSF, 1*SSF, RGB(90,90,170)
    Line xs-7*SSF,ys-1*SSF,xs+7*SSF,ys-1*SSF, 1.2*SSF, RGB(90,90,155)
    Line xs-6*SSF,ys+4*SSF,xs+6*SSF,ys+4*SSF, 2*SSF, RGB(90,90,167)
    Circle xs+2*SSF,ys-2*SSF, 1*SSF, 0, 1.5,, RGB(90,100,177)
    Circle xs, ys, 9*SSF, 2*SSF, 1, RGB(0,0,0),-1 'prune the excess
End Sub

Sub Moon( xs As INTEGER, ys As INTEGER, xpos As INTEGER, ypos As INTEGER)
   Box (xpos-3*SSF), ypos-3*SSF, 7*SSF, 7*SSF, 0,, RGB(0,0,0)    ' blank Moon
   Circle xs, ys, 3*SSF, 0, 1,, RGB(250,250,250)    'Moon
   'The Dark Side of the Moon
   ARC xs,ys,0,2.7*SSF,ATan2(Earthy-y,Earthx-x)*180/PI,ATan2(Earthy-y,Earthx-x)*180/PI-180,RGB(50,50,50)
End Sub

'Function Modulus(angle As FLOAT) As FLOAT
'    Modulus = angle - Int(angle/360.0)*360.0
'End Function

Sub from_sun(m As FLOAT, e As FLOAT, a As FLOAT, ns As FLOAT, w As FLOAT, ic As FLOAT)
Local FLOAT m2, e0, e02, e1, x, y, r, vs, vc, nc

   m2 = Rad(m)
   e0 = (m + onerad * e * Sin(m2) * (1 + e * Cos(m2))) Mod 360
   e02 = Rad(e0)
   e1 = Rad((e0 - (e0 - onerad * e * Sin(e02) - m) / (1 - e * Cos(e02))) Mod 360)
   x = a * (Cos(e1) - e)*2
   y = a * (Sqr(1 - e * e)) * Sin(e1)*2
' return value r
   r = Sqr(x * x + y * y)
   vs = Rad((Deg(Atan2(y, x)) Mod 360) + w)
   vc = Cos(vs)
   vs = Sin(vs)
   ns = Rad(ns)
   nc = Cos(ns)
   ns = Sin(ns)
   zeclip = r * vs * Sin(Rad(ic))
   ic = Cos(Rad(ic))
' return values xeclip, yeclip, long2, lat2
   xeclip = r * (nc * vc - ns * vs * ic)
   yeclip = r * (ns * vc + nc * vs * ic)
   long2 = (Deg(Atan2(yeclip, xeclip))) Mod 360
   lat2 = Deg(Atan2(zeclip, Sqr(xeclip * xeclip + yeclip * yeclip)))
End Sub

' results returned in array planets_dict
Sub coordinates(year%, month%, day%, hour%, minute%)
Local INTEGER jdn
Local FLOAT jd, d, w, e, m2, m, e_capt, x, y, r, v, lon, x2, y2
Local FLOAT n_mo, i_mo, w_mo, a_mo, e_mo, m_mo
Local FLOAT n_er, i_er, w_er, a_er, e_er, m_er
Local FLOAT n_af, i_af, w_af, a_af, e_af, m_af
Local FLOAT n_ar, i_ar, w_ar, a_ar, e_ar, m_ar
Local FLOAT n_di, i_di, w_di, a_di, e_di, m_di
Local FLOAT n_kr, i_kr, w_kr, a_kr, e_kr, m_kr
Local FLOAT n_ou, i_ou, w_ou, a_ou, e_ou, m_ou
Local FLOAT n_po, i_po, w_po, a_po, e_po, m_po
Local FLOAT di_diat1, di_diat2, di_diat3, di_diat4, di_diat5, di_diat6, di_diat7
Local FLOAT kr_diat1, kr_diat2, kr_diat3, kr_diat4, kr_diat5, kr_diat6, kr_diat7
Local FLOAT ou_diat1, ou_diat2, ou_diat3
Local FLOAT diataraxes_long_di, diataraxes_long_kr, diataraxes_lat_kr, diataraxes_long_ou
Local FLOAT long2_di, coslat2_di, r_di, long2_kr, coslat2_kr, r_kr
Local FLOAT long2_ou, coslat2_ou, r_ou

   jdn = ((367*year%-(7*(year%+((month%+9)\12))\4))+(275*month%\9)+(day%+1721013.5))
   jd = (jdn + hour% / 24. + minute% / 1440.)
   d = jd - 2451543.5

   w = 282.9404 + 4.70935E-5 * d
   e = (0.016709 - (1.151E-9 * d))
   m2 = (356.047 + 0.9856002585 * d) Mod 360

   m = Rad( m2 )
   e_capt = Rad(m2 + onerad * e * Sin(m) * (1 + e * Cos(m)))
   x = Cos(e_capt) - e
   y = Sin(e_capt) * Sqr(1 - e * e)

   r = Sqr(x * x + y * y)

   v = Deg(Atan2(y, x))
   lon = Rad((v + w) Mod 360)
   x2 = r * Cos(lon)
   y2 = r * Sin(lon)

' Earth coords
   planets_dict(0,3) = -1 * x2
   planets_dict(1,3) = -1 * y2

   n_mo = 125.1228 - 0.0529538083 * d    '  (Long asc. node)
   i_mo = 5.1454                         '  (Inclination)
   w_mo = 318.0634 + 0.1643573223 * d    '  (Arg. of perigee)
   a_mo = 60.2666                        '  (Mean distance)
   e_mo = 0.054881                       '  (Eccentricity)
   m_mo = (115.3654 + 13.0649929509 * d) Mod 360 '  (Mean anomaly)

   n_er = 48.3313 + 3.24587E-5 * d
   i_er = 7.0047 + 5.00E-8 * d
   w_er = 29.1241 + 1.01444E-5 * d
   a_er = 0.387098
   e_er = 0.205635 + 5.59E-10 * d
   m_er = (168.6562 + 4.0923344368 * d) Mod 360

   n_af = 76.6799 + 2.46590E-5 * d
   i_af = 3.3946 + 2.75E-8 * d
   w_af = 54.8910 + 1.38374E-5 * d
   a_af = 0.723330
   e_af = 0.006773 - 1.30E-9 * d
   m_af = (48.0052 + 1.6021302244 * d) Mod 360

   n_ar = 49.5574 + 2.11081E-5 * d
   i_ar = 1.8497 - 1.78E-8 * d
   w_ar = 286.5016 + 2.92961E-5 * d
   a_ar = 1.523688
   e_ar = 0.093405 + 2.51E-9 * d
   m_ar = (18.6021 + 0.5240207766 * d) Mod 360

   n_di = 100.4542 + 2.76854E-5 * d
   i_di = 1.3030 - 1.557E-7 * d
   w_di = 273.8777 + 1.6450E-5 * d
   a_di = 5.20256
   e_di = 0.048498 + 4.469E-9 * d
   m_di = (19.8950 + 0.0830853001 * d) Mod 360

   n_kr = 113.6634 + 2.38980E-5 * d
   i_kr = 2.4886 - 1.081E-7 * d
   w_kr = 339.3939 + 2.97661E-5 * d
   a_kr = 9.55475
   e_kr = 0.055546 - 9.499E-9 * d
   m_kr = (316.9670 + 0.0334442282 * d) Mod 360

   n_ou = 74.0005 + 1.3978E-5 * d
   i_ou = 0.7733 + 1.9E-8 * d
   w_ou = 96.6612 + 3.0565E-5 * d
   a_ou = 19.18171 - 1.55E-8 * d
   e_ou = 0.047318 + 7.45E-9 * d
   m_ou = (142.5905 + 0.011725806 * d) Mod 360

   n_po = 131.7806 + 3.0173E-5 * d
   i_po = 1.7700 - 2.55E-7 * d
   w_po = 272.8461 - 6.027E-6 * d
   a_po = 30.05826 + 3.313E-8 * d
   e_po = 0.008606 + 2.15E-9 * d
   m_po = (260.2471 + 0.005995147 * d) Mod 360

   from_sun(m_mo, e_mo, a_mo, n_mo, w_mo, i_mo)
   planets_dict(0,9) = xeclip
   planets_dict(1,9) = yeclip

' return values in xeclip, yeclip, long2, lat2, r
   from_sun(m_er, e_er, a_er, n_er, w_er, i_er)
   planets_dict(0,1) = xeclip
   planets_dict(1,1) = yeclip

   from_sun(m_af, e_af, a_af, n_af, w_af, i_af)
   planets_dict(0,2) = xeclip
   planets_dict(1,2) = yeclip

   from_sun(m_ar, e_ar, a_ar, n_ar, w_ar, i_ar)
   planets_dict(0,4) = xeclip
   planets_dict(1,4) = yeclip

' return values in xeclip, yeclip, long2, lat2, r
   from_sun(m_di, e_di, a_di, n_di, w_di, i_di)
   long2_di = long2
   coslat2_di = Cos(Rad(lat2))
   r_di = r

   from_sun(m_kr, e_kr, a_kr, n_kr, w_kr, i_kr)
   long2_kr = long2
   coslat2_kr = lat2
   r_kr = r

   from_sun(m_ou, e_ou, a_ou, n_ou, w_ou, i_ou)
   long2_ou = long2
   coslat2_ou = Cos(Rad(lat2))
   r_ou = r

   from_sun(m_po, e_po, a_po, n_po, w_po, i_po)
   planets_dict(0,8) = xeclip
   planets_dict(1,8) = yeclip

   m_di = m_di Mod 360
   m_kr = m_kr Mod 360
   m_ou = m_ou Mod 360

   di_diat1 = -0.332 * Sin(Rad(2 * m_di - 5 * m_kr - 67.6))
   di_diat2 = -0.056 * Sin(Rad(2 * m_di - 2 * m_kr + 21))
   di_diat3 = 0.042 * Sin(Rad(3 * m_di - 5 * m_kr + 21))
   di_diat4 = -0.036 * Sin(Rad(m_di - 2 * m_kr))
   di_diat5 = 0.022 * Cos(Rad(m_di - m_kr))
   di_diat6 = 0.023 * Sin(Rad(2 * m_di - 3 * m_kr + 52))
   di_diat7 = -0.016 * Sin(Rad(m_di - 5 * m_kr - 69))

   kr_diat1 = 0.812 * Sin(Rad(2 * m_di - 5 * m_kr - 67.6))
   kr_diat2 = -0.229 * Cos(Rad(2 * m_di - 4 * m_kr - 2))
   kr_diat3 = 0.119 * Sin(Rad(m_di - 2 * m_kr - 3))
   kr_diat4 = 0.046 * Sin(Rad(2 * m_di - 6 * m_kr - 69))
   kr_diat5 = 0.014 * Sin(Rad(m_di - 3 * m_kr + 32))

   kr_diat6 = -0.02 * Cos(Rad(2 * m_di - 4 * m_kr - 2))
   kr_diat7 = 0.018 * Sin(Rad(2 * m_di - 6 * m_kr - 49))

   ou_diat1 = 0.04 * Sin(Rad(m_kr - 2 * m_ou + 6))
   ou_diat2 = 0.035 * Sin(Rad(m_kr - 3 * m_ou + 33))
   ou_diat3 = -0.015 * Sin(Rad(m_di - m_ou + 20))

   diataraxes_long_di = (di_diat1 + di_diat2 + di_diat3 + di_diat4 + di_diat5 + di_diat6 + di_diat7)
   diataraxes_long_kr = (kr_diat1 + kr_diat2 + kr_diat3 + kr_diat4 + kr_diat5)
   diataraxes_lat_kr = (kr_diat6 + kr_diat7)
   diataraxes_long_ou = (ou_diat1 + ou_diat2 + ou_diat3)

   long2_di = Rad(long2_di + diataraxes_long_di)
   long2_kr = Rad(long2_kr + diataraxes_long_kr)
   coslat2_kr  = Cos(Rad(coslat2_kr + diataraxes_lat_kr))
   long2_ou = Rad(long2_ou + diataraxes_long_ou)

   planets_dict(0,5) = r_di * Cos(long2_di) * coslat2_di
   planets_dict(1,5) = r_di * Sin(long2_di) * coslat2_di
   planets_dict(0,6) = r_kr * Cos(long2_kr) * coslat2_kr
   planets_dict(1,6) = r_kr * Sin(long2_kr) * coslat2_kr
   planets_dict(0,7) = r_ou * Cos(long2_ou) * coslat2_ou
   planets_dict(1,7) = r_ou * Sin(long2_ou) * coslat2_ou

End Sub

/*
 If Touch(DOWN) Then
.......
 EndIf
*/
Loop

Sub Pluto( secs As FLOAT )

SetPin gp17,intl,myint
Do
Loop
Sub myint
Print Touch(x),Touch(y)
End Sub