POV-Ray : Newsgroups : povray.binaries.images : planetarium : Re: planetarium Server Time
2 Aug 2024 00:18:14 EDT (-0400)
  Re: planetarium  
From: alphaQuad
Date: 31 Mar 2008 23:30:00
Message: <web.47f1ba226d310c1495a087d30@news.povray.org>
> thinking something like ...
>
> * needs only
>   ; meanAnomoly M,  d=0 on epochday
>   ; M = m * d + L - p
>   ; so L = ?
>   */  // val(a_rray[id][2]) = Anomoly
>
> adjusted by Pw and Pnode

File tested and found 2 errors. That is all with absolutely zilch interest in
this. 160 positions calc'ed in about .4 seconds.

buh bye


#macro draw160sats()
echo("Calculating Satellites\n")
#local i=0;
#while (i < dimension_size(marsat, 1))
#local o = satorbital(i,marsat)+orbital(4);

#local i=i+1;
#end
#local i=0;
#while (i < dimension_size(jupsat, 1))
#local o = satorbital(i,jupsat)+orbital(5);

#local i=i+1;
#end
#local i=0;
#while (i < dimension_size(satsat, 1))
#local o = satorbital(i,satsat)+orbital(6);

#local i=i+1;
#end
#local i=0;
#while (i < dimension_size(urasat, 1))
#local o = satorbital(i,urasat)+orbital(7);

#local i=i+1;
#end
#local i=0;
#while (i < dimension_size(nepsat, 1))
#local o = satorbital(i,nepsat)+orbital(8);

#local i=i+1;
#end
#local i=0;
#while (i < dimension_size(plusat, 1))
#local o = satorbital(i,plusat)+orbital(9);

#local i=i+1;
#end
#end
draw160sats()


only minor anomoly adjustments left if I understand this.


Post a reply to this message

Copyright 2003-2023 Persistence of Vision Raytracer Pty. Ltd.