NAME

GetAspectPP

Find out if there is an Occidental aspect between two planets.

USAGE

GetAspectPP np1 np2

PARAMETERS

np1 : number of the first planet

np2 : number of the second planet

OPTIONS

none

RETURN

If an aspect is found, will return a list having the following item
item0: the name of the aspect
item1: the value of the aspect in degrees
item2: the orb of the aspect in degrees
item3: the value of the angle between np1 and np2 in degrees
item4: the quality of the aspect

If no aspect is found, return an empty list

Quality of aspect is a integer value with the following meaning:
2: Very Benefic
1: Benefic
0: Neutral
-1: Malefic
-2: Very Malefic
99: Unknown quality

Remarks:

EXAMPLE


# Open here the horoscope for Agatha Christie 
SetCurrentHoroscope

PutTxt "---Checking aspects for [FirstName] [Name]---"

for { set p1 0 } { $p1 < 18 } { incr p1 } {
 for { set p2 [expr $p1 + 1 ] } { $p2 < 18 } { incr p2 } {
  
  set list [GetAspectPP $p1 $p2]
  
  if { [ llength $list] != 0 } {
     PutTxt "---Aspect found between [NameOfPlanet $p1] and [NameOfPlanet $p2]"	
     PutTxt "Name: [lindex $list 0]" 
     PutTxt "Value: [lindex $list 1]"
     PutTxt "Orb: [lindex $list 2]"
     PutTxt "Diff between planets: [lindex $list 3]"
     PutTxt "Quality aspect: [lindex $list 4]"
   }
 }
}

PutTxt "------"

Output

---Checking aspects for Agatha Christie---
---Aspect found between Soleil and Mars
Name: Square
Value: 90.0
Orb: 4.0
Diff between planets: 92.43644390558288
Quality aspect: -1
---Aspect found between Soleil and MC
Name: Trine
Value: 120.0
Orb: 4.0
Diff between planets: 119.27943620317492
Quality aspect: 1
---Aspect found between Soleil and Rahu
Name: Square
Value: 90.0
Orb: 4.0
Diff between planets: 93.32955646042234
Quality aspect: -1
...