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 ...