
void PlotEclipticNodLo(int go, double epoch, SYSTEMIC S) // Direction of Ecliptic Lunar Nodal
			   {
				static double oldang, newang ;
			   
				xp = ep2xp(epoch) ;

			   SelectObject(hdc, redPen) ;

		    // Remove transition lines from longitude plot.

			 if (go == 1) oldang = S.gLongs[NOD] ;
                          newang = S.gLongs[NOD] ;
                         transit = TestTransit(oldang, newang, RANGED) ;
			
			     yp = rcArc.bottom -
			          (int)((double)ht * range(newang) / pi +
			          (double)ylmar) ;

			oldang = newang ;
		if (!wantDateClick)
		  plot(hdc, xp, yp, oxp, oyp, i, 0, transit) ;
}

void PlotEquatorialNodLo(int go, double epoch, SYSTEMIC S)  // Direction of Equatorial Lunar Nodal
			   {
				static double oldang, newang ;
			   
				xp = ep2xp(epoch) ;

		    // Remove transition lines from longitude plot.

			 if (inside == 1) oldang = S.gLongs[EQN] ;
                              newang = S.gLongs[EQN] ;
                             transit = TestTransit(oldang, newang, RANGED) ;
			
			if (newang >= 3.0 * pi / 2.0)
				SelectObject(hdc, redPen) ;
			else
				SelectObject(hdc, ltbluePen) ;

			     yp = rcArc.bottom -
			          (int)((double)ht * range(newang) / pi +
			          (double)ylmar) ;

			oldang = newang ;
		if (!wantDateClick)
		  plot(hdc, xp, yp, oxp, oyp, i, 0, transit) ;

			   }

void PlotInterEqLuAngle(go, epoch, S) // Angle between Lunar and Equatorial planes
			   {
				static double oldang, newang ;

				xp = ep2xp(epoch) ;

		    // Remove transition lines from longitude plot.

			 if (go == 1) oldang = Sy.gLongs[LEQ] ;
                            newang = Sy.gLongs[LEQ] ;
						   transit = TestTransit(oldang, newang, RANGED) ;
			
			     yp = rcArc.bottom -
			          (int)((double)ht * range(newang) / pi +
			          (double)ylmar) ;

			  if (newang < pi)
			   SelectObject(hdc, goldPen) ;
			  else
			   SelectObject(hdc, dkgoldPen) ;
			   
		  oldang[s] = newang ;
   if (!wantDateClick)
		  plot(hdc, xp, yp, oxp, oyp, i, 0, transit) ;

			   }
