31
Astrobasic / Re: getplanet
« on: April 01, 2022, 08:20:34 PM »
Hi Jean - this works now:
move(planet, planetsPlus, PLANETS * REAL);
` getplanet array
i = 0; for (i < 8 ){
getplanet(i + 37, 3, hold);
r = hold[0];
planetsPlus[i + 16] = r;}
` solar arc - horoscope #3
sethoroscopetime(3, jd + 20000, zone);
progression(0, 3, 1);
getplanets(3, saPlanet);
move(saPlanet, dirPlusTNPsSA, PLANETS * REAL);
` r = arc of sun
r = normalize(dirPlusTNPsSA[0] - planetsPlus[0]);
` add arc sun to original position of tnps
i = 0; for (i < 8 )
dirPlusTNPsSA[i + 16] = normalize(planetsPlus[i + 16] + r);
i = 0; for (i < 24){
if (i < PLANETS)
putplanet(10, 10 + i * 20, i);
else
objectsymbol(10, 10 + i * 20, i + 5);
putrealnumber(40, 10 + i * 20, planetsPlus, 4);
putrealnumber(140, 10 + i * 20, dirPlusTNPsSA, 4);
` for solar arc this difference should be the same for all planets
r = normalize(dirPlusTNPsSA - planetsPlus);
putrealnumber(240, 10 + i * 20, r, 4);}
move(planet, planetsPlus, PLANETS * REAL);
` getplanet array
i = 0; for (i < 8 ){
getplanet(i + 37, 3, hold);
r = hold[0];
planetsPlus[i + 16] = r;}
` solar arc - horoscope #3
sethoroscopetime(3, jd + 20000, zone);
progression(0, 3, 1);
getplanets(3, saPlanet);
move(saPlanet, dirPlusTNPsSA, PLANETS * REAL);
` r = arc of sun
r = normalize(dirPlusTNPsSA[0] - planetsPlus[0]);
` add arc sun to original position of tnps
i = 0; for (i < 8 )
dirPlusTNPsSA[i + 16] = normalize(planetsPlus[i + 16] + r);
i = 0; for (i < 24){
if (i < PLANETS)
putplanet(10, 10 + i * 20, i);
else
objectsymbol(10, 10 + i * 20, i + 5);
putrealnumber(40, 10 + i * 20, planetsPlus, 4);
putrealnumber(140, 10 + i * 20, dirPlusTNPsSA, 4);
` for solar arc this difference should be the same for all planets
r = normalize(dirPlusTNPsSA - planetsPlus);
putrealnumber(240, 10 + i * 20, r, 4);}