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

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, dirPlusTNPsSAputrealnumber(140, 10 + i * 20, dirPlusTNPsSA

*, 4);*

` for solar arc this difference should be the same for all planets

r = normalize(dirPlusTNPsSA` for solar arc this difference should be the same for all planets

r = normalize(dirPlusTNPsSA

*- planetsPlus**);*

putrealnumber(240, 10 + i * 20, r, 4);}putrealnumber(240, 10 + i * 20, r, 4);}