diff --git a/.gitignore b/.gitignore
index 10e071e39f..c13a4bb518 100644
--- a/.gitignore
+++ b/.gitignore
@@ -25,3 +25,9 @@ docs/latex
*.Tpo
res/keeperfx_icon.ico
.header_checksum
+/deps/enet
+/deps/zlib
+/deps/spng
+/deps/astronomy
+/deps/centijson
+/deps/*.tar.gz
diff --git a/.gitmodules b/.gitmodules
deleted file mode 100644
index 19e7e5f277..0000000000
--- a/.gitmodules
+++ /dev/null
@@ -1,13 +0,0 @@
-[submodule "deps/libspng"]
- path = deps/libspng
- url = https://github.com/randy408/libspng.git
-[submodule "deps/zlib"]
- path = deps/zlib
- url = https://github.com/madler/zlib.git
- branch = master
-[submodule "deps/centijson"]
- path = deps/centijson
- url = https://github.com/mity/centijson.git
-[submodule "deps/enet"]
- path = deps/enet
- url = https://github.com/lsalzman/enet.git
diff --git a/Makefile b/Makefile
index 9845ab11f4..7a5b69ac1a 100644
--- a/Makefile
+++ b/Makefile
@@ -64,17 +64,9 @@ HVLOGBIN = bin/keeperfx_hvlog$(EXEEXT)
# Names of intermediate build products
GENSRC = obj/ver_defs.h
RES = obj/keeperfx_stdres.res
-LIBS = obj/enet.a
DEPS = \
-obj/spng.o \
-obj/json/json.o \
-obj/json/value.o \
-obj/json/json-dom.o \
-obj/centitoml/toml_api.o \
-obj/astronomy.o \
-obj/unzip.o \
-obj/ioapi.o
+obj/centitoml/toml_api.o
# functional test debugging flags/objs
FTEST_DEBUG ?= 0
@@ -352,10 +344,23 @@ CU_OBJS = \
obj/cu/Util.o
# include and library directories
-LINKLIB = -L"sdl/lib" -mwindows obj/enet.a \
- -lwinmm -lmingw32 -limagehlp -lSDL2main -lSDL2 -lSDL2_mixer -lSDL2_net -lSDL2_image \
- -L"deps/zlib" -lz -lws2_32 -ldbghelp
-INCS = -I"sdl/include" -I"sdl/include/SDL2" -I"deps/enet/include" -I"deps/centijson/src" -I"deps/centitoml" -I"deps/astronomy"
+LINKLIB = -mwindows \
+ -L"sdl/lib" -lSDL2 -lSDL2_mixer -lSDL2_net -lSDL2_image \
+ -L"deps/astronomy" -lastronomy \
+ -L"deps/enet" -lenet \
+ -L"deps/spng" -lspng \
+ -L"deps/centijson" -ljson \
+ -L"deps/zlib" -lminizip -lz \
+ -lwinmm -lmingw32 -limagehlp -lws2_32 -ldbghelp
+INCS = \
+ -I"deps/zlib/include" \
+ -I"deps/spng/include" \
+ -I"sdl/include" \
+ -I"sdl/include/SDL2" \
+ -I"deps/enet/include" \
+ -I"deps/centijson/include" \
+ -I"deps/centitoml" \
+ -I"deps/astronomy/include"
CXXINCS = $(INCS)
STDOBJS = $(subst obj/,obj/std/,$(OBJS))
@@ -458,15 +463,12 @@ FOLDERS = bin obj/std obj/hvlog \
obj/std/ftests \
obj/std/ftests/tests \
obj/tests obj/cu \
-obj/std/json obj/hvlog/json \
obj/std/centitoml obj/hvlog/centitoml \
-obj/enet \
sdl/for_final_package
$(shell $(MKDIR) $(FOLDERS))
-# We need this file because we need git update
-build-before: libexterns deps/zlib/configure.log
+build-before: libexterns
std-before: build-before
hvlog-before: build-before
@@ -492,11 +494,11 @@ clean-build:
-$(RM) $(HVLOGBIN) $(HVLOGBIN:%.exe=%.map)
-$(RM) $(HVLOGBIN) $(HVLOGBIN:%.exe=%.pdb)
-$(RM) bin/keeperfx.dll
- -$(RM) $(LIBS) $(GENSRC)
+ -$(RM) $(GENSRC)
-$(RM) res/*.ico
-$(RM) obj/keeperfx.*
-$(BIN): $(GENSRC) $(STDOBJS) $(STD_MAIN_OBJ) $(LIBS) std-before
+$(BIN): $(GENSRC) $(STDOBJS) $(STD_MAIN_OBJ) std-before
-$(ECHO) 'Building target: $@'
$(CPP) -o "$@" $(STDOBJS) $(STD_MAIN_OBJ) $(LDFLAGS)
ifdef CV2PDB
@@ -504,7 +506,7 @@ ifdef CV2PDB
endif
-$(ECHO) ' '
-$(HVLOGBIN): $(GENSRC) $(HVLOGOBJS) $(HVLOG_MAIN_OBJ) $(LIBS) hvlog-before
+$(HVLOGBIN): $(GENSRC) $(HVLOGOBJS) $(HVLOG_MAIN_OBJ) hvlog-before
-$(ECHO) 'Building target: $@'
$(CPP) -o "$@" $(HVLOGOBJS) $(HVLOG_MAIN_OBJ) $(LDFLAGS)
ifdef CV2PDB
@@ -512,53 +514,18 @@ ifdef CV2PDB
endif
-$(ECHO) ' '
-$(TEST_BIN): $(GENSRC) $(STDOBJS) $(TESTS_OBJ) $(LIBS) $(CU_OBJS) std-before
+$(TEST_BIN): $(GENSRC) $(STDOBJS) $(TESTS_OBJ) $(CU_OBJS) std-before
-$(ECHO) 'Building target: $@'
$(CPP) -o "$@" $(TESTS_OBJ) $(STDOBJS) $(CU_OBJS) $(LDFLAGS)
ifdef CV2PDB
$(CV2PDB) -C "$@"
endif
-obj/std/spng.o obj/hvlog/spng.o: deps/libspng/spng/spng.c deps/zlib/libz.a
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -I"deps/zlib" -I"deps/libspng/spng" -o"$@" "$<"
- -$(ECHO) ' '
-
-obj/std/json/%.o obj/hvlog/json/%.o: deps/centijson/src/%.c
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -o"$@" "$<"
- -$(ECHO) ' '
-
obj/std/centitoml/toml_api.o obj/hvlog/centitoml/toml_api.o: deps/centitoml/toml_api.c build-before
-$(ECHO) 'Building file: $<'
$(CC) $(CFLAGS) -o"$@" "$<"
-$(ECHO) ' '
-obj/std/unzip.o obj/hvlog/unzip.o: deps/zlib/contrib/minizip/unzip.c
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -Wno-shadow -I"deps/zlib" -o"$@" "$<"
- -$(ECHO) ' '
-
-obj/std/astronomy.o obj/hvlog/astronomy.o: deps/astronomy/astronomy.c
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -o"$@" "$<"
- -$(ECHO) ' '
-
-obj/std/ioapi.o obj/hvlog/ioapi.o: deps/zlib/contrib/minizip/ioapi.c
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -I"deps/zlib" -o"$@" "$<"
- -$(ECHO) ' '
-
-obj/std/lvl_filesdk1.o obj/hvlog/lvl_filesdk1.o: src/lvl_filesdk1.c deps/zlib/contrib/minizip/unzip.c $(GENSRC)
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -I"deps/zlib" -I"deps/zlib/contrib/minizip" -o"$@" "$<"
- -$(ECHO) ' '
-
-obj/std/custom_sprites.o obj/hvlog/custom_sprites.o: src/custom_sprites.c deps/zlib/contrib/minizip/unzip.c $(GENSRC)
- -$(ECHO) 'Building file: $<'
- $(CC) $(CFLAGS) -I"deps/libspng/spng" -I"deps/zlib" -I"deps/zlib/contrib/minizip" -o"$@" "$<"
- -$(ECHO) ' '
-
obj/tests/%.o: tests/%.cpp $(GENSRC)
-$(ECHO) 'Building file: $<'
$(CPP) $(CXXFLAGS) -I"src/" $(CU_INC) -o"$@" "$<"
@@ -591,9 +558,9 @@ obj/std/%.res obj/hvlog/%.res: res/%.rc res/keeperfx_icon.ico $(GENSRC)
-$(ECHO) ' '
# Creation of Windows icon files from PNG files
-res/%.ico: res/%016-08bpp.png res/%032-08bpp.png res/%048-08bpp.png res/%064-08bpp.png res/%128-08bpp.png $(PNGTOICO)
+res/%.ico: res/%016-08bpp.png res/%032-08bpp.png res/%048-08bpp.png res/%064-08bpp.png res/%128-08bpp.png res/%128-24bpp.png res/%256-24bpp.png res/%512-24bpp.png $(PNGTOICO)
-$(ECHO) 'Building icon: $@'
- $(PNGTOICO) "$@" --colors 256 $(word 5,$^) $(word 4,$^) $(word 3,$^) --colors 16 $(word 2,$^) $(word 1,$^)
+ $(PNGTOICO) "$@" $(word 8,$^) $(word 7,$^) $(word 6,$^) --colors 256 $(word 5,$^) $(word 4,$^) $(word 3,$^) --colors 16 $(word 2,$^) $(word 1,$^)
-$(ECHO) ' '
obj/ver_defs.h: version.mk Makefile
@@ -613,26 +580,48 @@ libexterns: libexterns.mk
clean-libexterns: libexterns.mk
-$(MAKE) -f libexterns.mk clean-libexterns
- -$(MAKE) -f enet.mk clean
- -cd deps/zlib && $(MAKE) -f win32/Makefile.gcc clean
- -cd deps/zlib && git checkout Makefile zconf.h
+ -$(RM) -rf deps/enet deps/zlib deps/spng deps/astronomy deps/centijson
-$(RM) libexterns
-deps/centijson/src/json.c deps/centijson/src/value.c deps/centijson/src/json-dom.c: build-before
-deps/libspng/spng/spng.c: build-before
-deps/zlib/contrib/minizip/unzip.c deps/zlib/contrib/minizip/ioapi.c: build-before
-deps/astronomy/astronomy.c: build-before
+deps/enet deps/zlib deps/spng deps/astronomy deps/centijson:
+ $(MKDIR) $@
+
+src/api.c: deps/centijson/include/json.h
+src/bflib_enet.cpp: deps/enet/include/enet/enet.h
+src/custom_sprites.c: deps/zlib/include/zlib.h deps/spng/include/spng.h deps/centijson/include/json.h
+src/moonphase.c: deps/astronomy/include/astronomy.h
+deps/centitoml/toml_api.c: deps/centijson/include/json.h
+deps/centitoml/toml_conv.c: deps/centijson/include/json.h
+
+deps/enet-mingw32.tar.gz:
+ curl -Lso $@ "https://github.com/dkfans/kfx-deps/releases/download/initial/enet-mingw32.tar.gz"
+
+deps/enet/include/enet/enet.h: deps/enet-mingw32.tar.gz | deps/enet
+ tar xzmf $< -C deps/enet
+
+deps/zlib-mingw32.tar.gz:
+ curl -Lso $@ "https://github.com/dkfans/kfx-deps/releases/download/initial/zlib-mingw32.tar.gz"
+
+deps/zlib/include/zlib.h: deps/zlib-mingw32.tar.gz | deps/zlib
+ tar xzmf $< -C deps/zlib
+
+deps/spng-mingw32.tar.gz:
+ curl -Lso $@ "https://github.com/dkfans/kfx-deps/releases/download/initial/spng-mingw32.tar.gz"
+
+deps/spng/include/spng.h: deps/spng-mingw32.tar.gz | deps/spng
+ tar xzmf $< -C deps/spng
+
+deps/astronomy-mingw32.tar.gz:
+ curl -Lso $@ "https://github.com/dkfans/kfx-deps/releases/download/initial/astronomy-mingw32.tar.gz"
-deps/zlib/configure.log:
- git submodule sync && git submodule update --init
- touch deps/zlib/configure.log
- cd deps/zlib && ./configure --static
+deps/astronomy/include/astronomy.h: deps/astronomy-mingw32.tar.gz | deps/astronomy
+ tar xzmf $< -C deps/astronomy
-deps/zlib/libz.a: deps/zlib/configure.log
- cd deps/zlib && $(MAKE) -f win32/Makefile.gcc PREFIX=$(CROSS_COMPILE) libz.a
+deps/centijson-mingw32.tar.gz:
+ curl -Lso $@ "https://github.com/dkfans/kfx-deps/releases/download/initial/centijson-mingw32.tar.gz"
-obj/enet.a:
- $(MAKE) -f enet.mk PREFIX=$(CROSS_COMPILE) WARNFLAGS=$(WARNFLAGS) obj/enet.a
+deps/centijson/include/json.h: deps/centijson-mingw32.tar.gz | deps/centijson
+ tar xzmf $< -C deps/centijson
include tool_png2ico.mk
include tool_pngpal2raw.mk
diff --git a/campgns/ancntkpr/map00019.txt b/campgns/ancntkpr/map00019.txt
index 221de04587..dbbe4ce126 100644
--- a/campgns/ancntkpr/map00019.txt
+++ b/campgns/ancntkpr/map00019.txt
@@ -7,6 +7,9 @@ REM ********************************************
COMPUTER_PLAYER(PLAYER1,0)
COMPUTER_PLAYER(PLAYER2,0)
+SET_COMPUTER_PROCESS(PLAYER1,"DIG TO CLOSE GOLD",0,30999,144000,1,1)
+SET_COMPUTER_PROCESS(PLAYER2,"DIG TO CLOSE GOLD",0,30999,144000,1,1)
+
DISPLAY_OBJECTIVE(105,PLAYER0)
DISPLAY_INFORMATION(107,PLAYER0)
diff --git a/campgns/dzjr06lv_crtr/archer.cfg b/campgns/dzjr06lv_crtr/archer.cfg
index 08b331d779..2e6307fc6b 100644
--- a/campgns/dzjr06lv_crtr/archer.cfg
+++ b/campgns/dzjr06lv_crtr/archer.cfg
@@ -22,5 +22,4 @@ PowersLevelRequired = 1 0 0 4 0 0 0 0 9 0
ExperienceForHitting = 26
[jobs]
-PrimaryJobs = MANUFACTURE
SecondaryJobs =
diff --git a/campgns/dzjr06lv_crtr/avatar.cfg b/campgns/dzjr06lv_crtr/avatar.cfg
index aa0de7606b..3169efa861 100644
--- a/campgns/dzjr06lv_crtr/avatar.cfg
+++ b/campgns/dzjr06lv_crtr/avatar.cfg
@@ -5,25 +5,13 @@
[attributes]
Name = AVATAR
Health = 2000
-HealRequirement = 150
-HealThreshold = 200
Strength = 140
-Armour = 120
Dexterity = 180
FearWounded = 0
-FearStronger = 10000
-FearsomeFactor = 100
Defence = 120
-Luck = 20
Recovery = 5
-HungerRate = 10000
-HungerFill = 4
-LairSize = 1
-HurtByLava = 2
BaseSpeed = 32
-GoldHold = 1000
Pay = 2500
-SlapsToKill = 60
DamageToBoulder = 20
Properties = BLEEDS HUMANOID_SKELETON ONE_OF_KIND
@@ -32,53 +20,15 @@ EntranceRoom = NULL BARRACKS NULL
RoomSlabsRequired = 0 25 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 450
-InHand = 0
-NoLair = 4
-NoHatchery = 4
-WokenUp = 2000
-StandingOnDeadEnemy = -50
-Sulking = 10
-NoSalary = 4000
-Slapped = 2250
-StandingOnDeadFriend = 120
-InTorture = 120
-InTemple = -75
-Sleeping = -1
-GotWage = -750
-WinBattle = -1000
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 24
-LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 25
-
-[appearance]
-WalkingAnimSpeed = 56
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_SWORD NULL HEAL NULL REBOUND NULL SWING_WEAPON_FIST DRAIN NULL WORD_OF_POWER
PowersLevelRequired = 1 0 3 0 5 0 7 8 0 10
LevelsTrainValues = 3000 7500 15000 25000 35000 45000 55000 60000 65000
-GrowUp = 0 NULL 0
ExperienceForHitting = 0
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+PrimaryJobs =
+NotDoJobs =
TrainingValue = 5
-TrainingCost = 100
diff --git a/campgns/dzjr06lv_crtr/barbarian.cfg b/campgns/dzjr06lv_crtr/barbarian.cfg
index eb0a795347..e83d706424 100644
--- a/campgns/dzjr06lv_crtr/barbarian.cfg
+++ b/campgns/dzjr06lv_crtr/barbarian.cfg
@@ -4,85 +4,23 @@
[attributes]
Name = BARBARIAN
-Health = 700
-HealRequirement = 150
-HealThreshold = 200
-Strength = 60
Armour = 80
-Dexterity = 70
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 80
-Luck = 10
-Recovery = 5
-HungerRate = 8000
-HungerFill = 3
-LairSize = 1
-HurtByLava = 2
-BaseSpeed = 48
-GoldHold = 1500
-AttackPreference = MELEE
Pay = 90
-SlapsToKill = 40
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON
-
-[attraction]
-EntranceRoom = TRAINING NULL NULL
-RoomSlabsRequired = 9 0 0
-ScavengeRequirement = 22000
-TortureTime = 1000
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 2
-WokenUp = 100
-StandingOnDeadEnemy = -14
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 20
-InTorture = 4
-InTemple = -50
-Sleeping = -3
-GotWage = -750
-WinBattle = -400
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
-LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = DESTROY_ROOMS
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 15
-
-[appearance]
-WalkingAnimSpeed = 128
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL NULL ARMOUR NULL NULL NULL NULL NULL
PowersLevelRequired = 1 0 0 0 5 0 0 0 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
GrowUp = 25000 KNIGHT 4
-SleepExperience = HARD 0
ExperienceForHitting = 12
[jobs]
PrimaryJobs = TRAIN
SecondaryJobs = GUARD
-NotDoJobs =
-StressfulJobs =
TrainingValue = 4
-TrainingCost = 40
diff --git a/campgns/dzjr06lv_crtr/bile_demon.cfg b/campgns/dzjr06lv_crtr/bile_demon.cfg
index b12a6b7516..7fd2f35eae 100644
--- a/campgns/dzjr06lv_crtr/bile_demon.cfg
+++ b/campgns/dzjr06lv_crtr/bile_demon.cfg
@@ -5,12 +5,6 @@
[attributes]
Name = BILE_DEMON
Health = 2200
-HealRequirement = 150
-HealThreshold = 200
-Strength = 80
-Armour = 60
-Dexterity = 40
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 60
@@ -18,72 +12,27 @@ Recovery = 1
HungerRate = 6000
HungerFill = 4
LairSize = 4
-HurtByLava = 2
BaseSpeed = 40
-GoldHold = 3000
-AttackPreference = MELEE
Pay = 182
-SlapsToKill = 0
DamageToBoulder = 20
-Properties = BLEEDS UNAFFECTED_BY_WIND EVIL TREMBLING_FAT
+Properties = BLEEDS UNAFFECTED_BY_WIND EVIL TREMBLING FAT
[attraction]
EntranceRoom = BARRACKS GARDEN NULL
RoomSlabsRequired = 9 25 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
NoLair = 2
-NoHatchery = 6
-WokenUp = 300
-StandingOnDeadEnemy = -14
-Sulking = 2
-NoSalary = 1000
-Slapped = 400
-StandingOnDeadFriend = 20
-InTorture = 4
-InTemple = -40
-Sleeping = -6
-GotWage = -650
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = GIANT
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
-[senses]
-Hearing = 10
-EyeHeight = 400
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 8
-
-[appearance]
-WalkingAnimSpeed = 144
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL NULL NULL ARMOUR NULL NULL GRENADE FIRE_BOMB
PowersLevelRequired = 1 0 0 0 0 6 0 0 9 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
-SleepExperience = HARD 0
ExperienceForHitting = 18
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+PrimaryJobs =
TrainingValue = 3
-TrainingCost = 38
ScavengeValue = 0
-ScavengerCost = 30
-ResearchValue = 1
ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/bug.cfg b/campgns/dzjr06lv_crtr/bug.cfg
index 58626fd5d4..426388049a 100644
--- a/campgns/dzjr06lv_crtr/bug.cfg
+++ b/campgns/dzjr06lv_crtr/bug.cfg
@@ -4,30 +4,15 @@
[attributes]
Name = BUG
-Health = 250
-HealRequirement = 150
-HealThreshold = 200
Strength = 15
Armour = 80
-Dexterity = 55
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 70
Luck = 9
Recovery = 8
HungerRate = 10000
-HungerFill = 1
-LairSize = 1
-HurtByLava = 2
BaseSpeed = 120
-GoldHold = 300
-Size = 200 100
-AttackPreference = MELEE
-Pay = 18
SlapsToKill = 18
-DamageToBoulder = 20
-ThingSize = 256 512
Properties = BLEEDS IMMUNE_TO_GAS EVIL INSECT
[attraction]
@@ -35,54 +20,19 @@ EntranceRoom = LAIR NULL NULL
RoomSlabsRequired = 1 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 1
-WokenUp = 50
-StandingOnDeadEnemy = -6
-Sulking = 2
-NoSalary = 1500
-Slapped = 100
-StandingOnDeadFriend = 25
-InTorture = 2
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = TENTACLE
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
[senses]
-Hearing = 10
-EyeHeight = 100
-FieldOfView = 1024
-EyeEffect = FISH_EYE
MaxAngleChange = 64
-[appearance]
-WalkingAnimSpeed = 48
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_FIST NULL INVISIBILITY NULL SWING_WEAPON_SWORD NULL NULL NULL NULL ARMOUR
PowersLevelRequired = 1 0 3 0 5 0 0 0 0 10
LevelsTrainValues = 500 1000 2500 3000 4500 5000 6500 8000 12000
-GrowUp = 0 NULL 0
ExperienceForHitting = 4
Rebirth = 2
[jobs]
PrimaryJobs = SEEK_THE_ENEMY
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
TrainingValue = 2
TrainingCost = 14
diff --git a/campgns/dzjr06lv_crtr/dark_mistress.cfg b/campgns/dzjr06lv_crtr/dark_mistress.cfg
index ebf446af5a..fb9b27399b 100644
--- a/campgns/dzjr06lv_crtr/dark_mistress.cfg
+++ b/campgns/dzjr06lv_crtr/dark_mistress.cfg
@@ -5,85 +5,32 @@
[attributes]
Name = DARK_MISTRESS
Health = 650
-HealRequirement = 100
-HealThreshold = 100
Strength = 35
Armour = 60
-Dexterity = 70
FearWounded = 24
FearStronger = 10000
FearsomeFactor = 100
Defence = 50
-Recovery = 9
-HungerRate = 8000
-HungerFill = 3
-HurtByLava = 2
BaseSpeed = 72
-GoldHold = 750
-AttackPreference = RANGED
Pay = 62
-SlapsToKill = 50
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON EVIL FEMALE
[attraction]
EntranceRoom = WORKSHOP NULL NULL
-RoomSlabsRequired = 9 0 0
-ScavengeRequirement = 22000
-TortureTime = 3000
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 3
-NoHatchery = 1
-WokenUp = -200
-StandingOnDeadEnemy = -14
-Sulking = 2
-NoSalary = 2000
-Slapped = -400
-StandingOnDeadFriend = 40
-InTorture = -6
-InTemple = -10
-Sleeping = -1
-GotWage = -150
-WinBattle = -400
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
-[senses]
-Hearing = 10
-EyeHeight = 550
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 25
-
-[appearance]
-WalkingAnimSpeed = 128
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL SPEED NULL NULL NULL NULL DRAIN LIGHTNING
PowersLevelRequired = 1 0 0 4 0 0 0 0 9 10
LevelsTrainValues = 1000 3500 5000 6500 8500 10500 15000 20000 25000
-GrowUp = 0 NULL 0
ExperienceForHitting = 30
[jobs]
PrimaryJobs = MANUFACTURE
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+SecondaryJobs =
TrainingValue = 1
-TrainingCost = 24
ScavengeValue = 0
-ScavengerCost = 25
-ResearchValue = 2
ManufactureValue = 4
diff --git a/campgns/dzjr06lv_crtr/demonspawn.cfg b/campgns/dzjr06lv_crtr/demonspawn.cfg
index 279f28351b..73b7806d9c 100644
--- a/campgns/dzjr06lv_crtr/demonspawn.cfg
+++ b/campgns/dzjr06lv_crtr/demonspawn.cfg
@@ -5,84 +5,34 @@
[attributes]
Name = DEMONSPAWN
Health = 350
-HealRequirement = 150
-HealThreshold = 200
-Strength = 50
-Armour = 40
-Dexterity = 70
FearWounded = 36
FearStronger = 10000
-FearsomeFactor = 100
Defence = 50
-Luck = 8
-Recovery = 5
HungerRate = 0
-HungerFill = 0
-LairSize = 1
-HurtByLava = 0
+; In the original game, you could force-feed creatures even if they did not have any needs for eating. Setting HungerFill to 1 while HungerRate is set to 0 enables this mechanic.
+HungerFill = 1
BaseSpeed = 56
-GoldHold = 250
-AttackPreference = MELEE
Pay = 34
-SlapsToKill = 30
-DamageToBoulder = 20
-Properties = BLEEDS EVIL
[attraction]
EntranceRoom = NULL RESEARCH NULL
RoomSlabsRequired = 0 1 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 2
-WokenUp = 200
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 30
-InTorture = 4
-InTemple = -40
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
-LairEnemy = HELL_HOUND
-AnnoyLevel = 4000
-AngerJobs = DAMAGE_WALLS
[senses]
-Hearing = 10
-EyeHeight = 200
-FieldOfView = 1024
EyeEffect = FISH_EYE
-MaxAngleChange = 21
-
-[appearance]
-WalkingAnimSpeed = 80
-VisualRange = 18
[experience]
Powers = FLAME_BREATH NULL FIREBALL NULL SLOW NULL HEAL NAVIGATING_MISSILE WORD_OF_POWER TELEPORT
PowersLevelRequired = 1 0 3 0 5 0 7 8 9 10
LevelsTrainValues = 100 350 500 650 850 1050 1300 1600 5000
GrowUp = 0 NULL 0
-SleepExperience = HARD 0
ExperienceForHitting = 12
[jobs]
PrimaryJobs = RESEARCH
SecondaryJobs = SEEK_THE_ENEMY
-NotDoJobs =
-StressfulJobs =
TrainingValue = 0
-TrainingCost = 15
ResearchValue = 3
-ManufactureValue = 2
diff --git a/campgns/dzjr06lv_crtr/dragon.cfg b/campgns/dzjr06lv_crtr/dragon.cfg
index 9727d4a627..404d55c143 100644
--- a/campgns/dzjr06lv_crtr/dragon.cfg
+++ b/campgns/dzjr06lv_crtr/dragon.cfg
@@ -5,28 +5,17 @@
[attributes]
Name = DRAGON
Health = 700
-HealRequirement = 150
HealThreshold = 200
-Strength = 90
Armour = 70
Dexterity = 90
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 90
Luck = 22
Recovery = 6
-HungerRate = 8000
-HungerFill = 4
LairSize = 2
-HurtByLava = 0
-BaseSpeed = 32
-GoldHold = 5000
AttackPreference = RANGED
Pay = 360
-SlapsToKill = 40
DamageToBoulder = 20
-Properties = BLEEDS EVIL
[attraction]
EntranceRoom = NULL BARRACKS NULL
@@ -34,57 +23,22 @@ RoomSlabsRequired = 0 9 0
[annoyance]
EatFood = -100
-WillNotDoJob = 100
-InHand = 0
-NoLair = 4
-NoHatchery = 3
-WokenUp = 400
-StandingOnDeadEnemy = -14
-Sulking = 4
NoSalary = 3500
-Slapped = 600
-StandingOnDeadFriend = 10
-InTorture = 10
-InTemple = -25
-Sleeping = -10
-GotWage = -1000
-WinBattle = -500
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 10
LairEnemy = ARCHER
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
[senses]
-Hearing = 10
-EyeHeight = 900
-FieldOfView = 1024
-EyeEffect = MIST_SMOKE
MaxAngleChange = 12
-[appearance]
-WalkingAnimSpeed = 96
-VisualRange = 18
-
[experience]
Powers = FIRE_BOMB FLAME_BREATH NULL NULL WORD_OF_POWER NULL NULL NULL NULL REBOUND
PowersLevelRequired = 1 2 0 0 5 0 0 0 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
SleepExperience = LAVA 3
ExperienceForHitting = 34
[jobs]
PrimaryJobs = SEEK_THE_ENEMY
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+SecondaryJobs =
TrainingValue = 5
-TrainingCost = 40
ScavengeValue = 0
-ScavengerCost = 35
ResearchValue = 2
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/dwarfa.cfg b/campgns/dzjr06lv_crtr/dwarfa.cfg
index b37c210454..360b4315fe 100644
--- a/campgns/dzjr06lv_crtr/dwarfa.cfg
+++ b/campgns/dzjr06lv_crtr/dwarfa.cfg
@@ -4,82 +4,20 @@
[attributes]
Name = DWARFA
-Health = 500
-HealRequirement = 150
-HealThreshold = 200
Strength = 30
-Armour = 40
Dexterity = 40
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 40
-Luck = 2
-Recovery = 4
-HungerRate = 5000
-HungerFill = 2
-LairSize = 1
-HurtByLava = 2
-BaseSpeed = 80
-GoldHold = 500
-AttackPreference = MELEE
Pay = 68
-SlapsToKill = 30
-DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON
[attraction]
EntranceRoom = NULL RESEARCH NULL
RoomSlabsRequired = 0 1 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 1
-WokenUp = 200
-StandingOnDeadEnemy = -6
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 25
-InTorture = 4
-InTemple = -50
-Sleeping = -3
-GotWage = -850
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
-LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = DESTROY_ROOMS
-[senses]
-Hearing = 10
-EyeHeight = 256
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 30
-
-[appearance]
-WalkingAnimSpeed = 80
-VisualRange = 18
-
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL NAVIGATING_MISSILE NULL NULL NULL NULL NULL NULL
PowersLevelRequired = 1 0 0 4 0 0 0 0 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 14
-
-[jobs]
-PrimaryJobs = MANUFACTURE
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
-ResearchValue = 1
-ManufactureValue = 3
diff --git a/campgns/dzjr06lv_crtr/fairy.cfg b/campgns/dzjr06lv_crtr/fairy.cfg
index 677d6dd730..da681d7f16 100644
--- a/campgns/dzjr06lv_crtr/fairy.cfg
+++ b/campgns/dzjr06lv_crtr/fairy.cfg
@@ -5,86 +5,25 @@
[attributes]
Name = FAIRY
Health = 200
-HealRequirement = 150
HealThreshold = 255
-Strength = 10
-Armour = 10
-Dexterity = 70
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 30
-Luck = 40
-Recovery = 2
-HungerRate = 5000
-HungerFill = 1
-LairSize = 1
-HurtByLava = 2
-BaseSpeed = 64
-GoldHold = 250
-AttackPreference = RANGED
Pay = 236
-SlapsToKill = 8
DamageToBoulder = 20
-Properties = BLEEDS IMMUNE_TO_GAS HUMANOID_SKELETON FLYING FEMALE
[attraction]
EntranceRoom = NULL RESEARCH NULL
RoomSlabsRequired = 0 1 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 1
-WokenUp = 210
-StandingOnDeadEnemy = -6
-Sulking = 3
-NoSalary = 1000
-Slapped = 500
-StandingOnDeadFriend = 100
-InTorture = 8
-InTemple = -60
-Sleeping = -1
-GotWage = -800
-WinBattle = -100
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = SPIDER
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
-
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 35
-
-[appearance]
-WalkingAnimSpeed = 64
-VisualRange = 18
[experience]
Powers = DRAIN NULL HEAL NULL NULL FREEZE NULL REBOUND INVISIBILITY POISON_CLOUD
PowersLevelRequired = 1 0 3 0 0 6 0 8 9 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
-SleepExperience = HARD 0
ExperienceForHitting = 20
[jobs]
-PrimaryJobs = RESEARCH
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+NotDoJobs =
TrainingValue = 2
-TrainingCost = 4
-ScavengeValue = 1
-ScavengerCost = 4
-ResearchValue = 4
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/ghost.cfg b/campgns/dzjr06lv_crtr/ghost.cfg
index 0695863b21..4f2e61da8c 100644
--- a/campgns/dzjr06lv_crtr/ghost.cfg
+++ b/campgns/dzjr06lv_crtr/ghost.cfg
@@ -5,85 +5,32 @@
[attributes]
Name = GHOST
Health = 30
-HealRequirement = 150
-HealThreshold = 200
Strength = 0
Armour = 0
-Dexterity = 90
FearWounded = 0
FearStronger = 10000
-FearsomeFactor = 100
Defence = 250
-Luck = 10
Recovery = 10
-HungerRate = 0
-HungerFill = 0
-HurtByLava = 2
+; In the original game, you could force-feed creatures even if they did not have any needs for eating. Setting HungerFill to 1 while HungerRate is set to 0 enables this mechanic.
+HungerFill = 1
BaseSpeed = 56
-Size = 200 512
AttackPreference = RANGED
Pay = 38
-SlapsToKill = 0
-DamageToBoulder = 20
Properties = IMMUNE_TO_GAS FLYING SEE_INVISIBLE PASS_LOCKED_DOORS EVIL
[attraction]
-EntranceRoom = TORTURE NULL NULL
RoomSlabsRequired = 9 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 0
-NoHatchery = 0
-WokenUp = 0
-StandingOnDeadEnemy = -6
-Sulking = 1
-NoSalary = 2000
-Slapped = 500
-StandingOnDeadFriend = 40
-InTorture = 8
-InTemple = -60
-Sleeping = -1
-GotWage = -350
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = WITCH
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
-
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = MIST_TWO_LAYER_SMOKE_EDGE
-MaxAngleChange = 25
-
-[appearance]
-WalkingAnimSpeed = 128
-VisualRange = 18
[experience]
Powers = HAILSTORM NULL NULL SPEED NULL NULL LIGHTNING NULL POISON_CLOUD WIND
PowersLevelRequired = 1 0 0 4 0 0 7 0 9 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
-SleepExperience = HARD 0
ExperienceForHitting = 28
[jobs]
PrimaryJobs = SEEK_THE_ENEMY
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
-TrainingValue = 2
-TrainingCost = 20
+SecondaryJobs =
ScavengeValue = 0
ScavengerCost = 0
-ResearchValue = 2
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/giant.cfg b/campgns/dzjr06lv_crtr/giant.cfg
index 39a3829102..bd933aceab 100644
--- a/campgns/dzjr06lv_crtr/giant.cfg
+++ b/campgns/dzjr06lv_crtr/giant.cfg
@@ -4,26 +4,12 @@
[attributes]
Name = GIANT
-Health = 650
-HealRequirement = 150
-HealThreshold = 180
Strength = 120
Armour = 40
-Dexterity = 60
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 30
-Luck = 20
-Recovery = 5
-HungerRate = 5000
-HungerFill = 3
HurtByLava = 0
-BaseSpeed = 32
-GoldHold = 1000
-AttackPreference = MELEE
Pay = 140
-SlapsToKill = 40
DamageToBoulder = 20
Properties = BLEEDS HUMANOID_SKELETON
@@ -32,45 +18,13 @@ EntranceRoom = GARDEN NULL NULL
RoomSlabsRequired = 25 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 3
-WokenUp = 100
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 20
-InTorture = 4
-InTemple = -50
-Sleeping = -6
-GotWage = -750
-WinBattle = -400
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = BILE_DEMON
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
[experience]
Powers = SWING_WEAPON_FIST NULL NULL NULL NULL NULL NULL NULL NULL FIRE_BOMB
-PowersLevelRequired = 1 0 0 0 0 0 0 0 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
-SleepExperience = HARD 0
ExperienceForHitting = 30
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs = RESEARCH
-StressfulJobs =
+PrimaryJobs =
TrainingValue = 3
-TrainingCost = 35
-ResearchValue = 0
-ManufactureValue = 2
diff --git a/campgns/dzjr06lv_crtr/hell_hound.cfg b/campgns/dzjr06lv_crtr/hell_hound.cfg
index b475c7f355..2c931d20ee 100644
--- a/campgns/dzjr06lv_crtr/hell_hound.cfg
+++ b/campgns/dzjr06lv_crtr/hell_hound.cfg
@@ -5,80 +5,32 @@
[attributes]
Name = HELL_HOUND
Health = 550
-HealRequirement = 150
-HealThreshold = 200
Strength = 35
Armour = 50
-Dexterity = 70
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 50
-Luck = 8
-Recovery = 8
-HungerRate = 6000
HungerFill = 2
-HurtByLava = 0
BaseSpeed = 72
-GoldHold = 500
-AttackPreference = MELEE
Pay = 72
SlapsToKill = 35
DamageToBoulder = 20
-Properties = BLEEDS PISS_ON_DEAD EVIL
[attraction]
EntranceRoom = NULL LAIR NULL
RoomSlabsRequired = 0 25 0
-ScavengeRequirement = 22000
-TortureTime = 1000
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
NoLair = 1
NoHatchery = 2
-WokenUp = 250
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 250
-StandingOnDeadFriend = 100
-InTorture = 4
-InTemple = -40
-Sleeping = -2
-GotWage = -400
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
-LairEnemy = DEMONSPAWN
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
[senses]
-Hearing = 15
-EyeHeight = 256
-FieldOfView = 1024
-EyeEffect = LENS_DOG
MaxAngleChange = 25
[experience]
Powers = FLAME_BREATH SPEED NULL NULL NULL SWING_WEAPON_FIST NULL FIREBALL NULL NULL
PowersLevelRequired = 1 2 0 0 0 6 0 8 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 26
[jobs]
PrimaryJobs = EXPLORE
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
TrainingValue = 3
-TrainingCost = 14
-ResearchValue = 1
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/horny.cfg b/campgns/dzjr06lv_crtr/horny.cfg
index c549f327cf..5d7cd6eb70 100644
--- a/campgns/dzjr06lv_crtr/horny.cfg
+++ b/campgns/dzjr06lv_crtr/horny.cfg
@@ -5,28 +5,18 @@
[attributes]
Name = HORNY
Health = 1600
-HealRequirement = 150
-HealThreshold = 150
Strength = 120
Armour = 100
Dexterity = 70
FearWounded = 0
-FearStronger = 10000
-FearsomeFactor = 100
Defence = 80
Luck = 30
Recovery = 10
HungerRate = 4000
-HungerFill = 4
LairSize = 2
-HurtByLava = 0
BaseSpeed = 88
-GoldHold = 2500
-AttackPreference = MELEE
Pay = 525
-SlapsToKill = 80
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON EVIL
[attraction]
EntranceRoom = TEMPLE GARDEN NULL
@@ -44,46 +34,20 @@ Sulking = 2
NoSalary = 4000
Slapped = 400
StandingOnDeadFriend = 0
-InTorture = 300
InTemple = 1
Sleeping = 1
GotWage = 0
WinBattle = 1
-Untrained = 0 0
OthersLeaving = 0
-JobStress = 0
-GoingPostal = 0
Queue = 4
LairEnemy = HORNY
-AnnoyLevel = 4000
-AngerJobs = MAD_PSYCHO
-
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 2047
-EyeEffect = NULL
-MaxAngleChange = 35
-
-[appearance]
-WalkingAnimSpeed = 192
-VisualRange = 18
[experience]
Powers = SWING_WEAPON_SWORD NULL TELEPORT NULL ARMOUR NULL NULL SPEED NULL NULL
PowersLevelRequired = 1 0 3 0 5 0 0 8 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 46
[jobs]
-PrimaryJobs = FIGHT
-SecondaryJobs =
-NotDoJobs = BARRACK
-StressfulJobs =
TrainingValue = 3
TrainingCost = 49
ScavengeValue = 0
-ScavengerCost = 30
-ResearchValue = 1
-ManufactureValue = 0
diff --git a/campgns/dzjr06lv_crtr/imp.cfg b/campgns/dzjr06lv_crtr/imp.cfg
index 315158d04a..9c5171cbe0 100644
--- a/campgns/dzjr06lv_crtr/imp.cfg
+++ b/campgns/dzjr06lv_crtr/imp.cfg
@@ -5,7 +5,6 @@
[attributes]
Name = IMP
FearStronger = 10000
-
DamageToBoulder = 20
Properties = BLEEDS SPECIAL_DIGGER EVIL NO_ENMHEART_ATTCK
diff --git a/campgns/dzjr06lv_crtr/knight.cfg b/campgns/dzjr06lv_crtr/knight.cfg
index 7953d7ea00..8193953ade 100644
--- a/campgns/dzjr06lv_crtr/knight.cfg
+++ b/campgns/dzjr06lv_crtr/knight.cfg
@@ -5,71 +5,28 @@
[attributes]
Name = KNIGHT
Health = 1100
-HealRequirement = 150
HealThreshold = 150
-Strength = 80
Armour = 120
Dexterity = 70
FearWounded = 0
-FearStronger = 10000
-FearsomeFactor = 100
Defence = 90
-Luck = 15
-Recovery = 6
-HungerRate = 9000
-HungerFill = 3
-HurtByLava = 2
BaseSpeed = 48
-GoldHold = 600
-AttackPreference = MELEE
Pay = 900
-SlapsToKill = 40
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON LORD
[attraction]
EntranceRoom = BARRACKS NULL NULL
RoomSlabsRequired = 9 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 400
-InHand = 0
-NoLair = 4
-NoHatchery = 4
-WokenUp = 250
-StandingOnDeadEnemy = -16
-Sulking = 4
-NoSalary = 3500
-Slapped = 350
-StandingOnDeadFriend = 65
-InTorture = 12
-InTemple = -75
-Sleeping = -1
-GotWage = -1000
-WinBattle = -500
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 12
-LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL ARMOUR NULL NULL NULL SWING_WEAPON_FIST NULL HEAL
PowersLevelRequired = 1 0 0 4 0 0 0 8 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 50
[jobs]
PrimaryJobs = FIGHT
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+NotDoJobs =
TrainingValue = 4
-TrainingCost = 40
-ResearchValue = 1
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/monk.cfg b/campgns/dzjr06lv_crtr/monk.cfg
index f89a31e323..53853f163a 100644
--- a/campgns/dzjr06lv_crtr/monk.cfg
+++ b/campgns/dzjr06lv_crtr/monk.cfg
@@ -7,82 +7,23 @@ Name = MONK
Health = 700
HealRequirement = 150
HealThreshold = 200
-Strength = 40
Armour = 60
-Dexterity = 80
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 80
-Luck = 30
-Recovery = 8
-HungerRate = 5000
-HungerFill = 2
-HurtByLava = 2
-BaseSpeed = 32
-GoldHold = 750
-AttackPreference = MELEE
Pay = 640
-SlapsToKill = 25
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON
[attraction]
-EntranceRoom = TEMPLE NULL NULL
RoomSlabsRequired = 9 0 0
-ScavengeRequirement = 22000
-TortureTime = 1000
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 3
-WokenUp = 200
-StandingOnDeadEnemy = 0
-Sulking = 2
-NoSalary = 2000
-Slapped = 250
-StandingOnDeadFriend = 50
-InTorture = 4
-InTemple = -100
-Sleeping = -4
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = VAMPIRE
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
-
-[senses]
-Hearing = 10
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = NULL
-MaxAngleChange = 12
-
-[appearance]
-WalkingAnimSpeed = 64
-VisualRange = 18
[experience]
Powers = SWING_WEAPON_FIST HAILSTORM NULL HEAL NULL LIGHTNING NULL ARMOUR NULL WORD_OF_POWER
PowersLevelRequired = 1 2 0 4 0 6 0 8 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 28
[jobs]
PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
-TrainingValue = 2
-TrainingCost = 12
-ResearchValue = 3
-ManufactureValue = 2
diff --git a/campgns/dzjr06lv_crtr/orc.cfg b/campgns/dzjr06lv_crtr/orc.cfg
index 82780060f7..3d6c636887 100644
--- a/campgns/dzjr06lv_crtr/orc.cfg
+++ b/campgns/dzjr06lv_crtr/orc.cfg
@@ -5,77 +5,33 @@
[attributes]
Name = ORC
Health = 600
-HealRequirement = 150
-HealThreshold = 200
Strength = 80
Armour = 50
Dexterity = 30
FearWounded = 4
FearStronger = 10000
-FearsomeFactor = 100
Defence = 50
-Luck = 12
Recovery = 3
-HungerRate = 7000
-HungerFill = 2
-HurtByLava = 2
-BaseSpeed = 48
-GoldHold = 600
-AttackPreference = MELEE
Pay = 75
SlapsToKill = 22
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON EVIL
[attraction]
EntranceRoom = NULL TRAINING NULL
RoomSlabsRequired = 0 20 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 2
-WokenUp = 150
-StandingOnDeadEnemy = -14
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 20
-InTorture = 4
-InTemple = -50
-Sleeping = -4
-GotWage = -750
-WinBattle = -400
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = TROLL
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
[appearance]
-WalkingAnimSpeed = 96
VisualRange = 24
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL SPEED NULL NULL GRENADE NULL NULL NULL
PowersLevelRequired = 1 0 0 4 0 0 7 0 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 30
[jobs]
-PrimaryJobs = TRAIN
-SecondaryJobs = GUARD
-NotDoJobs =
-StressfulJobs =
TrainingValue = 3
-TrainingCost = 15
ScavengeValue = 0
-ScavengerCost = 20
-ResearchValue = 0
-ManufactureValue = 3
diff --git a/campgns/dzjr06lv_crtr/samurai.cfg b/campgns/dzjr06lv_crtr/samurai.cfg
index 93cf16a2e5..db307e3bff 100644
--- a/campgns/dzjr06lv_crtr/samurai.cfg
+++ b/campgns/dzjr06lv_crtr/samurai.cfg
@@ -5,25 +5,10 @@
[attributes]
Name = SAMURAI
Health = 900
-HealRequirement = 100
-HealThreshold = 100
-Strength = 80
-Armour = 60
-Dexterity = 90
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 170
-Luck = 20
-Recovery = 9
-HungerRate = 8000
-HungerFill = 3
-HurtByLava = 2
-BaseSpeed = 64
-GoldHold = 750
-AttackPreference = MELEE
Pay = 820
-SlapsToKill = 50
DamageToBoulder = 20
Properties = BLEEDS IMMUNE_TO_GAS HUMANOID_SKELETON SEE_INVISIBLE
@@ -32,44 +17,14 @@ EntranceRoom = NULL TEMPLE NULL
RoomSlabsRequired = 0 25 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 400
-InHand = 0
-NoLair = 4
-NoHatchery = 0
-WokenUp = 250
-StandingOnDeadEnemy = -14
-Sulking = 5
-NoSalary = 3000
-Slapped = 750
-StandingOnDeadFriend = 65
-InTorture = 2
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -500
Untrained = 25000 100
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 6
LairEnemy = DRAGON
-AnnoyLevel = 4000
AngerJobs = MAD_PSYCHO
[experience]
Powers = SWING_WEAPON_SWORD NULL SPEED NULL DRAIN NULL FREEZE NULL SIGHT SWING_WEAPON_FIST
PowersLevelRequired = 1 0 3 0 5 0 7 0 9 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 40
[jobs]
-PrimaryJobs = FIGHT
-SecondaryJobs = TRAIN
-NotDoJobs =
-StressfulJobs =
TrainingValue = 5
-TrainingCost = 50
-ResearchValue = 2
-ManufactureValue = 2
diff --git a/campgns/dzjr06lv_crtr/skeleton.cfg b/campgns/dzjr06lv_crtr/skeleton.cfg
index e1108a4264..fdf12b35b4 100644
--- a/campgns/dzjr06lv_crtr/skeleton.cfg
+++ b/campgns/dzjr06lv_crtr/skeleton.cfg
@@ -5,27 +5,15 @@
[attributes]
Name = SKELETON
Health = 300
-HealRequirement = 150
-HealThreshold = 200
Strength = 45
Armour = 10
Dexterity = 60
-FearWounded = 0
-FearStronger = 10000
-FearsomeFactor = 100
Defence = 40
-Luck = 2
Recovery = 24
-HungerRate = 0
-HungerFill = 0
-LairSize = 1
-HurtByLava = 2
+; In the original game, you could force-feed creatures even if they did not have any needs for eating. Setting HungerFill to 1 while HungerRate is set to 0 enables this mechanic.
+HungerFill = 1
BaseSpeed = 72
-GoldHold = 500
-AttackPreference = MELEE
Pay = 46
-SlapsToKill = 20
-DamageToBoulder = 20
Properties = IMMUNE_TO_GAS EVIL
[attraction]
@@ -33,53 +21,21 @@ EntranceRoom = NULL PRISON NULL
RoomSlabsRequired = 0 9 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 0
-NoHatchery = 0
-WokenUp = 150
-StandingOnDeadEnemy = -12
-Sulking = 2
NoSalary = 400
-Slapped = 100
-StandingOnDeadFriend = 20
-InTorture = 2
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = KILL_CREATURES
[senses]
-EyeHeight = 512
-FieldOfView = 1024
-EyeEffect = NULL
MaxAngleChange = 62
[experience]
Powers = SWING_WEAPON_SWORD NULL NULL SLOW NULL NULL ARMOUR NULL MISSILE NULL
PowersLevelRequired = 1 0 0 4 0 0 7 0 9 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 9
Rebirth = 2
[jobs]
PrimaryJobs = GUARD
SecondaryJobs = TRAIN
-NotDoJobs =
-StressfulJobs =
-TrainingValue = 4
TrainingCost = 12
ScavengeValue = 0
-ScavengerCost = 15
-ResearchValue = 1
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/sorceror.cfg b/campgns/dzjr06lv_crtr/sorceror.cfg
index b5fe01b180..8d651f49e9 100644
--- a/campgns/dzjr06lv_crtr/sorceror.cfg
+++ b/campgns/dzjr06lv_crtr/sorceror.cfg
@@ -4,75 +4,28 @@
[attributes]
Name = SORCEROR
-Health = 350
-HealRequirement = 150
HealThreshold = 255
-Strength = 20
Armour = 10
Dexterity = 60
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 30
-Luck = 6
-Recovery = 6
-HungerRate = 8000
-HungerFill = 3
-HurtByLava = 2
BaseSpeed = 40
-GoldHold = 400
-AttackPreference = RANGED
Pay = 64
-SlapsToKill = 17
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON EVIL
-
-[attraction]
-EntranceRoom = RESEARCH NULL NULL
-RoomSlabsRequired = 9 0 0
-ScavengeRequirement = 22000
-TortureTime = 750
[annoyance]
-EatFood = -1000
-WillNotDoJob = 200
-InHand = 0
-NoLair = 4
-NoHatchery = 1
-WokenUp = 250
-StandingOnDeadEnemy = -12
-Sulking = 3
-NoSalary = 2500
-Slapped = 750
-StandingOnDeadFriend = 75
-InTorture = 8
-InTemple = -70
-Sleeping = -4
-GotWage = -750
-WinBattle = -450
Untrained = 25000 50
-OthersLeaving = 10
JobStress = 100
-GoingPostal = 100
-Queue = 4
LairEnemy = WIZARD
-AnnoyLevel = 4000
-AngerJobs = PERSUADE
[experience]
Powers = SWING_WEAPON_FIST FIREBALL HEAL NULL SLOW NULL INVISIBILITY DRAIN NULL WORD_OF_POWER
PowersLevelRequired = 1 2 3 0 5 0 7 8 0 10
LevelsTrainValues = 500 1000 3000 5000 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
SleepExperience = GOLD 1
ExperienceForHitting = 24
[jobs]
-PrimaryJobs = RESEARCH
-SecondaryJobs =
-NotDoJobs = MANUFACTURE
StressfulJobs = KINKY_TORTURE
TrainingValue = 3
-TrainingCost = 30
-ResearchValue = 4
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/spider.cfg b/campgns/dzjr06lv_crtr/spider.cfg
index 4e56b560b4..496bf6705c 100644
--- a/campgns/dzjr06lv_crtr/spider.cfg
+++ b/campgns/dzjr06lv_crtr/spider.cfg
@@ -5,27 +5,15 @@
[attributes]
Name = SPIDER
Health = 550
-HealRequirement = 150
-HealThreshold = 200
Strength = 25
Armour = 70
-Dexterity = 60
FearWounded = 0
FearStronger = 10000
-FearsomeFactor = 100
Defence = 90
Luck = 8
Recovery = 4
-HungerRate = 7000
-HungerFill = 2
LairSize = 2
-HurtByLava = 2
-BaseSpeed = 48
-Size = 200 128
-AttackPreference = MELEE
Pay = 86
-SlapsToKill = 24
-DamageToBoulder = 20
Properties = BLEEDS IMMUNE_TO_GAS ARACHNID EVIL INSECT
[attraction]
@@ -33,50 +21,17 @@ EntranceRoom = RESEARCH GARDEN NULL
RoomSlabsRequired = 9 9 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 2
-WokenUp = 100
-StandingOnDeadEnemy = -6
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 25
-InTorture = 4
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = FAIRY
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
[senses]
-EyeHeight = 128
-FieldOfView = 1024
EyeEffect = NULL
-MaxAngleChange = 18
[experience]
Powers = SWING_WEAPON_FIST FREEZE NULL FART NULL POISON_CLOUD NULL NULL HAILSTORM NULL
PowersLevelRequired = 1 2 0 4 0 6 0 0 9 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 6
[jobs]
PrimaryJobs = RESEARCH
-SecondaryJobs = TRAIN
-NotDoJobs =
-StressfulJobs =
TrainingValue = 3
-TrainingCost = 18
ResearchValue = 3
-ManufactureValue = 2
diff --git a/campgns/dzjr06lv_crtr/tentacle.cfg b/campgns/dzjr06lv_crtr/tentacle.cfg
index 130292145a..166f17381a 100644
--- a/campgns/dzjr06lv_crtr/tentacle.cfg
+++ b/campgns/dzjr06lv_crtr/tentacle.cfg
@@ -4,83 +4,36 @@
[attributes]
Name = TENTACLE
-Health = 700
-HealRequirement = 150
-HealThreshold = 200
Strength = 65
Armour = 30
Dexterity = 70
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 70
Luck = 7
Recovery = 6
-HungerRate = 8000
-HungerFill = 1
-HurtByLava = 2
BaseSpeed = 128
-Size = 200 300
-AttackPreference = MELEE
Pay = 244
-SlapsToKill = 40
DamageToBoulder = 20
-Properties = BLEEDS EVIL
[attraction]
EntranceRoom = NULL TEMPLE NULL
RoomSlabsRequired = 0 9 0
-ScavengeRequirement = 22000
-TortureTime = 1000
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 2
-NoHatchery = 2
-WokenUp = 200
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 25
-InTorture = 4
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = BUG
-AnnoyLevel = 4000
AngerJobs = MAD_PSYCHO
[senses]
-EyeHeight = 300
-FieldOfView = 1024
EyeEffect = LENS_WIBBLE
MaxAngleChange = 84
[experience]
Powers = SWING_WEAPON_FIST SWING_WEAPON_SWORD NULL NULL NULL NULL NULL NULL NULL LIGHTNING
PowersLevelRequired = 1 1 0 0 0 0 0 0 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
SleepExperience = WATER 20
ExperienceForHitting = 24
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
TrainingValue = 3
TrainingCost = 28
ScavengeValue = 0
-ScavengerCost = 8
-ResearchValue = 1
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/thief.cfg b/campgns/dzjr06lv_crtr/thief.cfg
index da5bd830c6..61d75b2e29 100644
--- a/campgns/dzjr06lv_crtr/thief.cfg
+++ b/campgns/dzjr06lv_crtr/thief.cfg
@@ -4,57 +4,16 @@
[attributes]
Name = THIEF
-Health = 250
-HealRequirement = 150
-HealThreshold = 255
-Strength = 30
-Armour = 20
-Dexterity = 120
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 80
-Luck = 14
-Recovery = 4
-HungerRate = 5000
-HungerFill = 2
-HurtByLava = 2
-BaseSpeed = 48
-GoldHold = 1750
-AttackPreference = MELEE
Pay = 72
-SlapsToKill = 30
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON
[attraction]
EntranceRoom = LAIR NULL NULL
RoomSlabsRequired = 1 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 0
-NoHatchery = 2
-WokenUp = 200
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 3000
-Slapped = 200
-StandingOnDeadFriend = 15
-InTorture = 4
-InTemple = -50
-Sleeping = -1
-GotWage = -1000
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 5
-LairEnemy = NULL
-AnnoyLevel = 4000
AngerJobs = STEAL_GOLD
[experience]
@@ -65,11 +24,4 @@ GrowUp = 60000 ARCHER 3
ExperienceForHitting = 18
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
TrainingValue = 2
-TrainingCost = 12
-ResearchValue = 1
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/troll.cfg b/campgns/dzjr06lv_crtr/troll.cfg
index fd6b6e6016..0f7d462556 100644
--- a/campgns/dzjr06lv_crtr/troll.cfg
+++ b/campgns/dzjr06lv_crtr/troll.cfg
@@ -5,71 +5,32 @@
[attributes]
Name = TROLL
Health = 400
-HealRequirement = 150
-HealThreshold = 200
Strength = 30
Armour = 75
-Dexterity = 50
FearWounded = 27
FearStronger = 10000
-FearsomeFactor = 100
Defence = 90
Luck = 50
Recovery = 60
-HungerRate = 6000
-HungerFill = 3
-HurtByLava = 2
BaseSpeed = 56
-Size = 200 350
-AttackPreference = MELEE
Pay = 48
SlapsToKill = 45
DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON EVIL
[attraction]
EntranceRoom = TRAINING NULL NULL
-RoomSlabsRequired = 1 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 3
-WokenUp = 200
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 200
-StandingOnDeadFriend = 30
-InTorture = 4
-InTemple = -50
-Sleeping = -3
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
LairEnemy = ORC
-AnnoyLevel = 4000
AngerJobs = DESTROY_ROOMS
[experience]
Powers = SWING_WEAPON_SWORD HEAL NULL NULL MISSILE NULL NULL NULL NULL GRENADE
PowersLevelRequired = 1 2 0 0 5 0 0 0 0 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 14
[jobs]
PrimaryJobs = TRAIN
SecondaryJobs = GUARD
-NotDoJobs = RESEARCH
-StressfulJobs =
-TrainingValue = 2
-TrainingCost = 12
ResearchValue = 0
ManufactureValue = 5
diff --git a/campgns/dzjr06lv_crtr/tunneller.cfg b/campgns/dzjr06lv_crtr/tunneller.cfg
index 95dc7ceba2..22eb4604bc 100644
--- a/campgns/dzjr06lv_crtr/tunneller.cfg
+++ b/campgns/dzjr06lv_crtr/tunneller.cfg
@@ -5,72 +5,20 @@
[attributes]
Name = TUNNELLER
Health = 600
-HealRequirement = 150
-HealThreshold = 200
Strength = 30
Armour = 40
-Dexterity = 40
-FearWounded = 12
FearStronger = 10000
-FearsomeFactor = 100
Defence = 40
-Luck = 0
-Recovery = 4
-HungerRate = 5000
-HungerFill = 2
-LairSize = 1
-HurtByLava = 2
-BaseSpeed = 48
GoldHold = 500
-AttackPreference = MELEE
Pay = 56
-SlapsToKill = 30
-DamageToBoulder = 20
-Properties = BLEEDS HUMANOID_SKELETON SPECIAL_DIGGER
-
-[attraction]
-EntranceRoom = NULL NULL NULL
-RoomSlabsRequired = 0 0 0
-
-[annoyance]
-EatFood = -1000
-WillNotDoJob = 0
-InHand = 0
-NoLair = 1
-NoHatchery = 1
-WokenUp = 200
-StandingOnDeadEnemy = -6
-Sulking = 1
-NoSalary = 1000
-Slapped = 100
-StandingOnDeadFriend = 20
-InTorture = 4
-InTemple = -50
-Sleeping = -3
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 4
-LairEnemy = NULL
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON DAMAGE_WALLS
[experience]
Powers = SWING_WEAPON_FIST NULL NULL NULL NULL NULL NULL NULL NULL NULL
PowersLevelRequired = 1 0 0 0 0 0 0 0 0 0
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
GrowUp = 60000 DWARFA 3
ExperienceForHitting = 4
[jobs]
-PrimaryJobs =
-SecondaryJobs =
-NotDoJobs =
-StressfulJobs =
+PrimaryJobs =
+NotDoJobs =
TrainingValue = 2
-TrainingCost = 10
-ResearchValue = 0
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/vampire.cfg b/campgns/dzjr06lv_crtr/vampire.cfg
index 078303ed2e..5011d87ada 100644
--- a/campgns/dzjr06lv_crtr/vampire.cfg
+++ b/campgns/dzjr06lv_crtr/vampire.cfg
@@ -5,72 +5,28 @@
[attributes]
Name = VAMPIRE
Health = 900
-HealRequirement = 150
HealThreshold = 200
Strength = 90
-Armour = 30
-Dexterity = 80
-FearWounded = 0
-FearStronger = 10000
-FearsomeFactor = 100
Defence = 80
-Luck = 25
-Recovery = 9
-HungerRate = 6000
-HungerFill = 2
-HurtByLava = 2
BaseSpeed = 24
-GoldHold = 2500
AttackPreference = MELEE
Pay = 775
-SlapsToKill = 60
DamageToBoulder = 20
-Properties = BLEEDS IMMUNE_TO_GAS HUMANOID_SKELETON SEE_INVISIBLE EVIL ALLURING_SCVNGR
[attraction]
-EntranceRoom = GRAVEYARD LAIR NULL
RoomSlabsRequired = 9 9 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 750
-InHand = 1
-NoLair = 5
-NoHatchery = 1
-WokenUp = 1750
-StandingOnDeadEnemy = -25
-Sulking = 4
-NoSalary = 2500
-Slapped = 1000
-StandingOnDeadFriend = -5
-InTorture = 90
-InTemple = 20
-Sleeping = -7
-GotWage = -250
-WinBattle = -500
-Untrained = 0 0
-OthersLeaving = 10
-JobStress = 0
-GoingPostal = 0
-Queue = 12
LairEnemy = MONK
-AnnoyLevel = 4000
AngerJobs = MAD_PSYCHO
[experience]
Powers = SWING_WEAPON_FIST DRAIN FLY HEAL WORD_OF_POWER SLOW TELEPORT NULL NULL REBOUND
PowersLevelRequired = 1 2 3 4 5 6 7 0 0 10
-LevelsTrainValues = 1000 3500 6500 12000 17000 25000 40000 50000 60000
-GrowUp = 0 NULL 0
ExperienceForHitting = 25
-Rebirth = 3
[jobs]
PrimaryJobs = RESEARCH
SecondaryJobs = SCAVENGE
NotDoJobs = MANUFACTURE
-StressfulJobs =
TrainingValue = 5
-TrainingCost = 50
-ResearchValue = 3
-ManufactureValue = 1
diff --git a/campgns/dzjr06lv_crtr/witch.cfg b/campgns/dzjr06lv_crtr/witch.cfg
index 3beb8e08f2..7f4121818e 100644
--- a/campgns/dzjr06lv_crtr/witch.cfg
+++ b/campgns/dzjr06lv_crtr/witch.cfg
@@ -24,6 +24,4 @@ PowersLevelRequired = 1 2 3 0 5 0 7 8 9 10
ExperienceForHitting = 30
[jobs]
-PrimaryJobs = RESEARCH
-SecondaryJobs =
TrainingValue = 3
diff --git a/campgns/dzjr06lv_crtr/wizard.cfg b/campgns/dzjr06lv_crtr/wizard.cfg
index 06c0146401..6a2fdbb73c 100644
--- a/campgns/dzjr06lv_crtr/wizard.cfg
+++ b/campgns/dzjr06lv_crtr/wizard.cfg
@@ -5,74 +5,26 @@
[attributes]
Name = WIZARD
Health = 500
-HealRequirement = 150
HealThreshold = 255
-Strength = 20
-Armour = 15
-Dexterity = 100
-FearWounded = 12
FearStronger = 10000
FearsomeFactor = 100
Defence = 30
-Luck = 5
-Recovery = 4
-HungerRate = 5000
-HungerFill = 2
-LairSize = 1
-HurtByLava = 2
-BaseSpeed = 32
-GoldHold = 500
-AttackPreference = RANGED
Pay = 340
-SlapsToKill = 17
DamageToBoulder = 20
Properties = BLEEDS HUMANOID_SKELETON
[attraction]
-EntranceRoom = RESEARCH NULL NULL
RoomSlabsRequired = 1 0 0
[annoyance]
-EatFood = -1000
-WillNotDoJob = 200
-InHand = 0
-NoLair = 4
-NoHatchery = 1
-WokenUp = 250
-StandingOnDeadEnemy = -12
-Sulking = 2
-NoSalary = 2000
-Slapped = 300
-StandingOnDeadFriend = 60
-InTorture = 4
-InTemple = -50
-Sleeping = -1
-GotWage = -750
-WinBattle = -330
-Untrained = 0 0
-OthersLeaving = 10
JobStress = 100
-GoingPostal = 100
-Queue = 4
LairEnemy = SORCEROR
-AnnoyLevel = 4000
-AngerJobs = LEAVE_DUNGEON
[experience]
Powers = FIREBALL FLAME_BREATH HEAL NULL SLOW NULL HAILSTORM WORD_OF_POWER REBOUND FIRE_BOMB
PowersLevelRequired = 1 2 3 0 5 0 7 8 9 10
-LevelsTrainValues = 1000 3500 5000 6500 8500 10500 13000 16000 20000
-GrowUp = 0 NULL 0
ExperienceForHitting = 28
[jobs]
-PrimaryJobs = RESEARCH
-SecondaryJobs =
-NotDoJobs = MANUFACTURE
StressfulJobs = KINKY_TORTURE
TrainingValue = 3
-TrainingCost = 30
-ScavengeValue = 4
-ScavengerCost = 25
-ResearchValue = 5
-ManufactureValue = 1
diff --git a/campgns/postanck/map00191.txt b/campgns/postanck/map00191.txt
index 297067c47a..f1df002f7e 100644
--- a/campgns/postanck/map00191.txt
+++ b/campgns/postanck/map00191.txt
@@ -5,6 +5,8 @@ REM
REM ********************************************
COMPUTER_PLAYER(PLAYER1,1)
+SET_COMPUTER_EVENT(PLAYER1,"EVENT ENEMY DOOR",144000,41,2500,2,0)
+
START_MONEY(PLAYER1,10000)
MAX_CREATURES(PLAYER1,40)
ADD_CREATURE_TO_POOL(ORC,9)
diff --git a/config/fxdata/creature.cfg b/config/fxdata/creature.cfg
index ec4bc48737..b5c82d162c 100644
--- a/config/fxdata/creature.cfg
+++ b/config/fxdata/creature.cfg
@@ -1,7 +1,7 @@
; KeeperFX Creature Configuration file version 1.0.
[common]
-; Creatures used - note that the order is important
+; Creatures used - note that the order is important.
Creatures = WIZARD BARBARIAN ARCHER MONK DWARFA KNIGHT AVATAR TUNNELLER WITCH GIANT FAIRY THIEF SAMURAI HORNY SKELETON TROLL DRAGON DEMONSPAWN FLY DARK_MISTRESS SORCEROR BILE_DEMON IMP BUG VAMPIRE SPIDER HELL_HOUND GHOST TENTACLE ORC FLOATING_SPIRIT TIME_MAGE DRUID
JobsCount = 24
AngerJobsCount = 10
@@ -38,25 +38,25 @@ ScavengingCostIncreaseOnExp = 0
[instance0]
Name = NULL
-; Game turns duration (lifespan) of an instance; determines the length of shooting animation
+; Game turns duration (lifespan) of an instance, determines the length of shooting animation.
Time = 0
-; Point at which action function is executed within the instance lifespan (needs to be lower or equal to "Time")
+; Point at which action function is executed within the instance lifespan, it needs to be lower or equal to 'Time'.
ActionTime = 0
-; Amount of game turns before the spell can be re-used after an instance finishes
+; Amount of game turns before the spell can be re-used after an instance finishes.
ResetTime = 0
-; Different times may be set for possession (First Person) mode
+; Different times may be set for possession (First Person) mode.
FPTime = 0
FPActionTime = 0
FPResetTime = 0
-; Instance is activated as soon as it is selected
+; Instance is activated as soon as it's selected.
FPInstantCast = 0
-; How many game turns after using the instance creature can be spotted even if invisible
+; How many game turns after using the instance creature can be spotted even if invisible.
ForceVisibility = 0
-; Tooltip string ID, explaining what the instance does
+; Tooltip string ID, explaining what the instance does.
TooltipTextID = 201
-; Sprite IDs of graphics symbols representing the instance; only one, small symbol is supported
+; Sprite IDs of graphics symbols representing the instance; only one, small symbol is supported.
SymbolSprites = 0
-; Graphics animation used to display creature during the instance
+; Graphics animation used to display creature during the instance.
Graphics = STAND
; Minimum distance the target can be to cast the spell.
RangeMin = 0
@@ -64,45 +64,47 @@ RangeMin = 0
RangeMax = 0
; Type of thing the aim assist will target first. Full meaning unknown, range 1~8.
; 8 targets anything, creatures targetted by all.
-; 1,3,5,7 will also accept dungeon hearts
+; 1,3,5,7 will also accept dungeon hearts.
; 3,4 will only target other players, 5,6 only own player.
; 7 will target traps.
PrimaryTarget = 0
-; Instance property flags:
-; RANGED_DEBUFF will be used on enemy creatures, but does not count as an attack
-; DANGEROUS will be avoided when attacking Doors and Hearts
-; DESTRUCTIVE is required when attacking Doors and Hearts
+; Instance properties flags:
+; REPEAT_TRIGGER allows player to hold down the mouse button to cast.
+; DISPLAY_SWIPE shows the swipe in possession loaded from the creatures 'PossessSwipeIndex'.
+; DANGEROUS will be avoided when attacking Doors and Hearts, for attacks.
+; DESTRUCTIVE is required when attacking Doors and Hearts, for attacks.
+; MELEE_ATTACK will be used by creatures at close combat.
+; RANGED_ATTACK will be used by creatures at distance combat.
+; RANGED_DEBUFF will be used on enemy creatures, but doesn't count as an attack.
; SELF_BUFF can be applied to caster.
; RANGED_BUFF can be applied to another friendly creature.
-; REPEAT_TRIGGER allows player to hold down the mouse button to cast
-; QUICK ranged attacks will be used by units going postal
-; DISARMING allows instance to be used against traps
-; DISPLAY_SWIPE Shows the swipe in possession loaded from the creatures PossessSwipeIndex
-; NEEDS_TARGET Cannot be used in possession without a target to cast it on
+; NEEDS_TARGET Cannot be used in possession without a target to cast it on.
+; QUICK allows the instance to be used by creatures going postal.
+; DISARMING allows the instance to be used against traps.
Properties =
-; Function used as the instance action, and its parameters
+; Function used as the instance action, and its parameters.
Function = none 0 0
; Function to validate the source of the spell. Could have two parameters.
-; It checks whether the caster (source creature) is able and legitimate to cast the spell. It
-; mainly checks the state of the caster. For example, checking whether it's unconscious/picked up.
+; It checks whether the caster (source creature) is able and legitimate to cast the spell.
+; It mainly checks the state of the caster. For example, checking whether it's unconscious/picked up.
; An unconscious/picked creature is unable to cast spells. Checking whether it's in prison.
; validate_source_generic() forbids casting in prison but validate_source_even_in_prison() doesn't.
; This must be set for RANGED_BUFF.
ValidateSourceFunc = validate_source_generic 0 0
; Function to validate the target of the spell. Could have two parameters.
-; It checks whether the target creature is able and legitimate to receive the spell. It mainly
-; checks if the target can benefit from the spell. For example, a creature having 100% HP doesn't
-; need healing. A creature having Speed effect already doesn't need the Speed spell. The Speed
-; spell should be cast on another creature who doesn't have the Speed effect.
-; It also checks the target's state. For example, an unconscious creature is not a legitimate
-; target of Speed or Armour spell.
+; It checks whether the target creature is able and legitimate to receive the spell.
+; It mainly checks if the target can benefit from the spell.
+; For example, a creature having 100% HP doesn't need healing.
+; A creature having Speed effect already doesn't need the Speed spell.
+; The Speed spell should be cast on another creature who doesn't have the Speed effect.
+; It also checks the target's state.
+; For example, an unconscious creature is not a legitimate target of Speed or Armour spell.
; This must be set for RANGED_BUFF.
ValidateTargetFunc = validate_target_generic 0 0
; Function to search targets of the ranged spell. Could have two parameters.
-; It works with ValidateTargetFunc together to collect one or more targets and run dedicated
-; logic to process them. For example, search_target_ranged_heal() will search nearby area
-; to collect validated creatures (by validate_target_benefits_from_healing()) and select the creature
-; who has lowest percentage of HP as the final receiver of the Heal spell.
+; It works with ValidateTargetFunc together to collect one or more targets and run dedicated logic to process them.
+; For example, search_target_ranged_heal() will search nearby area to collect validated creatures (by validate_target_benefits_from_healing())
+; and select the creature who has lowest percentage of HP as the final receiver of the Heal spell.
; This must be set for RANGED_BUFF.
; When this is set, ValidateTargetFunc must be set, too.
SearchTargetsFunc = search_target_generic 0 0
@@ -520,8 +522,7 @@ PrimaryTarget = 3
Properties =
Function = creature_cast_spell SPELL_WIND 0
ValidateSourceFunc = validate_source_generic 0 0
-; Wind can disperse gas and push away melee enemies.
-; It has more than one merit. It deserve one dedicated function
+; Wind can disperse gas and push away melee enemies. It has more than one merit. It deserves one dedicated function.
ValidateTargetFunc = validate_target_benefits_from_wind 0 0
[instance23]
@@ -954,7 +955,7 @@ PrimaryTarget = 3
Properties =
Function = none 0 0
-; Creature is summoned whenever the instance is on cooldown
+; Creature is summoned whenever the instance is on cooldown.
[instance48]
Name = SUMMON_FAMILIAR
Time = 6
@@ -974,7 +975,7 @@ Function = creature_cast_spell SPELL_SUMMON_FAMILIAR 0
ValidateSourceFunc = validate_source_generic 0 0
ValidateTargetFunc = validate_target_generic 0 0
-; Creature is summoned only in battle
+; Creature is summoned only in battle.
[instance49]
Name = SUMMON_CREATURE
Time = 6
@@ -1083,13 +1084,13 @@ ValidateTargetFunc = validate_target_benefits_from_missile_defense 0 0
SearchTargetsFunc = search_target_generic 0 0
[job0]
-; Empty job, indicates no job assigned
+; Empty job, indicates no job assigned.
Name = NULL
PlayerFunctions = none none
CoordsFunctions = none none
[job1]
-; Tunneling, not used
+; Tunneling, not used.
Name = TUNNEL
InitialState = TunnellerDoingNothing
ContinueState = Tunnelling
@@ -1097,7 +1098,7 @@ PlayerFunctions = none none
CoordsFunctions = none none
[job2]
-; Digging, not used
+; Digging, not used.
Name = DIG
InitialState = ImpArrivesAtDigDirt
ContinueState = ImpDigsDirt
@@ -1105,50 +1106,40 @@ PlayerFunctions = none none
CoordsFunctions = none none
[job3]
-; Researching rooms and spells in the library
-; Name of the job
+; Researching rooms and spells in the library.
+; Name of the job.
Name = RESEARCH
-; A room role to be assigned for the room within which the job is being done
+; A room role to be assigned for the room within which the job is being done.
RelatedRoomRole = ROOM_ROLE_RESEARCH
-; Initial creature state to enter when starting the job
+; Initial creature state to enter when starting the job.
InitialState = AtResearchRoom
-; The state used to continue the job after init
+; The state used to continue the job after init.
ContinueState = Researching
-; Whether and how the job can be initiated by dropping creature into related room
-; Options are:
-; OWNED_CREATURES,OWNED_DIGGERS,ENEMY_CREATURES,ENEMY_DIGGERS - selects kind of creatures
-; which can be assigned to this job
-; HUMAN_DROP,COMPUTER_DROP - whether human players and computer players can
-; assign the job by dropping a creature from hand
-; CREATURE_INIT - whether the job can be started when a creature is created within the room,
-; or level has a pre-placed creature in that room
-; AREA_WITHIN_ROOM - whether players can assign the job by dropping a creature into related room
-; AREA_OUTSIDE_ROOM - whether players can assign the job by dropping a creature into some place
-; which is not a room (claimed area, path etc.)
-; WHOLE_AREA,CENTER_ONLY,BORDER_ONLY - continous area selection where the creature have to
-; be dropped for the job to be assigned; center means an area surrounded by the same slab
-; NEEDS_HAVE_JOB - only allow to assign this job by human or computer player if it is
-; in primary or secondary jobs list of the creature
+; Whether and how the job can be initiated by dropping creature into related room, options are:
+; OWNED_CREATURES,OWNED_DIGGERS,ENEMY_CREATURES,ENEMY_DIGGERS - selects kind of creatures which can be assigned to this job.
+; HUMAN_DROP,COMPUTER_DROP - whether human players and computer players can assign the job by dropping a creature from hand.
+; CREATURE_INIT - whether the job can be started when a creature is created within the room, or level has a pre-placed creature in that room.
+; AREA_WITHIN_ROOM - whether players can assign the job by dropping a creature into related room.
+; AREA_OUTSIDE_ROOM - whether players can assign the job by dropping a creature into some place which is not a room (claimed area, path etc.).
+; WHOLE_AREA,CENTER_ONLY,BORDER_ONLY - continous area selection where the creature have to be dropped for the job to be assigned, center means an area surrounded by the same slab.
+; NEEDS_HAVE_JOB - only allow to assign this job by human or computer player if it's in primary or secondary jobs list of the creature.
Assign = OWNED_CREATURES HUMAN_DROP COMPUTER_DROP AREA_WITHIN_ROOM WHOLE_AREA
-; Function used to assign the job to a creature after a break, or if it's primary/secondary job
-; Not all jobs need to have this set - you may have "none" for jobs which are never assigned this way
+; Function used to assign the job to a creature after a break, or if it's a primary/secondary job.
+; Not all jobs need to have this set - you may have 'none' for jobs which are never assigned this way.
PlayerFunctions = can_do_research work_in_room
-; Function used to assign the job to a creature by dropping at specific map coordinates
-; Not all jobs need to have this set - you may have "none" for jobs which are never assigned this way
+; Function used to assign the job to a creature by dropping at specific map coordinates.
+; Not all jobs need to have this set - you may have 'none' for jobs which are never assigned this way.
CoordsFunctions = can_do_research work_in_room
-; Job properties
-; Options are:
-; NEEDS_CAPACITY - whether the job performed in a room requires and consumes worker capacity
-; within the room
-; WORK_WHOLE_AREA,WORK_CENTER_ONLY,WORK_BORDER_ONLY - room area selection where the creature will work
-; within related room
-; NO_SELF_CONTROL - creature has no control over its job while doing this action, cannot stop by itself
-; NO_GROUPS - creature is removed from a group before the job is assigned
-; ALLOW_CHICKENIZED - allow creatures turned into chickens to be assigned to that job
+; Job properties, options are:
+; NEEDS_CAPACITY - whether the job performed in a room requires and consumes worker capacity within the room.
+; WORK_WHOLE_AREA,WORK_CENTER_ONLY,WORK_BORDER_ONLY - room area selection where the creature will work within related room.
+; NO_SELF_CONTROL - creature has no control over its job while doing this action, cannot stop by itself.
+; NO_GROUPS - creature is removed from a group before the job is assigned.
+; ALLOW_CHICKENIZED - allow creatures turned into chickens to be assigned to that job.
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job4]
-; Training job
+; Training job.
Name = TRAIN
RelatedRoomRole = ROOM_ROLE_TRAIN_EXP
InitialState = AtTrainingRoom
@@ -1159,7 +1150,7 @@ CoordsFunctions = can_do_training work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job5]
-; Manufacturing traps and doors in workshop
+; Manufacturing traps and doors in workshop.
Name = MANUFACTURE
RelatedRoomRole = ROOM_ROLE_CRATES_MANUFACTURE
InitialState = AtWorkshopRoom
@@ -1170,7 +1161,7 @@ CoordsFunctions = can_do_manufacturing work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job6]
-; Scavenging enemy and neutral creatures to join the player
+; Scavenging enemy and neutral creatures to join the player.
Name = SCAVENGE
RelatedRoomRole = ROOM_ROLE_SCAVENGE
InitialState = AtScavengerRoom
@@ -1181,8 +1172,7 @@ CoordsFunctions = can_do_scavenging work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job7]
-; Torture for pleasure, with no health loss and possibility to quit any time; only creatures which
-; have it as primary or secondary job can use it, others will start painful torture only
+; Torture for pleasure, with no health loss and possibility to quit any time, only creatures which have it as primary or secondary job can use it, others will start painful torture only.
Name = KINKY_TORTURE
RelatedRoomRole = ROOM_ROLE_TORTURE
InitialState = AtKinkyTortureRoom
@@ -1193,7 +1183,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY NO_GROUPS
[job8]
-; Joining an already started fight somewhere on the map
+; Joining an already started fight somewhere on the map.
Name = FIGHT
RelatedEvent = MEVENT_ENEMYFIGHT
InitialState = CreatureDoingNothing
@@ -1201,21 +1191,20 @@ ContinueState = None
Assign = OWNED_CREATURES OWNED_DIGGERS ENEMY_CREATURES ENEMY_DIGGERS
PlayerFunctions = can_join_fight move_to_event
CoordsFunctions = none none
-Properties =
+Properties =
[job9]
-; Looking for enemy to fight
-; Computer player may use this jobs check function when picking creatures to attack
+; Looking for enemy to fight, computer player may use this jobs check function when picking creatures to attack.
Name = SEEK_THE_ENEMY
InitialState = SeekTheEnemy
ContinueState = None
Assign = OWNED_CREATURES OWNED_DIGGERS ENEMY_CREATURES ENEMY_DIGGERS
PlayerFunctions = can_do_job_always in_state_internal
CoordsFunctions = can_do_job_always none
-Properties =
+Properties =
[job10]
-; Walk around in guard post
+; Walk around in guard post.
Name = GUARD
RelatedRoomRole = ROOM_ROLE_GUARD
InitialState = AtGuardPostRoom
@@ -1226,15 +1215,15 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job11]
-; Persuade other creatures to follow - not working
+; Persuade other creatures to follow - not working.
Name = GROUP
Assign = OWNED_CREATURES OWNED_DIGGERS ENEMY_CREATURES ENEMY_DIGGERS
PlayerFunctions = can_do_barracking none
CoordsFunctions = none none
-Properties =
+Properties =
[job12]
-; Join other creatures into group in barracks
+; Join other creatures into group in barracks.
Name = BARRACK
RelatedRoomRole = ROOM_ROLE_MAKE_GROUP
InitialState = AtBarrackRoom
@@ -1246,7 +1235,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY
[job13]
-; Pray in temple
+; Pray in temple.
Name = TEMPLE_PRAY
RelatedRoomRole = ROOM_ROLE_HAPPY_PRAY
InitialState = AtTemple
@@ -1257,7 +1246,7 @@ CoordsFunctions = can_do_job_always work_in_room_and_cure
Properties = WORK_BORDER_ONLY NEEDS_CAPACITY ALLOW_CHICKENIZED
[job14]
-; Freeze any enemy creatures starving in prison
+; Freeze any enemy creatures starving in prison.
Name = FREEZE_PRISONERS
RelatedRoomRole = ROOM_ROLE_PRISON
InitialState = CreatureFreezePrisonrs
@@ -1268,17 +1257,17 @@ CoordsFunctions = none none
Properties = WORK_WHOLE_AREA
[job15]
-; Go into unexplored but accessible areas of the map
+; Go into unexplored but accessible areas of the map.
Name = EXPLORE
InitialState = CreatureExploreDungeon
ContinueState = None
Assign = OWNED_CREATURES OWNED_DIGGERS ENEMY_CREATURES ENEMY_DIGGERS
PlayerFunctions = can_do_job_always in_state_internal
CoordsFunctions = none none
-Properties =
+Properties =
[job16]
-; Leave the dungeon through entrance
+; Leave the dungeon through entrance.
Name = EXEMPT
RelatedRoomRole = ROOM_ROLE_POOL_LEAVE
InitialState = CreatureExempt
@@ -1289,7 +1278,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_CENTER_ONLY NO_GROUPS
[job17]
-; Sink into temple waters as sacrifice for dark gods
+; Sink into temple waters as sacrifice for dark gods.
Name = TEMPLE_SACRIFICE
RelatedRoomRole = ROOM_ROLE_SACRIFICE
InitialState = CreatureSacrifice
@@ -1300,7 +1289,7 @@ CoordsFunctions = can_do_job_always in_state_internal
Properties = WORK_CENTER_ONLY NO_SELF_CONTROL NO_GROUPS
[job18]
-; Torture which persuades enemies to convert, or motivates your creatures
+; Torture which persuades enemies to convert, or motivates your creatures.
Name = PAINFUL_TORTURE
RelatedRoomRole = ROOM_ROLE_TORTURE
InitialState = AtTortureRoom
@@ -1311,7 +1300,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY NO_SELF_CONTROL NO_GROUPS
[job19]
-; Slowly dying of hunger at prison
+; Slowly dying of hunger at prison.
Name = CAPTIVITY
RelatedRoomRole = ROOM_ROLE_PRISON
InitialState = CrtrArrivedAtPrison
@@ -1322,7 +1311,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA NEEDS_CAPACITY NO_SELF_CONTROL NO_GROUPS ALLOW_CHICKENIZED
[job20]
-; Placing any valuables in pockets into players treasury
+; Placing any valuables in pockets into players treasury.
Name = PLACE_IN_VAULT
RelatedRoomRole = ROOM_ROLE_GOLD_STORAGE
InitialState = ImpDropsGold
@@ -1333,7 +1322,7 @@ CoordsFunctions = can_place_in_vault work_in_room
Properties = WORK_WHOLE_AREA
[job21]
-; Taking salary from the treasury
+; Taking salary from the treasury.
Name = TAKE_SALARY
RelatedRoomRole = ROOM_ROLE_GOLD_STORAGE
InitialState = CreatureTakeSalary
@@ -1344,7 +1333,7 @@ CoordsFunctions = can_take_salary work_in_room
Properties = WORK_WHOLE_AREA
[job22]
-; Eating in the hatchery
+; Eating in the hatchery.
Name = TAKE_FEED
RelatedRoomRole = ROOM_ROLE_FOOD_STORAGE
InitialState = CreatureArrivedAtGarden
@@ -1355,7 +1344,7 @@ CoordsFunctions = can_do_job_always work_in_room
Properties = WORK_WHOLE_AREA
[job23]
-; Sleeping in lair, also includes making new lair in the room
+; Sleeping in lair, also includes making new lair in the room.
Name = TAKE_SLEEP
RelatedRoomRole = ROOM_ROLE_HEAL_SLEEP
InitialState = CreatureGoingToSleep
@@ -1363,7 +1352,7 @@ ContinueState = CreatureSleep
Assign = OWNED_CREATURES HUMAN_DROP COMPUTER_DROP AREA_WITHIN_ROOM WHOLE_AREA ONE_TIME
PlayerFunctions = can_do_job_always none
CoordsFunctions = can_take_sleep sleep_in_lair
-; Sleeping doesn't consume room capacity, because the lair itself does - no NEEDS_CAPACITY here
+; Sleeping doesn't consume room capacity, because the lair itself does - no NEEDS_CAPACITY here.
Properties = WORK_WHOLE_AREA
[angerjob0]
diff --git a/config/fxdata/magic.cfg b/config/fxdata/magic.cfg
index bece28291d..c5c0f50d91 100644
--- a/config/fxdata/magic.cfg
+++ b/config/fxdata/magic.cfg
@@ -1527,6 +1527,8 @@ PlayerState = PLAYER_STATE_CREATEDIGGER
ParentPower = NOPOWER
CastExpandFunc = do_not_expand
UseFunction = magic_use_power_imp
+;only used with magic_use_power_imp, sets the type of unit spawned
+CreatureType = IMP
[power3]
Name = POWER_OBEY
diff --git a/config/fxdata/objects.cfg b/config/fxdata/objects.cfg
index 8ae2304168..97387419ca 100644
--- a/config/fxdata/objects.cfg
+++ b/config/fxdata/objects.cfg
@@ -241,7 +241,7 @@ DestroyOnLava = 0
DestroyOnLiquid = 1
Health = 100
FallAcceleration = 0
-LightUnaffected = 1
+LightUnaffected = 0
LightIntensity = 0
LightRadius = 0
LightIsDynamic = 0
diff --git a/config/fxdata/terrain.cfg b/config/fxdata/terrain.cfg
index 42f4bdcf6f..25de5e0b84 100644
--- a/config/fxdata/terrain.cfg
+++ b/config/fxdata/terrain.cfg
@@ -1,5 +1,4 @@
-; KeeperFX Terrain Configuration file
-; file version 0.32, by Mefistotelis
+; KeeperFX Terrain Configuration file version 1.0.
[common]
SlabsCount = 60
@@ -1080,11 +1079,11 @@ Cost = 0
Health = 0
SlabAssign = HARD
Roles =
-; HAS_NO_ENSIGN CANNOT_VANDALIZE BUILD_TILL_BROKE CANNOT_BE_SOLD
+; BUILD_TILL_BROKE CANNOT_BE_CLAIMED CANNOT_BE_SOLD CANNOT_VANDALIZE HAS_NO_ENSIGN.
Properties =
-; Speech messages related to the room, in order: Needed, TooSmall, NoRoute.
+; Speech messages related to the room, in order: 'Needed', 'TooSmall', 'NoRoute'.
Messages = 0 0 0
-; Sound sample playing in a loop when the room is visible.
+; Sound sample playing in a loop when hovering over it on screen.
AmbientSndSample = 0
; Algorithm used to compute room capacity:
; slabs_all_only, slabs_all_wth_effcncy, slabs_div2_wth_effcncy, gold_slabs_wth_effcncy, gold_slabs_full, none.
@@ -1094,9 +1093,9 @@ TotalCapacity = none
UsedCapacity = none none
; Height in cubes at which storage is created. Negative values for any.
StorageHeight = 0
-; Sprite with big size and medium size icon of the room.
+; Sprite icon of the room, large size and medium size.
SymbolSprites = 0 0
-; Sprite for mouse, used when placing the room.
+; Sprite pointer of the room, used when placing the room.
PointerSprites = 0
; Position of the room in the panel, 0 is hidden, 1-16 first page, 17-32 second page. Place in 4x4 grid.
PanelTabIndex = 0
@@ -1109,7 +1108,7 @@ Cost = 0
Health = 4000
SlabAssign = ENTRANCE_ZONE
Roles = ROOM_ROLE_POOL_SPAWN ROOM_ROLE_POOL_LEAVE
-Properties = CANNOT_VANDALIZE HAS_NO_ENSIGN CANNOT_BE_SOLD
+Properties = CANNOT_BE_SOLD CANNOT_VANDALIZE HAS_NO_ENSIGN
Messages = 0 0 0
AmbientSndSample = 0
TotalCapacity = slabs_all_only
@@ -1219,7 +1218,7 @@ Cost = 0
Health = 1300
SlabAssign = HEART_PEDESTAL
Roles = ROOM_ROLE_KEEPER_STORAGE
-Properties = CANNOT_VANDALIZE HAS_NO_ENSIGN CANNOT_BE_CLAIMED CANNOT_BE_SOLD
+Properties = CANNOT_BE_CLAIMED CANNOT_BE_SOLD CANNOT_VANDALIZE HAS_NO_ENSIGN
AmbientSndSample = 0
TotalCapacity = none
UsedCapacity = none none
@@ -1391,7 +1390,7 @@ SymbolSprites = 55 83
PointerSprites = 38
PanelTabIndex = 7
-; Temporary section - will be removed at some point
+; Temporary section - will be removed at some point.
[block_health]
DIRT = 2
GOLD = 20
diff --git a/deps/astronomy/.gitignore b/deps/astronomy/.gitignore
deleted file mode 100644
index 7246181410..0000000000
--- a/deps/astronomy/.gitignore
+++ /dev/null
@@ -1,2 +0,0 @@
-doxygen.log
-xml/
diff --git a/deps/astronomy/Doxyfile b/deps/astronomy/Doxyfile
deleted file mode 100644
index 92c9e6f6e9..0000000000
--- a/deps/astronomy/Doxyfile
+++ /dev/null
@@ -1,258 +0,0 @@
-# Doxyfile 1.9.3
-
-# This file describes the settings to be used by the documentation system
-# doxygen (www.doxygen.org) for a project.
-#
-# All text after a double hash (##) is considered a comment and is placed in
-# front of the TAG it is preceding.
-#
-# All text after a single hash (#) is considered a comment and will be ignored.
-# The format is:
-# TAG = value [value, ...]
-# For lists, items can also be appended using:
-# TAG += value [value, ...]
-# Values that contain spaces should be placed between quotes (\" \").
-
-#---------------------------------------------------------------------------
-# Project related configuration options
-#---------------------------------------------------------------------------
-
-# This tag specifies the encoding used for all characters in the configuration
-# file that follow. The default is UTF-8 which is also the encoding used for all
-# text before the first occurrence of this tag. Doxygen uses libiconv (or the
-# iconv built into libc) for the transcoding. See
-# https://www.gnu.org/software/libiconv/ for the list of possible encodings.
-# The default value is: UTF-8.
-
-DOXYFILE_ENCODING = UTF-8
-
-# The PROJECT_NAME tag is a single word (or a sequence of words surrounded by
-# double-quotes, unless you are using Doxywizard) that should identify the
-# project for which the documentation is generated. This name is used in the
-# title of most generated pages and in a few other places.
-# The default value is: My Project.
-
-PROJECT_NAME = "Astronomy Engine"
-
-# This tag implements a quasi-intelligent brief description abbreviator that is
-# used to form the text in various listings. Each string in this list, if found
-# as the leading text of the brief description, will be stripped from the text
-# and the result, after processing the whole list, is used as the annotated
-# text. Otherwise, the brief description is used as-is. If left blank, the
-# following values are used ($name is automatically replaced with the name of
-# the entity):The $name class, The $name widget, The $name file, is, provides,
-# specifies, contains, represents, a, an and the.
-
-ABBREVIATE_BRIEF = "The $name class" \
- "The $name widget" \
- "The $name file" \
- is \
- provides \
- specifies \
- contains \
- represents \
- a \
- an \
- the
-
-# If the FULL_PATH_NAMES tag is set to YES, doxygen will prepend the full path
-# before files name in the file list and in the header files. If set to NO the
-# shortest path that makes the file name unique will be used
-# The default value is: YES.
-
-FULL_PATH_NAMES = NO
-
-# When the TOC_INCLUDE_HEADINGS tag is set to a non-zero value, all headings up
-# to that level are automatically included in the table of contents, even if
-# they do not have an id attribute.
-# Note: This feature currently applies only to Markdown headings.
-# Minimum value: 0, maximum value: 99, default value: 5.
-# This tag requires that the tag MARKDOWN_SUPPORT is set to YES.
-
-TOC_INCLUDE_HEADINGS = 0
-
-#---------------------------------------------------------------------------
-# Build related configuration options
-#---------------------------------------------------------------------------
-
-# If the EXTRACT_ALL tag is set to YES, doxygen will assume all entities in
-# documentation are documented, even if no documentation was available. Private
-# class members and static file members will be hidden unless the
-# EXTRACT_PRIVATE respectively EXTRACT_STATIC tags are set to YES.
-# Note: This will also disable the warnings about undocumented members that are
-# normally produced when WARNINGS is set to YES.
-# The default value is: NO.
-
-EXTRACT_ALL = YES
-
-# With the correct setting of option CASE_SENSE_NAMES doxygen will better be
-# able to match the capabilities of the underlying filesystem. In case the
-# filesystem is case sensitive (i.e. it supports files in the same directory
-# whose names only differ in casing), the option must be set to YES to properly
-# deal with such files in case they appear in the input. For filesystems that
-# are not case sensitive the option should be be set to NO to properly deal with
-# output files written for symbols that only differ in casing, such as for two
-# classes, one named CLASS and the other named Class, and to also support
-# references to files without having to specify the exact matching casing. On
-# Windows (including Cygwin) and MacOS, users should typically set this option
-# to NO, whereas on Linux or other Unix flavors it should typically be set to
-# YES.
-# The default value is: system dependent.
-
-CASE_SENSE_NAMES = YES
-
-# The GENERATE_TODOLIST tag can be used to enable (YES) or disable (NO) the todo
-# list. This list is created by putting \todo commands in the documentation.
-# The default value is: YES.
-
-GENERATE_TODOLIST = NO
-
-# The GENERATE_TESTLIST tag can be used to enable (YES) or disable (NO) the test
-# list. This list is created by putting \test commands in the documentation.
-# The default value is: YES.
-
-GENERATE_TESTLIST = NO
-
-# The GENERATE_BUGLIST tag can be used to enable (YES) or disable (NO) the bug
-# list. This list is created by putting \bug commands in the documentation.
-# The default value is: YES.
-
-GENERATE_BUGLIST = NO
-
-# The GENERATE_DEPRECATEDLIST tag can be used to enable (YES) or disable (NO)
-# the deprecated list. This list is created by putting \deprecated commands in
-# the documentation.
-# The default value is: YES.
-
-GENERATE_DEPRECATEDLIST= NO
-
-# If the WARN_AS_ERROR tag is set to YES then doxygen will immediately stop when
-# a warning is encountered. If the WARN_AS_ERROR tag is set to FAIL_ON_WARNINGS
-# then doxygen will continue running as if WARN_AS_ERROR tag is set to NO, but
-# at the end of the doxygen process doxygen will return with a non-zero status.
-# Possible values are: NO, YES and FAIL_ON_WARNINGS.
-# The default value is: NO.
-
-WARN_AS_ERROR = YES
-
-#---------------------------------------------------------------------------
-# Configuration options related to the input files
-#---------------------------------------------------------------------------
-
-# The INPUT tag is used to specify the files and/or directories that contain
-# documented source files. You may enter file names like myfile.cpp or
-# directories like /usr/src/myproject. Separate the files or directories with
-# spaces. See also FILE_PATTERNS and EXTENSION_MAPPING
-# Note: If this tag is empty the current directory is searched.
-
-INPUT = astronomy.h \
- astronomy.c
-
-# This tag can be used to specify the character encoding of the source files
-# that doxygen parses. Internally doxygen uses the UTF-8 encoding. Doxygen uses
-# libiconv (or the iconv built into libc) for the transcoding. See the libiconv
-# documentation (see:
-# https://www.gnu.org/software/libiconv/) for the list of possible encodings.
-# The default value is: UTF-8.
-
-INPUT_ENCODING = UTF-8
-
-#---------------------------------------------------------------------------
-# Configuration options related to the HTML output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_HTML tag is set to YES, doxygen will generate HTML output
-# The default value is: YES.
-
-GENERATE_HTML = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the LaTeX output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_LATEX tag is set to YES, doxygen will generate LaTeX output.
-# The default value is: YES.
-
-GENERATE_LATEX = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the RTF output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_RTF tag is set to YES, doxygen will generate RTF output. The
-# RTF output is optimized for Word 97 and may not look too pretty with other RTF
-# readers/editors.
-# The default value is: NO.
-
-GENERATE_RTF = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the man page output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_MAN tag is set to YES, doxygen will generate man pages for
-# classes and files.
-# The default value is: NO.
-
-GENERATE_MAN = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the XML output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_XML tag is set to YES, doxygen will generate an XML file that
-# captures the structure of the code including all documentation.
-# The default value is: NO.
-
-GENERATE_XML = YES
-
-# The XML_OUTPUT tag is used to specify where the XML pages will be put. If a
-# relative path is entered the value of OUTPUT_DIRECTORY will be put in front of
-# it.
-# The default directory is: xml.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_OUTPUT = xml
-
-# If the XML_PROGRAMLISTING tag is set to YES, doxygen will dump the program
-# listings (including syntax highlighting and cross-referencing information) to
-# the XML output. Note that enabling this will significantly increase the size
-# of the XML output.
-# The default value is: YES.
-# This tag requires that the tag GENERATE_XML is set to YES.
-
-XML_PROGRAMLISTING = YES
-
-#---------------------------------------------------------------------------
-# Configuration options related to the DOCBOOK output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_DOCBOOK tag is set to YES, doxygen will generate Docbook files
-# that can be used to generate PDF.
-# The default value is: NO.
-
-GENERATE_DOCBOOK = NO
-
-#---------------------------------------------------------------------------
-# Configuration options for the AutoGen Definitions output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_AUTOGEN_DEF tag is set to YES, doxygen will generate an
-# AutoGen Definitions (see http://autogen.sourceforge.net/) file that captures
-# the structure of the code including all documentation. Note that this feature
-# is still experimental and incomplete at the moment.
-# The default value is: NO.
-
-GENERATE_AUTOGEN_DEF = NO
-
-#---------------------------------------------------------------------------
-# Configuration options related to the Perl module output
-#---------------------------------------------------------------------------
-
-# If the GENERATE_PERLMOD tag is set to YES, doxygen will generate a Perl module
-# file that captures the structure of the code including all documentation.
-#
-# Note that this feature is still experimental and incomplete at the moment.
-# The default value is: NO.
-
-GENERATE_PERLMOD = NO
diff --git a/deps/astronomy/DoxygenLayout.xml b/deps/astronomy/DoxygenLayout.xml
deleted file mode 100644
index ac353bf86d..0000000000
--- a/deps/astronomy/DoxygenLayout.xml
+++ /dev/null
@@ -1,194 +0,0 @@
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
diff --git a/deps/astronomy/README.md b/deps/astronomy/README.md
deleted file mode 100644
index 0ab981b202..0000000000
--- a/deps/astronomy/README.md
+++ /dev/null
@@ -1,4735 +0,0 @@
-# Astronomy Engine (C/C++)
-
-This is the complete programming reference for the C version of
-Astronomy Engine. It can be used directly from C++ programs also.
-Other programming languages are supported.
-See the [home page](https://github.com/cosinekitty/astronomy) for more info.
-
----
-
-## Quick Start
-To include Astronomy Engine in your own C or C++ program, all you need are the
-files `astronomy.h` and `astronomy.c` from this directory.
-
-To get started quickly, here are some [examples](../../demo/c/).
-
----
-
-## Contents
-
-- [Topic Index](#topics)
-- [Functions](#functions)
-- [Constants](#constants)
-- [Enumerated Types](#enums)
-- [Structures](#structs)
-- [Type Definitions](#typedefs)
-
----
-
-
-## Topic Index
-
-### Dates and times
-
-| Function | Description |
-| -------- | ----------- |
-| [CurrentTime](#Astronomy_CurrentTime) | Obtains the current date and time of the computer's clock in the form of an [`astro_time_t`](#astro_time_t) that can be used for astronomy calculations. |
-| [MakeTime](#Astronomy_MakeTime) | Converts a UTC calendar date and time given as separate numeric parameters into an [`astro_time_t`](#astro_time_t) that can be used for astronomy calculations. |
-| [AddDays](#Astronomy_AddDays) | Adds or subtracts an amount of time to an [`astro_time_t`](#astro_time_t) to get another [`astro_time_t`](#astro_time_t). |
-| [TimeFromUtc](#Astronomy_TimeFromUtc) | Converts UTC calendar date and time from an [`astro_utc_t`](#astro_utc_t) structure to an [`astro_time_t`](#astro_time_t) structure that can be used for astronomy calculations. |
-| [UtcFromTime](#Astronomy_UtcFromTime) | Converts an astronomical [`astro_time_t`](#astro_time_t) time value to an [`astro_utc_t`](#astro_utc_t) structure that can be used for displaying a UTC calendar date and time. |
-| [FormatTime](#Astronomy_FormatTime) | Formats an [`astro_time_t`](#astro_time_t) value as an ISO 8601 string. |
-
-### Celestial bodies
-
-| Function | Description |
-| -------- | ----------- |
-| [BodyCode](#Astronomy_BodyCode) | Converts the English name of a celestial body to its equivalent [`astro_body_t`](#astro_body_t) enumeration value. |
-| [BodyName](#Astronomy_BodyName) | Converts an [`astro_body_t`](#astro_body_t) enumeration value to its equivalent English name as a string. |
-
-### Position of Sun, Moon, and planets
-
-| Function | Description |
-| -------- | ----------- |
-| [HelioVector](#Astronomy_HelioVector) | Calculates body position vector with respect to the center of the Sun. |
-| [GeoVector](#Astronomy_GeoVector) | Calculates body position vector with respect to the center of the Earth. |
-| [Equator](#Astronomy_Equator) | Calculates right ascension and declination. |
-| [Ecliptic](#Astronomy_Ecliptic) | Converts J2000 mean equator (EQJ) coordinates to true ecliptic of date (ECT) coordinates. |
-| [EclipticLongitude](#Astronomy_EclipticLongitude) | Calculates true ecliptic of date (ECT) longitude for a body. |
-| [Horizon](#Astronomy_Horizon) | Calculates horizontal coordinates (azimuth, altitude) for a given observer on the Earth. |
-| [PairLongitude](#Astronomy_PairLongitude) | Calculates the difference in apparent ecliptic longitude between two bodies, as seen from the Earth. |
-| [BaryState](#Astronomy_BaryState) | Calculates the barycentric position and velocity vectors of the Sun or a planet. |
-
-### Geographic helper functions
-
-| Function | Description |
-| -------- | ----------- |
-| [ObserverVector](#Astronomy_ObserverVector) | Calculates a vector from the center of the Earth to an observer on the Earth's surface. |
-| [VectorObserver](#Astronomy_VectorObserver) | Calculates the geographic coordinates for a geocentric equatorial vector. |
-
-
-### Rise, set, and culmination times
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchRiseSetEx](#Astronomy_SearchRiseSetEx) | Finds time of rise or set for a body as seen by an observer on the Earth. |
-| [SearchAltitude](#Astronomy_SearchAltitude) | Finds time when a body reaches a given altitude above or below the horizon. Useful for finding civil, nautical, or astronomical twilight. |
-| [SearchHourAngleEx](#Astronomy_SearchHourAngleEx) | Finds when body reaches a given hour angle for an observer on the Earth. Hour angle = 0 finds culmination, the highest point in the sky. |
-
-### Moon phases
-
-| Function | Description |
-| -------- | ----------- |
-| [MoonPhase](#Astronomy_MoonPhase) | Determines the Moon's phase expressed as an ecliptic longitude. |
-| [SearchMoonPhase](#Astronomy_SearchMoonPhase) | Finds the next instance of the Moon reaching a specific ecliptic longitude separation from the Sun. |
-| [SearchMoonQuarter](#Astronomy_SearchMoonQuarter) | Finds the first quarter moon phase after a given date and time. |
-| [NextMoonQuarter](#Astronomy_NextMoonQuarter) | Finds the next quarter moon phase after a previous one that has been found. |
-
-### Eclipses and Transits
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchLunarEclipse](#Astronomy_SearchLunarEclipse) | Search for the first lunar eclipse after a given date. |
-| [NextLunarEclipse](#Astronomy_NextLunarEclipse) | Continue searching for more lunar eclipses. |
-| [SearchGlobalSolarEclipse](#Astronomy_SearchGlobalSolarEclipse) | Search for the first solar eclipse that is visible anywhere in the world after a given date. |
-| [NextGlobalSolarEclipse](#Astronomy_NextGlobalSolarEclipse) | Continue searching for more global solar eclipses. |
-| [SearchLocalSolarEclipse](#Astronomy_SearchLocalSolarEclipse) | Search for the first solar eclipse as seen at a particular location after a given date. |
-| [NextLocalSolarEclipse](#Astronomy_NextLocalSolarEclipse) | Continue searching for more local solar eclipses. |
-| [SearchTransit](#Astronomy_SearchTransit) | Search for the next transit of Mercury or Venus. |
-| [NextTransit](#Astronomy_NextTransit) | Continue searching for transits of Mercury or Venus. |
-
-### Lunar perigee and apogee
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchLunarApsis](#Astronomy_SearchLunarApsis) | Finds the next perigee or apogee of the Moon after a specified date. |
-| [NextLunarApsis](#Astronomy_NextLunarApsis) | Given an already-found apsis, finds the next perigee or apogee of the Moon. |
-
-### Planet perihelion and aphelion
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchPlanetApsis](#Astronomy_SearchPlanetApsis) | Finds the next perihelion or aphelion of a planet after a specified date. |
-| [NextPlanetApsis](#Astronomy_NextPlanetApsis) | Given an already-found apsis, finds the next perihelion or aphelion of a planet. |
-
-### Visual magnitude and elongation
-
-| Function | Description |
-| -------- | ----------- |
-| [Illumination](#Astronomy_Illumination) | Calculates visual magnitude and phase angle of bodies as seen from the Earth. |
-| [SearchPeakMagnitude](#Astronomy_SearchPeakMagnitude) | Searches for the date and time Venus will next appear brightest as seen from the Earth. |
-| [AngleFromSun](#Astronomy_AngleFromSun) | Returns full angle seen from Earth between body and Sun. |
-| [Elongation](#Astronomy_Elongation) | Calculates ecliptic longitude angle between a body and the Sun, as seen from the Earth. |
-| [SearchMaxElongation](#Astronomy_SearchMaxElongation) | Searches for the next maximum elongation event for Mercury or Venus that occurs after the given date. |
-
-### Oppositions and conjunctions
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchRelativeLongitude](#Astronomy_SearchRelativeLongitude) | Finds oppositions and conjunctions of planets. |
-
-### Equinoxes, solstices, and apparent solar motion
-
-| Function | Description |
-| -------- | ----------- |
-| [SearchSunLongitude](#Astronomy_SearchSunLongitude) | Finds the next time the Sun reaches a specified apparent ecliptic longitude in the true ecliptic of date (ECT) system. |
-| [Seasons](#Astronomy_Seasons) | Finds the equinoxes and solstices for a given calendar year. |
-| [SunPosition](#Astronomy_SunPosition) | Calculates the Sun's apparent true ecliptic of date (ECT) coordinates as seen from the Earth. |
-
-### Coordinate transforms
-
-The following orientation systems are supported.
-Astronomy Engine can convert a vector from any of these orientations to any of the others.
-It also allows converting from a vector to spherical (angular) coordinates and back,
-within a given orientation. Note the 3-letter codes for each of the orientation systems;
-these are used in function and type names.
-
-- **EQJ = J2000 Mean Equator**: Uses the Earth's mean equator (corrected for precession but ignoring nutation) on January 1, 2000, at noon UTC. This moment in time is called J2000.
-- **EQD = True Equator of Date**: Uses the Earth's equator on a given date and time, adjusted for precession and nutation.
-- **ECL = J2000 Mean Ecliptic**: Uses the plane of the Earth's orbit around the Sun at J2000. The x-axis is referenced against the J2000 mean equinox.
-- **ECT = True Ecliptic of Date**: Uses the true (corrected for precession and nutation) orbital plane of the Earth on the given date. The x-axis is referenced against the true equinox for that date.
-- **HOR = Horizontal**: Uses the viewpoint of an observer at a specific location on the Earth at a given date and time.
-- **GAL = Galactic**: Based on the IAU 1958 definition of galactic coordinates.
-
-| Function | Description |
-| -------- | ----------- |
-| [RotateVector](#Astronomy_RotateVector) | Applies a rotation matrix to a vector, yielding a vector in another orientation system. |
-| [InverseRotation](#Astronomy_InverseRotation) | Given a rotation matrix, finds the inverse rotation matrix that does the opposite transformation. |
-| [CombineRotation](#Astronomy_CombineRotation) | Given two rotation matrices, returns a rotation matrix that combines them into a net transformation. |
-| [IdentityMatrix](#Astronomy_IdentityMatrix) | Returns a 3x3 identity matrix, which can be used to form other rotation matrices. |
-| [Pivot](#Astronomy_Pivot) | Transforms a rotation matrix by pivoting it around a given axis by a given angle. |
-| [VectorFromSphere](#Astronomy_VectorFromSphere) | Converts spherical coordinates to Cartesian coordinates. |
-| [SphereFromVector](#Astronomy_SphereFromVector) | Converts Cartesian coordinates to spherical coordinates. |
-| [EquatorFromVector](#Astronomy_EquatorFromVector) | Given an equatorial vector, calculates equatorial angular coordinates. |
-| [VectorFromHorizon](#Astronomy_VectorFromHorizon) | Given apparent angular horizontal coordinates, calculates horizontal vector. |
-| [HorizonFromVector](#Astronomy_HorizonFromVector) | Given a vector in horizontal orientation, calculates horizontal angular coordinates. |
-| [Rotation_EQD_EQJ](#Astronomy_Rotation_EQD_EQJ) | Calculates a rotation matrix from true equator of date (EQD) to J2000 mean equator (EQJ). |
-| [Rotation_EQD_ECT](#Astronomy_Rotation_EQD_ECT) | Calculates a rotation matrix from true equator of date (EQD) to true ecliptic of date (ECT). |
-| [Rotation_EQD_ECL](#Astronomy_Rotation_EQD_ECL) | Calculates a rotation matrix from true equator of date (EQD) to J2000 mean ecliptic (ECL). |
-| [Rotation_EQD_HOR](#Astronomy_Rotation_EQD_HOR) | Calculates a rotation matrix from true equator of date (EQD) to horizontal (HOR). |
-| [Rotation_EQJ_EQD](#Astronomy_Rotation_EQJ_EQD) | Calculates a rotation matrix from J2000 mean equator (EQJ) to true equator of date (EQD). |
-| [Rotation_EQJ_ECT](#Astronomy_Rotation_EQJ_ECT) | Calculates a rotation matrix from J2000 mean equator (EQJ) to true ecliptic of date (ECT). |
-| [Rotation_EQJ_ECL](#Astronomy_Rotation_EQJ_ECL) | Calculates a rotation matrix from J2000 mean equator (EQJ) to J2000 mean ecliptic (ECL). |
-| [Rotation_EQJ_HOR](#Astronomy_Rotation_EQJ_HOR) | Calculates a rotation matrix from J2000 mean equator (EQJ) to horizontal (HOR). |
-| [Rotation_ECT_EQD](#Astronomy_Rotation_ECT_EQD) | Calculates a rotation matrix from true ecliptic of date (ECT) to true equator of date (EQD). |
-| [Rotation_ECT_EQJ](#Astronomy_Rotation_ECT_EQJ) | Calculates a rotation matrix from true ecliptic of date (ECT) J2000 mean equator (EQJ). |
-| [Rotation_ECL_EQD](#Astronomy_Rotation_ECL_EQD) | Calculates a rotation matrix from J2000 mean ecliptic (ECL) to true true equator of date (EQD). |
-| [Rotation_ECL_EQJ](#Astronomy_Rotation_ECL_EQJ) | Calculates a rotation matrix from J2000 mean ecliptic (ECL) to J2000 mean equator (EQJ). |
-| [Rotation_ECL_HOR](#Astronomy_Rotation_ECL_HOR) | Calculates a rotation matrix from J2000 mean ecliptic (ECL) to horizontal (HOR). |
-| [Rotation_HOR_EQD](#Astronomy_Rotation_HOR_EQD) | Calculates a rotation matrix from horizontal (HOR) to true equator of date (EQD). |
-| [Rotation_HOR_EQJ](#Astronomy_Rotation_HOR_EQJ) | Calculates a rotation matrix from horizontal (HOR) to J2000 mean equator (EQJ). |
-| [Rotation_HOR_ECL](#Astronomy_Rotation_HOR_ECL) | Calculates a rotation matrix from horizontal (HOR) to J2000 mean ecliptic (ECL). |
-| [Rotation_EQJ_GAL](#Astronomy_Rotation_EQJ_GAL) | Calculates a rotation matrix from J2000 mean equator (EQJ) to galactic (GAL). |
-| [Rotation_GAL_EQJ](#Astronomy_Rotation_EQJ_GAL) | Calculates a rotation matrix from galactic (GAL) to J2000 mean equator (EQJ). |
-
-### Gravitational simulation of small bodies
-
-Astronomy Engine provides a generic gravity simulator that allows you to
-model the trajectories of one or more small bodies like asteroids,
-comets, or coasting spacecraft. If you know an initial position vector
-and velocity vector for a small body, the gravity simulator can incrementally
-simulate the pull of gravity on it from the Sun and planets, to calculate its
-movement through the Solar System.
-
-| Function | Description |
-| -------- | ----------- |
-| [GravSimInit](#Astronomy_GravSimInit) | Creates a gravity simulator object. |
-| [GravSimFree](#Astronomy_GravSimFree) | Releases memory allocated to a gravity simulator object. |
-| [GravSimUpdate](#Astronomy_GravSimUpdate) | Advances the gravity simulation by a small time step. |
-| [GravSimSwap](#Astronomy_GravSimSwap) | Exchanges the current time step with the previous time step. |
-| [GravSimTime](#Astronomy_GravSimTime) | Returns the time of the current simulation step. |
-| [GravSimBodyState](#Astronomy_GravSimBodyState) | Get the position and velocity of a Solar System body included in the simulation. |
-| [GravSimNumBodies](#Astronomy_GravSimNumBodies) | Returns the number of small bodies represented in this simulation. |
-| [GravSimOrigin](#Astronomy_GravSimOrigin) | Returns the body whose center is the coordinate origin that small bodies are referenced to. |
-
----
-
-
-
-## Functions
-
-
-
----
-
-
-### Astronomy_AddDays(time, days) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Calculates the sum or difference of an [`astro_time_t`](#astro_time_t) with a specified floating point number of days.**
-
-
-
-Sometimes we need to adjust a given [`astro_time_t`](#astro_time_t) value by a certain amount of time. This function adds the given real number of days in `days` to the date and time in `time`.
-
-More precisely, the result's Universal Time field `ut` is exactly adjusted by `days` and the Terrestrial Time field `tt` is adjusted correctly for the resulting UTC date and time, according to the historical and predictive Delta-T model provided by the [United States Naval Observatory](http://maia.usno.navy.mil/ser7/).
-
-The value stored in `time` will not be modified; it is passed by value.
-
-
-
-**Returns:** A date and time that is conceptually equal to `time + days`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | A date and time for which to calculate an adjusted date and time. |
-| `double` | `days` | A floating point number of days by which to adjust `time`. May be negative, 0, or positive. |
-
-
-
-
----
-
-
-### Astronomy_AngleBetween(a, b) ⇒ [`astro_angle_result_t`](#astro_angle_result_t)
-
-**Calculates the angle between two vectors.**
-
-
-
-Given a pair of vectors, this function returns the angle in degrees between the two vectors in 3D space. The angle is measured in the plane that contains both vectors.
-
-
-
-**Returns:** On success, the `status` field holds `ASTRO_SUCCESS` and `angle` holds a number of degrees in the range [0, 180]. If either vector has a zero magnitude or contains NAN (not a number) components, the `status` will hold the error code `ASTRO_BAD_VECTOR`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `a` | The first vector. |
-| [`astro_vector_t`](#astro_vector_t) | `b` | The second vector. |
-
-
-
-
----
-
-
-### Astronomy_AngleFromSun(body, time) ⇒ [`astro_angle_result_t`](#astro_angle_result_t)
-
-**Returns the angle between the given body and the Sun, as seen from the Earth.**
-
-
-
-This function calculates the angular separation between the given body and the Sun, as seen from the center of the Earth. This angle is helpful for determining how easy it is to see the body away from the glare of the Sun.
-
-
-
-**Returns:** If successful, the returned structure contains `ASTRO_SUCCESS` in the `status` field and `angle` holds the angle in degrees between the Sun and the specified body as seen from the center of the Earth. If an error occurs, the `status` field contains a value other than `ASTRO_SUCCESS` that indicates the error condition.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body whose angle from the Sun is to be measured. Not allowed to be `BODY_EARTH`. |
-| [`astro_time_t`](#astro_time_t) | `time` | The time at which the observation is made. |
-
-
-
-
----
-
-
-### Astronomy_Atmosphere(elevationMeters) ⇒ [`astro_atmosphere_t`](#astro_atmosphere_t)
-
-**Calculates U.S. Standard Atmosphere (1976) variables as a function of elevation.**
-
-
-
-This function calculates idealized values of pressure, temperature, and density using the U.S. Standard Atmosphere (1976) model.
-
-See: [https://hbcp.chemnetbase.com/faces/documents/14_12/14_12_0001.xhtml](https://hbcp.chemnetbase.com/faces/documents/14_12/14_12_0001.xhtml)[https://ntrs.nasa.gov/api/citations/19770009539/downloads/19770009539.pdf](https://ntrs.nasa.gov/api/citations/19770009539/downloads/19770009539.pdf)[https://www.ngdc.noaa.gov/stp/space-weather/online-publications/miscellaneous/us-standard-atmosphere-1976/us-standard-atmosphere_st76-1562_noaa.pdf](https://www.ngdc.noaa.gov/stp/space-weather/online-publications/miscellaneous/us-standard-atmosphere-1976/us-standard-atmosphere_st76-1562_noaa.pdf)
-
-
-
-**Returns:** astro_atmosphere_tp0
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `elevationMeters` | The elevation above sea level at which to calculate atmospheric variables. The value must be at least -500 to +100000, or the function will fail with status `ASTRO_INVALID_PARAMETER`. |
-
-
-
-
----
-
-
-### Astronomy_BackdatePosition(time, observerBody, targetBody, aberration) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Solve for light travel time correction of apparent position.**
-
-
-
-When observing a distant object, for example Jupiter as seen from Earth, the amount of time it takes for light to travel from the object to the observer can significantly affect the object's apparent position.
-
-This function solves the light travel time correction for the apparent relative position vector of a target body as seen by an observer body at a given observation time.
-
-For geocentric calculations, [`Astronomy_GeoVector`](#Astronomy_GeoVector) also includes light travel time correction, but the time `t` embedded in its returned vector refers to the observation time, not the backdated time that light left the observed body. Thus `Astronomy_BackdatePosition` provides direct access to the light departure time for callers that need it.
-
-For a more generalized light travel correction solver, see [`Astronomy_CorrectLightTravel`](#Astronomy_CorrectLightTravel).
-
-
-
-**Returns:** On success, the position vector at the solved backdated time. The returned vector will hold `ASTRO_SUCCESS` in its `status` field, the backdated time in its `t` field, along with the apparent relative position. If an error occurs, `status` will hold an error code and the remaining fields should be ignored.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The time of observation. |
-| [`astro_body_t`](#astro_body_t) | `observerBody` | The body to be used as the observation location. |
-| [`astro_body_t`](#astro_body_t) | `targetBody` | The body to be observed. |
-| [`astro_aberration_t`](#astro_aberration_t) | `aberration` | `ABERRATION` to correct for aberration, or `NO_ABERRATION` to leave uncorrected. |
-
-
-
-
----
-
-
-### Astronomy_BaryState(body, time) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates barycentric position and velocity vectors for the given body.**
-
-
-
-Given a body and a time, calculates the barycentric position and velocity vectors for the center of that body at that time. The vectors are expressed in J2000 mean equator coordinates (EQJ).
-
-
-
-**Returns:** A structure that contains barycentric position and velocity vectors.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body whose barycentric state vector is to be calculated. Supported values are `BODY_SUN`, `BODY_MOON`, `BODY_EMB`, `BODY_SSB`, and all planets: `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`, `BODY_JUPITER`, `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate position and velocity. |
-
-
-
-
----
-
-
-### Astronomy_BodyCode(name) ⇒ [`astro_body_t`](#astro_body_t)
-
-**Returns the [`astro_body_t`](#astro_body_t) value corresponding to the given English name.**
-
-
-
-
-
-**Returns:** If `name` is one of the listed strings (case-sensitive), the returned value is the corresponding [`astro_body_t`](#astro_body_t) value, otherwise it is `BODY_INVALID`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `const char *` | `name` | One of the following strings: Sun, Moon, Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune, Pluto, EMB, SSB. |
-
-
-
-
----
-
-
-### Astronomy_BodyName(body) ⇒ `const char *`
-
-**Finds the name of a celestial body.**
-
-
-
-
-
-**Returns:** The English-language name of the celestial body, or "" if the body is not valid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body whose name is to be found. |
-
-
-
-
----
-
-
-### Astronomy_CombineRotation(a, b) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Creates a rotation based on applying one rotation followed by another.**
-
-
-
-Given two rotation matrices, returns a combined rotation matrix that is equivalent to rotating based on the first matrix, followed by the second.
-
-
-
-**Returns:** The combined rotation matrix.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_rotation_t`](#astro_rotation_t) | `a` | The first rotation to apply. |
-| [`astro_rotation_t`](#astro_rotation_t) | `b` | The second rotation to apply. |
-
-
-
-
----
-
-
-### Astronomy_Constellation(ra, dec) ⇒ [`astro_constellation_t`](#astro_constellation_t)
-
-**Determines the constellation that contains the given point in the sky.**
-
-
-
-Given J2000 equatorial (EQJ) coordinates of a point in the sky, determines the constellation that contains that point.
-
-
-
-**Returns:** If successful, `status` holds `ASTRO_SUCCESS`, `symbol` holds a pointer to a 3-character string like "Ori", and `name` holds a pointer to the full constellation name like "Orion".
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `ra` | The right ascension (RA) of a point in the sky, using the J2000 equatorial system. |
-| `double` | `dec` | The declination (DEC) of a point in the sky, using the J2000 equatorial system. |
-
-
-
-
----
-
-
-### Astronomy_CorrectLightTravel(context, func, time) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Solve for light travel time of a vector function.**
-
-
-
-When observing a distant object, for example Jupiter as seen from Earth, the amount of time it takes for light to travel from the object to the observer can significantly affect the object's apparent position. This function is a generic solver that figures out how long in the past light must have left the observed object to reach the observer at the specified observation time. It uses a context/function pair as a generic interface that expresses an arbitrary position vector as a function of time.
-
-This function repeatedly calls `func`, passing `context` and a series of time estimates in the past. Then `func` must return a relative position vector between the observer and the target. `Astronomy_CorrectLightTravel` keeps calling `func` with more and more refined estimates of the time light must have left the target to arrive at the observer.
-
-For common use cases, it is simpler to use [`Astronomy_BackdatePosition`](#Astronomy_BackdatePosition) for calculating the light travel time correction of one body observing another body.
-
-For geocentric calculations, [`Astronomy_GeoVector`](#Astronomy_GeoVector) also backdates the returned position vector for light travel time, only it returns the observation time in the returned vector's `t` field rather than the backdated time.
-
-
-
-**Returns:** The position vector returned by `func` at the solved backdated time. On success, the vector will hold `ASTRO_SUCCESS` in its `status` field, the backdated time in its `t` field, along with the apparent relative position. If an error occurs, `status` will hold an error code and the remaining fields should be ignored.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `void *` | `context` | Holds any parameters needed by `func`. |
-| [`astro_position_func_t`](#astro_position_func_t) | `func` | Pointer to a function that returns a relative position vector as a function of time. |
-| [`astro_time_t`](#astro_time_t) | `time` | The observation time for which to solve for light travel delay. |
-
-
-
-
----
-
-
-### Astronomy_CurrentTime() ⇒ [`astro_time_t`](#astro_time_t)
-
-**Returns the computer's current date and time in the form of an [`astro_time_t`](#astro_time_t).**
-
-
-
-Uses the computer's system clock to find the current UTC date and time. Converts that date and time to an [`astro_time_t`](#astro_time_t) value and returns the result. Callers can pass this value to other Astronomy Engine functions to calculate current observational conditions.
-
-On supported platforms (Linux/Unix, Mac, Windows), the time is measured with microsecond resolution.
-
-On unsupported platforms, a compiler error will occur due to lack of microsecond resolution support. However, if whole second resolution is good enough for your application, you can define the preprocessor symbol `ASTRONOMY_ENGINE_WHOLE_SECOND` to use the portable function `time(NULL)`. Alternatively, if you do not need to use `Astronomy_CurrentTime`, you can define the preprocessor symbol `ASTRONOMY_ENGINE_NO_CURRENT_TIME` to exclude this function from your code.
-
----
-
-
-### Astronomy_DefineStar(body, ra, dec, distanceLightYears) ⇒ [`astro_status_t`](#astro_status_t)
-
-**Assign equatorial coordinates to a user-defined star.**
-
-
-
-Some Astronomy Engine functions allow their `body` parameter to be a user-defined fixed point in the sky, loosely called a "star". This function assigns a right ascension, declination, and distance to one of the eight user-defined stars `BODY_STAR1` .. `BODY_STAR8`.
-
-Stars are not valid until defined. Once defined, they retain their definition until re-defined by another call to `Astronomy_DefineStar`.
-
-
-
-**Returns:** `ASTRO_SUCCESS` indicates the star has been defined. Any other value indicates an error, in which case no change has taken place to any of the star definitions.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | One of the eight user-defined star identifiers: `BODY_STAR1` .. `BODY_STAR8`. |
-| `double` | `ra` | The right ascension to be assigned to the star, expressed in J2000 equatorial coordinates (EQJ). The value is in units of sidereal hours, and must be within the half-open range [0, 24). |
-| `double` | `dec` | The declination to be assigned to the star, expressed in J2000 equatorial coordinates (EQJ). The value is in units of degrees north (positive) or south (negative) of the J2000 equator, and must be within the closed range [-90, +90]. |
-| `double` | `distanceLightYears` | The distance between the star and the Sun, expressed in light-years. This value is used to calculate the tiny parallax shift as seen by an observer on Earth. If you don't know the distance to the star, using a large value like 1000 will generally work well. The minimum allowed distance is 1 light-year, which is required to provide certain internal optimizations. |
-
-
-
-
----
-
-
-### Astronomy_DeltaT_EspenakMeeus(ut) ⇒ `double`
-
-**The default Delta T function used by Astronomy Engine.**
-
-
-
-Espenak and Meeus use a series of piecewise polynomials to approximate DeltaT of the Earth in their "Five Millennium Canon of Solar Eclipses". See: [https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html](https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html) This is the default Delta T function used by Astronomy Engine.
-
-
-
-**Returns:** The estimated difference TT-UT on the given date, expressed in seconds.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `ut` | The floating point number of days since noon UTC on January 1, 2000. |
-
-
-
-
----
-
-
-### Astronomy_DeltaT_JplHorizons(ut) ⇒ `double`
-
-**A Delta T function that approximates the one used by the JPL Horizons tool.**
-
-
-
-In order to support unit tests based on data generated by the JPL Horizons online tool, I had to reverse engineer their Delta T function by generating a table that contained it. The main difference between their tool and the Espenak/Meeus function is that they stop extrapolating the Earth's deceleration after the year 2017.
-
-
-
-**Returns:** The estimated difference TT-UT on the given date, expressed in seconds.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `ut` | The floating point number of days since noon UTC on January 1, 2000. |
-
-
-
-
----
-
-
-### Astronomy_Ecliptic(eqj) ⇒ [`astro_ecliptic_t`](#astro_ecliptic_t)
-
-**Converts a J2000 mean equator (EQJ) vector to a true ecliptic of date (ETC) vector and angles.**
-
-
-
-Given coordinates relative to the Earth's equator at J2000 (the instant of noon UTC on 1 January 2000), this function converts those coordinates to true ecliptic coordinates that are relative to the plane of the Earth's orbit around the Sun on that date.
-
-
-
-**Returns:** Spherical and vector coordinates expressed in true ecliptic coordinates of date (ECT).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `eqj` | Equatorial coordinates in the EQJ frame of reference. You can call [`Astronomy_GeoVector`](#Astronomy_GeoVector) to obtain suitable equatorial coordinates. |
-
-
-
-
----
-
-
-### Astronomy_EclipticGeoMoon(time) ⇒ [`astro_spherical_t`](#astro_spherical_t)
-
-**Calculates spherical ecliptic geocentric position of the Moon.**
-
-
-
-Given a time of observation, calculates the Moon's geocentric position in ecliptic spherical coordinates. Provides the ecliptic latitude and longitude in degrees, and the geocentric distance in astronomical units (AU).
-
-The ecliptic angles are measured in "ECT": relative to the true ecliptic plane and equatorial plane at the specified time. This means the Earth's equator is corrected for precession and nutation, and the plane of the Earth's orbit is corrected for gradual obliquity drift.
-
-This algorithm is based on the Nautical Almanac Office's *Improved Lunar Ephemeris* of 1954, which in turn derives from E. W. Brown's lunar theories from the early twentieth century. It is adapted from Turbo Pascal code from the book [Astronomy on the Personal Computer](https://www.springer.com/us/book/9783540672210) by Montenbruck and Pfleger.
-
-To calculate a J2000 mean equator vector instead, use [`Astronomy_GeoMoon`](#Astronomy_GeoMoon).
-
-
-
-**Returns:** The Moon's position expressed in ecliptic coordinates using the true equinox of date (ECT).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the Moon's position. |
-
-
-
-
----
-
-
-### Astronomy_EclipticLongitude(body, time) ⇒ [`astro_angle_result_t`](#astro_angle_result_t)
-
-**Calculates heliocentric ecliptic longitude of a body.**
-
-
-
-This function calculates the angle around the plane of the Earth's orbit of a celestial body, as seen from the center of the Sun. The angle is measured prograde (in the direction of the Earth's orbit around the Sun) in degrees from the true equinox of date. The ecliptic longitude is always in the range [0, 360).
-
-
-
-**Returns:** On success, returns a structure whose `status` is `ASTRO_SUCCESS` and whose `angle` holds the ecliptic longitude in degrees. On failure, `status` holds a value other than `ASTRO_SUCCESS`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | A body other than the Sun. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time at which the body's ecliptic longitude is to be calculated. |
-
-
-
-
----
-
-
-### Astronomy_Elongation(body, time) ⇒ [`astro_elongation_t`](#astro_elongation_t)
-
-**Determines visibility of a celestial body relative to the Sun, as seen from the Earth.**
-
-
-
-This function returns an [`astro_elongation_t`](#astro_elongation_t) structure, which provides the following information about the given celestial body at the given time:
-
-
-
-- `visibility` is an enumerated type that specifies whether the body is more easily seen in the morning before sunrise, or in the evening after sunset.
-- `elongation` is the angle in degrees between two vectors: one from the center of the Earth to the center of the Sun, the other from the center of the Earth to the center of the specified body. This angle indicates how far away the body is from the glare of the Sun. The elongation angle is always in the range [0, 180].
-- `ecliptic_separation` is the absolute value of the difference between the body's ecliptic longitude and the Sun's ecliptic longitude, both as seen from the center of the Earth. This angle measures around the plane of the Earth's orbit, and ignores how far above or below that plane the body is. The ecliptic separation is measured in degrees and is always in the range [0, 180].
-
-
-
-
-**Returns:** If successful, the `status` field in the returned structure contains `ASTRO_SUCCESS` and all the other fields in the structure are valid. On failure, `status` contains some other value as an error code and the other fields contain invalid values.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body whose visibility is to be calculated. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-
-
-
-
----
-
-
-### Astronomy_Equator(body, time, observer, equdate, aberration) ⇒ [`astro_equatorial_t`](#astro_equatorial_t)
-
-**Calculates equatorial coordinates of a celestial body as seen by an observer on the Earth's surface.**
-
-
-
-Calculates topocentric equatorial coordinates in one of two different systems: J2000 or true-equator-of-date, depending on the value of the `equdate` parameter. Equatorial coordinates include right ascension, declination, and distance in astronomical units.
-
-This function corrects for light travel time: it adjusts the apparent location of the observed body based on how long it takes for light to travel from the body to the Earth.
-
-This function corrects for *topocentric parallax*, meaning that it adjusts for the angular shift depending on where the observer is located on the Earth. This is most significant for the Moon, because it is so close to the Earth. However, parallax corection has a small effect on the apparent positions of other bodies.
-
-Correction for aberration is optional, using the `aberration` parameter.
-
-
-
-**Returns:** Topocentric equatorial coordinates of the celestial body.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body to be observed. Not allowed to be `BODY_EARTH`. |
-| astro_time_t * | `time` | The date and time at which the observation takes place. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location on or near the surface of the Earth. |
-| [`astro_equator_date_t`](#astro_equator_date_t) | `equdate` | Selects the date of the Earth's equator in which to express the equatorial coordinates. |
-| [`astro_aberration_t`](#astro_aberration_t) | `aberration` | Selects whether or not to correct for aberration. |
-
-
-
-
----
-
-
-### Astronomy_EquatorFromVector(vector) ⇒ [`astro_equatorial_t`](#astro_equatorial_t)
-
-**Given an equatorial vector, calculates equatorial angular coordinates.**
-
-
-
-
-
-**Returns:** Angular coordinates expressed in the same equatorial system as `vector`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `vector` | A vector in an equatorial coordinate system. |
-
-
-
-
----
-
-
-### Astronomy_FormatTime(time, format, text, size) ⇒ [`astro_status_t`](#astro_status_t)
-
-**Formats an [`astro_time_t`](#astro_time_t) value as an ISO 8601 string.**
-
-
-
-Given an [`astro_time_t`](#astro_time_t) value `time`, formats it as an ISO 8601 string to the resolution specified by the `format` parameter. The result is stored in the `text` buffer whose capacity in bytes is specified by `size`.
-
-
-
-**Returns:** `ASTRO_SUCCESS` on success; otherwise an error as described in the parameter notes.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time whose civil time `time.ut` is to be formatted as an ISO 8601 string. If the civil time is outside the year range -999999 to +999999, the function fails and returns `ASTRO_BAD_TIME`. Years prior to 1583 are treated as if they are using the modern Gregorian calendar, even when the Julian calendar was actually in effect. The year before 1 AD, commonly known as 1 BC, is represented by the value 0. The year 2 BC is represented by -1, etc. |
-| [`astro_time_format_t`](#astro_time_format_t) | `format` | Specifies the resolution to which the date and time should be formatted, as explained at [`astro_time_format_t`](#astro_time_format_t). If the value of `format` is not recognized, the function fails and returns `ASTRO_INVALID_PARAMETER`. |
-| `char *` | `text` | A pointer to a text buffer to receive the output. If `text` is `NULL`, this function returns `ASTRO_INVALID_PARAMETER`. If the function fails for any reason, and `text` is not `NULL`, and `size` is greater than 0, the `text` buffer is set to an empty string. |
-| `size_t` | `size` | The size in bytes of the buffer pointed to by `text`. The buffer must be large enough to accomodate the output format selected by the `format` parameter, as specified at [`astro_time_format_t`](#astro_time_format_t). If `size` is too small to hold the string as specified by `format`, the `text` buffer is set to `""` (if possible) and the function returns `ASTRO_BUFFER_TOO_SMALL`. A buffer that is `TIME_TEXT_BYTES` (28) bytes or larger is always large enough for this function. |
-
-
-
-
----
-
-
-### Astronomy_GeoEmbState(time) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates the geocentric position and velocity of the Earth/Moon barycenter.**
-
-
-
-Given a time of observation, calculates the geocentric position and velocity vectors of the Earth/Moon barycenter (EMB). The position (x, y, z) components are expressed in AU (astronomical units). The velocity (vx, vy, vz) components are expressed in AU/day. The coordinates are oriented with respect to the Earth's equator at the J2000 epoch. In Astronomy Engine, this orientation is called EQJ.
-
-
-
-**Returns:** The EMB's position and velocity vectors in geocentric J2000 equatorial coordinates.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the EMB vectors. |
-
-
-
-
----
-
-
-### Astronomy_GeoMoon(time) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Calculates equatorial geocentric position of the Moon at a given time.**
-
-
-
-Given a time of observation, calculates the Moon's position as a vector. The vector gives the location of the Moon's center relative to the Earth's center with x-, y-, and z-components measured in astronomical units. The coordinates are oriented with respect to the Earth's equator at the J2000 epoch. In Astronomy Engine, this orientation is called EQJ.
-
-This algorithm is based on the Nautical Almanac Office's *Improved Lunar Ephemeris* of 1954, which in turn derives from E. W. Brown's lunar theories from the early twentieth century. It is adapted from Turbo Pascal code from the book [Astronomy on the Personal Computer](https://www.springer.com/us/book/9783540672210) by Montenbruck and Pfleger.
-
-To calculate ecliptic spherical coordinates instead, see [`Astronomy_EclipticGeoMoon`](#Astronomy_EclipticGeoMoon).
-
-
-
-**Returns:** The Moon's position as a vector in J2000 Cartesian equatorial (EQJ) coordinates.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the Moon's position. |
-
-
-
-
----
-
-
-### Astronomy_GeoMoonState(time) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates equatorial geocentric position and velocity of the Moon at a given time.**
-
-
-
-Given a time of observation, calculates the Moon's position and velocity vectors. The position and velocity are of the Moon's center relative to the Earth's center. The position (x, y, z) components are expressed in AU (astronomical units). The velocity (vx, vy, vz) components are expressed in AU/day. The coordinates are oriented with respect to the Earth's equator at the J2000 epoch. In Astronomy Engine, this orientation is called EQJ.
-
-If you need the Moon's position only, and not its velocity, it is much more efficient to use [`Astronomy_GeoMoon`](#Astronomy_GeoMoon) instead.
-
-
-
-**Returns:** The Moon's position and velocity vectors in J2000 equatorial coordinates (EQJ).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the Moon's position and velocity. |
-
-
-
-
----
-
-
-### Astronomy_GeoVector(body, time, aberration) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Calculates geocentric Cartesian coordinates of a body in the J2000 equatorial system.**
-
-
-
-This function calculates the position of the given celestial body as a vector, using the center of the Earth as the origin. The result is expressed as a Cartesian vector in the J2000 equatorial system: the coordinates are based on the mean equator of the Earth at noon UTC on 1 January 2000.
-
-If given an invalid value for `body`, this function will fail. The caller should always check the `status` field inside the returned [`astro_vector_t`](#astro_vector_t) for `ASTRO_SUCCESS` (success) or any other value (failure) before trusting the resulting vector.
-
-Unlike [`Astronomy_HelioVector`](#Astronomy_HelioVector), this function corrects for light travel time. This means the position of the body is "back-dated" by the amount of time it takes light to travel from that body to an observer on the Earth.
-
-Also, the position can optionally be corrected for [aberration](https://en.wikipedia.org/wiki/Aberration_of_light), an effect causing the apparent direction of the body to be shifted due to transverse movement of the Earth with respect to the rays of light coming from that body.
-
-
-
-**Returns:** A geocentric position vector of the center of the given body.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | A body for which to calculate a heliocentric position: the Sun, Moon, or any of the planets. Can also be a star defined by [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the position. |
-| [`astro_aberration_t`](#astro_aberration_t) | `aberration` | `ABERRATION` to correct for aberration, or `NO_ABERRATION` to leave uncorrected. |
-
-
-
-
----
-
-
-### Astronomy_GravSimBodyState(sim, body) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Get the position and velocity of a Solar System body included in the simulation.**
-
-
-
-In order to simulate the movement of small bodies through the Solar System, the simulator needs to calculate the state vectors for the Sun and planets.
-
-If an application wants to know the positions of one or more of the planets in addition to the small bodies, this function provides a way to obtain their state vectors. This is provided for the sake of efficiency, to avoid redundant calculations.
-
-
-
-**Returns:** If the given body is part of the set of calculated bodies (Sun and planets), returns the current time step's state vector for that body, expressed in the coordinate system that was specified by the `originBody` parameter to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). Success is indicated by the returned structure's `status` field holding `ASTRO_SUCCESS`. Any other `status` value indicates an error, meaning the returned state vector is invalid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_grav_sim_t * | `sim` | A gravity simulator object created by a successful call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-| [`astro_body_t`](#astro_body_t) | `body` | The Sun, Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, or Neptune. |
-
-
-
-
----
-
-
-### Astronomy_GravSimFree(sim) ⇒ `void`
-
-**Releases memory allocated to a gravity simulator object.**
-
-
-
-To avoid memory leaks, any successful call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit) must be paired with a matching call to `Astronomy_GravSimFree`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_grav_sim_t * | `sim` | A gravity simulator object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-
-
-
-
----
-
-
-### Astronomy_GravSimInit(simOut, originBody, time, numBodies, bodyStateArray) ⇒ [`astro_status_t`](#astro_status_t)
-
-**Allocate and initialize a gravity step simulator.**
-
-
-
-Prepares to simulate a series of incremental time steps, simulating the movement of zero or more small bodies through the Solar System acting under gravitational attraction from the Sun and planets.
-
-After calling this function, you can call [`Astronomy_GravSimUpdate`](#Astronomy_GravSimUpdate) as many times as desired to advance the simulation by small time steps.
-
-If this function succeeds (returns `ASTRO_SUCCESS`), `sim` will be set to a dynamically allocated object. The caller is then responsible for eventually calling [`Astronomy_GravSimFree`](#Astronomy_GravSimFree) to release the memory.
-
-
-
-**Returns:** `ASTRO_SUCCESS` on success, with `*sim` set to a non-NULL value. Otherwise an error code with `*sim` set to NULL.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_grav_sim_t ** | `simOut` | The address of a pointer to store the newly allocated simulation object. The type [`astro_grav_sim_t`](#astro_grav_sim_t) is an opaque type, so its internal structure is not documented. |
-| [`astro_body_t`](#astro_body_t) | `originBody` | Specifies the origin of the reference frame. All position vectors and velocity vectors will use `originBody` as the origin of the coordinate system. This origin applies to all the input vectors provided in the `bodyStateArray` parameter of this function, along with all output vectors returned by [`Astronomy_GravSimUpdate`](#Astronomy_GravSimUpdate). Most callers will want to provide one of the following: `BODY_SUN` for heliocentric coordinates, `BODY_SSB` for solar system barycentric coordinates, or `BODY_EARTH` for geocentric coordinates. Note that the gravity simulator does not correct for light travel time; all state vectors are tied to a Newtonian "instantaneous" time. |
-| [`astro_time_t`](#astro_time_t) | `time` | The initial time at which to start the simulation. |
-| `int` | `numBodies` | The number of small bodies to be simulated. This may be any non-negative integer. |
-| `const astro_state_vector_t *` | `bodyStateArray` | An array of initial state vectors (positions and velocities) of the small bodies to be simulated. The caller must know the positions and velocities of the small bodies at an initial moment in time. Their positions and velocities are expressed with respect to `originBody`, using J2000 mean equator orientation (EQJ). Positions are expressed in astronomical units (AU). Velocities are expressed in AU/day. All the times embedded within the state vectors must be exactly equal to `time`, or this function will fail with the error `ASTRO_INCONSISTENT_TIMES`. |
-
-
-
-
----
-
-
-### Astronomy_GravSimNumBodies(sim) ⇒ `int`
-
-**Returns the number of small bodies represented in this simulation.**
-
-
-
-When a simulation is created by a call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit), the caller specifies the number of small bodies. This function returns that same number, which may be convenient for a caller, so that it does not need to track the body count separately.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `const astro_grav_sim_t *` | `sim` | A gravity simulator object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-
-
-
-
----
-
-
-### Astronomy_GravSimOrigin(sim) ⇒ [`astro_body_t`](#astro_body_t)
-
-**Returns the body whose center is the coordinate origin that small bodies are referenced to.**
-
-
-
-When a simulation is created by a call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit), the caller specifies an `originBody` to indicate the coordinate origin used to represent the small bodies being simulated. This function returns that same [`astro_body_t`](#astro_body_t) value.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `const astro_grav_sim_t *` | `sim` | A gravity simulator object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-
-
-
-
----
-
-
-### Astronomy_GravSimSwap(sim) ⇒ `void`
-
-**Exchange the current time step with the previous time step.**
-
-
-
-Sometimes it is helpful to "explore" various times near a given simulation time step, while repeatedly returning to the original time step. For example, when backdating a position for light travel time, the caller may wish to repeatedly try different amounts of backdating. When the backdating solver has converged, the caller wants to leave the simulation in its original state.
-
-This function allows a single "undo" of a simulation, and does so very efficiently.
-
-Usually this function will be called immediately after a matching call to [`Astronomy_GravSimUpdate`](#Astronomy_GravSimUpdate). It has the effect of rolling back the most recent update. If called twice in a row, it reverts the swap and thus has no net effect.
-
-[`Astronomy_GravSimInit`](#Astronomy_GravSimInit) initializes the current state and previous state to be identical. Both states represent the `time` parameter that was passed into the initializer. Therefore, `Astronomy_GravSimSwap` will have no effect from the caller's point of view when passed a simulator that has not yet been updated by a call to [`Astronomy_GravSimUpdate`](#Astronomy_GravSimUpdate).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_grav_sim_t * | `sim` | A gravity simulator object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-
-
-
-
----
-
-
-### Astronomy_GravSimTime(sim) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Returns the time of the current simulation step.**
-
-
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `const astro_grav_sim_t *` | `sim` | A gravity simulator object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-
-
-
-
----
-
-
-### Astronomy_GravSimUpdate(sim, time, numBodies, bodyStateArray) ⇒ [`astro_status_t`](#astro_status_t)
-
-**Advances a gravity simulation by a small time step.**
-
-
-
-
-
-**Returns:** `ASTRO_SUCCESS` if the calculation was successful. Otherwise, an error code if something went wrong, in which case the simulation should be considered "broken". This means there is no reliable output in `bodyStateArray` and that no more calculations can be performed with `sim`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_grav_sim_t * | `sim` | A simulation object that was created by a prior call to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit). |
-| [`astro_time_t`](#astro_time_t) | `time` | A time that is a small increment away from the current simulation time. It is up to the developer to figure out an appropriate time increment. Depending on the trajectories, a smaller or larger increment may be needed for the desired accuracy. Some experimentation may be needed. Generally, bodies that stay in the outer Solar System and move slowly can use larger time steps. Bodies that pass into the inner Solar System and move faster will need a smaller time step to maintain accuracy. The `time` value may be after or before the current simulation time to move forward or backward in time. |
-| `int` | `numBodies` | The number of bodies whose state vectors are to be updated. This is the number of elements in the `bodyStateArray`. This parameter is passed as a sanity check, and must be equal to the value passed to [`Astronomy_GravSimInit`](#Astronomy_GravSimInit) when `sim` was created. |
-| astro_state_vector_t * | `bodyStateArray` | An array big enough to hold `numBodies` state vectors, to receive the updated positions and velocities of the simulated small bodies. Alternatively, `bodyStateArray` may be NULL if the output of this simulation step is not needed. This makes the call slightly faster. |
-
-
-
-
----
-
-
-### Astronomy_HelioDistance(body, time) ⇒ [`astro_func_result_t`](#astro_func_result_t)
-
-**Calculates the distance from a body to the Sun at a given time.**
-
-
-
-Given a date and time, this function calculates the distance between the center of `body` and the center of the Sun. For the planets Mercury through Neptune, this function is significantly more efficient than calling [`Astronomy_HelioVector`](#Astronomy_HelioVector) followed by [`Astronomy_VectorLength`](#Astronomy_VectorLength).
-
-
-
-**Returns:** If successful, an [`astro_func_result_t`](#astro_func_result_t) structure whose `status` is `ASTRO_SUCCESS` and whose `value` holds the heliocentric distance in AU. Otherwise, `status` reports an error condition.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | A body for which to calculate a heliocentric distance: the Sun, Moon, any of the planets, or a user-defined star. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the heliocentric distance. |
-
-
-
-
----
-
-
-### Astronomy_HelioState(body, time) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates heliocentric position and velocity vectors for the given body.**
-
-
-
-Given a body and a time, calculates the position and velocity vectors for the center of that body at that time, relative to the center of the Sun. The vectors are expressed in J2000 mean equator coordinates (EQJ). If you need the position vector only, it is more efficient to call [`Astronomy_HelioVector`](#Astronomy_HelioVector). The Sun's center is a non-inertial frame of reference. In other words, the Sun experiences acceleration due to gravitational forces, mostly from the larger planets (Jupiter, Saturn, Uranus, and Neptune). If you want to calculate momentum, kinetic energy, or other quantities that require a non-accelerating frame of reference, consider using [`Astronomy_BaryState`](#Astronomy_BaryState) instead.
-
-
-
-**Returns:** A structure that contains heliocentric position and velocity vectors.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The celestial body whose heliocentric state vector is to be calculated. Supported values are `BODY_SUN`, `BODY_MOON`, `BODY_EMB`, `BODY_SSB`, and all planets: `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`, `BODY_JUPITER`, `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`. Also allowed to be a user-defined star created by [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate position and velocity. |
-
-
-
-
----
-
-
-### Astronomy_HelioVector(body, time) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Calculates heliocentric Cartesian coordinates of a body in the J2000 equatorial system.**
-
-
-
-This function calculates the position of the given celestial body as a vector, using the center of the Sun as the origin. The result is expressed as a Cartesian vector in the J2000 equatorial system: the coordinates are based on the mean equator of the Earth at noon UTC on 1 January 2000.
-
-The position is not corrected for light travel time or aberration. This is different from the behavior of [`Astronomy_GeoVector`](#Astronomy_GeoVector).
-
-If given an invalid value for `body`, this function will fail. The caller should always check the `status` field inside the returned [`astro_vector_t`](#astro_vector_t) for `ASTRO_SUCCESS` (success) or any other value (failure) before trusting the resulting vector.
-
-
-
-**Returns:** A heliocentric position vector of the center of the given body.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | A body for which to calculate a heliocentric position: the Sun, Moon, any of the planets, the Solar System Barycenter (SSB), or the Earth Moon Barycenter (EMB). Can also be a star defined by [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the position. |
-
-
-
-
----
-
-
-### Astronomy_Horizon(time, observer, ra, dec, refraction) ⇒ [`astro_horizon_t`](#astro_horizon_t)
-
-**Calculates the apparent location of a body relative to the local horizon of an observer on the Earth.**
-
-
-
-Given a date and time, the geographic location of an observer on the Earth, and equatorial coordinates (right ascension and declination) of a celestial body, this function returns horizontal coordinates (azimuth and altitude angles) for the body relative to the horizon at the geographic location.
-
-The right ascension `ra` and declination `dec` passed in must be *equator of date* coordinates, based on the Earth's true equator at the date and time of the observation. Otherwise the resulting horizontal coordinates will be inaccurate. Equator of date coordinates can be obtained by calling [`Astronomy_Equator`](#Astronomy_Equator), passing in `EQUATOR_OF_DATE` as its `equdate` parameter. It is also recommended to enable aberration correction by passing in `ABERRATION` as the `aberration` parameter.
-
-This function optionally corrects for atmospheric refraction. For most uses, it is recommended to pass `REFRACTION_NORMAL` in the `refraction` parameter to correct for optical lensing of the Earth's atmosphere that causes objects to appear somewhat higher above the horizon than they actually are. However, callers may choose to avoid this correction by passing in `REFRACTION_NONE`. If refraction correction is enabled, the azimuth, altitude, right ascension, and declination in the [`astro_horizon_t`](#astro_horizon_t) structure returned by this function will all be corrected for refraction. If refraction is disabled, none of these four coordinates will be corrected; in that case, the right ascension and declination in the returned structure will be numerically identical to the respective `ra` and `dec` values passed in.
-
-
-
-**Returns:** The body's apparent horizontal coordinates and equatorial coordinates, both optionally corrected for refraction.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the observation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location of the observer. |
-| `double` | `ra` | The right ascension of the body in sidereal hours. See function remarks for more details. |
-| `double` | `dec` | The declination of the body in degrees. See function remarks for more details. |
-| [`astro_refraction_t`](#astro_refraction_t) | `refraction` | Selects whether to correct for atmospheric refraction, and if so, which model to use. The recommended value for most uses is `REFRACTION_NORMAL`. See function remarks for more details. |
-
-
-
-
----
-
-
-### Astronomy_HorizonFromVector(vector, refraction) ⇒ [`astro_spherical_t`](#astro_spherical_t)
-
-**Converts Cartesian coordinates to horizontal coordinates.**
-
-
-
-Given a horizontal Cartesian vector, returns horizontal azimuth and altitude.
-
-*IMPORTANT:* This function differs from [`Astronomy_SphereFromVector`](#Astronomy_SphereFromVector) in two ways:
-
-- `Astronomy_SphereFromVector` returns a `lon` value that represents azimuth defined counterclockwise from north (e.g., west = +90), but this function represents a clockwise rotation (e.g., east = +90). The difference is because `Astronomy_SphereFromVector` is intended to preserve the vector "right-hand rule", while this function defines azimuth in a more traditional way as used in navigation and cartography.
-- This function optionally corrects for atmospheric refraction, while `Astronomy_SphereFromVector` does not.
-
-
-The returned structure contains the azimuth in `lon`. It is measured in degrees clockwise from north: east = +90 degrees, west = +270 degrees.
-
-The altitude is stored in `lat`.
-
-The distance to the observed object is stored in `dist`, and is expressed in astronomical units (AU).
-
-
-
-**Returns:** If successful, `status` holds `ASTRO_SUCCESS` and the other fields are valid as described in the function remarks. Otherwise `status` holds an error code and the other fields are undefined.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `vector` | Cartesian vector to be converted to horizontal coordinates. |
-| [`astro_refraction_t`](#astro_refraction_t) | `refraction` | `REFRACTION_NORMAL`: correct altitude for atmospheric refraction (recommended). `REFRACTION_NONE`: no atmospheric refraction correction is performed. `REFRACTION_JPLHOR`: for JPL Horizons compatibility testing only; not recommended for normal use. |
-
-
-
-
----
-
-
-### Astronomy_HourAngle(body, time, observer) ⇒ [`astro_func_result_t`](#astro_func_result_t)
-
-**Finds the hour angle of a body for a given observer and time.**
-
-
-
-The *hour angle* of a celestial body indicates its position in the sky with respect to the Earth's rotation. The hour angle depends on the location of the observer on the Earth. The hour angle is 0 when the body's center reaches its highest angle above the horizon in a given day. The hour angle increases by 1 unit for every sidereal hour that passes after that point, up to 24 sidereal hours when it reaches the highest point again. So the hour angle indicates the number of hours that have passed since the most recent time that the body has culminated, or reached its highest point.
-
-
-
-**Returns:** [`astro_func_result_t`](#astro_func_result_t) If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS` and `value` holds the hour angle in the half-open range [0, 24). Otherwise, `status` is an error code that indicates failure.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The body whose observed hour angle is to be found. |
-| astro_time_t * | `time` | The time of the observation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location where the observation takes place. |
-
-
-
-
----
-
-
-### Astronomy_IdentityMatrix() ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Creates an identity rotation matrix.**
-
-
-
-Returns a rotation matrix that has no effect on orientation. This matrix can be the starting point for other operations, such as using a series of calls to [`Astronomy_Pivot`](#Astronomy_Pivot) to create a custom rotation matrix.
-
-
-
-**Returns:** The identity matrix.
-
-
-
----
-
-
-### Astronomy_Illumination(body, time) ⇒ [`astro_illum_t`](#astro_illum_t)
-
-**Finds visual magnitude, phase angle, and other illumination information about a celestial body.**
-
-
-
-This function calculates information about how bright a celestial body appears from the Earth, reported as visual magnitude, which is a smaller (or even negative) number for brighter objects and a larger number for dimmer objects.
-
-For bodies other than the Sun, it reports a phase angle, which is the angle in degrees between the Sun and the Earth, as seen from the center of the body. Phase angle indicates what fraction of the body appears illuminated as seen from the Earth. For example, when the phase angle is near zero, it means the body appears "full" as seen from the Earth. A phase angle approaching 180 degrees means the body appears as a thin crescent as seen from the Earth. A phase angle of 90 degrees means the body appears "half full". For the Sun, the phase angle is always reported as 0; the Sun emits light rather than reflecting it, so it doesn't have a phase angle.
-
-When the body is Saturn, the returned structure contains a field `ring_tilt` that holds the tilt angle in degrees of Saturn's rings as seen from the Earth. A value of 0 means the rings appear edge-on, and are thus nearly invisible from the Earth. The `ring_tilt` holds 0 for all bodies other than Saturn.
-
-
-
-**Returns:** On success, the `status` field of the return structure holds `ASTRO_SUCCESS` and the other structure fields are valid. Any other value indicates an error, in which case the remaining structure fields are not valid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The Sun, Moon, or any planet other than the Earth. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-
-
-
-
----
-
-
-### Astronomy_InverseRefraction(refraction, bent_altitude) ⇒ `double`
-
-**Calculates the inverse of an atmospheric refraction angle.**
-
-
-
-Given an observed altitude angle that includes atmospheric refraction, calculates the negative angular correction to obtain the unrefracted altitude. This is useful for cases where observed horizontal coordinates are to be converted to another orientation system, but refraction first must be removed from the observed position.
-
-
-
-**Returns:** The angular adjustment in degrees to be added to the altitude angle to correct for atmospheric lensing. This will be less than or equal to zero.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_refraction_t`](#astro_refraction_t) | `refraction` | The option selecting which refraction correction to use. See [`Astronomy_Refraction`](#Astronomy_Refraction). |
-| `double` | `bent_altitude` | The apparent altitude that includes atmospheric refraction. |
-
-
-
-
----
-
-
-### Astronomy_InverseRotation(rotation) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates the inverse of a rotation matrix.**
-
-
-
-Given a rotation matrix that performs some coordinate transform, this function returns the matrix that reverses that transform.
-
-
-
-**Returns:** A rotation matrix that performs the opposite transformation.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_rotation_t`](#astro_rotation_t) | `rotation` | The rotation matrix to be inverted. |
-
-
-
-
----
-
-
-### Astronomy_JupiterMoons(time) ⇒ [`astro_jupiter_moons_t`](#astro_jupiter_moons_t)
-
-**Calculates jovicentric positions and velocities of Jupiter's largest 4 moons.**
-
-
-
-Calculates position and velocity vectors for Jupiter's moons Io, Europa, Ganymede, and Callisto, at the given date and time. The vectors are jovicentric (relative to the center of Jupiter). Their orientation is the Earth's equatorial system at the J2000 epoch (EQJ). The position components are expressed in astronomical units (AU), and the velocity components are in AU/day.
-
-To convert to heliocentric position vectors, call [`Astronomy_HelioVector`](#Astronomy_HelioVector) with `BODY_JUPITER` to get Jupiter's heliocentric position, then add the jovicentric positions.
-
-Likewise, you can call [`Astronomy_GeoVector`](#Astronomy_GeoVector) with `BODY_JUPITER` to convert to geocentric positions. However, you will have to manually correct for light travel time from the Jupiter system to Earth to figure out what time to pass to `Astronomy_JupiterMoons` to get an accurate picture of how Jupiter and its moons look from Earth.
-
-
-
-**Returns:** Position vectors of Jupiter's largest 4 moons, as described above.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the position vectors. |
-
-
-
-
----
-
-
-### Astronomy_LagrangePoint(point, time, major_body, minor_body) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates one of the 5 Lagrange points for a pair of co-orbiting bodies.**
-
-
-
-Given a more massive "major" body and a much less massive "minor" body, calculates one of the five Lagrange points in relation to the minor body's orbit around the major body. The parameter `point` is an integer that selects the Lagrange point as follows:
-
-1 = the Lagrange point between the major body and minor body. 2 = the Lagrange point on the far side of the minor body. 3 = the Lagrange point on the far side of the major body. 4 = the Lagrange point 60 degrees ahead of the minor body's orbital position. 5 = the Lagrange point 60 degrees behind the minor body's orbital position.
-
-The function returns the state vector for the selected Lagrange point in J2000 mean equator coordinates (EQJ), with respect to the center of the major body.
-
-To calculate Sun/Earth Lagrange points, pass in `BODY_SUN` for `major_body` and `BODY_EMB` (Earth/Moon barycenter) for `minor_body`. For Lagrange points of the Sun and any other planet, pass in that planet (e.g. `BODY_JUPITER`) for `minor_body`. To calculate Earth/Moon Lagrange points, pass in `BODY_EARTH` and `BODY_MOON` for the major and minor bodies respectively.
-
-In some cases, it may be more efficient to call [`Astronomy_LagrangePointFast`](#Astronomy_LagrangePointFast), especially when the state vectors have already been calculated, or are needed for some other purpose.
-
-
-
-**Returns:** The position and velocity of the selected Lagrange point with respect to the major body's center.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `int` | `point` | A value 1..5 that selects which of the Lagrange points to calculate. |
-| [`astro_time_t`](#astro_time_t) | `time` | The time at which the Lagrange point is to be calculated. |
-| [`astro_body_t`](#astro_body_t) | `major_body` | The more massive of the co-orbiting bodies: `BODY_SUN` or `BODY_EARTH`. |
-| [`astro_body_t`](#astro_body_t) | `minor_body` | The less massive of the co-orbiting bodies. See main remarks. |
-
-
-
-
----
-
-
-### Astronomy_LagrangePointFast(point, major_state, major_mass, minor_state, minor_mass) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates one of the 5 Lagrange points from body masses and state vectors.**
-
-
-
-Given a more massive "major" body and a much less massive "minor" body, calculates one of the five Lagrange points in relation to the minor body's orbit around the major body. The parameter `point` is an integer that selects the Lagrange point as follows:
-
-1 = the Lagrange point between the major body and minor body. 2 = the Lagrange point on the far side of the minor body. 3 = the Lagrange point on the far side of the major body. 4 = the Lagrange point 60 degrees ahead of the minor body's orbital position. 5 = the Lagrange point 60 degrees behind the minor body's orbital position.
-
-The caller passes in the state vector and mass for both bodies. The state vectors can be in any orientation and frame of reference. The body masses are expressed as GM products, where G = the universal gravitation constant and M = the body's mass. Thus the units for `major_mass` and `minor_mass` must be au^3/day^2. Use [`Astronomy_MassProduct`](#Astronomy_MassProduct) to obtain GM values for various solar system bodies.
-
-The function returns the state vector for the selected Lagrange point using the same orientation as the state vector parameters `major_state` and `minor_state`, and the position and velocity components are with respect to the major body's center.
-
-Consider calling [`Astronomy_LagrangePoint`](#Astronomy_LagrangePoint), instead of this function, for simpler usage in most cases.
-
-
-
-**Returns:** The position and velocity of the selected Lagrange point with respect to the major body's center.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `int` | `point` | A value 1..5 that selects which of the Lagrange points to calculate. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `major_state` | The state vector of the major (more massive) of the pair of bodies. |
-| `double` | `major_mass` | The mass product GM of the major body. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `minor_state` | The state vector of the minor (less massive) of the pair of bodies. |
-| `double` | `minor_mass` | The mass product GM of the minor body. |
-
-
-
-
----
-
-
-### Astronomy_Libration(time) ⇒ [`astro_libration_t`](#astro_libration_t)
-
-**Calculates the Moon's libration angles at a given moment in time.**
-
-
-
-Libration is an observed back-and-forth wobble of the portion of the Moon visible from the Earth. It is caused by the imperfect tidal locking of the Moon's fixed rotation rate, compared to its variable angular speed of orbit around the Earth.
-
-This function calculates a pair of perpendicular libration angles, one representing rotation of the Moon in ecliptic longitude `elon`, the other in ecliptic latitude `elat`, both relative to the Moon's mean Earth-facing position.
-
-This function also returns the geocentric position of the Moon expressed in ecliptic longitude `mlon`, ecliptic latitude `mlat`, the distance `dist_km` between the centers of the Earth and Moon expressed in kilometers, and the apparent angular diameter of the Moon `diam_deg`.
-
-
-
-**Returns:** The Moon's ecliptic position and libration angles as seen from the Earth.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate libration angles. |
-
-
-
-
----
-
-
-### Astronomy_MakeObserver(latitude, longitude, height) ⇒ [`astro_observer_t`](#astro_observer_t)
-
-**Creates an observer object that represents a location on or near the surface of the Earth.**
-
-
-
-Some Astronomy Engine functions calculate values pertaining to an observer on the Earth. These functions require a value of type [`astro_observer_t`](#astro_observer_t) that represents the location of such an observer.
-
-
-
-**Returns:** An observer object that can be passed to astronomy functions that require a geographic location.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `latitude` | The geographic latitude of the observer in degrees north (positive) or south (negative) of the equator. |
-| `double` | `longitude` | The geographic longitude of the observer in degrees east (positive) or west (negative) of the prime meridian at Greenwich, England. |
-| `double` | `height` | The height of the observer in meters above mean sea level. |
-
-
-
-
----
-
-
-### Astronomy_MakeTime(year, month, day, hour, minute, second) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Creates an [`astro_time_t`](#astro_time_t) value from a given calendar date and time.**
-
-
-
-Given a UTC calendar date and time, calculates an [`astro_time_t`](#astro_time_t) value that can be passed to other Astronomy Engine functions for performing various calculations relating to that date and time.
-
-It is the caller's responsibility to ensure that the parameter values are correct. The parameters are not checked for validity, and this function never returns any indication of an error. Invalid values, for example passing in February 31, may cause unexpected return values.
-
-
-
-**Returns:** An [`astro_time_t`](#astro_time_t) value that represents the given calendar date and time.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `int` | `year` | The UTC calendar year, e.g. 2019. |
-| `int` | `month` | The UTC calendar month in the range 1..12. |
-| `int` | `day` | The UTC calendar day in the range 1..31. |
-| `int` | `hour` | The UTC hour of the day in the range 0..23. |
-| `int` | `minute` | The UTC minute in the range 0..59. |
-| `double` | `second` | The UTC floating-point second in the range [0, 60). |
-
-
-
-
----
-
-
-### Astronomy_MassProduct(body) ⇒ `double`
-
-**Returns the product of mass and universal gravitational constant of a Solar System body.**
-
-
-
-For problems involving the gravitational interactions of Solar System bodies, it is helpful to know the product GM, where G = the universal gravitational constant and M = the mass of the body. In practice, GM is known to a higher precision than either G or M alone, and thus using the product results in the most accurate results. This function returns the product GM in the units au^3/day^2, or 0 for invalid bodies. The values come from page 10 of a [JPL memorandum regarding the DE405/LE405 ephemeris](https://web.archive.org/web/20120220062549/http://iau-comm4.jpl.nasa.gov/de405iom/de405iom.pdf).
-
-
-
-**Returns:** The mass product of the given body in au^3/day^2.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The body for which to find the GM product. |
-
-
-
-
----
-
-
-### Astronomy_MoonPhase(time) ⇒ [`astro_angle_result_t`](#astro_angle_result_t)
-
-**Returns the Moon's phase as an angle from 0 to 360 degrees.**
-
-
-
-This function determines the phase of the Moon using its apparent ecliptic longitude relative to the Sun, as seen from the center of the Earth. Certain values of the angle have conventional definitions:
-
-
-
-- 0 = new moon
-- 90 = first quarter
-- 180 = full moon
-- 270 = third quarter
-
-
-
-
-**Returns:** On success, the function returns the angle as described in the function remarks in the `angle` field and `ASTRO_SUCCESS` in the `status` field. The function should always succeed, but it is a good idea for callers to check the `status` field in the returned structure. Any other value in `status` indicates a failure that should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-
-
-
-
----
-
-
-### Astronomy_NextGlobalSolarEclipse(prevEclipseTime) ⇒ [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t)
-
-**Searches for the next global solar eclipse in a series.**
-
-
-
-After using [`Astronomy_SearchGlobalSolarEclipse`](#Astronomy_SearchGlobalSolarEclipse) to find the first solar eclipse in a series, you can call this function to find the next consecutive solar eclipse. Pass in the `peak` value from the [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t) returned by the previous call to `Astronomy_SearchGlobalSolarEclipse` or `Astronomy_NextGlobalSolarEclipse` to find the next solar eclipse.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields are as described in [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t). Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `prevEclipseTime` | A date and time near a new moon. Solar eclipse search will start at the next new moon. |
-
-
-
-
----
-
-
-### Astronomy_NextLocalSolarEclipse(prevEclipseTime, observer) ⇒ [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t)
-
-**Searches for the next local solar eclipse in a series.**
-
-
-
-After using [`Astronomy_SearchLocalSolarEclipse`](#Astronomy_SearchLocalSolarEclipse) to find the first solar eclipse in a series, you can call this function to find the next consecutive solar eclipse. Pass in the `peak` value from the [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t) returned by the previous call to `Astronomy_SearchLocalSolarEclipse` or `Astronomy_NextLocalSolarEclipse` to find the next solar eclipse.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields are as described in [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t). Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `prevEclipseTime` | A date and time near a new moon. Solar eclipse search will start at the next new moon. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location of the observer. |
-
-
-
-
----
-
-
-### Astronomy_NextLunarApsis(apsis) ⇒ [`astro_apsis_t`](#astro_apsis_t)
-
-**Finds the next lunar perigee or apogee event in a series.**
-
-
-
-This function requires an [`astro_apsis_t`](#astro_apsis_t) value obtained from a call to [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis) or `Astronomy_NextLunarApsis`. Given an apogee event, this function finds the next perigee event, and vice versa.
-
-See [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis) for more details.
-
-
-
-**Returns:** Same as the return value for [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_apsis_t`](#astro_apsis_t) | `apsis` | An apsis event obtained from a call to [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis) or `Astronomy_NextLunarApsis`. See [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis) for more details. |
-
-
-
-
----
-
-
-### Astronomy_NextLunarEclipse(prevEclipseTime) ⇒ [`astro_lunar_eclipse_t`](#astro_lunar_eclipse_t)
-
-**Searches for the next lunar eclipse in a series.**
-
-
-
-After using [`Astronomy_SearchLunarEclipse`](#Astronomy_SearchLunarEclipse) to find the first lunar eclipse in a series, you can call this function to find the next consecutive lunar eclipse. Pass in the `peak` value from the [`astro_lunar_eclipse_t`](#astro_lunar_eclipse_t) returned by the previous call to `Astronomy_SearchLunarEclipse` or `Astronomy_NextLunarEclipse` to find the next lunar eclipse.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields will be valid. Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `prevEclipseTime` | A date and time near a full moon. Lunar eclipse search will start at the next full moon. |
-
-
-
-
----
-
-
-### Astronomy_NextMoonNode(prevNode) ⇒ [`astro_node_event_t`](#astro_node_event_t)
-
-**Searches for the next time when the Moon's center crosses through the ecliptic plane.**
-
-
-
-Call [`Astronomy_SearchMoonNode`](#Astronomy_SearchMoonNode) to find the first of a series of nodes. Then call `Astronomy_NextMoonNode` to find as many more consecutive nodes as desired.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the other fields are as documented in [`astro_node_event_t`](#astro_node_event_t). Otherwise, `status` holds an error code and the other structure members are undefined.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_node_event_t`](#astro_node_event_t) | `prevNode` | The previous node found from calling [`Astronomy_SearchMoonNode`](#Astronomy_SearchMoonNode) or `Astronomy_NextMoonNode`. |
-
-
-
-
----
-
-
-### Astronomy_NextMoonQuarter(mq) ⇒ [`astro_moon_quarter_t`](#astro_moon_quarter_t)
-
-**Continues searching for lunar quarters from a previous search.**
-
-
-
-After calling [`Astronomy_SearchMoonQuarter`](#Astronomy_SearchMoonQuarter), this function can be called one or more times to continue finding consecutive lunar quarters. This function finds the next consecutive moon quarter event after the one passed in as the parameter `mq`.
-
-
-
-**Returns:** If `mq` is valid, this function should always succeed, indicated by the `status` field in the returned structure holding `ASTRO_SUCCESS`. Any other value indicates an internal error, which (after confirming that `mq` is valid) should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues). To be safe, calling code should always check the `status` field for errors.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_moon_quarter_t`](#astro_moon_quarter_t) | `mq` | A value returned by a prior call to [`Astronomy_SearchMoonQuarter`](#Astronomy_SearchMoonQuarter) or [`Astronomy_NextMoonQuarter`](#Astronomy_NextMoonQuarter). |
-
-
-
-
----
-
-
-### Astronomy_NextPlanetApsis(body, apsis) ⇒ [`astro_apsis_t`](#astro_apsis_t)
-
-**Finds the next planetary perihelion or aphelion event in a series.**
-
-
-
-This function requires an [`astro_apsis_t`](#astro_apsis_t) value obtained from a call to [`Astronomy_SearchPlanetApsis`](#Astronomy_SearchPlanetApsis) or `Astronomy_NextPlanetApsis`. Given an aphelion event, this function finds the next perihelion event, and vice versa.
-
-See [`Astronomy_SearchPlanetApsis`](#Astronomy_SearchPlanetApsis) for more details.
-
-
-
-**Returns:** Same as the return value for [`Astronomy_SearchPlanetApsis`](#Astronomy_SearchPlanetApsis).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The planet for which to find the next perihelion/aphelion event. Not allowed to be `BODY_SUN` or `BODY_MOON`. Must match the body passed into the call that produced the `apsis` parameter. |
-| [`astro_apsis_t`](#astro_apsis_t) | `apsis` | An apsis event obtained from a call to [`Astronomy_SearchPlanetApsis`](#Astronomy_SearchPlanetApsis) or `Astronomy_NextPlanetApsis`. |
-
-
-
-
----
-
-
-### Astronomy_NextTransit(body, prevTransitTime) ⇒ [`astro_transit_t`](#astro_transit_t)
-
-**Searches for another transit of Mercury or Venus.**
-
-
-
-After calling [`Astronomy_SearchTransit`](#Astronomy_SearchTransit) to find a transit of Mercury or Venus, this function finds the next transit after that. Keep calling this function as many times as you want to keep finding more transits.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the other fields are as documented in [`astro_transit_t`](#astro_transit_t). Otherwise, `status` holds an error code and the other structure members are undefined.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The planet whose transit is to be found. Must be `BODY_MERCURY` or `BODY_VENUS`. |
-| [`astro_time_t`](#astro_time_t) | `prevTransitTime` | A date and time near the previous transit. |
-
-
-
-
----
-
-
-### Astronomy_ObserverGravity(latitude, height) ⇒ `double`
-
-**Calculates the gravitational acceleration experienced by an observer on the Earth.**
-
-
-
-This function implements the WGS 84 Ellipsoidal Gravity Formula. The result is a combination of inward gravitational acceleration with outward centrifugal acceleration, as experienced by an observer in the Earth's rotating frame of reference. The resulting value increases toward the Earth's poles and decreases toward the equator, consistent with changes of the weight measured by a spring scale of a fixed mass moved to different latitudes and heights on the Earth.
-
-
-
-**Returns:** The effective gravitational acceleration expressed in meters per second squared [m/s^2].
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `latitude` | The latitude of the observer in degrees north or south of the equator. By formula symmetry, positive latitudes give the same answer as negative latitudes, so the sign does not matter. |
-| `double` | `height` | The height above the sea level geoid in meters. No range checking is done; however, accuracy is only valid in the range 0 to 100000 meters. |
-
-
-
-
----
-
-
-### Astronomy_ObserverState(time, observer, equdate) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Calculates geocentric equatorial position and velocity of an observer on the surface of the Earth.**
-
-
-
-This function calculates position and velocity vectors of an observer on or near the surface of the Earth, expressed in equatorial coordinates. It takes into account the rotation of the Earth at the given time, along with the given latitude, longitude, and elevation of the observer.
-
-The caller may pass a value in `equdate` to select either `EQUATOR_J2000` for using J2000 coordinates, or `EQUATOR_OF_DATE` for using coordinates relative to the Earth's equator at the specified time.
-
-The returned position vector has components expressed in astronomical units (AU). To convert to kilometers, multiply the `x`, `y`, and `z` values by the constant value [`KM_PER_AU`](#KM_PER_AU).
-
-The returned velocity vector is measured in AU/day.
-
-If you need the position only, and not the velocity, [`Astronomy_ObserverVector`](#Astronomy_ObserverVector) is slightly more efficient than this function.
-
-
-
-**Returns:** If successful, the returned state vector holds `ASTRO_SUCCESS` in its `status` field, and the position (x, y, z) and velocity (vx, vy, vz) vectors are valid. Otherwise, `status` holds an error code.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time for which to calculate the observer's geocentric state vector. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location of a point on or near the surface of the Earth. |
-| [`astro_equator_date_t`](#astro_equator_date_t) | `equdate` | Selects the date of the Earth's equator in which to express the equatorial coordinates. The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator at noon UTC on January 1, 2000, in which case this function corrects for precession and nutation of the Earth as it was at the moment specified by the `time` parameter. Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `time` as the orientation. |
-
-
-
-
----
-
-
-### Astronomy_ObserverVector(time, observer, equdate) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Calculates geocentric equatorial coordinates of an observer on the surface of the Earth.**
-
-
-
-This function calculates a vector from the center of the Earth to a point on or near the surface of the Earth, expressed in equatorial coordinates. It takes into account the rotation of the Earth at the given time, along with the given latitude, longitude, and elevation of the observer.
-
-The caller may pass a value in `equdate` to select either `EQUATOR_J2000` for using J2000 coordinates, or `EQUATOR_OF_DATE` for using coordinates relative to the Earth's equator at the specified time.
-
-The returned vector has components expressed in astronomical units (AU). To convert to kilometers, multiply the `x`, `y`, and `z` values by the constant value [`KM_PER_AU`](#KM_PER_AU).
-
-The inverse of this function is also available: [`Astronomy_VectorObserver`](#Astronomy_VectorObserver).
-
-
-
-**Returns:** If successful, the returned vector holds `ASTRO_SUCCESS` in its `status` field, and is an equatorial vector from the center of the Earth to the specified location on (or near) the Earth's surface. Otherwise, `status` holds an error code.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time for which to calculate the observer's position vector. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location of a point on or near the surface of the Earth. |
-| [`astro_equator_date_t`](#astro_equator_date_t) | `equdate` | Selects the date of the Earth's equator in which to express the equatorial coordinates. The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator at noon UTC on January 1, 2000, in which case this function corrects for precession and nutation of the Earth as it was at the moment specified by the `time` parameter. Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `time` as the orientation. |
-
-
-
-
----
-
-
-### Astronomy_PairLongitude(body1, body2, time) ⇒ [`astro_angle_result_t`](#astro_angle_result_t)
-
-**Returns one body's ecliptic longitude with respect to another, as seen from the Earth.**
-
-
-
-This function determines where one body appears around the ecliptic plane (the plane of the Earth's orbit around the Sun) as seen from the Earth, relative to the another body's apparent position. The function returns an angle in the half-open range [0, 360) degrees. The value is the ecliptic longitude of `body1` relative to the ecliptic longitude of `body2`.
-
-The angle is 0 when the two bodies are at the same ecliptic longitude as seen from the Earth. The angle increases in the prograde direction (the direction that the planets orbit the Sun and the Moon orbits the Earth).
-
-When the angle is 180 degrees, it means the two bodies appear on opposite sides of the sky for an Earthly observer.
-
-Neither `body1` nor `body2` is allowed to be `BODY_EARTH`. If this happens, the function fails with the error code `ASTRO_EARTH_NOT_ALLOWED`.
-
-
-
-**Returns:** On success, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the `angle` field holds a value in the range [0, 360). On failure, the `status` field contains some other value indicating an error condition.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body1` | The first body, whose longitude is to be found relative to the second body. |
-| [`astro_body_t`](#astro_body_t) | `body2` | The second body, relative to which the longitude of the first body is to be found. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-
-
-
-
----
-
-
-### Astronomy_Pivot(rotation, axis, angle) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Re-orients a rotation matrix by pivoting it by an angle around one of its axes.**
-
-
-
-Given a rotation matrix, a selected coordinate axis, and an angle in degrees, this function pivots the rotation matrix by that angle around that coordinate axis.
-
-For example, if you have rotation matrix that converts ecliptic coordinates (ECL) to horizontal coordinates (HOR), but you really want to convert ECL to the orientation of a telescope camera pointed at a given body, you can use `Astronomy_Pivot` twice: (1) pivot around the zenith axis by the body's azimuth, then (2) pivot around the western axis by the body's altitude angle. The resulting rotation matrix will then reorient ECL coordinates to the orientation of your telescope camera.
-
-
-
-**Returns:** If successful, the return value will have `ASTRO_SUCCESS` in the `status` field, along with a pivoted rotation matrix. Otherwise, `status` holds an appropriate error code and the rotation matrix is invalid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_rotation_t`](#astro_rotation_t) | `rotation` | The input rotation matrix. |
-| `int` | `axis` | An integer that selects which coordinate axis to rotate around: 0 = x, 1 = y, 2 = z. Any other value will fail with the error code `ASTRO_INVALID_PARAMETER` in the `status` field of the return value. |
-| `double` | `angle` | An angle in degrees indicating the amount of rotation around the specified axis. Positive angles indicate rotation counterclockwise as seen from the positive direction along that axis, looking towards the origin point of the orientation system. If `angle` is NAN or infinite, the function will fail with the error code `ASTRO_INVALID_PARAMETER`. Any finite number of degrees is allowed, but best precision will result from keeping `angle` in the range [-360, +360]. |
-
-
-
-
----
-
-
-### Astronomy_PlanetOrbitalPeriod(body) ⇒ `double`
-
-**Returns the average number of days it takes for a planet to orbit the Sun.**
-
-
-
-
-
-**Returns:** The mean orbital period of the body, or 0.0 if the `body` parameter is not valid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | One of the planets: Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune, or Pluto. |
-
-
-
-
----
-
-
-### Astronomy_Refraction(refraction, altitude) ⇒ `double`
-
-**Calculates the amount of "lift" to an altitude angle caused by atmospheric refraction.**
-
-
-
-Given an altitude angle and a refraction option, calculates the amount of "lift" caused by atmospheric refraction. This is the number of degrees higher in the sky an object appears due to the lensing of the Earth's atmosphere. This function works best near sea level. To correct for higher elevations, call [`Astronomy_Atmosphere`](#Astronomy_Atmosphere) for that elevation and multiply the refraction angle by the resulting relative density.
-
-
-
-**Returns:** The angular adjustment in degrees to be added to the altitude angle to correct for atmospheric lensing.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_refraction_t`](#astro_refraction_t) | `refraction` | The option selecting which refraction correction to use. If `REFRACTION_NORMAL`, uses a well-behaved refraction model that works well for all valid values (-90 to +90) of `altitude`. If `REFRACTION_JPLHOR`, this function returns a compatible value with the JPL Horizons tool. If any other value (including `REFRACTION_NONE`), this function returns 0. |
-| `double` | `altitude` | An altitude angle in a horizontal coordinate system. Must be a value between -90 and +90. |
-
-
-
-
----
-
-
-### Astronomy_Reset() ⇒ `void`
-
-**Frees up all dynamic memory allocated by Astronomy Engine.**
-
-
-
-Astronomy Engine uses dynamic memory allocation in only one place: it makes calculation of Pluto's orbit more efficient by caching 11 KB segments and recycling them. To force purging this cache and freeing all the dynamic memory, you can call this function at any time. It is always safe to call, although it will slow down the very next calculation of Pluto's position for a nearby time value. Calling this function before your program exits is optional, but it will be helpful for leak-checkers like valgrind.
-
----
-
-
-### Astronomy_RotateState(rotation, state) ⇒ [`astro_state_vector_t`](#astro_state_vector_t)
-
-**Applies a rotation to a state vector, yielding a rotated vector.**
-
-
-
-This function transforms a state vector in one orientation to a vector in another orientation.
-
-
-
-**Returns:** A state vector in the orientation specified by `rotation`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_rotation_t`](#astro_rotation_t) | `rotation` | A rotation matrix that specifies how the orientation of the state vector is to be changed. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `state` | The state vector whose orientation is to be changed. Both the position and velocity components are transformed. |
-
-
-
-
----
-
-
-### Astronomy_RotateVector(rotation, vector) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Applies a rotation to a vector, yielding a rotated vector.**
-
-
-
-This function transforms a vector in one orientation to a vector in another orientation.
-
-
-
-**Returns:** A vector in the orientation specified by `rotation`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_rotation_t`](#astro_rotation_t) | `rotation` | A rotation matrix that specifies how the orientation of the vector is to be changed. |
-| [`astro_vector_t`](#astro_vector_t) | `vector` | The vector whose orientation is to be changed. |
-
-
-
-
----
-
-
-### Astronomy_RotationAxis(body, time) ⇒ [`astro_axis_t`](#astro_axis_t)
-
-**Calculates information about a body's rotation axis at a given time.**
-
-
-
-Calculates the orientation of a body's rotation axis, along with the rotation angle of its prime meridian, at a given moment in time.
-
-This function uses formulas standardized by the IAU Working Group on Cartographics and Rotational Elements 2015 report, as described in the following document:
-
-[https://astropedia.astrogeology.usgs.gov/download/Docs/WGCCRE/WGCCRE2015reprint.pdf](https://astropedia.astrogeology.usgs.gov/download/Docs/WGCCRE/WGCCRE2015reprint.pdf)
-
-See [`astro_axis_t`](#astro_axis_t) for more detailed information.
-
-
-
-**Returns:** [`astro_axis_t`](#astro_axis_t)
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The body whose rotation axis is to be found. The supported bodies are: `BODY_SUN`, `BODY_MOON`, `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`, `BODY_JUPITER`, `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`. |
-| astro_time_t * | `time` | The time for which the body's rotation axis is to be found. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_ECL_EQD(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean ecliptic (ECL) to equatorial of-date (EQD).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: ECL = ecliptic system, using equator at J2000 epoch. Target: EQD = equatorial system, using equator of date.
-
-
-
-**Returns:** A rotation matrix that converts ECL to EQD.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the desired equator. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_ECL_EQJ() ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean ecliptic (ECL) to J2000 mean equator (EQJ).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: ECL = ecliptic system, using equator at J2000 epoch. Target: EQJ = equatorial system, using equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts ECL to EQJ.
-
-
-
----
-
-
-### Astronomy_Rotation_ECL_HOR(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean ecliptic (ECL) to horizontal (HOR).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: ECL = ecliptic system, using equator at J2000 epoch. Target: HOR = horizontal system.
-
-
-
-**Returns:** A rotation matrix that converts ECL to HOR at `time` and for `observer`. The components of the horizontal vector are: x = north, y = west, z = zenith (straight up from the observer). These components are chosen so that the "right-hand rule" works for the vector and so that north represents the direction where azimuth = 0.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the desired horizontal orientation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location near the Earth's mean sea level that defines the observer's horizon. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_ECT_EQD(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Returns a rotation matrix from true ecliptic of date (ECT) to equator of date (EQD).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: ECT = true ecliptic of date. Target: EQD = equator of date.
-
-
-
-**Returns:** A rotation matrix that converts ECT to EQD.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the ecliptic/equator conversion. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_ECT_EQJ(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from true ecliptic of date (ECT) to J2000 mean equator (EQJ).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: ECT = ecliptic system, using true equinox of the specified date/time. Target: EQJ = equatorial system, using mean equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts ECT to EQJ at `time`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator defines the target orientation. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQD_ECL(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from equatorial of-date (EQD) to J2000 mean ecliptic (ECL).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQD = equatorial system, using equator of date. Target: ECL = ecliptic system, using equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts EQD to ECL.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the source equator. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQD_ECT(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Returns a rotation matrix from equator of date (EQD) to true ecliptic of date (ECT).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQD = equator of date. Target: ECT = true ecliptic of date.
-
-
-
-**Returns:** A rotation matrix that converts EQD to ECT.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the equator/ecliptic conversion. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQD_EQJ(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from equatorial of-date (EQD) to J2000 mean equator (EQJ).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQD = equatorial system, using equator of the specified date/time. Target: EQJ = equatorial system, using equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts EQD at `time` to EQJ.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator defines the source orientation. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQD_HOR(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from equatorial of-date (EQD) to horizontal (HOR).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQD = equatorial system, using equator of the specified date/time. Target: HOR = horizontal system.
-
-
-
-**Returns:** A rotation matrix that converts EQD to HOR at `time` and for `observer`. The components of the horizontal vector are: x = north, y = west, z = zenith (straight up from the observer). These components are chosen so that the "right-hand rule" works for the vector and so that north represents the direction where azimuth = 0.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator applies. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location near the Earth's mean sea level that defines the observer's horizon. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQJ_ECL() ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean equator (EQJ) to J2000 mean ecliptic (ECL).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQJ = equatorial system, using equator at J2000 epoch. Target: ECL = ecliptic system, using equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts EQJ to ECL.
-
-
-
----
-
-
-### Astronomy_Rotation_EQJ_ECT(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean equator (EQJ) to true ecliptic of date (ECT).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQJ = equatorial system, using mean equator at J2000 epoch. Target: ECT = ecliptic system, using true equinox of the specified date/time.
-
-
-
-**Returns:** A rotation matrix that converts EQJ to ECT at `time`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator defines the target orientation. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQJ_EQD(time) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean equator (EQJ) to equatorial of-date (EQD).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQJ = equatorial system, using equator at J2000 epoch. Target: EQD = equatorial system, using equator of the specified date/time.
-
-
-
-**Returns:** A rotation matrix that converts EQJ to EQD at `time`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator defines the target orientation. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_EQJ_GAL() ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Returns a rotation matrix from J2000 mean ecliptic (EQJ) to galactic (GAL).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQJ = equatorial system, using the equator at the J2000 epoch. Target: GAL = galactic system (IAU 1958 definition).
-
-
-
-**Returns:** A rotation matrix that converts EQJ to GAL.
-
-
-
----
-
-
-### Astronomy_Rotation_EQJ_HOR(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from J2000 mean equator (EQJ) to horizontal (HOR).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: EQJ = equatorial system, using the equator at the J2000 epoch. Target: HOR = horizontal system.
-
-
-
-**Returns:** A rotation matrix that converts EQJ to HOR at `time` and for `observer`. The components of the horizontal vector are: x = north, y = west, z = zenith (straight up from the observer). These components are chosen so that the "right-hand rule" works for the vector and so that north represents the direction where azimuth = 0.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the desired horizontal orientation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location near the Earth's mean sea level that defines the observer's horizon. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_GAL_EQJ() ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Returns a rotation matrix from ecliptic galactic (GAL) to J2000 (EQJ).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: GAL = galactic system (IAU 1958 definition). Target: EQJ = equatorial system, using the equator at the J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts GAL to EQJ.
-
-
-
----
-
-
-### Astronomy_Rotation_HOR_ECL(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from horizontal (HOR) to J2000 mean ecliptic (ECL).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: HOR = horizontal system. Target: ECL = ecliptic system, using equator at J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts HOR to ECL.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the horizontal observation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The location of the horizontal observer. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_HOR_EQD(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from horizontal (HOR) to equatorial of-date (EQD).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: HOR = horizontal system (x=North, y=West, z=Zenith). Target: EQD = equatorial system, using equator of the specified date/time.
-
-
-
-**Returns:** A rotation matrix that converts HOR to EQD at `time` and for `observer`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time at which the Earth's equator applies. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location near the Earth's mean sea level that defines the observer's horizon. |
-
-
-
-
----
-
-
-### Astronomy_Rotation_HOR_EQJ(time, observer) ⇒ [`astro_rotation_t`](#astro_rotation_t)
-
-**Calculates a rotation matrix from horizontal (HOR) to J2000 equatorial (EQJ).**
-
-
-
-This is one of the family of functions that returns a rotation matrix for converting from one orientation to another. Source: HOR = horizontal system (x=North, y=West, z=Zenith). Target: EQJ = equatorial system, using equator at the J2000 epoch.
-
-
-
-**Returns:** A rotation matrix that converts HOR to EQJ at `time` and for `observer`.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time of the observation. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | A location near the Earth's mean sea level that defines the observer's horizon. |
-
-
-
-
----
-
-
-### Astronomy_Search(func, context, t1, t2, dt_tolerance_seconds) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Searches for a time at which a function's value increases through zero.**
-
-
-
-Certain astronomy calculations involve finding a time when an event occurs. Often such events can be defined as the root of a function: the time at which the function's value becomes zero.
-
-`Astronomy_Search` finds the *ascending root* of a function: the time at which the function's value becomes zero while having a positive slope. That is, as time increases, the function transitions from a negative value, through zero at a specific moment, to a positive value later. The goal of the search is to find that specific moment.
-
-The search function is specified by two parameters: `func` and `context`. The `func` parameter is a pointer to the function itself, which accepts a time and a context containing any other arguments needed to evaluate the function. The `context` parameter supplies that context for the given search. As an example, a caller may wish to find the moment a celestial body reaches a certain ecliptic longitude. In that case, the caller might create a structure that contains an [`astro_body_t`](#astro_body_t) member to specify the body and a `double` to hold the target longitude. The function would cast the pointer `context` passed in as a pointer to that structure type. It could subtract the target longitude from the actual longitude at a given time; thus the difference would equal zero at the moment in time the planet reaches the desired longitude.
-
-The `func` returns an [`astro_func_result_t`](#astro_func_result_t) structure every time it is called. If the returned structure has a value of `status` other than `ASTRO_SUCCESS`, the search immediately fails and reports that same error code in the `status` returned by `Astronomy_Search`. Otherwise, `status` is `ASTRO_SUCCESS` and `value` is the value of the function, and the search proceeds until it either finds the ascending root or fails for some reason.
-
-The search calls `func` repeatedly to rapidly narrow in on any ascending root within the time window specified by `t1` and `t2`. The search never reports a solution outside this time window.
-
-`Astronomy_Search` uses a combination of bisection and quadratic interpolation to minimize the number of function calls. However, it is critical that the supplied time window be small enough that there cannot be more than one root (ascedning or descending) within it; otherwise the search can fail. Beyond that, it helps to make the time window as small as possible, ideally such that the function itself resembles a smooth parabolic curve within that window.
-
-If an ascending root is not found, or more than one root (ascending and/or descending) exists within the window `t1`..`t2`, the search will fail with status code `ASTRO_SEARCH_FAILURE`.
-
-If the search does not converge within 20 iterations, it will fail with status code `ASTRO_NO_CONVERGE`.
-
-
-
-**Returns:** If successful, the returned structure has `status` equal to `ASTRO_SUCCESS` and `time` set to a value within `dt_tolerance_seconds` of an ascending root. On success, the `time` value will always be in the inclusive range [`t1`, `t2`]. If the search fails, `status` will be set to a value other than `ASTRO_SUCCESS`. See function remarks for more details.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_search_func_t`](#astro_search_func_t) | `func` | The function for which to find the time of an ascending root. See function remarks for more details. |
-| `void *` | `context` | Any ancillary data needed by the function `func` to calculate a value. The data type varies depending on the function passed in. For example, the function may involve a specific celestial body that must be specified somehow. |
-| [`astro_time_t`](#astro_time_t) | `t1` | The lower time bound of the search window. See function remarks for more details. |
-| [`astro_time_t`](#astro_time_t) | `t2` | The upper time bound of the search window. See function remarks for more details. |
-| `double` | `dt_tolerance_seconds` | Specifies an amount of time in seconds within which a bounded ascending root is considered accurate enough to stop. A typical value is 1 second. |
-
-
-
-
----
-
-
-### Astronomy_SearchAltitude(body, observer, direction, startTime, limitDays, altitude) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Finds the next time the center of a body passes through a given altitude.**
-
-
-
-Finds when the center of the given body ascends or descends through a given altitude angle, as seen by an observer at the specified location on the Earth. By using the appropriate combination of `direction` and `altitude` parameters, this function can be used to find when civil, nautical, or astronomical twilight begins (dawn) or ends (dusk).
-
-Civil dawn begins before sunrise when the Sun ascends through 6 degrees below the horizon. To find civil dawn, pass `DIRECTION_RISE` for `direction` and -6 for `altitude`.
-
-Civil dusk ends after sunset when the Sun descends through 6 degrees below the horizon. To find civil dusk, pass `DIRECTION_SET` for `direction` and -6 for `altitude`.
-
-Nautical twilight is similar to civil twilight, only the `altitude` value should be -12 degrees.
-
-Astronomical twilight uses -18 degrees as the `altitude` value.
-
-By convention for twilight time calculations, the altitude is not corrected for atmospheric refraction. This is because the target altitudes are below the horizon, and refraction is not directly observable.
-
-`Astronomy_SearchAltitude` is not intended to find rise/set times of a body for two reasons: (1) Rise/set times of the Sun or Moon are defined by their topmost visible portion, not their centers. (2) Rise/set times are affected significantly by atmospheric refraction. Therefore, it is better to use [`Astronomy_SearchRiseSetEx`](#Astronomy_SearchRiseSetEx) to find rise/set times, which corrects for both of these considerations.
-
-`Astronomy_SearchAltitude` will not work reliably for altitudes at or near the body's maximum or minimum altitudes. To find the time a body reaches minimum or maximum altitude angles, use [`Astronomy_SearchHourAngleEx`](#Astronomy_SearchHourAngleEx).
-
-
-
-**Returns:** On success, the `status` field in the returned structure contains `ASTRO_SUCCESS` and the `time` field contains the date and time of the requested altitude event. If the `status` field contains `ASTRO_SEARCH_FAILURE`, it means the altitude event does not occur within `limitDays` days of `startTime`. This is a normal condition, not an error. Any other value of `status` indicates an error of some kind.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The Sun, Moon, any planet other than the Earth, or a user-defined star that was created by a call to [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The location where observation takes place. You can create an observer structure by calling [`Astronomy_MakeObserver`](#Astronomy_MakeObserver). |
-| [`astro_direction_t`](#astro_direction_t) | `direction` | Either `DIRECTION_RISE` to find when the body ascends through the altitude, or `DIRECTION_SET` for when the body descends through the altitude. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start the search. |
-| `double` | `limitDays` | Limits how many days to search for the body reaching the altitude angle, and defines the direction in time to search. When `limitDays` is positive, the search is performed into the future, after `startTime`. When negative, the search is performed into the past, before `startTime`. To limit the search to the same day, you can use a value of 1 day. In cases where you want to find the altitude event no matter how far in the future (for example, for an observer near the south pole), you can pass in a larger value like 365. |
-| `double` | `altitude` | The desired altitude angle of the body's center above (positive) or below (negative) the observer's local horizon, expressed in degrees. Must be in the range [-90, +90]. |
-
-
-
-
----
-
-
-### Astronomy_SearchGlobalSolarEclipse(startTime) ⇒ [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t)
-
-**Searches for a solar eclipse visible anywhere on the Earth's surface.**
-
-
-
-This function finds the first solar eclipse that occurs after `startTime`. A solar eclipse may be partial, annular, or total. See [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t) for more information. To find a series of solar eclipses, call this function once, then keep calling [`Astronomy_NextGlobalSolarEclipse`](#Astronomy_NextGlobalSolarEclipse) as many times as desired, passing in the `peak` value returned from the previous call.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields are as described in [`astro_global_solar_eclipse_t`](#astro_global_solar_eclipse_t). Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for a solar eclipse. |
-
-
-
-
----
-
-
-### Astronomy_SearchHourAngleEx(body, observer, hourAngle, startTime, direction) ⇒ [`astro_hour_angle_t`](#astro_hour_angle_t)
-
-**Searches for the time when the center of a body reaches a specified hour angle as seen by an observer on the Earth.**
-
-
-
-The *hour angle* of a celestial body indicates its position in the sky with respect to the Earth's rotation. The hour angle depends on the location of the observer on the Earth. The hour angle is 0 when the body's center reaches its highest angle above the horizon in a given day. The hour angle increases by 1 unit for every sidereal hour that passes after that point, up to 24 sidereal hours when it reaches the highest point again. So the hour angle indicates the number of hours that have passed since the most recent time that the body has culminated, or reached its highest point.
-
-This function searches for the next or previous time a celestial body reaches the given hour angle relative to the date and time specified by `startTime`. To find when a body culminates, pass 0 for `hourAngle`. To find when a body reaches its lowest point in the sky, pass 12 for `hourAngle`.
-
-Note that, especially close to the Earth's poles, a body as seen on a given day may always be above the horizon or always below the horizon, so the caller cannot assume that a culminating object is visible nor that an object is below the horizon at its minimum altitude.
-
-On success, the function reports the date and time, along with the horizontal coordinates of the body at that time, as seen by the given observer.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the other structure fields are valid. Otherwise, `status` holds some other value that indicates an error condition.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The Sun, Moon, any planet other than the Earth, or a user-defined star that was created by a call to [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | Indicates a location on or near the surface of the Earth where the observer is located. Call [`Astronomy_MakeObserver`](#Astronomy_MakeObserver) to create an observer structure. |
-| `double` | `hourAngle` | An hour angle value in the range [0, 24) indicating the number of sidereal hours after the body's most recent culmination. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start the search. |
-| `int` | `direction` | The direction in time to perform the search: a positive value searches forward in time, a negative value searches backward in time. The function will fail with `ASTRO_INVALID_PARAMETER` if `direction` is zero. |
-
-
-
-
----
-
-
-### Astronomy_SearchLocalSolarEclipse(startTime, observer) ⇒ [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t)
-
-**Searches for a solar eclipse visible at a specific location on the Earth's surface.**
-
-
-
-This function finds the first solar eclipse that occurs after `startTime`. A solar eclipse may be partial, annular, or total. See [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t) for more information. To find a series of solar eclipses, call this function once, then keep calling [`Astronomy_NextLocalSolarEclipse`](#Astronomy_NextLocalSolarEclipse) as many times as desired, passing in the `peak` value returned from the previous call.
-
-IMPORTANT: An eclipse reported by this function might be partly or completely invisible to the observer due to the time of day.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields are as described in [`astro_local_solar_eclipse_t`](#astro_local_solar_eclipse_t). Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for a solar eclipse. |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The geographic location of the observer. |
-
-
-
-
----
-
-
-### Astronomy_SearchLunarApsis(startTime) ⇒ [`astro_apsis_t`](#astro_apsis_t)
-
-**Finds the date and time of the Moon's closest distance (perigee) or farthest distance (apogee) with respect to the Earth.**
-
-
-
-Given a date and time to start the search in `startTime`, this function finds the next date and time that the center of the Moon reaches the closest or farthest point in its orbit with respect to the center of the Earth, whichever comes first after `startTime`.
-
-The closest point is called *perigee* and the farthest point is called *apogee*. The word *apsis* refers to either event.
-
-To iterate through consecutive alternating perigee and apogee events, call `Astronomy_SearchLunarApsis` once, then use the return value to call [`Astronomy_NextLunarApsis`](#Astronomy_NextLunarApsis). After that, keep feeding the previous return value from `Astronomy_NextLunarApsis` into another call of `Astronomy_NextLunarApsis` as many times as desired.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`, `time` holds the date and time of the next lunar apsis, `kind` holds either `APSIS_PERICENTER` for perigee or `APSIS_APOCENTER` for apogee, and the distance values `dist_au` (astronomical units) and `dist_km` (kilometers) are valid. If the function fails, `status` holds some value other than `ASTRO_SUCCESS` that indicates what went wrong, and the other structure fields are invalid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start searching for the next perigee or apogee. |
-
-
-
-
----
-
-
-### Astronomy_SearchLunarEclipse(startTime) ⇒ [`astro_lunar_eclipse_t`](#astro_lunar_eclipse_t)
-
-**Searches for a lunar eclipse.**
-
-
-
-This function finds the first lunar eclipse that occurs after `startTime`. A lunar eclipse may be penumbral, partial, or total. See [`astro_lunar_eclipse_t`](#astro_lunar_eclipse_t) for more information. To find a series of lunar eclipses, call this function once, then keep calling [`Astronomy_NextLunarEclipse`](#Astronomy_NextLunarEclipse) as many times as desired, passing in the `peak` value returned from the previous call.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the remaining structure fields will be valid. Any other value indicates an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for a lunar eclipse. |
-
-
-
-
----
-
-
-### Astronomy_SearchMaxElongation(body, startTime) ⇒ [`astro_elongation_t`](#astro_elongation_t)
-
-**Finds a date and time when Mercury or Venus reaches its maximum angle from the Sun as seen from the Earth.**
-
-
-
-Mercury and Venus are are often difficult to observe because they are closer to the Sun than the Earth is. Mercury especially is almost always impossible to see because it gets lost in the Sun's glare. The best opportunities for spotting Mercury, and the best opportunities for viewing Venus through a telescope without atmospheric interference, are when these planets reach maximum elongation. These are events where the planets reach the maximum angle from the Sun as seen from the Earth.
-
-This function solves for those times, reporting the next maximum elongation event's date and time, the elongation value itself, the relative longitude with the Sun, and whether the planet is best observed in the morning or evening. See [`Astronomy_Elongation`](#Astronomy_Elongation) for more details about the returned structure.
-
-
-
-**Returns:** If successful, the `status` field of the returned structure will be `ASTRO_SUCCESS` and the other structure fields will be valid. Otherwise, `status` will contain some other value indicating an error.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | Either `BODY_MERCURY` or `BODY_VENUS`. Any other value will fail with the error `ASTRO_INVALID_BODY`. To find the best viewing opportunites for planets farther from the Sun than the Earth is (Mars through Pluto) use [`Astronomy_SearchRelativeLongitude`](#Astronomy_SearchRelativeLongitude) to find the next opposition event. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to begin the search. The maximum elongation event found will always be the first one that occurs after this date and time. |
-
-
-
-
----
-
-
-### Astronomy_SearchMoonNode(startTime) ⇒ [`astro_node_event_t`](#astro_node_event_t)
-
-**Searches for a time when the Moon's center crosses through the ecliptic plane.**
-
-
-
-Searches for the first ascending or descending node of the Moon after `startTime`. An ascending node is when the Moon's center passes through the ecliptic plane (the plane of the Earth's orbit around the Sun) from south to north. A descending node is when the Moon's center passes through the ecliptic plane from north to south. Nodes indicate possible times of solar or lunar eclipses, if the Moon also happens to be in the correct phase (new or full, respectively).
-
-Call `Astronomy_SearchMoonNode` to find the first of a series of nodes. Then call [`Astronomy_NextMoonNode`](#Astronomy_NextMoonNode) to find as many more consecutive nodes as desired.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the other fields are as documented in [`astro_node_event_t`](#astro_node_event_t). Otherwise, `status` holds an error code and the other structure members are undefined.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for an ascending or descending node of the Moon. |
-
-
-
-
----
-
-
-### Astronomy_SearchMoonPhase(targetLon, startTime, limitDays) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Searches for the time that the Moon reaches a specified phase.**
-
-
-
-Lunar phases are conventionally defined in terms of the Moon's geocentric ecliptic longitude with respect to the Sun's geocentric ecliptic longitude. When the Moon and the Sun have the same longitude, that is defined as a new moon. When their longitudes are 180 degrees apart, that is defined as a full moon.
-
-This function searches for any value of the lunar phase expressed as an angle in degrees in the range [0, 360).
-
-If you want to iterate through lunar quarters (new moon, first quarter, full moon, third quarter) it is much easier to call the functions [`Astronomy_SearchMoonQuarter`](#Astronomy_SearchMoonQuarter) and [`Astronomy_NextMoonQuarter`](#Astronomy_NextMoonQuarter). This function is useful for finding general phase angles outside those four quarters.
-
-
-
-**Returns:** On success, the `status` field in the returned structure holds `ASTRO_SUCCESS` and the `time` field holds the date and time when the Moon reaches the target longitude. On failure, `status` holds some other value as an error code. One possible error code is `ASTRO_NO_MOON_QUARTER` if `startTime` and `limitDays` do not enclose the desired event. See remarks in [`Astronomy_Search`](#Astronomy_Search) for other possible error codes.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `targetLon` | The difference in geocentric longitude between the Sun and Moon that specifies the lunar phase being sought. This can be any value in the range [0, 360). Certain values have conventional names: 0 = new moon, 90 = first quarter, 180 = full moon, 270 = third quarter. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The beginning of the time window in which to search for the Moon reaching the specified phase. |
-| `double` | `limitDays` | The number of days away from `startTime` that limits the time window for the search. If the value is negative, the search is performed into the past from `startTime`. Otherwise, the search is performed into the future from `startTime`. |
-
-
-
-
----
-
-
-### Astronomy_SearchMoonQuarter(startTime) ⇒ [`astro_moon_quarter_t`](#astro_moon_quarter_t)
-
-**Finds the first lunar quarter after the specified date and time.**
-
-
-
-A lunar quarter is one of the following four lunar phase events: new moon, first quarter, full moon, third quarter. This function finds the lunar quarter that happens soonest after the specified date and time.
-
-To continue iterating through consecutive lunar quarters, call this function once, followed by calls to [`Astronomy_NextMoonQuarter`](#Astronomy_NextMoonQuarter) as many times as desired.
-
-
-
-**Returns:** This function should always succeed, indicated by the `status` field in the returned structure holding `ASTRO_SUCCESS`. Any other value indicates an internal error, which should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues). To be safe, calling code should always check the `status` field for errors.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start the search. |
-
-
-
-
----
-
-
-### Astronomy_SearchPeakMagnitude(body, startTime) ⇒ [`astro_illum_t`](#astro_illum_t)
-
-**Searches for the date and time Venus will next appear brightest as seen from the Earth.**
-
-
-
-This function searches for the date and time Venus appears brightest as seen from the Earth. Currently only Venus is supported for the `body` parameter, though this could change in the future. Mercury's peak magnitude occurs at superior conjunction, when it is virtually impossible to see from the Earth, so peak magnitude events have little practical value for that planet. Planets other than Venus and Mercury reach peak magnitude at opposition, which can be found using [`Astronomy_SearchRelativeLongitude`](#Astronomy_SearchRelativeLongitude). The Moon reaches peak magnitude at full moon, which can be found using [`Astronomy_SearchMoonQuarter`](#Astronomy_SearchMoonQuarter) or [`Astronomy_SearchMoonPhase`](#Astronomy_SearchMoonPhase). The Sun reaches peak magnitude at perihelion, which occurs each year in January. However, the difference is minor and has little practical value.
-
-
-
-**Returns:** See documentation about the return value from [`Astronomy_Illumination`](#Astronomy_Illumination).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | Currently only `BODY_VENUS` is allowed. Any other value results in the error `ASTRO_INVALID_BODY`. See function remarks for more details. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time to start searching for the next peak magnitude event. |
-
-
-
-
----
-
-
-### Astronomy_SearchPlanetApsis(body, startTime) ⇒ [`astro_apsis_t`](#astro_apsis_t)
-
-**Finds the date and time of a planet's perihelion (closest approach to the Sun) or aphelion (farthest distance from the Sun) after a given time.**
-
-
-
-Given a date and time to start the search in `startTime`, this function finds the next date and time that the center of the specified planet reaches the closest or farthest point in its orbit with respect to the center of the Sun, whichever comes first after `startTime`.
-
-The closest point is called *perihelion* and the farthest point is called *aphelion*. The word *apsis* refers to either event.
-
-To iterate through consecutive alternating perihelion and aphelion events, call `Astronomy_SearchPlanetApsis` once, then use the return value to call [`Astronomy_NextPlanetApsis`](#Astronomy_NextPlanetApsis). After that, keep feeding the previous return value from `Astronomy_NextPlanetApsis` into another call of `Astronomy_NextPlanetApsis` as many times as desired.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`, `time` holds the date and time of the next planetary apsis, `kind` holds either `APSIS_PERICENTER` for perihelion or `APSIS_APOCENTER` for aphelion, and the distance values `dist_au` (astronomical units) and `dist_km` (kilometers) are valid. If the function fails, `status` holds some value other than `ASTRO_SUCCESS` that indicates what went wrong, and the other structure fields are invalid.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The planet for which to find the next perihelion/aphelion event. Not allowed to be `BODY_SUN` or `BODY_MOON`. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start searching for the next perihelion or aphelion. |
-
-
-
-
----
-
-
-### Astronomy_SearchRelativeLongitude(body, targetRelLon, startTime) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Searches for the time when the Earth and another planet are separated by a specified angle in ecliptic longitude, as seen from the Sun.**
-
-
-
-A relative longitude is the angle between two bodies measured in the plane of the Earth's orbit (the ecliptic plane). The distance of the bodies above or below the ecliptic plane is ignored. If you imagine the shadow of the body cast onto the ecliptic plane, and the angle measured around that plane from one body to the other in the direction the planets orbit the Sun, you will get an angle somewhere between 0 and 360 degrees. This is the relative longitude.
-
-Given a planet other than the Earth in `body` and a time to start the search in `startTime`, this function searches for the next time that the relative longitude measured from the planet to the Earth is `targetRelLon`.
-
-Certain astronomical events are defined in terms of relative longitude between the Earth and another planet:
-
-
-
-- When the relative longitude is 0 degrees, it means both planets are in the same direction from the Sun. For planets that orbit closer to the Sun (Mercury and Venus), this is known as *inferior conjunction*, a time when the other planet becomes very difficult to see because of being lost in the Sun's glare. (The only exception is in the rare event of a transit, when we see the silhouette of the planet passing between the Earth and the Sun.)
-- When the relative longitude is 0 degrees and the other planet orbits farther from the Sun, this is known as *opposition*. Opposition is when the planet is closest to the Earth, and also when it is visible for most of the night, so it is considered the best time to observe the planet.
-- When the relative longitude is 180 degrees, it means the other planet is on the opposite side of the Sun from the Earth. This is called *superior conjunction*. Like inferior conjunction, the planet is very difficult to see from the Earth. Superior conjunction is possible for any planet other than the Earth.
-
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and `time` will hold the date and time of the relative longitude event. Otherwise `status` will hold some other value that indicates an error condition.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | A planet other than the Earth. If `body` is not a planet other than the Earth, an error occurs. |
-| `double` | `targetRelLon` | The desired relative longitude, expressed in degrees. Must be in the range [0, 360). |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to begin the search. |
-
-
-
-
----
-
-
-### Astronomy_SearchRiseSetEx(body, observer, direction, startTime, limitDays, metersAboveGround) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Searches for the next time a celestial body rises or sets as seen by an observer on the Earth.**
-
-
-
-This function finds the next rise or set time of the Sun, Moon, or planet other than the Earth. Rise time is when the body first starts to be visible above the horizon. For example, sunrise is the moment that the top of the Sun first appears to peek above the horizon. Set time is the moment when the body appears to vanish below the horizon. Therefore, this function adjusts for the apparent angular radius of the observed body (significant only for the Sun and Moon).
-
-This function corrects for a typical value of atmospheric refraction, which causes celestial bodies to appear higher above the horizon than they would if the Earth had no atmosphere. Astronomy Engine uses a correction of 34 arcminutes. Real-world refraction varies based on air temperature, pressure, and humidity; such weather-based conditions are outside the scope of Astronomy Engine.
-
-Note that rise or set may not occur in every 24 hour period. For example, near the Earth's poles, there are long periods of time where the Sun stays below the horizon, never rising. Also, it is possible for the Moon to rise just before midnight but not set during the subsequent 24-hour day. This is because the Moon sets nearly an hour later each day due to orbiting the Earth a significant amount during each rotation of the Earth. Therefore callers must not assume that the function will always succeed.
-
-
-
-**Returns:** On success, the `status` field in the returned structure contains `ASTRO_SUCCESS` and the `time` field contains the date and time of the rise or set time as requested. If the `status` field contains `ASTRO_SEARCH_FAILURE`, it means the rise or set event does not occur within `limitDays` days of `startTime`. This is a normal condition, not an error. Any other value of `status` indicates an error of some kind.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The Sun, Moon, any planet other than the Earth, or a user-defined star that was created by a call to [`Astronomy_DefineStar`](#Astronomy_DefineStar). |
-| [`astro_observer_t`](#astro_observer_t) | `observer` | The location where observation takes place. You can create an observer structure by calling [`Astronomy_MakeObserver`](#Astronomy_MakeObserver). |
-| [`astro_direction_t`](#astro_direction_t) | `direction` | Either `DIRECTION_RISE` to find a rise time or `DIRECTION_SET` to find a set time. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time at which to start the search. |
-| `double` | `limitDays` | Limits how many days to search for a rise or set time, and defines the direction in time to search. When `limitDays` is positive, the search is performed into the future, after `startTime`. When negative, the search is performed into the past, before `startTime`. To limit a rise or set time to the same day, you can use a value of 1 day. In cases where you want to find the next rise or set time no matter how far in the future (for example, for an observer near the south pole), you can pass in a larger value like 365. |
-| `double` | `metersAboveGround` | Usually the observer is located at ground level. Then this parameter should be zero. But if the observer is significantly higher than ground level, for example in an airplane, this parameter should be a positive number indicating how far above the ground the observer is. An error occurs if `metersAboveGround` is negative. |
-
-
-
-
----
-
-
-### Astronomy_SearchSunLongitude(targetLon, startTime, limitDays) ⇒ [`astro_search_result_t`](#astro_search_result_t)
-
-**Searches for the time when the Sun reaches an apparent ecliptic longitude as seen from the Earth.**
-
-
-
-This function finds the moment in time, if any exists in the given time window, that the center of the Sun reaches a specific ecliptic longitude as seen from the center of the Earth.
-
-This function can be used to determine equinoxes and solstices. However, it is usually more convenient and efficient to call [`Astronomy_Seasons`](#Astronomy_Seasons) to calculate all equinoxes and solstices for a given calendar year.
-
-The function searches the window of time specified by `startTime` and `startTime+limitDays`. The search will return an error if the Sun never reaches the longitude `targetLon` or if the window is so large that the longitude ranges more than 180 degrees within it. It is recommended to keep the window smaller than 10 days when possible.
-
-
-
-**Returns:** If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS` and the `time` field will contain the date and time the Sun reaches the target longitude. Any other value indicates an error. See remarks in [`Astronomy_Search`](#Astronomy_Search) (which this function calls) for more information about possible error codes.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `targetLon` | The desired ecliptic longitude in degrees, relative to the true equinox of date. This may be any value in the range [0, 360), although certain values have conventional meanings: 0 = March equinox, 90 = June solstice, 180 = September equinox, 270 = December solstice. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for the desired longitude event. |
-| `double` | `limitDays` | The real-valued number of days, which when added to `startTime`, limits the range of time over which the search looks. It is recommended to keep this value between 1 and 10 days. See function remarks for more details. |
-
-
-
-
----
-
-
-### Astronomy_SearchTransit(body, startTime) ⇒ [`astro_transit_t`](#astro_transit_t)
-
-**Searches for the first transit of Mercury or Venus after a given date.**
-
-
-
-Finds the first transit of Mercury or Venus after a specified date. A transit is when an inferior planet passes between the Sun and the Earth so that the silhouette of the planet is visible against the Sun in the background. To continue the search, pass the `finish` time in the returned structure to [`Astronomy_NextTransit`](#Astronomy_NextTransit).
-
-
-
-**Returns:** If successful, the `status` field in the returned structure hold `ASTRO_SUCCESS` and the other fields are as documented in [`astro_transit_t`](#astro_transit_t). Otherwise, `status` holds an error code and the other structure members are undefined.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_body_t`](#astro_body_t) | `body` | The planet whose transit is to be found. Must be `BODY_MERCURY` or `BODY_VENUS`. |
-| [`astro_time_t`](#astro_time_t) | `startTime` | The date and time for starting the search for a transit. |
-
-
-
-
----
-
-
-### Astronomy_Seasons(year) ⇒ [`astro_seasons_t`](#astro_seasons_t)
-
-**Finds both equinoxes and both solstices for a given calendar year.**
-
-
-
-The changes of seasons are defined by solstices and equinoxes. Given a calendar year number, this function calculates the March and September equinoxes and the June and December solstices.
-
-The equinoxes are the moments twice each year when the plane of the Earth's equator passes through the center of the Sun. In other words, the Sun's declination is zero at both equinoxes. The March equinox defines the beginning of spring in the northern hemisphere and the beginning of autumn in the southern hemisphere. The September equinox defines the beginning of autumn in the northern hemisphere and the beginning of spring in the southern hemisphere.
-
-The solstices are the moments twice each year when one of the Earth's poles is most tilted toward the Sun. More precisely, the Sun's declination reaches its minimum value at the December solstice, which defines the beginning of winter in the northern hemisphere and the beginning of summer in the southern hemisphere. The Sun's declination reaches its maximum value at the June solstice, which defines the beginning of summer in the northern hemisphere and the beginning of winter in the southern hemisphere.
-
-
-
-**Returns:** The times of the four seasonal changes in the given calendar year. This function should always succeed. However, to be safe, callers should check the `status` field of the returned structure to make sure it contains `ASTRO_SUCCESS`. Any failures indicate a bug in the algorithm and should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `int` | `year` | The calendar year number for which to calculate equinoxes and solstices. The value may be any integer, but only the years 1800 through 2100 have been validated for accuracy: unit testing against data from the United States Naval Observatory confirms that all equinoxes and solstices for that range of years are within 2 minutes of the correct time. |
-
-
-
-
----
-
-
-### Astronomy_SetDeltaTFunction(func) ⇒ `void`
-
-**Changes the function Astronomy Engine uses to calculate Delta T.**
-
-
-
-Most programs should not call this function. It is for advanced use cases only. By default, Astronomy Engine uses the function [`Astronomy_DeltaT_EspenakMeeus`](#Astronomy_DeltaT_EspenakMeeus) to estimate changes in the Earth's rotation rate over time. However, for the sake of unit tests that compare calculations against external data sources that use alternative models for Delta T, it is sometimes useful to replace the Delta T model to match. This function allows replacing the Delta T model with any other desired model.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_deltat_func`](#astro_deltat_func) | `func` | A pointer to a function to convert UT values to DeltaT values. |
-
-
-
-
----
-
-
-### Astronomy_SiderealTime(time) ⇒ `double`
-
-**Calculates Greenwich Apparent Sidereal Time (GAST).**
-
-
-
-Given a date and time, this function calculates the rotation of the Earth, represented by the equatorial angle of the Greenwich prime meridian with respect to distant stars (not the Sun, which moves relative to background stars by almost one degree per day). This angle is called Greenwich Apparent Sidereal Time (GAST). GAST is measured in sidereal hours in the half-open range [0, 24). When GAST = 0, it means the prime meridian is aligned with the of-date equinox, corrected at that time for precession and nutation of the Earth's axis. In this context, the "equinox" is the direction in space where the Earth's orbital plane (the ecliptic) intersects with the plane of the Earth's equator, at the location on the Earth's orbit of the (seasonal) March equinox. As the Earth rotates, GAST increases from 0 up to 24 sidereal hours, then starts over at 0. To convert to degrees, multiply the return value by 15.
-
-
-
-**Returns:** {number}
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_time_t * | `time` | The date and time for which to find GAST. The parameter is passed by address because it can be modified by the call: As an optimization, this function caches the sidereal time value in `time`, unless it has already been cached, in which case the cached value is reused. If the `time` pointer is NULL, this function returns a NAN value. |
-
-
-
-
----
-
-
-### Astronomy_SphereFromVector(vector) ⇒ [`astro_spherical_t`](#astro_spherical_t)
-
-**Converts Cartesian coordinates to spherical coordinates.**
-
-
-
-Given a Cartesian vector, returns latitude, longitude, and distance.
-
-
-
-**Returns:** Spherical coordinates that are equivalent to the given vector.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `vector` | Cartesian vector to be converted to spherical coordinates. |
-
-
-
-
----
-
-
-### Astronomy_SunPosition(time) ⇒ [`astro_ecliptic_t`](#astro_ecliptic_t)
-
-**Calculates geocentric ecliptic coordinates for the Sun.**
-
-
-
-This function calculates the position of the Sun as seen from the Earth. The returned value includes both Cartesian and spherical coordinates. The x-coordinate and longitude values in the returned structure are based on the *true equinox of date*: one of two points in the sky where the instantaneous plane of the Earth's equator at the given date and time (the *equatorial plane*) intersects with the plane of the Earth's orbit around the Sun (the *ecliptic plane*). By convention, the apparent location of the Sun at the March equinox is chosen as the longitude origin and x-axis direction, instead of the one for September.
-
-`Astronomy_SunPosition` corrects for precession and nutation of the Earth's axis in order to obtain the exact equatorial plane at the given time.
-
-This function can be used for calculating changes of seasons: equinoxes and solstices. In fact, the function [`Astronomy_Seasons`](#Astronomy_Seasons) does use this function for that purpose.
-
-
-
-**Returns:** The ecliptic coordinates of the Sun using the Earth's true equator of date.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time for which to calculate the Sun's position. |
-
-
-
-
----
-
-
-### Astronomy_TerrestrialTime(tt) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Converts a terrestrial time value into an [`astro_time_t`](#astro_time_t) value.**
-
-
-
-This function can be used in rare cases where a time must be based on Terrestrial Time (TT) rather than Universal Time (UT). Most developers will want to call [`Astronomy_TimeFromDays`](#Astronomy_TimeFromDays) instead of this function, because usually time is based on civil time adjusted by leap seconds to match the Earth's rotation, rather than the uniformly flowing TT used to calculate solar system dynamics. In rare cases where the caller already knows TT, this function is provided to create an [`astro_time_t`](#astro_time_t) value that can be passed to Astronomy Engine functions.
-
-
-
-**Returns:** An [`astro_time_t`](#astro_time_t) value for the given `tt` value.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `tt` | The floating point number of days of uniformly flowing Terrestrial Time since the J2000 epoch. |
-
-
-
-
----
-
-
-### Astronomy_TimeFromDays(ut) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Converts a J2000 day value to an [`astro_time_t`](#astro_time_t) value.**
-
-
-
-This function can be useful for reproducing an [`astro_time_t`](#astro_time_t) structure from its `ut` field only.
-
-
-
-**Returns:** An [`astro_time_t`](#astro_time_t) value for the given `ut` value.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| `double` | `ut` | The floating point number of days since noon UTC on January 1, 2000. This time is based on UTC/UT1 civil time. See [`Astronomy_TerrestrialTime`](#Astronomy_TerrestrialTime) if you instead want to create a time value based on atomic Terrestrial Time (TT). |
-
-
-
-
----
-
-
-### Astronomy_TimeFromUtc(utc) ⇒ [`astro_time_t`](#astro_time_t)
-
-**Creates an [`astro_time_t`](#astro_time_t) value from a given calendar date and time.**
-
-
-
-This function is similar to [`Astronomy_MakeTime`](#Astronomy_MakeTime), only it receives a UTC calendar date and time in the form of an [`astro_utc_t`](#astro_utc_t) structure instead of as separate numeric parameters. Astronomy_TimeFromUtc is the inverse of [`Astronomy_UtcFromTime`](#Astronomy_UtcFromTime).
-
-
-
-**Returns:** A value that can be used for astronomical calculations for the given date and time.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_utc_t`](#astro_utc_t) | `utc` | The UTC calendar date and time to be converted to [`astro_time_t`](#astro_time_t). |
-
-
-
-
----
-
-
-### Astronomy_UtcFromTime(time) ⇒ [`astro_utc_t`](#astro_utc_t)
-
-**Determines the calendar year, month, day, and time from an [`astro_time_t`](#astro_time_t) value.**
-
-
-
-After calculating the date and time of an astronomical event in the form of an [`astro_time_t`](#astro_time_t) value, it is often useful to display the result in a human-readable form. This function converts the linear time scales in the `ut` field of [`astro_time_t`](#astro_time_t) into a calendar date and time: year, month, day, hours, minutes, and seconds, expressed in UTC.
-
-
-
-**Returns:** A date and time broken out into conventional year, month, day, hour, minute, and second.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_time_t`](#astro_time_t) | `time` | The astronomical time value to be converted to calendar date and time. |
-
-
-
-
----
-
-
-### Astronomy_VectorFromHorizon(sphere, time, refraction) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Given apparent angular horizontal coordinates in `sphere`, calculate horizontal vector.**
-
-
-
-
-
-**Returns:** A vector in the horizontal system: `x` = north, `y` = west, and `z` = zenith (up).
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_spherical_t`](#astro_spherical_t) | `sphere` | A structure that contains apparent horizontal coordinates: `lat` holds the refracted altitude angle, `lon` holds the azimuth in degrees clockwise from north, and `dist` holds the distance from the observer to the object in AU. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. This is needed because the returned [`astro_vector_t`](#astro_vector_t) structure requires a valid time value when passed to certain other functions. |
-| [`astro_refraction_t`](#astro_refraction_t) | `refraction` | The refraction option used to model atmospheric lensing. See [`Astronomy_Refraction`](#Astronomy_Refraction). This specifies how refraction is to be removed from the altitude stored in `sphere.lat`. |
-
-
-
-
----
-
-
-### Astronomy_VectorFromSphere(sphere, time) ⇒ [`astro_vector_t`](#astro_vector_t)
-
-**Converts spherical coordinates to Cartesian coordinates.**
-
-
-
-Given spherical coordinates and a time at which they are valid, returns a vector of Cartesian coordinates. The returned value includes the time, as required by the type [`astro_vector_t`](#astro_vector_t).
-
-
-
-**Returns:** The vector form of the supplied spherical coordinates.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_spherical_t`](#astro_spherical_t) | `sphere` | Spherical coordinates to be converted. |
-| [`astro_time_t`](#astro_time_t) | `time` | The time that should be included in the return value. |
-
-
-
-
----
-
-
-### Astronomy_VectorLength(vector) ⇒ `double`
-
-**Calculates the length of the given vector.**
-
-
-
-Calculates the non-negative length of the given vector. The length is expressed in the same units as the vector's components, usually astronomical units (AU).
-
-
-
-**Returns:** The length of the vector.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| [`astro_vector_t`](#astro_vector_t) | `vector` | The vector whose length is to be calculated. |
-
-
-
-
----
-
-
-### Astronomy_VectorObserver(vector, equdate) ⇒ [`astro_observer_t`](#astro_observer_t)
-
-**Calculates the geographic location corresponding to an equatorial vector.**
-
-
-
-This is the inverse function of [`Astronomy_ObserverVector`](#Astronomy_ObserverVector). Given a geocentric equatorial vector, it returns the geographic latitude, longitude, and elevation for that vector.
-
-
-
-**Returns:** The geographic latitude, longitude, and elevation above sea level that corresponds to the given equatorial vector.
-
-
-
-| Type | Parameter | Description |
-| --- | --- | --- |
-| astro_vector_t * | `vector` | The geocentric equatorial position vector for which to find geographic coordinates. The components are expressed in Astronomical Units (AU). You can calculate AU by dividing kilometers by the constant [`KM_PER_AU`](#KM_PER_AU). The time `vector.t` determines the Earth's rotation. The caller must set `vector.t` to a valid time. The vector is passed by reference (using a pointer) so that nutation calculations can be cached inside `vector.t` as an optimization. |
-| [`astro_equator_date_t`](#astro_equator_date_t) | `equdate` | Selects the date of the Earth's equator in which `vector` is expressed. The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator at noon UTC on January 1, 2000, in which case this function corrects for precession and nutation of the Earth as it was at the moment specified by `vector.t`. Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `vector.t` as the orientation. |
-
-
-
-
-## Constants
-
-
-
----
-
-
-### `AU_PER_LY`
-
-**The number of astronomical units per light-year.**
-
-
-
-```C
-#define AU_PER_LY 63241.07708807546
-```
-
-
-
----
-
-
-### `CALLISTO_RADIUS_KM`
-
-**The mean radius of Jupiter's moon Callisto, expressed in kilometers.**
-
-
-
-```C
-#define CALLISTO_RADIUS_KM 2410.3
-```
-
-
-
----
-
-
-### `C_AUDAY`
-
-**The speed of light in AU/day.**
-
-
-
-```C
-#define C_AUDAY 173.1446326846693
-```
-
-
-
----
-
-
-### `DEG2RAD`
-
-**The factor to convert degrees to radians = pi/180.**
-
-
-
-```C
-#define DEG2RAD 0.017453292519943296
-```
-
-
-
----
-
-
-### `EARTH_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of the Earth, expressed in kilometers.**
-
-
-
-```C
-#define EARTH_EQUATORIAL_RADIUS_KM 6378.1366
-```
-
-
-
----
-
-
-### `EARTH_FLATTENING`
-
-**The Earth's polar radius divided by its equatorial radius.**
-
-
-
-```C
-#define EARTH_FLATTENING 0.996647180302104
-```
-
-
-
----
-
-
-### `EARTH_POLAR_RADIUS_KM`
-
-**The polar radius of the Earth, expressed in kilometers.**
-
-
-
-```C
-#define EARTH_POLAR_RADIUS_KM (EARTH_EQUATORIAL_RADIUS_KM * EARTH_FLATTENING)
-```
-
-
-
----
-
-
-### `EUROPA_RADIUS_KM`
-
-**The mean radius of Jupiter's moon Europa, expressed in kilometers.**
-
-
-
-```C
-#define EUROPA_RADIUS_KM 1560.8
-```
-
-
-
----
-
-
-### `GANYMEDE_RADIUS_KM`
-
-**The mean radius of Jupiter's moon Ganymede, expressed in kilometers.**
-
-
-
-```C
-#define GANYMEDE_RADIUS_KM 2631.2
-```
-
-
-
----
-
-
-### `HOUR2RAD`
-
-**The factor to convert sidereal hours to radians = pi/12.**
-
-
-
-```C
-#define HOUR2RAD 0.2617993877991494365
-```
-
-
-
----
-
-
-### `IO_RADIUS_KM`
-
-**The mean radius of Jupiter's moon Io, expressed in kilometers.**
-
-
-
-```C
-#define IO_RADIUS_KM 1821.6
-```
-
-
-
----
-
-
-### `JUPITER_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Jupiter, expressed in kilometers.**
-
-
-
-```C
-#define JUPITER_EQUATORIAL_RADIUS_KM 71492.0
-```
-
-
-
----
-
-
-### `JUPITER_MEAN_RADIUS_KM`
-
-**The volumetric mean radius of Jupiter, expressed in kilometers.**
-
-
-
-```C
-#define JUPITER_MEAN_RADIUS_KM 69911.0
-```
-
-
-
----
-
-
-### `JUPITER_POLAR_RADIUS_KM`
-
-**The polar radius of Jupiter, expressed in kilometers.**
-
-
-
-```C
-#define JUPITER_POLAR_RADIUS_KM 66854.0
-```
-
-
-
----
-
-
-### `KM_PER_AU`
-
-**The number of kilometers in one astronomical unit (AU).**
-
-
-
-```C
-#define KM_PER_AU 1.4959787069098932e+8
-```
-
-
-
----
-
-
-### `MARS_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Mars, expressed in kilometers.**
-
-
-
-```C
-#define MARS_EQUATORIAL_RADIUS_KM 3396.2
-```
-
-
-
----
-
-
-### `MARS_POLAR_RADIUS_KM`
-
-**The polar radius of Mars, expressed in kilometers.**
-
-
-
-```C
-#define MARS_POLAR_RADIUS_KM 3376.2
-```
-
-
-
----
-
-
-### `MERCURY_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Mercury, expressed in kilometers.**
-
-
-
-```C
-#define MERCURY_EQUATORIAL_RADIUS_KM 2440.5
-```
-
-
-
----
-
-
-### `MERCURY_POLAR_RADIUS_KM`
-
-**The polar radius of Mercury, expressed in kilometers.**
-
-
-
-```C
-#define MERCURY_POLAR_RADIUS_KM 2438.3
-```
-
-
-
----
-
-
-### `MOON_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of the Moon, expressed in kilometers.**
-
-
-
-```C
-#define MOON_EQUATORIAL_RADIUS_KM 1738.1
-```
-
-
-
----
-
-
-### `MOON_POLAR_RADIUS_KM`
-
-**The polar radius of the Moon, expressed in kilometers.**
-
-
-
-```C
-#define MOON_POLAR_RADIUS_KM 1736.0
-```
-
-
-
----
-
-
-### `NEPTUNE_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Neptune, expressed in kilometers.**
-
-
-
-```C
-#define NEPTUNE_EQUATORIAL_RADIUS_KM 24764.0
-```
-
-
-
----
-
-
-### `NEPTUNE_POLAR_RADIUS_KM`
-
-**The polar radius of Neptune, expressed in kilometers.**
-
-
-
-```C
-#define NEPTUNE_POLAR_RADIUS_KM 24341.0
-```
-
-
-
----
-
-
-### `PLUTO_RADIUS_KM`
-
-**The mean radius of Pluto, expressed in kilometers. Pluto is nearly spherical.**
-
-
-
-```C
-#define PLUTO_RADIUS_KM 1188.3
-```
-
-
-
----
-
-
-### `RAD2DEG`
-
-**The factor to convert radians to degrees = 180/pi.**
-
-
-
-```C
-#define RAD2DEG 57.295779513082321
-```
-
-
-
----
-
-
-### `RAD2HOUR`
-
-**The factor to convert radians to sidereal hours = 12/pi.**
-
-
-
-```C
-#define RAD2HOUR 3.819718634205488
-```
-
-
-
----
-
-
-### `SATURN_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Saturn, expressed in kilometers.**
-
-
-
-```C
-#define SATURN_EQUATORIAL_RADIUS_KM 60268.0
-```
-
-
-
----
-
-
-### `SATURN_POLAR_RADIUS_KM`
-
-**The polar radius of Saturn, expressed in kilometers.**
-
-
-
-```C
-#define SATURN_POLAR_RADIUS_KM 54364.0
-```
-
-
-
----
-
-
-### `SUN_RADIUS_KM`
-
-**The mean radius of the Sun's photosphere, expressed in kilometers. The Sun is nearly spherical.**
-
-
-
-```C
-#define SUN_RADIUS_KM 695700.0
-```
-
-
-
----
-
-
-### `TIME_TEXT_BYTES`
-
-**The smallest number of characters that is always large enough for [`Astronomy_FormatTime`](#Astronomy_FormatTime).**
-
-
-
-```C
-#define TIME_TEXT_BYTES 28
-```
-
-
-
----
-
-
-### `URANUS_EQUATORIAL_RADIUS_KM`
-
-**The equatorial radius of Uranus, expressed in kilometers.**
-
-
-
-```C
-#define URANUS_EQUATORIAL_RADIUS_KM 25559.0
-```
-
-
-
----
-
-
-### `URANUS_POLAR_RADIUS_KM`
-
-**The polar radius of Uranus, expressed in kilometers.**
-
-
-
-```C
-#define URANUS_POLAR_RADIUS_KM 24973.0
-```
-
-
-
----
-
-
-### `VENUS_RADIUS_KM`
-
-**The mean radius of Venus, expressed in kilometers. Venus is nearly spherical.**
-
-
-
-```C
-#define VENUS_RADIUS_KM 6051.8
-```
-
-
-
-## Enumerated Types
-
-
-
----
-
-
-### `astro_aberration_t`
-
-**Aberration calculation options.**
-
-
-
-[Aberration](https://en.wikipedia.org/wiki/Aberration_of_light) is an effect causing the apparent direction of an observed body to be shifted due to transverse movement of the Earth with respect to the rays of light coming from that body. This angular correction can be anywhere from 0 to about 20 arcseconds, depending on the position of the observed body relative to the instantaneous velocity vector of the Earth.
-
-Some Astronomy Engine functions allow optional correction for aberration by passing in a value of this enumerated type.
-
-Aberration correction is useful to improve accuracy of coordinates of apparent locations of bodies seen from the Earth. However, because aberration affects not only the observed body (such as a planet) but the surrounding stars, aberration may be unhelpful (for example) for determining exactly when a planet crosses from one constellation to another.
-
-| Enum Value | Description |
-| --- | --- |
-| `ABERRATION` | Request correction for aberration. |
-| `NO_ABERRATION` | Do not correct for aberration. |
-
-
-
----
-
-
-### `astro_apsis_kind_t`
-
-**The type of apsis: pericenter (closest approach) or apocenter (farthest distance).**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `APSIS_PERICENTER` | The body is at its closest approach to the object it orbits. |
-| `APSIS_APOCENTER` | The body is at its farthest distance from the object it orbits. |
-| `APSIS_INVALID` | Undefined or invalid apsis. |
-
-
-
----
-
-
-### `astro_body_t`
-
-**A celestial body.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `BODY_INVALID` | An invalid or undefined celestial body. |
-| `BODY_MERCURY` | Mercury |
-| `BODY_VENUS` | Venus |
-| `BODY_EARTH` | Earth |
-| `BODY_MARS` | Mars |
-| `BODY_JUPITER` | Jupiter |
-| `BODY_SATURN` | Saturn |
-| `BODY_URANUS` | Uranus |
-| `BODY_NEPTUNE` | Neptune |
-| `BODY_PLUTO` | Pluto |
-| `BODY_SUN` | Sun |
-| `BODY_MOON` | Moon |
-| `BODY_EMB` | Earth/Moon Barycenter |
-| `BODY_SSB` | Solar System Barycenter |
-| `BODY_STAR1` | user-defined star #1 |
-| `BODY_STAR2` | user-defined star #2 |
-| `BODY_STAR3` | user-defined star #3 |
-| `BODY_STAR4` | user-defined star #4 |
-| `BODY_STAR5` | user-defined star #5 |
-| `BODY_STAR6` | user-defined star #6 |
-| `BODY_STAR7` | user-defined star #7 |
-| `BODY_STAR8` | user-defined star #8 |
-
-
-
----
-
-
-### `astro_direction_t`
-
-**Selects whether to search for a rise time or a set time.**
-
-
-
-The [`Astronomy_SearchRiseSetEx`](#Astronomy_SearchRiseSetEx) function finds the rise or set time of a body depending on the value of its `direction` parameter.
-
-| Enum Value | Description |
-| --- | --- |
-| `DIRECTION_RISE` | Search for the time a body begins to rise above the horizon. |
-| `DIRECTION_SET` | Search for the time a body finishes sinking below the horizon. |
-
-
-
----
-
-
-### `astro_eclipse_kind_t`
-
-**The different kinds of lunar/solar eclipses.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `ECLIPSE_NONE` | No eclipse found. |
-| `ECLIPSE_PENUMBRAL` | A penumbral lunar eclipse. (Never used for a solar eclipse.) |
-| `ECLIPSE_PARTIAL` | A partial lunar/solar eclipse. |
-| `ECLIPSE_ANNULAR` | An annular solar eclipse. (Never used for a lunar eclipse.) |
-| `ECLIPSE_TOTAL` | A total lunar/solar eclipse. |
-
-
-
----
-
-
-### `astro_equator_date_t`
-
-**Selects the date for which the Earth's equator is to be used for representing equatorial coordinates.**
-
-
-
-The Earth's equator is not always in the same plane due to precession and nutation.
-
-Sometimes it is useful to have a fixed plane of reference for equatorial coordinates across different calendar dates. In these cases, a fixed *epoch*, or reference time, is helpful. Astronomy Engine provides the J2000 epoch for such cases. This refers to the plane of the Earth's orbit as it was on noon UTC on 1 January 2000.
-
-For some other purposes, it is more helpful to represent coordinates using the Earth's equator exactly as it is on that date. For example, when calculating rise/set times or horizontal coordinates, it is most accurate to use the orientation of the Earth's equator at that same date and time. For these uses, Astronomy Engine allows *of-date* calculations.
-
-| Enum Value | Description |
-| --- | --- |
-| `EQUATOR_J2000` | Represent equatorial coordinates in the J2000 epoch. |
-| `EQUATOR_OF_DATE` | Represent equatorial coordinates using the Earth's equator at the given date and time. |
-
-
-
----
-
-
-### `astro_node_kind_t`
-
-**Indicates whether a crossing through the ecliptic plane is ascending or descending.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `INVALID_NODE` | Placeholder value for a missing or invalid node. |
-| `ASCENDING_NODE` | The body passes through the ecliptic plane from south to north. |
-| `DESCENDING_NODE` | The body passes through the ecliptic plane from north to south. |
-
-
-
----
-
-
-### `astro_refraction_t`
-
-**Selects whether to correct for atmospheric refraction, and if so, how.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `REFRACTION_NONE` | No atmospheric refraction correction (airless). |
-| `REFRACTION_NORMAL` | Recommended correction for standard atmospheric refraction. |
-| `REFRACTION_JPLHOR` | Used only for compatibility testing with JPL Horizons online tool. |
-
-
-
----
-
-
-### `astro_status_t`
-
-**Indicates success/failure of an Astronomy Engine function call.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `ASTRO_SUCCESS` | The operation was successful. |
-| `ASTRO_NOT_INITIALIZED` | A placeholder that can be used for data that is not yet initialized. |
-| `ASTRO_INVALID_BODY` | The celestial body was not valid. Different sets of bodies are supported depending on the function. |
-| `ASTRO_NO_CONVERGE` | A numeric solver failed to converge. This should not happen unless there is a bug in Astronomy Engine. |
-| `ASTRO_BAD_TIME` | The provided date/time is outside the range allowed by this function. |
-| `ASTRO_BAD_VECTOR` | Vector magnitude is too small to be normalized into a unit vector. |
-| `ASTRO_SEARCH_FAILURE` | Search was not able to find an ascending root crossing of the function in the specified time interval. |
-| `ASTRO_EARTH_NOT_ALLOWED` | The Earth cannot be treated as a celestial body seen from an observer on the Earth itself. |
-| `ASTRO_NO_MOON_QUARTER` | No lunar quarter occurs inside the specified time range. |
-| `ASTRO_WRONG_MOON_QUARTER` | Internal error: Astronomy_NextMoonQuarter found the wrong moon quarter. |
-| `ASTRO_INTERNAL_ERROR` | A self-check failed inside the code somewhere, indicating a bug needs to be fixed. |
-| `ASTRO_INVALID_PARAMETER` | A parameter value passed to a function was not valid. |
-| `ASTRO_FAIL_APSIS` | Special-case logic for finding Neptune/Pluto apsis failed. |
-| `ASTRO_BUFFER_TOO_SMALL` | A provided buffer's size is too small to receive the requested data. |
-| `ASTRO_OUT_OF_MEMORY` | An attempt to allocate memory failed. |
-| `ASTRO_INCONSISTENT_TIMES` | The provided initial state vectors did not have matching times. |
-
-
-
----
-
-
-### `astro_time_format_t`
-
-**Selects the output format of the function [`Astronomy_FormatTime`](#Astronomy_FormatTime).**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `TIME_FORMAT_DAY` | Truncate to UTC calendar date only, e.g. `2020-12-31`. Buffer size must be at least 11 characters. |
-| `TIME_FORMAT_MINUTE` | Round to nearest UTC minute, e.g. `2020-12-31T15:47Z`. Buffer size must be at least 18 characters. |
-| `TIME_FORMAT_SECOND` | Round to nearest UTC second, e.g. `2020-12-31T15:47:32Z`. Buffer size must be at least 21 characters. |
-| `TIME_FORMAT_MILLI` | Round to nearest UTC millisecond, e.g. `2020-12-31T15:47:32.397Z`. Buffer size must be at least 25 characters. |
-
-
-
----
-
-
-### `astro_visibility_t`
-
-**Indicates whether a body (especially Mercury or Venus) is best seen in the morning or evening.**
-
-
-
-| Enum Value | Description |
-| --- | --- |
-| `VISIBLE_MORNING` | The body is best visible in the morning, before sunrise. |
-| `VISIBLE_EVENING` | The body is best visible in the evening, after sunset. |
-
-
-
-## Structures
-
-
-
----
-
-
-### `astro_angle_result_t`
-
-**An angular value expressed in degrees.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `angle` | An angle expressed in degrees. |
-
-
----
-
-
-### `astro_apsis_t`
-
-**An apsis event: pericenter (closest approach) or apocenter (farthest distance).**
-
-
-
-For the Moon orbiting the Earth, or a planet orbiting the Sun, an *apsis* is an event where the orbiting body reaches its closest or farthest point from the primary body. The closest approach is called *pericenter* and the farthest point is *apocenter*.
-
-More specific terminology is common for particular orbiting bodies. The Moon's closest approach to the Earth is called *perigee* and its farthest point is called *apogee*. The closest approach of a planet to the Sun is called *perihelion* and the furthest point is called *aphelion*.
-
-This data structure is returned by [`Astronomy_SearchLunarApsis`](#Astronomy_SearchLunarApsis) and [`Astronomy_NextLunarApsis`](#Astronomy_NextLunarApsis) to iterate through consecutive alternating perigees and apogees.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the apsis. |
-| [`astro_apsis_kind_t`](#astro_apsis_kind_t) | `kind` | Whether this is a pericenter or apocenter event. |
-| `double` | `dist_au` | The distance between the centers of the bodies in astronomical units. |
-| `double` | `dist_km` | The distance between the centers of the bodies in kilometers. |
-
-
----
-
-
-### `astro_atmosphere_t`
-
-**Information about idealized atmospheric variables at a given elevation.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `pressure` | Atmospheric pressure in pascals |
-| `double` | `temperature` | Atmospheric temperature in kelvins |
-| `double` | `density` | Atmospheric density relative to sea level |
-
-
----
-
-
-### `astro_axis_t`
-
-**Information about a body's rotation axis at a given time.**
-
-
-
-This structure is returned by [`Astronomy_RotationAxis`](#Astronomy_RotationAxis) to report the orientation of a body's rotation axis at a given moment in time. The axis is specified by the direction in space that the body's north pole points, using angular equatorial coordinates in the J2000 system (EQJ).
-
-Thus `ra` is the right ascension, and `dec` is the declination, of the body's north pole vector at the given moment in time. The north pole of a body is defined as the pole that lies on the north side of the [Solar System's invariable plane](https://en.wikipedia.org/wiki/Invariable_plane), regardless of the body's direction of rotation.
-
-The `spin` field indicates the angular position of a prime meridian arbitrarily recommended for the body by the International Astronomical Union (IAU).
-
-The fields `ra`, `dec`, and `spin` correspond to the variables α0, δ0, and W, respectively, from [Report of the IAU Working Group on Cartographic Coordinates and Rotational Elements: 2015](https://astropedia.astrogeology.usgs.gov/download/Docs/WGCCRE/WGCCRE2015reprint.pdf).
-
-The field `north` is a unit vector pointing in the direction of the body's north pole. It is expressed in the equatorial J2000 system (EQJ).
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `ra` | The J2000 right ascension of the body's north pole direction, in sidereal hours. |
-| `double` | `dec` | The J2000 declination of the body's north pole direction, in degrees. |
-| `double` | `spin` | Rotation angle of the body's prime meridian, in degrees. |
-| [`astro_vector_t`](#astro_vector_t) | `north` | A J2000 dimensionless unit vector pointing in the direction of the body's north pole. |
-
-
----
-
-
-### `astro_constellation_t`
-
-**Reports the constellation that a given celestial point lies within.**
-
-
-
-The [`Astronomy_Constellation`](#Astronomy_Constellation) function returns this struct to report which constellation corresponds with a given point in the sky. Constellations are defined with respect to the B1875 equatorial system per IAU standard. Although `Astronomy.Constellation` requires J2000 equatorial coordinates, the struct contains converted B1875 coordinates for reference.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `const char *` | `symbol` | 3-character mnemonic symbol for the constellation, e.g. "Ori". |
-| `const char *` | `name` | Full name of constellation, e.g. "Orion". |
-| `double` | `ra_1875` | Right ascension expressed in B1875 coordinates. |
-| `double` | `dec_1875` | Declination expressed in B1875 coordinates. |
-
-
----
-
-
-### `astro_eclipse_event_t`
-
-**Holds a time and the observed altitude of the Sun at that time.**
-
-
-
-When reporting a solar eclipse observed at a specific location on the Earth (a "local" solar eclipse), a series of events occur. In addition to the time of each event, it is important to know the altitude of the Sun, because each event may be invisible to the observer if the Sun is below the horizon.
-
-If `altitude` is negative, the event is theoretical only; it would be visible if the Earth were transparent, but the observer cannot actually see it. If `altitude` is positive but less than a few degrees, visibility will be impaired by atmospheric interference (sunrise or sunset conditions).
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the event. |
-| `double` | `altitude` | The angular altitude of the center of the Sun above/below the horizon, at `time`, corrected for atmospheric refraction and expressed in degrees. |
-
-
----
-
-
-### `astro_ecliptic_t`
-
-**Ecliptic angular and Cartesian coordinates.**
-
-
-
-Coordinates of a celestial body as seen from the center of the Sun (heliocentric), oriented with respect to the plane of the Earth's orbit around the Sun (the ecliptic).
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_vector_t`](#astro_vector_t) | `vec` | Cartesian ecliptic vector: x=equinox, y=90 degrees prograde in ecliptic plane, z=northward perpendicular to ecliptic. |
-| `double` | `elat` | Latitude in degrees north (positive) or south (negative) of the ecliptic plane. |
-| `double` | `elon` | Longitude in degrees around the ecliptic plane prograde from the equinox. |
-
-
----
-
-
-### `astro_elongation_t`
-
-**Contains information about the visibility of a celestial body at a given date and time. See [`Astronomy_Elongation`](#Astronomy_Elongation) for more detailed information about the members of this structure. See also [`Astronomy_SearchMaxElongation`](#Astronomy_SearchMaxElongation) for how to search for maximum elongation events.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-| [`astro_visibility_t`](#astro_visibility_t) | `visibility` | Whether the body is best seen in the morning or the evening. |
-| `double` | `elongation` | The angle in degrees between the body and the Sun, as seen from the Earth. |
-| `double` | `ecliptic_separation` | The difference between the ecliptic longitudes of the body and the Sun, as seen from the Earth. |
-
-
----
-
-
-### `astro_equatorial_t`
-
-**Equatorial angular and cartesian coordinates.**
-
-
-
-Coordinates of a celestial body as seen from the Earth (geocentric or topocentric, depending on context), oriented with respect to the projection of the Earth's equator onto the sky.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `ra` | right ascension in sidereal hours. |
-| `double` | `dec` | declination in degrees |
-| `double` | `dist` | distance to the celestial body in AU. |
-| [`astro_vector_t`](#astro_vector_t) | `vec` | equatorial coordinates in cartesian vector form: x = March equinox, y = June solstice, z = north. |
-
-
----
-
-
-### `astro_func_result_t`
-
-**A real value returned by a function whose ascending root is to be found.**
-
-
-
-When calling [`Astronomy_Search`](#Astronomy_Search), the caller must pass in a callback function compatible with the function-pointer type [`astro_search_func_t`](#astro_search_func_t) whose ascending root is to be found. That callback function must return [`astro_func_result_t`](#astro_func_result_t). If the function call is successful, it will set `status` to `ASTRO_SUCCESS` and `value` to the numeric value appropriate for the given date and time. If the call fails for some reason, it should set `status` to an appropriate error value other than `ASTRO_SUCCESS`; in the error case, to guard against any possible misuse of `value`, it is recommended to set `value` to `NAN`, though this is not strictly necessary.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `value` | The value returned by a function whose ascending root is to be found. |
-
-
----
-
-
-### `astro_global_solar_eclipse_t`
-
-**Reports the time and geographic location of the peak of a solar eclipse.**
-
-
-
-Returned by [`Astronomy_SearchGlobalSolarEclipse`](#Astronomy_SearchGlobalSolarEclipse) or [`Astronomy_NextGlobalSolarEclipse`](#Astronomy_NextGlobalSolarEclipse) to report information about a solar eclipse event. If a solar eclipse is found, `status` holds `ASTRO_SUCCESS` and `kind`, `peak`, and `distance` have valid values. The `latitude` and `longitude` are set only for total and annular eclipses (see more below). If `status` holds any value other than `ASTRO_SUCCESS`, it is an error code; in that case, `kind` holds `ECLIPSE_NONE` and all the other fields are undefined.
-
-The eclipse is classified as partial, annular, or total, depending on the maximum amount of the Sun's disc obscured, as seen at the peak location on the surface of the Earth.
-
-The `kind` field thus holds `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`. A total eclipse is when the peak observer sees the Sun completely blocked by the Moon. An annular eclipse is like a total eclipse, but the Moon is too far from the Earth's surface to completely block the Sun; instead, the Sun takes on a ring-shaped appearance. A partial eclipse is when the Moon blocks part of the Sun's disc, but nobody on the Earth observes either a total or annular eclipse.
-
-If `kind` is `ECLIPSE_TOTAL` or `ECLIPSE_ANNULAR`, the `latitude` and `longitude` fields give the geographic coordinates of the center of the Moon's shadow projected onto the daytime side of the Earth at the instant of the eclipse's peak. If `kind` has any other value, `latitude` and `longitude` are undefined and should not be used.
-
-For total or annular eclipses, the `obscuration` field holds the fraction (0, 1] of the Sun's apparent disc area that is blocked from view by the Moon's silhouette, as seen by an observer located at the geographic coordinates `latitude`, `longitude` at the darkest time `peak`. The value will always be 1 for total eclipses, and less than 1 for annular eclipses. For partial eclipses, `obscuration` is undefined and should not be used. This is because there is little practical use for an obscuration value of a partial eclipse without supplying a particular observation location. Developers who wish to find an obscuration value for partial solar eclipses should therefore use [`Astronomy_SearchLocalSolarEclipse`](#Astronomy_SearchLocalSolarEclipse) and provide the geographic coordinates of an observer.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_eclipse_kind_t`](#astro_eclipse_kind_t) | `kind` | The type of solar eclipse found. |
-| `double` | `obscuration` | The peak fraction of the Sun's apparent disc area obscured by the Moon (total and annular eclipses only). |
-| [`astro_time_t`](#astro_time_t) | `peak` | The date and time when the solar eclipse is darkest. This is the instant when the axis of the Moon's shadow cone passes closest to the Earth's center. |
-| `double` | `distance` | The distance between the Sun/Moon shadow axis and the center of the Earth, in kilometers. |
-| `double` | `latitude` | The geographic latitude at the center of the peak eclipse shadow. |
-| `double` | `longitude` | The geographic longitude at the center of the peak eclipse shadow. |
-
-
----
-
-
-### `astro_horizon_t`
-
-**Coordinates of a celestial body as seen by a topocentric observer.**
-
-
-
-Contains horizontal and equatorial coordinates seen by an observer on or near the surface of the Earth (a topocentric observer). Optionally corrected for atmospheric refraction.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| `double` | `azimuth` | Compass direction around the horizon in degrees. 0=North, 90=East, 180=South, 270=West. |
-| `double` | `altitude` | Angle in degrees above (positive) or below (negative) the observer's horizon. |
-| `double` | `ra` | Right ascension in sidereal hours. |
-| `double` | `dec` | Declination in degrees. |
-
-
----
-
-
-### `astro_hour_angle_t`
-
-**Information about a celestial body crossing a specific hour angle.**
-
-
-
-Returned by the function [`Astronomy_SearchHourAngleEx`](#Astronomy_SearchHourAngleEx) to report information about a celestial body crossing a certain hour angle as seen by a specified topocentric observer.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time when the body crosses the specified hour angle. |
-| [`astro_horizon_t`](#astro_horizon_t) | `hor` | Apparent coordinates of the body at the time it crosses the specified hour angle. |
-
-
----
-
-
-### `astro_illum_t`
-
-**Information about the brightness and illuminated shape of a celestial body.**
-
-
-
-Returned by the functions [`Astronomy_Illumination`](#Astronomy_Illumination) and [`Astronomy_SearchPeakMagnitude`](#Astronomy_SearchPeakMagnitude) to report the visual magnitude and illuminated fraction of a celestial body at a given date and time.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the observation. |
-| `double` | `mag` | The visual magnitude of the body. Smaller values are brighter. |
-| `double` | `phase_angle` | The angle in degrees between the Sun and the Earth, as seen from the body. Indicates the body's phase as seen from the Earth. |
-| `double` | `phase_fraction` | A value in the range [0.0, 1.0] indicating what fraction of the body's apparent disc is illuminated, as seen from the Earth. |
-| `double` | `helio_dist` | The distance between the Sun and the body at the observation time. |
-| `double` | `ring_tilt` | For Saturn, the tilt angle in degrees of its rings as seen from Earth. For all other bodies, 0. |
-
-
----
-
-
-### `astro_jupiter_moons_t`
-
-**Holds the positions and velocities of Jupiter's major 4 moons.**
-
-
-
-The [`Astronomy_JupiterMoons`](#Astronomy_JupiterMoons) function returns this struct to report position and velocity vectors for Jupiter's largest 4 moons Io, Europa, Ganymede, and Callisto. Each position vector is relative to the center of Jupiter. Both position and velocity are oriented in the EQJ system (that is, using Earth's equator at the J2000 epoch.) The positions are expressed in astronomical units (AU), and the velocities in AU/day.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `io` | Jovicentric position and velocity of Io. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `europa` | Jovicentric position and velocity of Europa. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `ganymede` | Jovicentric position and velocity of Ganymede. |
-| [`astro_state_vector_t`](#astro_state_vector_t) | `callisto` | Jovicentric position and velocity of Callisto. |
-
-
----
-
-
-### `astro_libration_t`
-
-**Lunar libration angles, returned by [`Astronomy_Libration`](#Astronomy_Libration).**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| `double` | `elat` | Sub-Earth libration ecliptic latitude angle, in degrees. |
-| `double` | `elon` | Sub-Earth libration ecliptic longitude angle, in degrees. |
-| `double` | `mlat` | Moon's geocentric ecliptic latitude, in degrees. |
-| `double` | `mlon` | Moon's geocentric ecliptic longitude, in degrees. |
-| `double` | `dist_km` | Distance between the centers of the Earth and Moon in kilometers. |
-| `double` | `diam_deg` | The apparent angular diameter of the Moon, in degrees, as seen from the center of the Earth. |
-
-
----
-
-
-### `astro_local_solar_eclipse_t`
-
-**Information about a solar eclipse as seen by an observer at a given time and geographic location.**
-
-
-
-Returned by [`Astronomy_SearchLocalSolarEclipse`](#Astronomy_SearchLocalSolarEclipse) or [`Astronomy_NextLocalSolarEclipse`](#Astronomy_NextLocalSolarEclipse) to report information about a solar eclipse as seen at a given geographic location. If a solar eclipse is found, `status` holds `ASTRO_SUCCESS` and the other fields are set. If `status` holds any other value, it is an error code and the other fields are undefined.
-
-When a solar eclipse is found, it is classified as partial, annular, or total. The `kind` field thus holds `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`. A partial solar eclipse is when the Moon does not line up directly enough with the Sun to completely block the Sun's light from reaching the observer. An annular eclipse occurs when the Moon's disc is completely visible against the Sun but the Moon is too far away to completely block the Sun's light; this leaves the Sun with a ring-like appearance. A total eclipse occurs when the Moon is close enough to the Earth and aligned with the Sun just right to completely block all sunlight from reaching the observer.
-
-The `obscuration` field reports what fraction of the Sun's disc appears blocked by the Moon when viewed by the observer at the peak eclipse time. This is a value that ranges from 0 (no blockage) to 1 (total eclipse). The obscuration value will be between 0 and 1 for partial eclipses and annular eclipses. The value will be exactly 1 for total eclipses. Obscuration gives an indication of how dark the eclipse appears.
-
-There are 5 "event" fields, each of which contains a time and a solar altitude. Field `peak` holds the date and time of the center of the eclipse, when it is at its peak. The fields `partial_begin` and `partial_end` are always set, and indicate when the eclipse begins/ends. If the eclipse reaches totality or becomes annular, `total_begin` and `total_end` indicate when the total/annular phase begins/ends. When an event field is valid, the caller must also check its `altitude` field to see whether the Sun is above the horizon at that time. See [`astro_eclipse_kind_t`](#astro_eclipse_kind_t) for more information.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_eclipse_kind_t`](#astro_eclipse_kind_t) | `kind` | The type of solar eclipse found: `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`. |
-| `double` | `obscuration` | The fraction of the Sun's apparent disc area obscured by the Moon at the eclipse peak. |
-| [`astro_eclipse_event_t`](#astro_eclipse_event_t) | `partial_begin` | The time and Sun altitude at the beginning of the eclipse. |
-| [`astro_eclipse_event_t`](#astro_eclipse_event_t) | `total_begin` | If this is an annular or a total eclipse, the time and Sun altitude when annular/total phase begins; otherwise invalid. |
-| [`astro_eclipse_event_t`](#astro_eclipse_event_t) | `peak` | The time and Sun altitude when the eclipse reaches its peak. |
-| [`astro_eclipse_event_t`](#astro_eclipse_event_t) | `total_end` | If this is an annular or a total eclipse, the time and Sun altitude when annular/total phase ends; otherwise invalid. |
-| [`astro_eclipse_event_t`](#astro_eclipse_event_t) | `partial_end` | The time and Sun altitude at the end of the eclipse. |
-
-
----
-
-
-### `astro_lunar_eclipse_t`
-
-**Information about a lunar eclipse.**
-
-
-
-Returned by [`Astronomy_SearchLunarEclipse`](#Astronomy_SearchLunarEclipse) or [`Astronomy_NextLunarEclipse`](#Astronomy_NextLunarEclipse) to report information about a lunar eclipse event. If a lunar eclipse is found, `status` holds `ASTRO_SUCCESS` and the other fields are set. If `status` holds any other value, it is an error code and the other fields are undefined.
-
-When a lunar eclipse is found, it is classified as penumbral, partial, or total. Penumbral eclipses are difficult to observe, because the Moon is only slightly dimmed by the Earth's penumbra; no part of the Moon touches the Earth's umbra. Partial eclipses occur when part, but not all, of the Moon touches the Earth's umbra. Total eclipses occur when the entire Moon passes into the Earth's umbra.
-
-The `kind` field thus holds `ECLIPSE_PENUMBRAL`, `ECLIPSE_PARTIAL`, or `ECLIPSE_TOTAL`, depending on the kind of lunar eclipse found.
-
-The `obscuration` field holds a value in the range [0, 1] that indicates what fraction of the Moon's apparent disc area is covered by the Earth's umbra at the eclipse's peak. This indicates how dark the peak eclipse appears. For penumbral eclipses, the obscuration is 0, because the Moon does not pass through the Earth's umbra. For partial eclipses, the obscuration is somewhere between 0 and 1. For total lunar eclipses, the obscuration is 1.
-
-Field `peak` holds the date and time of the center of the eclipse, when it is at its peak.
-
-Fields `sd_penum`, `sd_partial`, and `sd_total` hold the semi-duration of each phase of the eclipse, which is half of the amount of time the eclipse spends in each phase (expressed in minutes), or 0 if the eclipse never reaches that phase. By converting from minutes to days, and subtracting/adding with `center`, the caller may determine the date and time of the beginning/end of each eclipse phase.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_eclipse_kind_t`](#astro_eclipse_kind_t) | `kind` | The type of lunar eclipse found. |
-| `double` | `obscuration` | The peak fraction of the Moon's apparent disc that is covered by the Earth's umbra. |
-| [`astro_time_t`](#astro_time_t) | `peak` | The time of the eclipse at its peak. |
-| `double` | `sd_penum` | The semi-duration of the penumbral phase in minutes. |
-| `double` | `sd_partial` | The semi-duration of the partial phase in minutes, or 0.0 if none. |
-| `double` | `sd_total` | The semi-duration of the total phase in minutes, or 0.0 if none. |
-
-
----
-
-
-### `astro_moon_quarter_t`
-
-**A lunar quarter event (new moon, first quarter, full moon, or third quarter) along with its date and time.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `int` | `quarter` | 0=new moon, 1=first quarter, 2=full moon, 3=third quarter. |
-| [`astro_time_t`](#astro_time_t) | `time` | The date and time of the lunar quarter. |
-
-
----
-
-
-### `astro_node_event_t`
-
-**Information about an ascending or descending node of a body.**
-
-
-
-This structure is returned by [`Astronomy_SearchMoonNode`](#Astronomy_SearchMoonNode) and [`Astronomy_NextMoonNode`](#Astronomy_NextMoonNode) to report information about the center of the Moon passing through the ecliptic plane.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The time when the body passes through the ecliptic plane. |
-| [`astro_node_kind_t`](#astro_node_kind_t) | `kind` | Either `ASCENDING_NODE` or `DESCENDING_NODE`, depending on the direction of the ecliptic plane crossing. |
-
-
----
-
-
-### `astro_observer_t`
-
-**The location of an observer on (or near) the surface of the Earth.**
-
-
-
-This structure is passed to functions that calculate phenomena as observed from a particular place on the Earth.
-
-You can create this structure directly, or you can call the convenience function [`Astronomy_MakeObserver`](#Astronomy_MakeObserver) to create one for you.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| `double` | `latitude` | Geographic latitude in degrees north (positive) or south (negative) of the equator. |
-| `double` | `longitude` | Geographic longitude in degrees east (positive) or west (negative) of the prime meridian at Greenwich, England. |
-| `double` | `height` | The height above (positive) or below (negative) sea level, expressed in meters. |
-
-
----
-
-
-### `astro_rotation_t`
-
-**Contains a rotation matrix that can be used to transform one coordinate system to another.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `rot` | A normalized 3x3 rotation matrix. |
-
-
----
-
-
-### `astro_search_result_t`
-
-**The result of a search for an astronomical event.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `time` | The time at which a searched-for event occurs. |
-
-
----
-
-
-### `astro_seasons_t`
-
-**The dates and times of changes of season for a given calendar year. Call [`Astronomy_Seasons`](#Astronomy_Seasons) to calculate this data structure for a given year.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `mar_equinox` | The date and time of the March equinox for the specified year. |
-| [`astro_time_t`](#astro_time_t) | `jun_solstice` | The date and time of the June soltice for the specified year. |
-| [`astro_time_t`](#astro_time_t) | `sep_equinox` | The date and time of the September equinox for the specified year. |
-| [`astro_time_t`](#astro_time_t) | `dec_solstice` | The date and time of the December solstice for the specified year. |
-
-
----
-
-
-### `astro_spherical_t`
-
-**Spherical coordinates: latitude, longitude, distance.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `lat` | The latitude angle: -90..+90 degrees. |
-| `double` | `lon` | The longitude angle: 0..360 degrees. |
-| `double` | `dist` | Distance in AU. |
-
-
----
-
-
-### `astro_state_vector_t`
-
-**A state vector that contains a position (AU) and velocity (AU/day).**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `x` | The Cartesian position x-coordinate of the vector in AU. |
-| `double` | `y` | The Cartesian position y-coordinate of the vector in AU. |
-| `double` | `z` | The Cartesian position z-coordinate of the vector in AU. |
-| `double` | `vx` | The Cartesian velocity x-coordinate of the vector in AU/day. |
-| `double` | `vy` | The Cartesian velocity y-coordinate of the vector in AU/day. |
-| `double` | `vz` | The Cartesian velocity z-coordinate of the vector in AU/day. |
-| [`astro_time_t`](#astro_time_t) | `t` | The date and time at which this state vector is valid. |
-
-
----
-
-
-### `astro_time_t`
-
-**A date and time used for astronomical calculations.**
-
-
-
-This type is of fundamental importance to Astronomy Engine. It is used to represent dates and times for all astronomical calculations. It is also included in the values returned by many Astronomy Engine functions.
-
-To create a valid [`astro_time_t`](#astro_time_t) value from scratch, call [`Astronomy_MakeTime`](#Astronomy_MakeTime) (for a given calendar date and time) or [`Astronomy_CurrentTime`](#Astronomy_CurrentTime) (for the system's current date and time).
-
-To adjust an existing [`astro_time_t`](#astro_time_t) by a certain real number of days, call [`Astronomy_AddDays`](#Astronomy_AddDays).
-
-The [`astro_time_t`](#astro_time_t) type contains `ut` to represent Universal Time (UT1/UTC) and `tt` to represent Terrestrial Time (TT, also known as *ephemeris time*). The difference `tt-ut` is known as *ΔT*, using a best-fit piecewise model devised by [Espenak and Meeus](https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html).
-
-Both `tt` and `ut` are necessary for performing different astronomical calculations. Indeed, certain calculations (such as rise/set times) require both time scales. See the documentation for the `ut` and `tt` fields for more detailed information.
-
-In cases where `[`astro_time_t`](#astro_time_t)` is included in a structure returned by a function that can fail, the `astro_status_t` field `status` will contain a value other than `ASTRO_SUCCESS`; in that case the `ut` and `tt` will hold `NAN` (not a number). In general, when there is an error code stored in a struct field `status`, the caller should ignore all other values in that structure, including the `ut` and `tt` inside `[`astro_time_t`](#astro_time_t)`.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| `double` | `ut` | **UT1/UTC number of days since noon on January 1, 2000.** The floating point number of days of Universal Time since noon UTC January 1, 2000. Astronomy Engine approximates UTC and UT1 as being the same thing, although they are not exactly equivalent; UTC and UT1 can disagree by up to ±0.9 seconds. This approximation is sufficient for the accuracy requirements of Astronomy Engine. Universal Time Coordinate (UTC) is the international standard for legal and civil timekeeping and replaces the older Greenwich Mean Time (GMT) standard. UTC is kept in sync with unpredictable observed changes in the Earth's rotation by occasionally adding leap seconds as needed. UT1 is an idealized time scale based on observed rotation of the Earth, which gradually slows down in an unpredictable way over time, due to tidal drag by the Moon and Sun, large scale weather events like hurricanes, and internal seismic and convection effects. Conceptually, UT1 drifts from atomic time continuously and erratically, whereas UTC is adjusted by a scheduled whole number of leap seconds as needed. The value in `ut` is appropriate for any calculation involving the Earth's rotation, such as calculating rise/set times, culumination, and anything involving apparent sidereal time. Before the era of atomic timekeeping, days based on the Earth's rotation were often known as *mean solar days*. |
-| `double` | `tt` | **Terrestrial Time days since noon on January 1, 2000.** Terrestrial Time is an atomic time scale defined as a number of days since noon on January 1, 2000. In this system, days are not based on Earth rotations, but instead by the number of elapsed [SI seconds](https://physics.nist.gov/cuu/Units/second.html) divided by 86400. Unlike `ut`, `tt` increases uniformly without adjustments for changes in the Earth's rotation. The value in `tt` is used for calculations of movements not involving the Earth's rotation, such as the orbits of planets around the Sun, or the Moon around the Earth. Historically, Terrestrial Time has also been known by the term *Ephemeris Time* (ET). |
-| `double` | `psi` | **For internal use only. Used to optimize Earth tilt calculations.** |
-| `double` | `eps` | **For internal use only. Used to optimize Earth tilt calculations.** |
-| `double` | `st` | **For internal use only. Lazy-caches sidereal time (Earth rotation).** |
-
-
----
-
-
-### `astro_transit_t`
-
-**Information about a transit of Mercury or Venus, as seen from the Earth.**
-
-
-
-Returned by [`Astronomy_SearchTransit`](#Astronomy_SearchTransit) or [`Astronomy_NextTransit`](#Astronomy_NextTransit) to report information about a transit of Mercury or Venus. A transit is when Mercury or Venus passes between the Sun and Earth so that the other planet is seen in silhouette against the Sun.
-
-The `start` field reports the moment in time when the planet first becomes visible against the Sun in its background. The `peak` field reports when the planet is most aligned with the Sun, as seen from the Earth. The `finish` field reports the last moment when the planet is visible against the Sun in its background.
-
-The calculations are performed from the point of view of a geocentric observer.
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| [`astro_time_t`](#astro_time_t) | `start` | Date and time at the beginning of the transit. |
-| [`astro_time_t`](#astro_time_t) | `peak` | Date and time of the peak of the transit. |
-| [`astro_time_t`](#astro_time_t) | `finish` | Date and time at the end of the transit. |
-| `double` | `separation` | Angular separation in arcminutes between the centers of the Sun and the planet at time `peak`. |
-
-
----
-
-
-### `astro_utc_t`
-
-**A calendar date and time expressed in UTC.**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| `int` | `year` | The year value, e.g. 2019. |
-| `int` | `month` | The month value: 1=January, 2=February, ..., 12=December. |
-| `int` | `day` | The day of the month in the range 1..31. |
-| `int` | `hour` | The hour of the day in the range 0..23. |
-| `int` | `minute` | The minute of the hour in the range 0..59. |
-| `double` | `second` | The floating point number of seconds in the range [0,60). |
-
-
----
-
-
-### `astro_vector_t`
-
-**A 3D Cartesian vector whose components are expressed in Astronomical Units (AU).**
-
-
-
-| Type | Member | Description |
-| ---- | ------ | ----------- |
-| [`astro_status_t`](#astro_status_t) | `status` | `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. |
-| `double` | `x` | The Cartesian x-coordinate of the vector in AU. |
-| `double` | `y` | The Cartesian y-coordinate of the vector in AU. |
-| `double` | `z` | The Cartesian z-coordinate of the vector in AU. |
-| [`astro_time_t`](#astro_time_t) | `t` | The date and time at which this vector is valid. |
-
-
-## Type Definitions
-
-
-
----
-
-
-### `astro_deltat_func`
-
-`typedef double(* astro_deltat_func) (double ut);`
-
-**A pointer to a function that calculates Delta T.**
-
-
-
-Delta T is the discrepancy between times measured using an atomic clock and times based on observations of the Earth's rotation, which is gradually slowing down over time. Delta T = TT - UT, where TT = Terrestrial Time, based on atomic time, and UT = Universal Time, civil time based on the Earth's rotation. Astronomy Engine defaults to using a Delta T function defined by Espenak and Meeus in their "Five Millennium Canon of Solar Eclipses". See: [https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html](https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html)
-
----
-
-
-### `astro_grav_sim_t`
-
-`typedef struct astro_grav_sim_s astro_grav_sim_t;`
-
-**A data type used for managing simulation of the gravitational forces on a small body.**
-
-
-
-This is an opaque data type used to hold the internal state of a numeric integrator used to calculate the trajectory of a small body moving through the Solar System.
-
----
-
-
-### `astro_position_func_t`
-
-`typedef astro_vector_t(* astro_position_func_t) (void *context, astro_time_t time);`
-
-**A function for which to solve a light-travel time problem.**
-
-
-
-The function [`Astronomy_CorrectLightTravel`](#Astronomy_CorrectLightTravel) solves a generalized problem of deducing how far in the past light must have left a target object to be seen by an observer at a specified time. This function pointer type expresses an arbitrary position vector as function of time. Such a function must be passed to `Astronomy_CorrectLightTravel`.
-
----
-
-
-### `astro_search_func_t`
-
-`typedef astro_func_result_t(* astro_search_func_t) (void *context, astro_time_t time);`
-
-**A pointer to a function that is to be passed as a callback to [`Astronomy_Search`](#Astronomy_Search).**
-
-
-
-The function [`Astronomy_Search`](#Astronomy_Search) numerically solves for the time that a given event occurs. An event is defined as the time when an arbitrary function transitions between having a negative value and a non-negative value. This transition is called an *ascending root*.
-
-The type astro_search_func_t represents such a callback function that accepts a custom `context` pointer and an [`astro_time_t`](#astro_time_t) representing the time to probe. The function returns an [`astro_func_result_t`](#astro_func_result_t) that contains either a real number in `value` or an error code in `status` that aborts the search.
-
-The `context` points to some data whose type varies depending on the callback function. It can contain any auxiliary parameters (other than time) needed to evaluate the function. For example, a function may pertain to a specific celestial body, in which case `context` may point to a value of type astro_body_t. The `context` parameter is supplied by the caller of [`Astronomy_Search`](#Astronomy_Search), which passes it along to every call to the callback function. If the caller of `Astronomy_Search` knows that the callback function does not need a context, it is safe to pass `NULL` as the context pointer.
\ No newline at end of file
diff --git a/deps/astronomy/astronomy.c b/deps/astronomy/astronomy.c
deleted file mode 100644
index 53dbddbbd4..0000000000
--- a/deps/astronomy/astronomy.c
+++ /dev/null
@@ -1,13078 +0,0 @@
-/*
- Astronomy Engine for C/C++.
- https://github.com/cosinekitty/astronomy
-
- MIT License
-
- Copyright (c) 2019-2024 Don Cross
-
- Permission is hereby granted, free of charge, to any person obtaining a copy
- of this software and associated documentation files (the "Software"), to deal
- in the Software without restriction, including without limitation the rights
- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- copies of the Software, and to permit persons to whom the Software is
- furnished to do so, subject to the following conditions:
-
- The above copyright notice and this permission notice shall be included in all
- copies or substantial portions of the Software.
-
- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- SOFTWARE.
-*/
-
-#include
-#include
-#include
-#include
-#include
-
-#if !defined(ASTRONOMY_ENGINE_NO_CURRENT_TIME)
-#if defined(__unix__) || defined(__unix) || (defined(__APPLE__) && defined(__MACH__))
-#include
-#elif defined(_WIN32)
-#define WIN32_LEAN_AND_MEAN
-#include
-#else
-#include
-#endif
-#endif
-
-#include "astronomy.h"
-
-#ifdef __FAST_MATH__
-#error Astronomy Engine does not support "fast math" optimization because it causes incorrect behavior. See: https://github.com/cosinekitty/astronomy/issues/245
-#endif
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/** @cond DOXYGEN_SKIP */
-#define PI 3.14159265358979323846
-
-#define PLUTO_NUM_STATES 51
-#define PLUTO_TIME_STEP 29200
-#define PLUTO_DT 146
-
-#define PLUTO_NSTEPS 201
-
-
-
-typedef enum
-{
- FROM_2000,
- INTO_2000
-}
-precess_dir_t;
-
-typedef struct
-{
- double x;
- double y;
- double z;
-}
-terse_vector_t;
-
-typedef struct
-{
- double tt; /* J2000 terrestrial time [days] */
- terse_vector_t r; /* position [au] */
- terse_vector_t v; /* velocity [au/day] */
- terse_vector_t a; /* acceleration [au/day^2] */
-}
-body_grav_calc_t;
-
-typedef struct
-{
- body_grav_calc_t step[PLUTO_NSTEPS];
-}
-body_segment_t;
-
-typedef struct
-{
- double tt; /* Terrestrial Time in J2000 days */
- terse_vector_t r; /* position [au] */
- terse_vector_t v; /* velocity [au/day] */
-}
-body_state_t;
-
-typedef struct
-{
- body_state_t Sun;
- body_state_t Jupiter;
- body_state_t Saturn;
- body_state_t Uranus;
- body_state_t Neptune;
-}
-major_bodies_t;
-
-typedef struct
-{
- astro_time_t time;
- body_state_t gravitators[1 + BODY_SUN];
- body_grav_calc_t *bodies;
-}
-gravsim_endpoint_t;
-
-struct astro_grav_sim_s
-{
- astro_body_t originBody;
- int numBodies;
- gravsim_endpoint_t endpoint[2];
- gravsim_endpoint_t *prev;
- gravsim_endpoint_t *curr;
-};
-
-typedef struct
-{
- double ra;
- double dec;
- double dist;
-}
-stardef_t;
-
-/* Mean obliquity of the J2000 ecliptic in radians. */
-#define OBLIQ_2000 0.40909260059599012
-#define COS_OBLIQ_2000 0.9174821430670688
-#define SIN_OBLIQ_2000 0.3977769691083922
-
-/** @endcond */
-
-#define NSTARS 8
-static stardef_t StarTable[NSTARS];
-
-#define GetStarPointer(body) (((body) >= BODY_STAR1) && ((body) <= BODY_STAR8) ? &StarTable[(body) - BODY_STAR1] : NULL)
-
-static const stardef_t *UserDefinedStar(astro_body_t body)
-{
- const stardef_t *star = GetStarPointer(body);
- if (star != NULL && star->dist > 0.0)
- return star;
- return NULL;
-}
-
-
-/**
- * @brief Assign equatorial coordinates to a user-defined star.
- *
- * Some Astronomy Engine functions allow their `body` parameter to
- * be a user-defined fixed point in the sky, loosely called a "star".
- * This function assigns a right ascension, declination, and distance
- * to one of the eight user-defined stars `BODY_STAR1` .. `BODY_STAR8`.
- *
- * Stars are not valid until defined. Once defined, they retain their
- * definition until re-defined by another call to `Astronomy_DefineStar`.
- *
- * @param body
- * One of the eight user-defined star identifiers: `BODY_STAR1` .. `BODY_STAR8`.
- *
- * @param ra
- * The right ascension to be assigned to the star, expressed in J2000 equatorial coordinates (EQJ).
- * The value is in units of sidereal hours, and must be within the half-open range [0, 24).
- *
- * @param dec
- * The declination to be assigned to the star, expressed in J2000 equatorial coordinates (EQJ).
- * The value is in units of degrees north (positive) or south (negative) of the J2000 equator,
- * and must be within the closed range [-90, +90].
- *
- * @param distanceLightYears
- * The distance between the star and the Sun, expressed in light-years.
- * This value is used to calculate the tiny parallax shift as seen by an observer on Earth.
- * If you don't know the distance to the star, using a large value like 1000 will generally work well.
- * The minimum allowed distance is 1 light-year, which is required to provide certain internal optimizations.
- *
- * @return
- * `ASTRO_SUCCESS` indicates the star has been defined. Any other value indicates an error,
- * in which case no change has taken place to any of the star definitions.
- */
-astro_status_t Astronomy_DefineStar(astro_body_t body, double ra, double dec, double distanceLightYears)
-{
- stardef_t *star = GetStarPointer(body);
-
- if (star == NULL)
- return ASTRO_INVALID_BODY;
-
- if (!isfinite(ra) || ra < 0.0 || ra >= 24.0)
- return ASTRO_INVALID_PARAMETER;
-
- if (!isfinite(dec) || dec < -90.0 || dec > +90.0)
- return ASTRO_INVALID_PARAMETER;
-
- if (!isfinite(distanceLightYears) || distanceLightYears < 1.0)
- return ASTRO_INVALID_PARAMETER;
-
- star->ra = ra;
- star->dec = dec;
- star->dist = distanceLightYears * AU_PER_LY;
-
- return ASTRO_SUCCESS;
-}
-
-static const terse_vector_t VecZero = { 0.0, 0.0, 0.0 };
-
-static terse_vector_t VecAdd(terse_vector_t a, terse_vector_t b)
-{
- terse_vector_t c;
- c.x = a.x + b.x;
- c.y = a.y + b.y;
- c.z = a.z + b.z;
- return c;
-}
-
-static void VecIncr(terse_vector_t *target, terse_vector_t source)
-{
- target->x += source.x;
- target->y += source.y;
- target->z += source.z;
-}
-
-static void VecDecr(terse_vector_t *target, terse_vector_t source)
-{
- target->x -= source.x;
- target->y -= source.y;
- target->z -= source.z;
-}
-
-static terse_vector_t VecMul(double s, terse_vector_t v)
-{
- terse_vector_t p;
- p.x = s * v.x;
- p.y = s * v.y;
- p.z = s * v.z;
- return p;
-}
-
-static void VecScale(terse_vector_t *target, double scalar)
-{
- target->x *= scalar;
- target->y *= scalar;
- target->z *= scalar;
-}
-
-static terse_vector_t VecRamp(terse_vector_t a, terse_vector_t b, double ramp)
-{
- terse_vector_t c;
- c.x = (1-ramp)*a.x + ramp*b.x;
- c.y = (1-ramp)*a.y + ramp*b.y;
- c.z = (1-ramp)*a.z + ramp*b.z;
- return c;
-}
-
-static terse_vector_t VecMean(terse_vector_t a, terse_vector_t b)
-{
- terse_vector_t c;
- c.x = (a.x + b.x) / 2;
- c.y = (a.y + b.y) / 2;
- c.z = (a.z + b.z) / 2;
- return c;
-}
-
-static astro_state_vector_t ExportState(body_state_t terse, astro_time_t time)
-{
- astro_state_vector_t state;
-
- state.status = ASTRO_SUCCESS;
- state.x = terse.r.x;
- state.y = terse.r.y;
- state.z = terse.r.z;
- state.vx = terse.v.x;
- state.vy = terse.v.y;
- state.vz = terse.v.z;
- state.t = time;
-
- return state;
-}
-
-static astro_state_vector_t ExportGravCalc(body_grav_calc_t calc, astro_time_t time)
-{
- astro_state_vector_t state;
-
- state.status = ASTRO_SUCCESS;
- state.x = calc.r.x;
- state.y = calc.r.y;
- state.z = calc.r.z;
- state.vx = calc.v.x;
- state.vy = calc.v.y;
- state.vz = calc.v.z;
- state.t = time;
-
- return state;
-}
-
-static const double DAYS_PER_TROPICAL_YEAR = 365.24217;
-static const double ASEC360 = 1296000.0;
-static const double ASEC2RAD = 4.848136811095359935899141e-6;
-static const double PI2 = 2.0 * PI;
-static const double ARC = 3600.0 * 180.0 / PI; /* arcseconds per radian */
-static const double SECONDS_PER_DAY = 24.0 * 3600.0;
-static const double SOLAR_DAYS_PER_SIDEREAL_DAY = 0.9972695717592592;
-static const double MEAN_SYNODIC_MONTH = 29.530588; /* average number of days for Moon to return to the same phase */
-static const double EARTH_ORBITAL_PERIOD = 365.256;
-static const double NEPTUNE_ORBITAL_PERIOD = 60189.0;
-
-/*
- Degrees of refractive "lift" seen for objects near horizon.
- More precisely, the angle below the horizon a point has to be, at sea level,
- to appear to be exactly on the horizon.
- If the ground plane is higher than sea level, this angle
- needs to be corrected for decreased atmospheric density.
-*/
-static const double REFRACTION_NEAR_HORIZON = 34.0 / 60.0;
-
-
-#define SUN_RADIUS_AU (SUN_RADIUS_KM / KM_PER_AU)
-
-#define EARTH_MEAN_RADIUS_KM 6371.0 /* mean radius of the Earth's geoid, without atmosphere */
-#define EARTH_ATMOSPHERE_KM 88.0 /* effective atmosphere thickness for lunar eclipses. see: https://eclipse.gsfc.nasa.gov/LEcat5/shadow.html */
-#define EARTH_ECLIPSE_RADIUS_KM (EARTH_MEAN_RADIUS_KM + EARTH_ATMOSPHERE_KM)
-#define EARTH_EQUATORIAL_RADIUS_AU (EARTH_EQUATORIAL_RADIUS_KM / KM_PER_AU)
-
-#define MOON_MEAN_RADIUS_KM 1737.4
-#define MOON_EQUATORIAL_RADIUS_AU (MOON_EQUATORIAL_RADIUS_KM / KM_PER_AU)
-#define MOON_POLAR_RADIUS_AU (MOON_POLAR_RADIUS_KM / KM_PER_AU)
-
-/* The inclination of the moon's rotation axis to the ecliptic plane, in radians. */
-#define MOON_AXIS_INCLINATION_RADIANS (DEG2RAD * 1.543)
-
-static const double ASEC180 = 180.0 * 60.0 * 60.0; /* arcseconds per 180 degrees (or pi radians) */
-static const double EARTH_MOON_MASS_RATIO = 81.30056;
-
-/*
- Masses of the Sun and planets, used for:
- (1) Calculating the Solar System Barycenter
- (2) Integrating the movement of Pluto
-
- https://web.archive.org/web/20120220062549/http://iau-comm4.jpl.nasa.gov/de405iom/de405iom.pdf
-
- Page 10 in the above document describes the constants used in the DE405 ephemeris.
- The following are GM values (gravity constant * mass) in [au^3 / day^2].
- This side-steps issues of not knowing the exact values of G and masses M[i];
- the products GM[i] are known extremely accurately.
-*/
-static const double SUN_GM = 0.2959122082855911e-03;
-static const double MERCURY_GM = 0.4912547451450812e-10;
-static const double VENUS_GM = 0.7243452486162703e-09;
-static const double EARTH_GM = 0.8887692390113509e-09;
-static const double MARS_GM = 0.9549535105779258e-10;
-static const double JUPITER_GM = 0.2825345909524226e-06;
-static const double SATURN_GM = 0.8459715185680659e-07;
-static const double URANUS_GM = 0.1292024916781969e-07;
-static const double NEPTUNE_GM = 0.1524358900784276e-07;
-static const double PLUTO_GM = 0.2188699765425970e-11;
-
-#define MOON_GM (EARTH_GM / EARTH_MOON_MASS_RATIO)
-
-/** @cond DOXYGEN_SKIP */
-#define ASTRO_ARRAYSIZE(x) (sizeof(x) / sizeof(x[0]))
-#define AU_PER_PARSEC (ASEC180 / PI) /* exact definition of how many AU = one parsec */
-#define Y2000_IN_MJD (T0 - MJD_BASIS)
-/** @endcond */
-
-static astro_ecliptic_t RotateEquatorialToEcliptic(const double pos[3], double obliq_radians, astro_time_t time);
-static int QuadInterp(
- double tm, double dt, double fa, double fm, double fb,
- double *t, double *df_dt);
-
-static double LongitudeOffset(double diff)
-{
- double offset = diff;
-
- while (offset <= -180.0)
- offset += 360.0;
-
- while (offset > 180.0)
- offset -= 360.0;
-
- return offset;
-}
-
-static double NormalizeLongitude(double lon)
-{
- while (lon < 0.0)
- lon += 360.0;
-
- while (lon >= 360.0)
- lon -= 360.0;
-
- return lon;
-}
-
-/**
- * @brief Calculates the length of the given vector.
- *
- * Calculates the non-negative length of the given vector.
- * The length is expressed in the same units as the vector's components,
- * usually astronomical units (AU).
- *
- * @param vector The vector whose length is to be calculated.
- * @return The length of the vector.
- */
-double Astronomy_VectorLength(astro_vector_t vector)
-{
- return sqrt(vector.x*vector.x + vector.y*vector.y + vector.z*vector.z);
-}
-
-/**
- * @brief Finds the name of a celestial body.
- * @param body The celestial body whose name is to be found.
- * @return The English-language name of the celestial body, or "" if the body is not valid.
- */
-const char *Astronomy_BodyName(astro_body_t body)
-{
- switch (body)
- {
- case BODY_MERCURY: return "Mercury";
- case BODY_VENUS: return "Venus";
- case BODY_EARTH: return "Earth";
- case BODY_MARS: return "Mars";
- case BODY_JUPITER: return "Jupiter";
- case BODY_SATURN: return "Saturn";
- case BODY_URANUS: return "Uranus";
- case BODY_NEPTUNE: return "Neptune";
- case BODY_PLUTO: return "Pluto";
- case BODY_SUN: return "Sun";
- case BODY_MOON: return "Moon";
- case BODY_EMB: return "EMB";
- case BODY_SSB: return "SSB";
- default: return "";
- }
-}
-
-/**
- * @brief Returns the #astro_body_t value corresponding to the given English name.
- * @param name One of the following strings: Sun, Moon, Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune, Pluto, EMB, SSB.
- * @return If `name` is one of the listed strings (case-sensitive), the returned value is the corresponding #astro_body_t value, otherwise it is `BODY_INVALID`.
- */
-astro_body_t Astronomy_BodyCode(const char *name)
-{
- if (name != NULL)
- {
- if (!strcmp(name, "Mercury")) return BODY_MERCURY;
- if (!strcmp(name, "Venus")) return BODY_VENUS;
- if (!strcmp(name, "Earth")) return BODY_EARTH;
- if (!strcmp(name, "Mars")) return BODY_MARS;
- if (!strcmp(name, "Jupiter")) return BODY_JUPITER;
- if (!strcmp(name, "Saturn")) return BODY_SATURN;
- if (!strcmp(name, "Uranus")) return BODY_URANUS;
- if (!strcmp(name, "Neptune")) return BODY_NEPTUNE;
- if (!strcmp(name, "Pluto")) return BODY_PLUTO;
- if (!strcmp(name, "Sun")) return BODY_SUN;
- if (!strcmp(name, "Moon")) return BODY_MOON;
- if (!strcmp(name, "EMB")) return BODY_EMB;
- if (!strcmp(name, "SSB")) return BODY_SSB;
- }
- return BODY_INVALID;
-}
-
-/**
- * @brief Returns 1 for planets that are farther from the Sun than the Earth is, 0 otherwise.
- */
-static int IsSuperiorPlanet(astro_body_t body)
-{
- switch (body)
- {
- case BODY_MARS:
- case BODY_JUPITER:
- case BODY_SATURN:
- case BODY_URANUS:
- case BODY_NEPTUNE:
- case BODY_PLUTO:
- return 1;
-
- default:
- return 0;
- }
-}
-
-/**
- * @brief Returns the average number of days it takes for a planet to orbit the Sun.
- * @param body One of the planets: Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, Neptune, or Pluto.
- * @return The mean orbital period of the body, or 0.0 if the `body` parameter is not valid.
- */
-double Astronomy_PlanetOrbitalPeriod(astro_body_t body)
-{
- switch (body)
- {
- case BODY_MERCURY: return 87.969;
- case BODY_VENUS: return 224.701;
- case BODY_EARTH: return EARTH_ORBITAL_PERIOD;
- case BODY_MARS: return 686.980;
- case BODY_JUPITER: return 4332.589;
- case BODY_SATURN: return 10759.22;
- case BODY_URANUS: return 30685.4;
- case BODY_NEPTUNE: return NEPTUNE_ORBITAL_PERIOD;
- case BODY_PLUTO: return 90560.0;
- default: return 0.0; /* invalid body */
- }
-}
-
-static astro_vector_t VecError(astro_status_t status, astro_time_t time)
-{
- astro_vector_t vec;
- vec.x = vec.y = vec.z = NAN;
- vec.t = time;
- vec.status = status;
- return vec;
-}
-
-static astro_state_vector_t StateVecError(astro_status_t status, astro_time_t time)
-{
- astro_state_vector_t vec;
- vec.x = vec.y = vec.z = NAN;
- vec.vx = vec.vy = vec.vz = NAN;
- vec.t = time;
- vec.status = status;
- return vec;
-}
-
-static astro_spherical_t SphereError(astro_status_t status)
-{
- astro_spherical_t sphere;
- sphere.status = status;
- sphere.dist = sphere.lat = sphere.lon = NAN;
- return sphere;
-}
-
-static astro_time_t TimeError(void)
-{
- astro_time_t time;
- time.tt = time.ut = time.eps = time.psi = time.st = NAN;
- return time;
-}
-
-static astro_equatorial_t EquError(astro_status_t status)
-{
- astro_equatorial_t equ;
- equ.vec = VecError(status, TimeError());
- equ.ra = equ.dec = equ.dist = NAN;
- equ.status = status;
- return equ;
-}
-
-static astro_ecliptic_t EclError(astro_status_t status)
-{
- astro_ecliptic_t ecl;
- ecl.status = status;
- ecl.elon = ecl.elat = NAN;
- ecl.vec = VecError(status, TimeError());
- return ecl;
-}
-
-static astro_angle_result_t AngleError(astro_status_t status)
-{
- astro_angle_result_t result;
- result.status = status;
- result.angle = NAN;
- return result;
-}
-
-static astro_func_result_t FuncError(astro_status_t status)
-{
- astro_func_result_t result;
- result.status = status;
- result.value = NAN;
- return result;
-}
-
-static astro_rotation_t RotationErr(astro_status_t status)
-{
- astro_rotation_t rotation;
- int i, j;
-
- rotation.status = status;
- for (i=0; i<3; ++i)
- for (j=0; j<3; ++j)
- rotation.rot[i][j] = NAN;
-
- return rotation;
-}
-
-static astro_moon_quarter_t MoonQuarterError(astro_status_t status)
-{
- astro_moon_quarter_t result;
- result.status = status;
- result.quarter = -1;
- result.time = TimeError();
- return result;
-}
-
-static astro_elongation_t ElongError(astro_status_t status)
-{
- astro_elongation_t result;
-
- result.status = status;
- result.elongation = NAN;
- result.ecliptic_separation = NAN;
- result.time = TimeError();
- result.visibility = (astro_visibility_t)(-1);
-
- return result;
-}
-
-static astro_hour_angle_t HourAngleError(astro_status_t status)
-{
- astro_hour_angle_t result;
-
- result.status = status;
- result.time = TimeError();
- result.hor.altitude = result.hor.azimuth = result.hor.dec = result.hor.ra = NAN;
-
- return result;
-}
-
-static astro_illum_t IllumError(astro_status_t status)
-{
- astro_illum_t result;
-
- result.status = status;
- result.time = TimeError();
- result.mag = NAN;
- result.phase_angle = NAN;
- result.phase_fraction = NAN;
- result.helio_dist = NAN;
- result.ring_tilt = NAN;
-
- return result;
-}
-
-static astro_apsis_t ApsisError(astro_status_t status)
-{
- astro_apsis_t result;
-
- result.status = status;
- result.time = TimeError();
- result.kind = APSIS_INVALID;
- result.dist_km = result.dist_au = NAN;
-
- return result;
-}
-
-static astro_search_result_t SearchError(astro_status_t status)
-{
- astro_search_result_t result;
- result.time = TimeError();
- result.status = status;
- return result;
-}
-
-static astro_constellation_t ConstelErr(astro_status_t status)
-{
- astro_constellation_t constel;
- constel.status = status;
- constel.symbol = constel.name = NULL;
- constel.ra_1875 = constel.dec_1875 = NAN;
- return constel;
-}
-
-static astro_transit_t TransitErr(astro_status_t status)
-{
- astro_transit_t transit;
- transit.status = status;
- transit.start = transit.peak = transit.finish = TimeError();
- transit.separation = NAN;
- return transit;
-}
-
-static astro_axis_t AxisErr(astro_status_t status, astro_time_t time)
-{
- astro_axis_t axis;
- axis.status = status;
- axis.ra = axis.dec = axis.spin = NAN;
- axis.north = VecError(status, time);
- return axis;
-}
-
-static astro_func_result_t SynodicPeriod(astro_body_t body)
-{
- double Tp; /* planet's orbital period in days */
- astro_func_result_t result;
-
- /* The Earth does not have a synodic period as seen from itself. */
- if (body == BODY_EARTH)
- return FuncError(ASTRO_EARTH_NOT_ALLOWED);
-
- if (body == BODY_MOON)
- {
- result.status = ASTRO_SUCCESS;
- result.value = MEAN_SYNODIC_MONTH;
- return result;
- }
-
- Tp = Astronomy_PlanetOrbitalPeriod(body);
- if (Tp <= 0.0)
- return FuncError(ASTRO_INVALID_BODY);
-
- result.status = ASTRO_SUCCESS;
- result.value = fabs(EARTH_ORBITAL_PERIOD / (EARTH_ORBITAL_PERIOD/Tp - 1.0));
- return result;
-}
-
-
-/**
- * @brief Calculates the angle between two vectors.
- *
- * Given a pair of vectors, this function returns the angle in degrees
- * between the two vectors in 3D space.
- * The angle is measured in the plane that contains both vectors.
- *
- * @param a
- * The first vector.
- *
- * @param b
- * The second vector.
- *
- * @returns
- * On success, the `status` field holds `ASTRO_SUCCESS` and `angle` holds
- * a number of degrees in the range [0, 180].
- * If either vector has a zero magnitude or contains NAN (not a number)
- * components, the `status` will hold the error code `ASTRO_BAD_VECTOR`.
- */
-astro_angle_result_t Astronomy_AngleBetween(astro_vector_t a, astro_vector_t b)
-{
- double r, dot;
- astro_angle_result_t result;
-
- r = Astronomy_VectorLength(a) * Astronomy_VectorLength(b);
- if (r < 1.0e-8 || !isfinite(r))
- return AngleError(ASTRO_BAD_VECTOR);
-
- dot = (a.x*b.x + a.y*b.y + a.z*b.z) / r;
-
- if (dot <= -1.0)
- result.angle = 180.0;
- else if (dot >= +1.0)
- result.angle = 0.0;
- else
- result.angle = RAD2DEG * acos(dot);
-
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief The default Delta T function used by Astronomy Engine.
- *
- * Espenak and Meeus use a series of piecewise polynomials to
- * approximate DeltaT of the Earth in their "Five Millennium Canon of Solar Eclipses".
- * See: https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html
- * This is the default Delta T function used by Astronomy Engine.
- *
- * @param ut
- * The floating point number of days since noon UTC on January 1, 2000.
- *
- * @returns
- * The estimated difference TT-UT on the given date, expressed in seconds.
- */
-double Astronomy_DeltaT_EspenakMeeus(double ut)
-{
- double y, u, u2, u3, u4, u5, u6, u7;
-
- /*
- Fred Espenak writes about Delta-T generically here:
- https://eclipse.gsfc.nasa.gov/SEhelp/deltaT.html
- https://eclipse.gsfc.nasa.gov/SEhelp/deltat2004.html
-
- He provides polynomial approximations for distant years here:
- https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html
-
- They start with a year value 'y' such that y=2000 corresponds
- to the UTC Date 15-January-2000. Convert difference in days
- to mean tropical years.
- */
-
- y = 2000 + ((ut - 14) / DAYS_PER_TROPICAL_YEAR);
-
- if (y < -500)
- {
- u = (y - 1820) / 100;
- return -20 + (32 * u*u);
- }
- if (y < 500)
- {
- u = y / 100;
- u2 = u*u; u3 = u*u2; u4 = u2*u2; u5 = u2*u3; u6 = u3*u3;
- return 10583.6 - 1014.41*u + 33.78311*u2 - 5.952053*u3 - 0.1798452*u4 + 0.022174192*u5 + 0.0090316521*u6;
- }
- if (y < 1600)
- {
- u = (y - 1000) / 100;
- u2 = u*u; u3 = u*u2; u4 = u2*u2; u5 = u2*u3; u6 = u3*u3;
- return 1574.2 - 556.01*u + 71.23472*u2 + 0.319781*u3 - 0.8503463*u4 - 0.005050998*u5 + 0.0083572073*u6;
- }
- if (y < 1700)
- {
- u = y - 1600;
- u2 = u*u; u3 = u*u2;
- return 120 - 0.9808*u - 0.01532*u2 + u3/7129.0;
- }
- if (y < 1800)
- {
- u = y - 1700;
- u2 = u*u; u3 = u*u2; u4 = u2*u2;
- return 8.83 + 0.1603*u - 0.0059285*u2 + 0.00013336*u3 - u4/1174000;
- }
- if (y < 1860)
- {
- u = y - 1800;
- u2 = u*u; u3 = u*u2; u4 = u2*u2; u5 = u2*u3; u6 = u3*u3; u7 = u3*u4;
- return 13.72 - 0.332447*u + 0.0068612*u2 + 0.0041116*u3 - 0.00037436*u4 + 0.0000121272*u5 - 0.0000001699*u6 + 0.000000000875*u7;
- }
- if (y < 1900)
- {
- u = y - 1860;
- u2 = u*u; u3 = u*u2; u4 = u2*u2; u5 = u2*u3;
- return 7.62 + 0.5737*u - 0.251754*u2 + 0.01680668*u3 - 0.0004473624*u4 + u5/233174;
- }
- if (y < 1920)
- {
- u = y - 1900;
- u2 = u*u; u3 = u*u2; u4 = u2*u2;
- return -2.79 + 1.494119*u - 0.0598939*u2 + 0.0061966*u3 - 0.000197*u4;
- }
- if (y < 1941)
- {
- u = y - 1920;
- u2 = u*u; u3 = u*u2;
- return 21.20 + 0.84493*u - 0.076100*u2 + 0.0020936*u3;
- }
- if (y < 1961)
- {
- u = y - 1950;
- u2 = u*u; u3 = u*u2;
- return 29.07 + 0.407*u - u2/233 + u3/2547;
- }
- if (y < 1986)
- {
- u = y - 1975;
- u2 = u*u; u3 = u*u2;
- return 45.45 + 1.067*u - u2/260 - u3/718;
- }
- if (y < 2005)
- {
- u = y - 2000;
- u2 = u*u; u3 = u*u2; u4 = u2*u2; u5 = u2*u3;
- return 63.86 + 0.3345*u - 0.060374*u2 + 0.0017275*u3 + 0.000651814*u4 + 0.00002373599*u5;
- }
- if (y < 2050)
- {
- u = y - 2000;
- return 62.92 + 0.32217*u + 0.005589*u*u;
- }
- if (y < 2150)
- {
- u = (y-1820)/100;
- return -20 + 32*u*u - 0.5628*(2150 - y);
- }
-
- /* all years after 2150 */
- u = (y - 1820) / 100;
- return -20 + (32 * u*u);
-}
-
-/**
- * @brief A Delta T function that approximates the one used by the JPL Horizons tool.
- *
- * In order to support unit tests based on data generated by the JPL Horizons online
- * tool, I had to reverse engineer their Delta T function by generating a table that
- * contained it. The main difference between their tool and the Espenak/Meeus function
- * is that they stop extrapolating the Earth's deceleration after the year 2017.
- *
- * @param ut
- * The floating point number of days since noon UTC on January 1, 2000.
- *
- * @returns
- * The estimated difference TT-UT on the given date, expressed in seconds.
- */
-double Astronomy_DeltaT_JplHorizons(double ut)
-{
- if (ut > 17.0 * DAYS_PER_TROPICAL_YEAR)
- ut = 17.0 * DAYS_PER_TROPICAL_YEAR;
-
- return Astronomy_DeltaT_EspenakMeeus(ut);
-}
-
-static astro_deltat_func DeltaTFunc = Astronomy_DeltaT_EspenakMeeus;
-
-/**
- * @brief Changes the function Astronomy Engine uses to calculate Delta T.
- *
- * Most programs should not call this function. It is for advanced use cases only.
- * By default, Astronomy Engine uses the function #Astronomy_DeltaT_EspenakMeeus
- * to estimate changes in the Earth's rotation rate over time.
- * However, for the sake of unit tests that compare calculations against
- * external data sources that use alternative models for Delta T,
- * it is sometimes useful to replace the Delta T model to match.
- * This function allows replacing the Delta T model with any other
- * desired model.
- *
- * @param func
- * A pointer to a function to convert UT values to DeltaT values.
- */
-void Astronomy_SetDeltaTFunction(astro_deltat_func func)
-{
- DeltaTFunc = func;
-}
-
-static double TerrestrialTime(double ut)
-{
- return ut + DeltaTFunc(ut)/86400.0;
-}
-
-/**
- * @brief Converts a J2000 day value to an #astro_time_t value.
- *
- * This function can be useful for reproducing an #astro_time_t structure
- * from its `ut` field only.
- *
- * @param ut
- * The floating point number of days since noon UTC on January 1, 2000.
- * This time is based on UTC/UT1 civil time.
- * See #Astronomy_TerrestrialTime if you instead want to create
- * a time value based on atomic Terrestrial Time (TT).
- *
- * @returns
- * An #astro_time_t value for the given `ut` value.
- */
-astro_time_t Astronomy_TimeFromDays(double ut)
-{
- astro_time_t time;
- time.ut = ut;
- time.tt = TerrestrialTime(ut);
- time.psi = time.eps = time.st = NAN;
- return time;
-}
-
-
-/**
- * @brief Converts a terrestrial time value into an #astro_time_t value.
- *
- * This function can be used in rare cases where a time must be based
- * on Terrestrial Time (TT) rather than Universal Time (UT).
- * Most developers will want to call #Astronomy_TimeFromDays instead of
- * this function, because usually time is based on civil time adjusted
- * by leap seconds to match the Earth's rotation, rather than the uniformly
- * flowing TT used to calculate solar system dynamics. In rare cases
- * where the caller already knows TT, this function is provided to create
- * an #astro_time_t value that can be passed to Astronomy Engine functions.
- *
- * @param tt
- * The floating point number of days of uniformly flowing
- * Terrestrial Time since the J2000 epoch.
- *
- * @returns
- * An #astro_time_t value for the given `tt` value.
- */
-astro_time_t Astronomy_TerrestrialTime(double tt)
-{
- /* Iterate to solve to find the correct ut for a given tt, and create an astro_time_t for that time. */
- astro_time_t time = Astronomy_TimeFromDays(tt);
- for(;;)
- {
- double err = tt - time.tt;
- if (fabs(err) < 1.0e-12)
- return time;
- time = Astronomy_AddDays(time, err);
- }
-}
-
-#if !defined(ASTRONOMY_ENGINE_NO_CURRENT_TIME)
-/**
- * @brief Returns the computer's current date and time in the form of an #astro_time_t.
- *
- * Uses the computer's system clock to find the current UTC date and time.
- * Converts that date and time to an #astro_time_t value and returns the result.
- * Callers can pass this value to other Astronomy Engine functions to calculate
- * current observational conditions.
- *
- * On supported platforms (Linux/Unix, Mac, Windows), the time is measured with
- * microsecond resolution.
- *
- * On unsupported platforms, a compiler error will occur due to lack of
- * microsecond resolution support. However, if whole second resolution is good
- * enough for your application, you can define the preprocessor symbol
- * `ASTRONOMY_ENGINE_WHOLE_SECOND` to use the portable function `time(NULL)`.
- * Alternatively, if you do not need to use `Astronomy_CurrentTime`, you can
- * define the preprocessor symbol `ASTRONOMY_ENGINE_NO_CURRENT_TIME` to
- * exclude this function from your code.
- */
-astro_time_t Astronomy_CurrentTime(void)
-{
- astro_time_t t;
- double sec; /* Seconds since midnight January 1, 1970. */
-
-#if defined(__unix__) || defined(__unix) || (defined(__APPLE__) && defined(__MACH__))
- struct timeval tv;
- gettimeofday(&tv, NULL);
- sec = (double)tv.tv_sec + tv.tv_usec/1.0e+6;
-#elif defined(_WIN32)
- FILETIME ft;
- ULARGE_INTEGER large;
- /* Get time in 100-nanosecond units from January 1, 1601. */
- /* GetSystemTimePreciseAsFileTime is only available since Windows 8 */
- typedef void (WINAPI *GetSystemTimePreciseAsFileTimeFunc)(LPFILETIME);
- GetSystemTimePreciseAsFileTimeFunc pGetSystemTimePreciseAsFileTime = NULL;
- HMODULE hModule = GetModuleHandleA("kernel32.dll");
- if (hModule) {
- union {
- FARPROC proc;
- GetSystemTimePreciseAsFileTimeFunc func;
- } converter;
- converter.proc = GetProcAddress(hModule, "GetSystemTimePreciseAsFileTime");
- pGetSystemTimePreciseAsFileTime = converter.func;
- }
- // Use the function if available, otherwise fallback
- if (pGetSystemTimePreciseAsFileTime) {
- pGetSystemTimePreciseAsFileTime(&ft);
- } else {
- GetSystemTimeAsFileTime(&ft);
- }
- large.u.LowPart = ft.dwLowDateTime;
- large.u.HighPart = ft.dwHighDateTime;
- sec = (large.QuadPart - 116444736000000000ULL) / 1.0e+7;
-#elif defined(ASTRONOMY_ENGINE_WHOLE_SECOND)
- sec = time(NULL);
-#else
- #error Microsecond time resolution is not supported on this platform. Define ASTRONOMY_ENGINE_WHOLE_SECOND to use second resolution instead.
-#endif
-
- /* Convert seconds to days, then subtract to get days since noon on January 1, 2000. */
- t.ut = (sec / SECONDS_PER_DAY) - 10957.5;
- t.tt = TerrestrialTime(t.ut);
- t.psi = t.eps = t.st = NAN;
- return t;
-}
-#endif
-
-/**
- * @brief Creates an #astro_time_t value from a given calendar date and time.
- *
- * Given a UTC calendar date and time, calculates an #astro_time_t value that can
- * be passed to other Astronomy Engine functions for performing various calculations
- * relating to that date and time.
- *
- * It is the caller's responsibility to ensure that the parameter values are correct.
- * The parameters are not checked for validity,
- * and this function never returns any indication of an error.
- * Invalid values, for example passing in February 31, may cause unexpected return values.
- *
- * @param year The UTC calendar year, e.g. 2019.
- * @param month The UTC calendar month in the range 1..12.
- * @param day The UTC calendar day in the range 1..31.
- * @param hour The UTC hour of the day in the range 0..23.
- * @param minute The UTC minute in the range 0..59.
- * @param second The UTC floating-point second in the range [0, 60).
- *
- * @return An #astro_time_t value that represents the given calendar date and time.
- */
-astro_time_t Astronomy_MakeTime(int year, int month, int day, int hour, int minute, double second)
-{
- astro_time_t time;
- int64_t y = (int64_t)year;
- int64_t m = (int64_t)month;
- int64_t d = (int64_t)day;
- int64_t f = (14 - m) / 12;
-
- /*
- This formula is adapted from NOVAS C 3.1 function julian_date(),
- which in turn comes from Henry F. Fliegel & Thomas C. Van Flendern:
- Communications of the ACM, Vol 11, No 10, October 1968, p. 657.
- See: https://dl.acm.org/doi/pdf/10.1145/364096.364097
-
- [Don Cross - 2023-02-25] I modified the formula so that it will
- work correctly with years as far back as -999999.
- */
- int64_t y2000 = (
- (d - 365972956)
- + (1461*(y + 1000000 - f))/4
- + (367*(m - 2 + 12*f))/12
- - (3*((y + 1000100 - f) / 100))/4
- );
-
- time.ut = (y2000 - 0.5) + (hour / 24.0) + (minute / 1440.0) + (second / 86400.0);
- time.tt = TerrestrialTime(time.ut);
- time.psi = time.eps = time.st = NAN;
-
- return time;
-}
-
-/**
- * @brief Calculates the sum or difference of an #astro_time_t with a specified floating point number of days.
- *
- * Sometimes we need to adjust a given #astro_time_t value by a certain amount of time.
- * This function adds the given real number of days in `days` to the date and time in `time`.
- *
- * More precisely, the result's Universal Time field `ut` is exactly adjusted by `days` and
- * the Terrestrial Time field `tt` is adjusted correctly for the resulting UTC date and time,
- * according to the historical and predictive Delta-T model provided by the
- * [United States Naval Observatory](http://maia.usno.navy.mil/ser7/).
- *
- * The value stored in `time` will not be modified; it is passed by value.
- *
- * @param time A date and time for which to calculate an adjusted date and time.
- * @param days A floating point number of days by which to adjust `time`. May be negative, 0, or positive.
- * @return A date and time that is conceptually equal to `time + days`.
- */
-astro_time_t Astronomy_AddDays(astro_time_t time, double days)
-{
- /*
- This is slightly wrong, but the error is tiny.
- We really should be adding to TT, not to UT.
- But using TT would require creating an inverse function for DeltaT,
- which would be quite a bit of extra calculation.
- I estimate the error is in practice on the order of 10^(-7)
- times the value of 'days'.
- This is based on a typical drift of 1 second per year between UT and TT.
- */
-
- astro_time_t sum;
-
- sum.ut = time.ut + days;
- sum.tt = TerrestrialTime(sum.ut);
- sum.eps = sum.psi = sum.st = NAN;
-
- return sum;
-}
-
-/**
- * @brief Creates an #astro_time_t value from a given calendar date and time.
- *
- * This function is similar to #Astronomy_MakeTime, only it receives a
- * UTC calendar date and time in the form of an #astro_utc_t structure instead of
- * as separate numeric parameters. Astronomy_TimeFromUtc is the inverse of
- * #Astronomy_UtcFromTime.
- *
- * @param utc The UTC calendar date and time to be converted to #astro_time_t.
- * @return A value that can be used for astronomical calculations for the given date and time.
- */
-astro_time_t Astronomy_TimeFromUtc(astro_utc_t utc)
-{
- return Astronomy_MakeTime(utc.year, utc.month, utc.day, utc.hour, utc.minute, utc.second);
-}
-
-/**
- * @brief Determines the calendar year, month, day, and time from an #astro_time_t value.
- *
- * After calculating the date and time of an astronomical event in the form of
- * an #astro_time_t value, it is often useful to display the result in a human-readable
- * form. This function converts the linear time scales in the `ut` field of #astro_time_t
- * into a calendar date and time: year, month, day, hours, minutes, and seconds, expressed
- * in UTC.
- *
- * @param time The astronomical time value to be converted to calendar date and time.
- * @return A date and time broken out into conventional year, month, day, hour, minute, and second.
- */
-astro_utc_t Astronomy_UtcFromTime(astro_time_t time)
-{
- /* Adapted from the NOVAS C 3.1 function cal_date() */
- astro_utc_t utc;
- int64_t jd, k, m, n;
- double djd, x;
- const int64_t c = 2500;
-
- djd = time.ut + 2451545.5;
- jd = (int64_t)floor(djd);
-
- x = 24.0 * fmod(djd, 1.0);
- if (x < 0.0)
- x += 24.0;
- utc.hour = (int)x;
- x = 60.0 * fmod(x, 1.0);
- utc.minute = (int)x;
- utc.second = 60.0 * fmod(x, 1.0);
-
- /*
- This is my own adjustment to the NOVAS cal_date logic
- so that it can handle dates much farther back in the past.
- I add c*400 years worth of days at the front,
- then subtract c*400 years at the back,
- which avoids negative values in the formulas that mess up
- the calendar date calculations.
- Any multiple of 400 years has the same number of days,
- because it eliminates all the special cases for leap years.
- */
- k = jd + (68569 + c*146097);
- n = (4 * k) / 146097;
- k = k - (146097 * n + 3)/4;
- m = (4000 * (k+1)) / 1461001;
- k = k - (1461 * m)/4 + 31;
-
- utc.month = (int) ((80 * k) / 2447);
- utc.day = (int) (k - (2447*utc.month)/80);
- k = utc.month / 11;
-
- utc.month = (int) (utc.month + 2 - 12*k);
- utc.year = (int) (100 * (n - 49) + m + k - 400*c);
-
- return utc;
-}
-
-
-/**
- * @brief Formats an #astro_time_t value as an ISO 8601 string.
- *
- * Given an #astro_time_t value `time`, formats it as an ISO 8601
- * string to the resolution specified by the `format` parameter.
- * The result is stored in the `text` buffer whose capacity in bytes
- * is specified by `size`.
- *
- * @param time
- * The date and time whose civil time `time.ut` is to be formatted as an ISO 8601 string.
- * If the civil time is outside the year range -999999 to +999999, the function fails
- * and returns `ASTRO_BAD_TIME`. Years prior to 1583 are treated as if they are
- * using the modern Gregorian calendar, even when the Julian calendar was actually in effect.
- * The year before 1 AD, commonly known as 1 BC, is represented by the value 0.
- * The year 2 BC is represented by -1, etc.
- *
- * @param format
- * Specifies the resolution to which the date and time should be formatted,
- * as explained at #astro_time_format_t.
- * If the value of `format` is not recognized, the function fails and
- * returns `ASTRO_INVALID_PARAMETER`.
- *
- * @param text
- * A pointer to a text buffer to receive the output.
- * If `text` is `NULL`, this function returns `ASTRO_INVALID_PARAMETER`.
- * If the function fails for any reason, and `text` is not `NULL`,
- * and `size` is greater than 0, the `text` buffer is set to an empty string.
- *
- * @param size
- * The size in bytes of the buffer pointed to by `text`. The buffer must
- * be large enough to accomodate the output format selected by the
- * `format` parameter, as specified at #astro_time_format_t.
- * If `size` is too small to hold the string as specified by `format`,
- * the `text` buffer is set to `""` (if possible)
- * and the function returns `ASTRO_BUFFER_TOO_SMALL`.
- * A buffer that is `TIME_TEXT_BYTES` (28) bytes or larger is always large enough for this function.
- *
- * @return `ASTRO_SUCCESS` on success; otherwise an error as described in the parameter notes.
- */
-astro_status_t Astronomy_FormatTime(
- astro_time_t time,
- astro_time_format_t format,
- char *text,
- size_t size)
-{
- int nprinted;
- double rounding;
- size_t min_size;
- astro_utc_t utc;
- char ytext[20]; /* worst case: "+999999" = 8 characters including terminal '\0'. But gcc 12.2 still complains! */
-
- if (text == NULL)
- return ASTRO_INVALID_PARAMETER;
-
- if (size == 0)
- return ASTRO_BUFFER_TOO_SMALL;
-
- text[0] = '\0'; /* initialize to empty string, in case an error occurs */
-
- /* Validate 'size' parameter and perform date/time rounding. */
- switch (format)
- {
- case TIME_FORMAT_DAY:
- min_size = 11; /* "2020-12-31" */
- rounding = 0.0; /* no rounding */
- break;
-
- case TIME_FORMAT_MINUTE:
- min_size = 18; /* "2020-12-31T15:47Z" */
- rounding = 0.5 / (24.0 * 60.0); /* round to nearest minute */
- break;
-
- case TIME_FORMAT_SECOND:
- min_size = 21; /* "2020-12-31T15:47:59Z" */
- rounding = 0.5 / (24.0 * 3600.0); /* round to nearest second */
- break;
-
- case TIME_FORMAT_MILLI:
- min_size = 25; /* "2020-12-31T15:47:59.123Z" */
- rounding = 0.5 / (24.0 * 3600000.0); /* round to nearest millisecond */
- break;
-
- default:
- return ASTRO_INVALID_PARAMETER;
- }
-
- /* Perform rounding. */
- time.ut += rounding;
-
- /* Convert linear J2000 days to Gregorian UTC date/time. */
- utc = Astronomy_UtcFromTime(time);
- if (utc.year < -999999 || utc.year > +999999)
- return ASTRO_BAD_TIME;
-
- if (utc.year < 0)
- {
- snprintf(ytext, sizeof(ytext), "-%06d", -utc.year);
- min_size += 3; /* '-' prefix and two extra year digits. */
- }
- else if (utc.year <= 9999)
- {
- snprintf(ytext, sizeof(ytext), "%04d", utc.year);
- }
- else
- {
- snprintf(ytext, sizeof(ytext), "+%06d", utc.year);
- min_size += 3; /* '+' prefix and two extra year digits. */
- }
-
- /* Check for insufficient buffer size. */
- if (size < min_size)
- return ASTRO_BUFFER_TOO_SMALL;
-
- /* Format the string. */
- switch (format)
- {
- case TIME_FORMAT_DAY:
- nprinted = snprintf(text, size, "%s-%02d-%02d",
- ytext, utc.month, utc.day);
- break;
-
- case TIME_FORMAT_MINUTE:
- nprinted = snprintf(text, size, "%s-%02d-%02dT%02d:%02dZ",
- ytext, utc.month, utc.day,
- utc.hour, utc.minute);
- break;
-
- case TIME_FORMAT_SECOND:
- nprinted = snprintf(text, size, "%s-%02d-%02dT%02d:%02d:%02.0lfZ",
- ytext, utc.month, utc.day,
- utc.hour, utc.minute, floor(utc.second));
- break;
-
- case TIME_FORMAT_MILLI:
- nprinted = snprintf(text, size, "%s-%02d-%02dT%02d:%02d:%06.3lfZ",
- ytext, utc.month, utc.day,
- utc.hour, utc.minute, floor(1000.0 * utc.second) / 1000.0);
- break;
-
- default:
- /* We should have already failed for any unknown 'format' value. */
- return ASTRO_INTERNAL_ERROR;
- }
-
- if (nprinted < 0)
- return ASTRO_INTERNAL_ERROR; /* should not be possible for snprintf to return a negative number */
-
- if ((size_t)(1+nprinted) != min_size)
- return ASTRO_INTERNAL_ERROR; /* there must be a bug calculating min_size or formatting the string */
-
- return ASTRO_SUCCESS;
-}
-
-
-/**
- * @brief Creates an observer object that represents a location on or near the surface of the Earth.
- *
- * Some Astronomy Engine functions calculate values pertaining to an observer on the Earth.
- * These functions require a value of type #astro_observer_t that represents the location
- * of such an observer.
- *
- * @param latitude The geographic latitude of the observer in degrees north (positive) or south (negative) of the equator.
- * @param longitude The geographic longitude of the observer in degrees east (positive) or west (negative) of the prime meridian at Greenwich, England.
- * @param height The height of the observer in meters above mean sea level.
- * @return An observer object that can be passed to astronomy functions that require a geographic location.
- */
-astro_observer_t Astronomy_MakeObserver(double latitude, double longitude, double height)
-{
- astro_observer_t observer;
-
- observer.latitude = latitude;
- observer.longitude = longitude;
- observer.height = height;
-
- return observer;
-}
-
-static void iau2000b(astro_time_t *time)
-{
- /* Truncated and hand-optimized nutation model. */
-
- if ((time != NULL) && isnan(time->psi))
- {
- double t, elp, f, d, om, arg, dp, de, sarg, carg;
-
- t = time->tt / 36525.0;
- elp = fmod(1287104.79305 + t * 129596581.0481, ASEC360) * ASEC2RAD;
- f = fmod(335779.526232 + t * 1739527262.8478, ASEC360) * ASEC2RAD;
- d = fmod(1072260.70369 + t * 1602961601.2090, ASEC360) * ASEC2RAD;
- om = fmod(450160.398036 - t * 6962890.5431, ASEC360) * ASEC2RAD;
-
- sarg = sin(om);
- carg = cos(om);
- dp = (-172064161.0 - 174666.0*t)*sarg + 33386.0*carg;
- de = (92052331.0 + 9086.0*t)*carg + 15377.0*sarg;
-
- arg = 2.0*(f - d + om);
- sarg = sin(arg);
- carg = cos(arg);
- dp += (-13170906.0 - 1675.0*t)*sarg - 13696.0*carg;
- de += (5730336.0 - 3015.0*t)*carg - 4587.0*sarg;
-
- arg = 2.0*(f + om);
- sarg = sin(arg);
- carg = cos(arg);
- dp += (-2276413.0 - 234.0*t)*sarg + 2796.0*carg;
- de += (978459.0 - 485.0*t)*carg + 1374.0*sarg;
-
- arg = 2.0*om;
- sarg = sin(arg);
- carg = cos(arg);
- dp += (2074554.0 + 207.0*t)*sarg - 698.0*carg;
- de += (-897492.0 + 470.0*t)*carg - 291.0*sarg;
-
- sarg = sin(elp);
- carg = cos(elp);
- dp += (1475877.0 - 3633.0*t)*sarg + 11817.0*carg;
- de += (73871.0 - 184.0*t)*carg - 1924.0*sarg;
-
- time->psi = -0.000135 + (dp * 1.0e-7);
- time->eps = +0.000388 + (de * 1.0e-7);
- }
-}
-
-static double mean_obliq(double tt)
-{
- double t = tt / 36525.0;
- double asec =
- (((( - 0.0000000434 * t
- - 0.000000576 ) * t
- + 0.00200340 ) * t
- - 0.0001831 ) * t
- - 46.836769 ) * t + 84381.406;
-
- return asec / 3600.0;
-}
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- double tt;
- double dpsi;
- double deps;
- double ee;
- double mobl;
- double tobl;
-}
-earth_tilt_t;
-/** @endcond */
-
-static earth_tilt_t e_tilt(astro_time_t *time)
-{
- earth_tilt_t et;
-
- /* There is no good answer for what to do if time==NULL. Callers must prevent! */
-
- iau2000b(time);
- et.dpsi = time->psi;
- et.deps = time->eps;
- et.mobl = mean_obliq(time->tt);
- et.tobl = et.mobl + (et.deps / 3600.0);
- et.tt = time->tt;
- et.ee = et.dpsi * cos(et.mobl * DEG2RAD) / 15.0;
-
- return et;
-}
-
-static void obl_ecl2equ_vec(double obl, astro_time_t time, const double ecl[3], double equ[3])
-{
- double obl_rad = obl * DEG2RAD;
- double cos_obl = cos(obl_rad);
- double sin_obl = sin(obl_rad);
-
- equ[0] = ecl[0];
- equ[1] = ecl[1]*cos_obl - ecl[2]*sin_obl;
- equ[2] = ecl[1]*sin_obl + ecl[2]*cos_obl;
-}
-
-static void ecl2equ_vec(astro_time_t time, const double ecl[3], double equ[3])
-{
- double obl = mean_obliq(time.tt);
- obl_ecl2equ_vec(obl, time, ecl, equ);
-}
-
-static astro_rotation_t precession_rot(astro_time_t time, precess_dir_t dir)
-{
- /*
- dir==INTO_2000: converts mean equator of date (EQM) to J2000 mean equator (EQJ).
- dir==FROM_2000: converts J2000 mean equator (EQJ) to mean equator of date (EQM).
- */
-
- astro_rotation_t rotation;
- double xx, yx, zx, xy, yy, zy, xz, yz, zz;
- double t, psia, omegaa, chia, sa, ca, sb, cb, sc, cc, sd, cd;
- double eps0 = 84381.406;
-
- t = time.tt / 36525;
-
- psia = (((((- 0.0000000951 * t
- + 0.000132851 ) * t
- - 0.00114045 ) * t
- - 1.0790069 ) * t
- + 5038.481507 ) * t);
-
- omegaa = (((((+ 0.0000003337 * t
- - 0.000000467 ) * t
- - 0.00772503 ) * t
- + 0.0512623 ) * t
- - 0.025754 ) * t + eps0);
-
- chia = (((((- 0.0000000560 * t
- + 0.000170663 ) * t
- - 0.00121197 ) * t
- - 2.3814292 ) * t
- + 10.556403 ) * t);
-
- eps0 = eps0 * ASEC2RAD;
- psia = psia * ASEC2RAD;
- omegaa = omegaa * ASEC2RAD;
- chia = chia * ASEC2RAD;
-
- sa = sin(eps0);
- ca = cos(eps0);
- sb = sin(-psia);
- cb = cos(-psia);
- sc = sin(-omegaa);
- cc = cos(-omegaa);
- sd = sin(chia);
- cd = cos(chia);
-
- xx = cd * cb - sb * sd * cc;
- yx = cd * sb * ca + sd * cc * cb * ca - sa * sd * sc;
- zx = cd * sb * sa + sd * cc * cb * sa + ca * sd * sc;
- xy = -sd * cb - sb * cd * cc;
- yy = -sd * sb * ca + cd * cc * cb * ca - sa * cd * sc;
- zy = -sd * sb * sa + cd * cc * cb * sa + ca * cd * sc;
- xz = sb * sc;
- yz = -sc * cb * ca - sa * cc;
- zz = -sc * cb * sa + cc * ca;
-
- if (dir == INTO_2000)
- {
- /* Perform rotation from other epoch to J2000.0. */
- rotation.rot[0][0] = xx;
- rotation.rot[0][1] = yx;
- rotation.rot[0][2] = zx;
- rotation.rot[1][0] = xy;
- rotation.rot[1][1] = yy;
- rotation.rot[1][2] = zy;
- rotation.rot[2][0] = xz;
- rotation.rot[2][1] = yz;
- rotation.rot[2][2] = zz;
- }
- else
- {
- /* Perform rotation from J2000.0 to other epoch. */
- rotation.rot[0][0] = xx;
- rotation.rot[0][1] = xy;
- rotation.rot[0][2] = xz;
- rotation.rot[1][0] = yx;
- rotation.rot[1][1] = yy;
- rotation.rot[1][2] = yz;
- rotation.rot[2][0] = zx;
- rotation.rot[2][1] = zy;
- rotation.rot[2][2] = zz;
- }
-
- rotation.status = ASTRO_SUCCESS;
- return rotation;
-}
-
-
-static void rotate(const double invec[3], const double rot[3][3], double outvec[3])
-{
- outvec[0] = rot[0][0]*invec[0] + rot[1][0]*invec[1] + rot[2][0]*invec[2];
- outvec[1] = rot[0][1]*invec[0] + rot[1][1]*invec[1] + rot[2][1]*invec[2];
- outvec[2] = rot[0][2]*invec[0] + rot[1][2]*invec[1] + rot[2][2]*invec[2];
-}
-
-static void precession(
- const double pos1[3],
- astro_time_t time,
- precess_dir_t dir,
- double pos2[3])
-{
- astro_rotation_t r = precession_rot(time, dir);
- rotate(pos1, r.rot, pos2);
-}
-
-static void precession_posvel(
- const double pos1[3],
- const double vel1[3],
- astro_time_t time,
- precess_dir_t dir,
- double pos2[3],
- double vel2[3])
-{
- astro_rotation_t r = precession_rot(time, dir);
- rotate(pos1, r.rot, pos2);
- rotate(vel1, r.rot, vel2);
-}
-
-
-static astro_equatorial_t vector2radec(const double pos[3], astro_time_t time)
-{
- astro_equatorial_t equ;
- double xyproj;
-
- /* Copy the cartesian coordinates from the input into the returned structure. */
- equ.vec.status = ASTRO_SUCCESS;
- equ.vec.t = time;
- equ.vec.x = pos[0];
- equ.vec.y = pos[1];
- equ.vec.z = pos[2];
-
- /* Calculate spherical coordinates: RA, DEC, distance. */
- xyproj = pos[0]*pos[0] + pos[1]*pos[1];
- equ.dist = sqrt(xyproj + pos[2]*pos[2]);
- equ.status = ASTRO_SUCCESS;
- if (xyproj == 0.0)
- {
- if (pos[2] == 0.0)
- {
- /* Indeterminate coordinates; pos vector has zero length. */
- equ = EquError(ASTRO_BAD_VECTOR);
- }
- else if (pos[2] < 0)
- {
- equ.ra = 0.0;
- equ.dec = -90.0;
- }
- else
- {
- equ.ra = 0.0;
- equ.dec = +90.0;
- }
- }
- else
- {
- equ.ra = RAD2HOUR * atan2(pos[1], pos[0]);
- if (equ.ra < 0)
- equ.ra += 24.0;
-
- equ.dec = RAD2DEG * atan2(pos[2], sqrt(xyproj));
- }
-
- return equ;
-}
-
-
-static astro_rotation_t nutation_rot(astro_time_t *time, precess_dir_t dir)
-{
- /*
- Creates a rotation matrix that adds/removes nutation from
- an equatorial vector of date:
-
- The `dir` parameter is a little misleading, but reflects the
- common task of working together with precession_rot() to
- convert mean equator of 2000 to/from true equator of date.
- Here is the actual result of `dir`:
-
- dir==INTO_2000: Subtract nutation from true equator of date (EQD)
- to produce mean equator of date (EQM).
-
- dir==FROM_2000: Add nutation from mean equator of date (EQM) to
- produce true equator of date (EQD).
- */
-
- astro_rotation_t rotation;
- earth_tilt_t tilt;
- double oblm, oblt, psi, cobm, sobm, cobt, sobt, cpsi, spsi;
- double xx, yx, zx, xy, yy, zy, xz, yz, zz;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- tilt = e_tilt(time);
- oblm = tilt.mobl * DEG2RAD;
- oblt = tilt.tobl * DEG2RAD;
- psi = tilt.dpsi * ASEC2RAD;
- cobm = cos(oblm);
- sobm = sin(oblm);
- cobt = cos(oblt);
- sobt = sin(oblt);
- cpsi = cos(psi);
- spsi = sin(psi);
-
- xx = cpsi;
- yx = -spsi * cobm;
- zx = -spsi * sobm;
- xy = spsi * cobt;
- yy = cpsi * cobm * cobt + sobm * sobt;
- zy = cpsi * sobm * cobt - cobm * sobt;
- xz = spsi * sobt;
- yz = cpsi * cobm * sobt - sobm * cobt;
- zz = cpsi * sobm * sobt + cobm * cobt;
-
- if (dir == FROM_2000)
- {
- /* convert J2000 to of-date */
- rotation.rot[0][0] = xx;
- rotation.rot[0][1] = xy;
- rotation.rot[0][2] = xz;
- rotation.rot[1][0] = yx;
- rotation.rot[1][1] = yy;
- rotation.rot[1][2] = yz;
- rotation.rot[2][0] = zx;
- rotation.rot[2][1] = zy;
- rotation.rot[2][2] = zz;
- }
- else
- {
- /* convert of-date to J2000 */
- rotation.rot[0][0] = xx;
- rotation.rot[0][1] = yx;
- rotation.rot[0][2] = zx;
- rotation.rot[1][0] = xy;
- rotation.rot[1][1] = yy;
- rotation.rot[1][2] = zy;
- rotation.rot[2][0] = xz;
- rotation.rot[2][1] = yz;
- rotation.rot[2][2] = zz;
- }
-
- rotation.status = ASTRO_SUCCESS;
- return rotation;
-}
-
-static void nutation(
- const double inpos[3],
- astro_time_t *time,
- precess_dir_t dir,
- double outpos[3])
-{
- astro_rotation_t r = nutation_rot(time, dir);
- rotate(inpos, r.rot, outpos);
-}
-
-static void nutation_posvel(
- const double inpos[3],
- const double invel[3],
- astro_time_t *time,
- precess_dir_t dir,
- double outpos[3],
- double outvel[3])
-{
- astro_rotation_t r = nutation_rot(time, dir);
- rotate(inpos, r.rot, outpos);
- rotate(invel, r.rot, outvel);
-}
-
-static double era(double ut) /* Earth Rotation Angle */
-{
- double thet1 = 0.7790572732640 + 0.00273781191135448 * ut;
- double thet3 = fmod(ut, 1.0);
- double theta = 360.0 * fmod(thet1 + thet3, 1.0);
- if (theta < 0.0)
- theta += 360.0;
-
- return theta;
-}
-
-/**
- * @brief Calculates Greenwich Apparent Sidereal Time (GAST).
- *
- * Given a date and time, this function calculates the rotation of the
- * Earth, represented by the equatorial angle of the Greenwich prime meridian
- * with respect to distant stars (not the Sun, which moves relative to background
- * stars by almost one degree per day).
- * This angle is called Greenwich Apparent Sidereal Time (GAST).
- * GAST is measured in sidereal hours in the half-open range [0, 24).
- * When GAST = 0, it means the prime meridian is aligned with the of-date equinox,
- * corrected at that time for precession and nutation of the Earth's axis.
- * In this context, the "equinox" is the direction in space where the Earth's
- * orbital plane (the ecliptic) intersects with the plane of the Earth's equator,
- * at the location on the Earth's orbit of the (seasonal) March equinox.
- * As the Earth rotates, GAST increases from 0 up to 24 sidereal hours,
- * then starts over at 0.
- * To convert to degrees, multiply the return value by 15.
- *
- * @param time
- * The date and time for which to find GAST.
- * The parameter is passed by address because it can be modified by the call:
- * As an optimization, this function caches the sidereal time value in `time`,
- * unless it has already been cached, in which case the cached value is reused.
- * If the `time` pointer is NULL, this function returns a NAN value.
- *
- * @returns {number}
- */
-double Astronomy_SiderealTime(astro_time_t *time)
-{
- if (time == NULL)
- return NAN;
-
- if (isnan(time->st))
- {
- double t = time->tt / 36525.0;
- double eqeq = 15.0 * e_tilt(time).ee; /* Replace with eqeq=0 to get GMST instead of GAST (if we ever need it) */
- double theta = era(time->ut);
- double st = (eqeq + 0.014506 +
- (((( - 0.0000000368 * t
- - 0.000029956 ) * t
- - 0.00000044 ) * t
- + 1.3915817 ) * t
- + 4612.156534 ) * t);
-
- double gst = fmod(st/3600.0 + theta, 360.0) / 15.0;
- if (gst < 0.0)
- gst += 24.0;
-
- time->st = gst;
- }
-
- return time->st; /* return sidereal hours in the half-open range [0, 24). */
-}
-
-static astro_observer_t inverse_terra(const double ovec[3], double st)
-{
- double x, y, z, p, F, W, D, c, s, c2, s2;
- double lon_deg, lat_deg, lat, radicand, factor, denom, adjust;
- double height_km, stlocl, distance_au;
- astro_observer_t observer;
- int count;
-
- /* Convert from AU to kilometers. */
- x = ovec[0] * KM_PER_AU;
- y = ovec[1] * KM_PER_AU;
- z = ovec[2] * KM_PER_AU;
- p = hypot(x, y);
- if (p < 1.0e-6)
- {
- /* Special case: within 1 millimeter of a pole! */
- /* Use arbitrary longitude, and latitude determined by polarity of z. */
- lon_deg = 0.0;
- lat_deg = (z > 0.0) ? +90.0 : -90.0;
- /* Elevation is calculated directly from z */
- height_km = fabs(z) - EARTH_POLAR_RADIUS_KM;
- }
- else
- {
- stlocl = atan2(y, x);
- /* Calculate exact longitude. */
- lon_deg = RAD2DEG*stlocl - (15.0 * st);
- /* Normalize longitude to the range (-180, +180]. */
- while (lon_deg <= -180.0)
- lon_deg += 360.0;
- while (lon_deg > +180.0)
- lon_deg -= 360.0;
- /* Numerically solve for exact latitude, using Newton's Method. */
- F = EARTH_FLATTENING * EARTH_FLATTENING;
- /* Start with initial latitude estimate, based on a spherical Earth. */
- lat = atan2(z, p);
- distance_au = sqrt(ovec[0]*ovec[0] + ovec[1]*ovec[1] + ovec[2]*ovec[2]);
- if (distance_au < 1.0)
- distance_au = 1.0;
- for (count = 0; ; ++count)
- {
- if (count > 10)
- {
- fprintf(stderr, "\nFATAL(inverse_terra): did not converge!\n");
- exit(1);
- }
-
- /* Calculate the error function W(lat). */
- /* We try to find the root of W, meaning where the error is 0. */
- c = cos(lat);
- s = sin(lat);
- factor = (F-1)*EARTH_EQUATORIAL_RADIUS_KM;
- c2 = c*c;
- s2 = s*s;
- radicand = c2 + F*s2;
- denom = sqrt(radicand);
- W = (factor*s*c)/denom - z*c + p*s;
- if (fabs(W) < distance_au * 2.0e-8)
- break; /* The error is now negligible. */
- /* Error is still too large. Find the next estimate. */
- /* Calculate D = the derivative of W with respect to lat. */
- D = factor*((c2 - s2)/denom - s2*c2*(F-1)/(factor*radicand)) + z*s + p*c;
- lat -= W/D;
- }
- /* We now have a solution for the latitude in radians. */
- lat_deg = lat * RAD2DEG;
- /* Solve for exact height in meters. */
- /* There are two formulas I can use. Use whichever has the less risky denominator. */
- adjust = EARTH_EQUATORIAL_RADIUS_KM / denom;
- if (fabs(s) > fabs(c))
- height_km = z/s - F*adjust;
- else
- height_km = p/c - adjust;
- }
-
- observer.latitude = lat_deg;
- observer.longitude = lon_deg;
- observer.height = 1000.0 * height_km;
- return observer;
-}
-
-static void terra(astro_observer_t observer, double st, double pos[3], double vel[3])
-{
- static const double ANGVEL = 7.2921150e-5;
-
- double phi = observer.latitude * DEG2RAD;
- double sinphi = sin(phi);
- double cosphi = cos(phi);
- double c = 1.0 / hypot(cosphi, sinphi*EARTH_FLATTENING);
- double s = c * (EARTH_FLATTENING * EARTH_FLATTENING);
- double ht_km = observer.height / 1000.0;
- double ach = EARTH_EQUATORIAL_RADIUS_KM*c + ht_km;
- double ash = EARTH_EQUATORIAL_RADIUS_KM*s + ht_km;
- double stlocl = (15.0*st + observer.longitude) * DEG2RAD;
- double sinst = sin(stlocl);
- double cosst = cos(stlocl);
-
- if (pos != NULL)
- {
- pos[0] = ach * cosphi * cosst / KM_PER_AU;
- pos[1] = ach * cosphi * sinst / KM_PER_AU;
- pos[2] = ash * sinphi / KM_PER_AU;
- }
-
- if (vel != NULL)
- {
- vel[0] = -(ANGVEL * 86400.0 / KM_PER_AU) * ach * cosphi * sinst;
- vel[1] = +(ANGVEL * 86400.0 / KM_PER_AU) * ach * cosphi * cosst;
- vel[2] = 0.0;
- }
-}
-
-static void geo_pos(astro_time_t *time, astro_observer_t observer, double pos[3])
-{
- double gast;
- double pos1[3], pos2[3];
-
- if (time == NULL)
- {
- pos[0] = pos[1] = pos[2] = NAN;
- }
- else
- {
- gast = Astronomy_SiderealTime(time);
- terra(observer, gast, pos1, NULL);
- nutation(pos1, time, INTO_2000, pos2);
- precession(pos2, *time, INTO_2000, pos);
- }
-}
-
-static void spin(double angle, const double pos1[3], double vec2[3])
-{
- double angr = angle * DEG2RAD;
- double cosang = cos(angr);
- double sinang = sin(angr);
- vec2[0] = +cosang*pos1[0] + sinang*pos1[1];
- vec2[1] = -sinang*pos1[0] + cosang*pos1[1];
- vec2[2] = pos1[2];
-}
-
-/*------------------ CalcMoon ------------------*/
-
-/** @cond DOXYGEN_SKIP */
-
-#define DECLARE_PASCAL_ARRAY_1(elemtype,name,xmin,xmax) \
- elemtype name[(xmax)-(xmin)+1]
-
-#define DECLARE_PASCAL_ARRAY_2(elemtype,name,xmin,xmax,ymin,ymax) \
- elemtype name[(xmax)-(xmin)+1][(ymax)-(ymin)+1]
-
-#define ACCESS_PASCAL_ARRAY_1(name,xmin,x) \
- ((name)[(x)-(xmin)])
-
-#define ACCESS_PASCAL_ARRAY_2(name,xmin,ymin,x,y) \
- ((name)[(x)-(xmin)][(y)-(ymin)])
-
-typedef struct
-{
- double t;
- double dgam;
- double dlam, n, gam1c, sinpi;
- double l0, l, ls, f, d, s;
- double dl0, dl, dls, df, dd, ds;
- DECLARE_PASCAL_ARRAY_2(double,co,-6,6,1,4); /* ARRAY[-6..6,1..4] OF REAL */
- DECLARE_PASCAL_ARRAY_2(double,si,-6,6,1,4); /* ARRAY[-6..6,1..4] OF REAL */
-}
-MoonContext;
-
-#define T (ctx->t)
-#define DGAM (ctx->dgam)
-#define DLAM (ctx->dlam)
-#define N (ctx->n)
-#define GAM1C (ctx->gam1c)
-#define SINPI (ctx->sinpi)
-#define L0 (ctx->l0)
-#define L (ctx->l)
-#define LS (ctx->ls)
-#define F (ctx->f)
-#define D (ctx->d)
-#define S (ctx->s)
-#define DL0 (ctx->dl0)
-#define DL (ctx->dl)
-#define DLS (ctx->dls)
-#define DF (ctx->df)
-#define DD (ctx->dd)
-#define DS (ctx->ds)
-#define CO(x,y) ACCESS_PASCAL_ARRAY_2(ctx->co,-6,1,x,y)
-#define SI(x,y) ACCESS_PASCAL_ARRAY_2(ctx->si,-6,1,x,y)
-
-static double Frac(double x)
-{
- return x - floor(x);
-}
-
-static void AddThe(
- double c1, double s1, double c2, double s2,
- double *c, double *s)
-{
- *c = c1*c2 - s1*s2;
- *s = s1*c2 + c1*s2;
-}
-
-static double Sine(double phi)
-{
- /* sine, of phi in revolutions, not radians */
- return sin(PI2 * phi);
-}
-
-static void LongPeriodic(MoonContext *ctx)
-{
- double S1 = Sine(0.19833+0.05611*T);
- double S2 = Sine(0.27869+0.04508*T);
- double S3 = Sine(0.16827-0.36903*T);
- double S4 = Sine(0.34734-5.37261*T);
- double S5 = Sine(0.10498-5.37899*T);
- double S6 = Sine(0.42681-0.41855*T);
- double S7 = Sine(0.14943-5.37511*T);
-
- DL0 = 0.84*S1+0.31*S2+14.27*S3+ 7.26*S4+ 0.28*S5+0.24*S6;
- DL = 2.94*S1+0.31*S2+14.27*S3+ 9.34*S4+ 1.12*S5+0.83*S6;
- DLS =-6.40*S1 -1.89*S6;
- DF = 0.21*S1+0.31*S2+14.27*S3-88.70*S4-15.30*S5+0.24*S6-1.86*S7;
- DD = DL0-DLS;
- DGAM = -3332E-9 * Sine(0.59734-5.37261*T)
- -539E-9 * Sine(0.35498-5.37899*T)
- -64E-9 * Sine(0.39943-5.37511*T);
-}
-
-static void Init(MoonContext *ctx)
-{
- int I, J, MAX;
- double T2, ARG, FAC;
-
- T2 = T*T;
- DLAM = 0;
- DS = 0;
- GAM1C = 0;
- SINPI = 3422.7000;
- LongPeriodic(ctx);
- L0 = PI2*Frac(0.60643382+1336.85522467*T-0.00000313*T2) + DL0/ARC;
- L = PI2*Frac(0.37489701+1325.55240982*T+0.00002565*T2) + DL /ARC;
- LS = PI2*Frac(0.99312619+ 99.99735956*T-0.00000044*T2) + DLS/ARC;
- F = PI2*Frac(0.25909118+1342.22782980*T-0.00000892*T2) + DF /ARC;
- D = PI2*Frac(0.82736186+1236.85308708*T-0.00000397*T2) + DD /ARC;
- for (I=1; I<=4; ++I)
- {
- switch(I)
- {
- case 1: ARG=L; MAX=4; FAC=1.000002208; break;
- case 2: ARG=LS; MAX=3; FAC=0.997504612-0.002495388*T; break;
- case 3: ARG=F; MAX=4; FAC=1.000002708+139.978*DGAM; break;
- default: ARG=D; MAX=6; FAC=1.0; break;
- }
- CO(0,I) = 1.0;
- CO(1,I) = cos(ARG)*FAC;
- SI(0,I) = 0.0;
- SI(1,I) = sin(ARG)*FAC;
- for (J=2; J<=MAX; ++J)
- AddThe(CO(J-1,I), SI(J-1,I), CO(1,I), SI(1,I), &CO(J,I), &SI(J,I));
-
- for (J=1; J<=MAX; ++J)
- {
- CO(-J,I) = CO(J,I);
- SI(-J,I) = -SI(J,I);
- }
- }
-}
-
-static void Term(const MoonContext *ctx, int p, int q, int r, int s, double *x, double *y)
-{
- int k;
- DECLARE_PASCAL_ARRAY_1(int, i, 1, 4);
- #define I(n) ACCESS_PASCAL_ARRAY_1(i,1,n)
-
- I(1) = p;
- I(2) = q;
- I(3) = r;
- I(4) = s;
- *x = 1.0;
- *y = 0.0;
-
- for (k=1; k<=4; ++k)
- if (I(k) != 0.0)
- AddThe(*x, *y, CO(I(k), k), SI(I(k), k), x, y);
-
- #undef I
-}
-
-static void AddSol(
- MoonContext *ctx,
- double coeffl,
- double coeffs,
- double coeffg,
- double coeffp,
- int p,
- int q,
- int r,
- int s)
-{
- double x, y;
- Term(ctx, p, q, r, s, &x, &y);
- DLAM += coeffl*y;
- DS += coeffs*y;
- GAM1C += coeffg*x;
- SINPI += coeffp*x;
-}
-
-#define ADDN(coeffn,p,q,r,s) ( Term(ctx, (p),(q),(r),(s),&x,&y), (N += (coeffn)*y) )
-
-static void SolarN(MoonContext *ctx)
-{
- double x, y;
-
- N = 0.0;
- ADDN(-526.069, 0, 0,1,-2);
- ADDN( -3.352, 0, 0,1,-4);
- ADDN( +44.297,+1, 0,1,-2);
- ADDN( -6.000,+1, 0,1,-4);
- ADDN( +20.599,-1, 0,1, 0);
- ADDN( -30.598,-1, 0,1,-2);
- ADDN( -24.649,-2, 0,1, 0);
- ADDN( -2.000,-2, 0,1,-2);
- ADDN( -22.571, 0,+1,1,-2);
- ADDN( +10.985, 0,-1,1,-2);
-}
-
-static void Planetary(MoonContext *ctx)
-{
- DLAM +=
- +0.82*Sine(0.7736 -62.5512*T)+0.31*Sine(0.0466 -125.1025*T)
- +0.35*Sine(0.5785 -25.1042*T)+0.66*Sine(0.4591+1335.8075*T)
- +0.64*Sine(0.3130 -91.5680*T)+1.14*Sine(0.1480+1331.2898*T)
- +0.21*Sine(0.5918+1056.5859*T)+0.44*Sine(0.5784+1322.8595*T)
- +0.24*Sine(0.2275 -5.7374*T)+0.28*Sine(0.2965 +2.6929*T)
- +0.33*Sine(0.3132 +6.3368*T);
-}
-
-int _CalcMoonCount; /* Undocumented global for performance tuning. */
-
-static void CalcMoon(
- double centuries_since_j2000,
- double *geo_eclip_lon, /* (LAMBDA) equinox of date */
- double *geo_eclip_lat, /* (BETA) equinox of date */
- double *distance_au) /* (R) */
-{
- double lat_seconds;
- MoonContext context;
- MoonContext *ctx = &context; /* goofy, but makes macros work inside this function */
-
- context.t = centuries_since_j2000;
- Init(ctx);
-
- AddSol(ctx, 13.9020, 14.0600, -0.0010, 0.2607, 0, 0, 0, 4);
- AddSol(ctx, 0.4030, -4.0100, 0.3940, 0.0023, 0, 0, 0, 3);
- AddSol(ctx, 2369.9120, 2373.3600, 0.6010, 28.2333, 0, 0, 0, 2);
- AddSol(ctx, -125.1540, -112.7900, -0.7250, -0.9781, 0, 0, 0, 1);
- AddSol(ctx, 1.9790, 6.9800, -0.4450, 0.0433, 1, 0, 0, 4);
- AddSol(ctx, 191.9530, 192.7200, 0.0290, 3.0861, 1, 0, 0, 2);
- AddSol(ctx, -8.4660, -13.5100, 0.4550, -0.1093, 1, 0, 0, 1);
- AddSol(ctx, 22639.5000, 22609.0700, 0.0790, 186.5398, 1, 0, 0, 0);
- AddSol(ctx, 18.6090, 3.5900, -0.0940, 0.0118, 1, 0, 0,-1);
- AddSol(ctx, -4586.4650, -4578.1300, -0.0770, 34.3117, 1, 0, 0,-2);
- AddSol(ctx, 3.2150, 5.4400, 0.1920, -0.0386, 1, 0, 0,-3);
- AddSol(ctx, -38.4280, -38.6400, 0.0010, 0.6008, 1, 0, 0,-4);
- AddSol(ctx, -0.3930, -1.4300, -0.0920, 0.0086, 1, 0, 0,-6);
- AddSol(ctx, -0.2890, -1.5900, 0.1230, -0.0053, 0, 1, 0, 4);
- AddSol(ctx, -24.4200, -25.1000, 0.0400, -0.3000, 0, 1, 0, 2);
- AddSol(ctx, 18.0230, 17.9300, 0.0070, 0.1494, 0, 1, 0, 1);
- AddSol(ctx, -668.1460, -126.9800, -1.3020, -0.3997, 0, 1, 0, 0);
- AddSol(ctx, 0.5600, 0.3200, -0.0010, -0.0037, 0, 1, 0,-1);
- AddSol(ctx, -165.1450, -165.0600, 0.0540, 1.9178, 0, 1, 0,-2);
- AddSol(ctx, -1.8770, -6.4600, -0.4160, 0.0339, 0, 1, 0,-4);
- AddSol(ctx, 0.2130, 1.0200, -0.0740, 0.0054, 2, 0, 0, 4);
- AddSol(ctx, 14.3870, 14.7800, -0.0170, 0.2833, 2, 0, 0, 2);
- AddSol(ctx, -0.5860, -1.2000, 0.0540, -0.0100, 2, 0, 0, 1);
- AddSol(ctx, 769.0160, 767.9600, 0.1070, 10.1657, 2, 0, 0, 0);
- AddSol(ctx, 1.7500, 2.0100, -0.0180, 0.0155, 2, 0, 0,-1);
- AddSol(ctx, -211.6560, -152.5300, 5.6790, -0.3039, 2, 0, 0,-2);
- AddSol(ctx, 1.2250, 0.9100, -0.0300, -0.0088, 2, 0, 0,-3);
- AddSol(ctx, -30.7730, -34.0700, -0.3080, 0.3722, 2, 0, 0,-4);
- AddSol(ctx, -0.5700, -1.4000, -0.0740, 0.0109, 2, 0, 0,-6);
- AddSol(ctx, -2.9210, -11.7500, 0.7870, -0.0484, 1, 1, 0, 2);
- AddSol(ctx, 1.2670, 1.5200, -0.0220, 0.0164, 1, 1, 0, 1);
- AddSol(ctx, -109.6730, -115.1800, 0.4610, -0.9490, 1, 1, 0, 0);
- AddSol(ctx, -205.9620, -182.3600, 2.0560, 1.4437, 1, 1, 0,-2);
- AddSol(ctx, 0.2330, 0.3600, 0.0120, -0.0025, 1, 1, 0,-3);
- AddSol(ctx, -4.3910, -9.6600, -0.4710, 0.0673, 1, 1, 0,-4);
- AddSol(ctx, 0.2830, 1.5300, -0.1110, 0.0060, 1,-1, 0, 4);
- AddSol(ctx, 14.5770, 31.7000, -1.5400, 0.2302, 1,-1, 0, 2);
- AddSol(ctx, 147.6870, 138.7600, 0.6790, 1.1528, 1,-1, 0, 0);
- AddSol(ctx, -1.0890, 0.5500, 0.0210, 0.0000, 1,-1, 0,-1);
- AddSol(ctx, 28.4750, 23.5900, -0.4430, -0.2257, 1,-1, 0,-2);
- AddSol(ctx, -0.2760, -0.3800, -0.0060, -0.0036, 1,-1, 0,-3);
- AddSol(ctx, 0.6360, 2.2700, 0.1460, -0.0102, 1,-1, 0,-4);
- AddSol(ctx, -0.1890, -1.6800, 0.1310, -0.0028, 0, 2, 0, 2);
- AddSol(ctx, -7.4860, -0.6600, -0.0370, -0.0086, 0, 2, 0, 0);
- AddSol(ctx, -8.0960, -16.3500, -0.7400, 0.0918, 0, 2, 0,-2);
- AddSol(ctx, -5.7410, -0.0400, 0.0000, -0.0009, 0, 0, 2, 2);
- AddSol(ctx, 0.2550, 0.0000, 0.0000, 0.0000, 0, 0, 2, 1);
- AddSol(ctx, -411.6080, -0.2000, 0.0000, -0.0124, 0, 0, 2, 0);
- AddSol(ctx, 0.5840, 0.8400, 0.0000, 0.0071, 0, 0, 2,-1);
- AddSol(ctx, -55.1730, -52.1400, 0.0000, -0.1052, 0, 0, 2,-2);
- AddSol(ctx, 0.2540, 0.2500, 0.0000, -0.0017, 0, 0, 2,-3);
- AddSol(ctx, 0.0250, -1.6700, 0.0000, 0.0031, 0, 0, 2,-4);
- AddSol(ctx, 1.0600, 2.9600, -0.1660, 0.0243, 3, 0, 0, 2);
- AddSol(ctx, 36.1240, 50.6400, -1.3000, 0.6215, 3, 0, 0, 0);
- AddSol(ctx, -13.1930, -16.4000, 0.2580, -0.1187, 3, 0, 0,-2);
- AddSol(ctx, -1.1870, -0.7400, 0.0420, 0.0074, 3, 0, 0,-4);
- AddSol(ctx, -0.2930, -0.3100, -0.0020, 0.0046, 3, 0, 0,-6);
- AddSol(ctx, -0.2900, -1.4500, 0.1160, -0.0051, 2, 1, 0, 2);
- AddSol(ctx, -7.6490, -10.5600, 0.2590, -0.1038, 2, 1, 0, 0);
- AddSol(ctx, -8.6270, -7.5900, 0.0780, -0.0192, 2, 1, 0,-2);
- AddSol(ctx, -2.7400, -2.5400, 0.0220, 0.0324, 2, 1, 0,-4);
- AddSol(ctx, 1.1810, 3.3200, -0.2120, 0.0213, 2,-1, 0, 2);
- AddSol(ctx, 9.7030, 11.6700, -0.1510, 0.1268, 2,-1, 0, 0);
- AddSol(ctx, -0.3520, -0.3700, 0.0010, -0.0028, 2,-1, 0,-1);
- AddSol(ctx, -2.4940, -1.1700, -0.0030, -0.0017, 2,-1, 0,-2);
- AddSol(ctx, 0.3600, 0.2000, -0.0120, -0.0043, 2,-1, 0,-4);
- AddSol(ctx, -1.1670, -1.2500, 0.0080, -0.0106, 1, 2, 0, 0);
- AddSol(ctx, -7.4120, -6.1200, 0.1170, 0.0484, 1, 2, 0,-2);
- AddSol(ctx, -0.3110, -0.6500, -0.0320, 0.0044, 1, 2, 0,-4);
- AddSol(ctx, 0.7570, 1.8200, -0.1050, 0.0112, 1,-2, 0, 2);
- AddSol(ctx, 2.5800, 2.3200, 0.0270, 0.0196, 1,-2, 0, 0);
- AddSol(ctx, 2.5330, 2.4000, -0.0140, -0.0212, 1,-2, 0,-2);
- AddSol(ctx, -0.3440, -0.5700, -0.0250, 0.0036, 0, 3, 0,-2);
- AddSol(ctx, -0.9920, -0.0200, 0.0000, 0.0000, 1, 0, 2, 2);
- AddSol(ctx, -45.0990, -0.0200, 0.0000, -0.0010, 1, 0, 2, 0);
- AddSol(ctx, -0.1790, -9.5200, 0.0000, -0.0833, 1, 0, 2,-2);
- AddSol(ctx, -0.3010, -0.3300, 0.0000, 0.0014, 1, 0, 2,-4);
- AddSol(ctx, -6.3820, -3.3700, 0.0000, -0.0481, 1, 0,-2, 2);
- AddSol(ctx, 39.5280, 85.1300, 0.0000, -0.7136, 1, 0,-2, 0);
- AddSol(ctx, 9.3660, 0.7100, 0.0000, -0.0112, 1, 0,-2,-2);
- AddSol(ctx, 0.2020, 0.0200, 0.0000, 0.0000, 1, 0,-2,-4);
- AddSol(ctx, 0.4150, 0.1000, 0.0000, 0.0013, 0, 1, 2, 0);
- AddSol(ctx, -2.1520, -2.2600, 0.0000, -0.0066, 0, 1, 2,-2);
- AddSol(ctx, -1.4400, -1.3000, 0.0000, 0.0014, 0, 1,-2, 2);
- AddSol(ctx, 0.3840, -0.0400, 0.0000, 0.0000, 0, 1,-2,-2);
- AddSol(ctx, 1.9380, 3.6000, -0.1450, 0.0401, 4, 0, 0, 0);
- AddSol(ctx, -0.9520, -1.5800, 0.0520, -0.0130, 4, 0, 0,-2);
- AddSol(ctx, -0.5510, -0.9400, 0.0320, -0.0097, 3, 1, 0, 0);
- AddSol(ctx, -0.4820, -0.5700, 0.0050, -0.0045, 3, 1, 0,-2);
- AddSol(ctx, 0.6810, 0.9600, -0.0260, 0.0115, 3,-1, 0, 0);
- AddSol(ctx, -0.2970, -0.2700, 0.0020, -0.0009, 2, 2, 0,-2);
- AddSol(ctx, 0.2540, 0.2100, -0.0030, 0.0000, 2,-2, 0,-2);
- AddSol(ctx, -0.2500, -0.2200, 0.0040, 0.0014, 1, 3, 0,-2);
- AddSol(ctx, -3.9960, 0.0000, 0.0000, 0.0004, 2, 0, 2, 0);
- AddSol(ctx, 0.5570, -0.7500, 0.0000, -0.0090, 2, 0, 2,-2);
- AddSol(ctx, -0.4590, -0.3800, 0.0000, -0.0053, 2, 0,-2, 2);
- AddSol(ctx, -1.2980, 0.7400, 0.0000, 0.0004, 2, 0,-2, 0);
- AddSol(ctx, 0.5380, 1.1400, 0.0000, -0.0141, 2, 0,-2,-2);
- AddSol(ctx, 0.2630, 0.0200, 0.0000, 0.0000, 1, 1, 2, 0);
- AddSol(ctx, 0.4260, 0.0700, 0.0000, -0.0006, 1, 1,-2,-2);
- AddSol(ctx, -0.3040, 0.0300, 0.0000, 0.0003, 1,-1, 2, 0);
- AddSol(ctx, -0.3720, -0.1900, 0.0000, -0.0027, 1,-1,-2, 2);
- AddSol(ctx, 0.4180, 0.0000, 0.0000, 0.0000, 0, 0, 4, 0);
- AddSol(ctx, -0.3300, -0.0400, 0.0000, 0.0000, 3, 0, 2, 0);
-
- SolarN(ctx);
- Planetary(ctx);
- S = F + DS/ARC;
-
- lat_seconds = (1.000002708 + 139.978*DGAM)*(18518.511+1.189+GAM1C)*sin(S)-6.24*sin(3*S) + N;
-
- *geo_eclip_lon = PI2 * Frac((L0+DLAM/ARC) / PI2);
- *geo_eclip_lat = lat_seconds * (DEG2RAD / 3600.0);
- *distance_au = (ARC * EARTH_EQUATORIAL_RADIUS_AU) / (0.999953253 * SINPI);
- ++_CalcMoonCount;
-}
-
-#undef T
-#undef DGAM
-#undef DLAM
-#undef N
-#undef GAM1C
-#undef SINPI
-#undef L0
-#undef L
-#undef LS
-#undef F
-#undef D
-#undef S
-#undef DL0
-#undef DL
-#undef DLS
-#undef DF
-#undef DD
-#undef DS
-#undef CO
-#undef SI
-
-/** @endcond */
-
-/**
- * @brief Calculates equatorial geocentric position of the Moon at a given time.
- *
- * Given a time of observation, calculates the Moon's position as a vector.
- * The vector gives the location of the Moon's center relative to the Earth's center
- * with x-, y-, and z-components measured in astronomical units.
- * The coordinates are oriented with respect to the Earth's equator at the J2000 epoch.
- * In Astronomy Engine, this orientation is called EQJ.
- *
- * This algorithm is based on the Nautical Almanac Office's *Improved Lunar Ephemeris* of 1954,
- * which in turn derives from E. W. Brown's lunar theories from the early twentieth century.
- * It is adapted from Turbo Pascal code from the book
- * [Astronomy on the Personal Computer](https://www.springer.com/us/book/9783540672210)
- * by Montenbruck and Pfleger.
- *
- * To calculate ecliptic spherical coordinates instead, see #Astronomy_EclipticGeoMoon.
- *
- * @param time The date and time for which to calculate the Moon's position.
- * @return The Moon's position as a vector in J2000 Cartesian equatorial (EQJ) coordinates.
- */
-astro_vector_t Astronomy_GeoMoon(astro_time_t time)
-{
- double geo_eclip_lon, geo_eclip_lat, distance_au;
- double dist_cos_lat;
- astro_vector_t vector;
- double gepos[3];
- double mpos1[3];
- double mpos2[3];
-
- CalcMoon(time.tt / 36525.0, &geo_eclip_lon, &geo_eclip_lat, &distance_au);
-
- /* Convert geocentric ecliptic spherical coordinates to Cartesian coordinates. */
- dist_cos_lat = distance_au * cos(geo_eclip_lat);
- gepos[0] = dist_cos_lat * cos(geo_eclip_lon);
- gepos[1] = dist_cos_lat * sin(geo_eclip_lon);
- gepos[2] = distance_au * sin(geo_eclip_lat);
-
- /* Convert ecliptic coordinates to equatorial coordinates, both in mean equinox of date. */
- ecl2equ_vec(time, gepos, mpos1);
-
- /* Convert equatorial coordinates from mean equinox of date to J2000 mean equinox. */
- precession(mpos1, time, INTO_2000, mpos2);
-
- vector.status = ASTRO_SUCCESS;
- vector.x = mpos2[0];
- vector.y = mpos2[1];
- vector.z = mpos2[2];
- vector.t = time;
- return vector;
-}
-
-
-/**
- * @brief Calculates spherical ecliptic geocentric position of the Moon.
- *
- * Given a time of observation, calculates the Moon's geocentric position
- * in ecliptic spherical coordinates. Provides the ecliptic latitude and
- * longitude in degrees, and the geocentric distance in astronomical units (AU).
- *
- * The ecliptic angles are measured in "ECT": relative to the true ecliptic plane and
- * equatorial plane at the specified time. This means the Earth's equator
- * is corrected for precession and nutation, and the plane of the Earth's
- * orbit is corrected for gradual obliquity drift.
- *
- * This algorithm is based on the Nautical Almanac Office's *Improved Lunar Ephemeris* of 1954,
- * which in turn derives from E. W. Brown's lunar theories from the early twentieth century.
- * It is adapted from Turbo Pascal code from the book
- * [Astronomy on the Personal Computer](https://www.springer.com/us/book/9783540672210)
- * by Montenbruck and Pfleger.
- *
- * To calculate a J2000 mean equator vector instead, use #Astronomy_GeoMoon.
- *
- * @param time The date and time for which to calculate the Moon's position.
- * @return The Moon's position expressed in ecliptic coordinates using the true equinox of date (ECT).
- */
-astro_spherical_t Astronomy_EclipticGeoMoon(astro_time_t time)
-{
- astro_spherical_t sphere;
- astro_ecliptic_t eclip;
- earth_tilt_t et;
- double dist_cos_lat, ecm[3], eqm[3], eqd[3];
-
- /* CalcMoon produces ecliptic coordinates in mean equinox of date (ECM). */
- CalcMoon(time.tt / 36525.0, &sphere.lon, &sphere.lat, &sphere.dist);
-
- /* Calculate vector in ecliptic coordinates (ECM). */
- dist_cos_lat = sphere.dist * cos(sphere.lat);
- ecm[0] = dist_cos_lat * cos(sphere.lon);
- ecm[1] = dist_cos_lat * sin(sphere.lon);
- ecm[2] = sphere.dist * sin(sphere.lat);
-
- /* Obtain true and mean obliquity angles for the given time. */
- /* This serves to pre-calculate the nutation also, and cache it in `time`. */
- et = e_tilt(&time);
-
- /* Convert ecliptic coordinates to equatorial coordinates, both in mean equinox of date. */
- /* In other words, convert ECM to EQM. */
- obl_ecl2equ_vec(et.mobl, time, ecm, eqm);
-
- /* Add nutation to convert ECM to true equatorial coordinates of date (EQD). */
- nutation(eqm, &time, FROM_2000, eqd);
-
- /* Convert back to ecliptic, this time in true equinox of date (ECT). */
- eclip = RotateEquatorialToEcliptic(eqd, DEG2RAD * et.tobl, time);
-
- /* Package the return value. */
- /* CalcMoon() already set sphere.dist to the correct value. */
- sphere.status = eclip.status;
- sphere.lat = eclip.elat;
- sphere.lon = eclip.elon;
- return sphere;
-}
-
-
-/**
- * @brief Calculates equatorial geocentric position and velocity of the Moon at a given time.
- *
- * Given a time of observation, calculates the Moon's position and velocity vectors.
- * The position and velocity are of the Moon's center relative to the Earth's center.
- * The position (x, y, z) components are expressed in AU (astronomical units).
- * The velocity (vx, vy, vz) components are expressed in AU/day.
- * The coordinates are oriented with respect to the Earth's equator at the J2000 epoch.
- * In Astronomy Engine, this orientation is called EQJ.
- *
- * If you need the Moon's position only, and not its velocity,
- * it is much more efficient to use #Astronomy_GeoMoon instead.
- *
- * @param time The date and time for which to calculate the Moon's position and velocity.
- * @return The Moon's position and velocity vectors in J2000 equatorial coordinates (EQJ).
- */
-astro_state_vector_t Astronomy_GeoMoonState(astro_time_t time)
-{
- /*
- This is a hack, because trying to figure out how to derive a time
- derivative for CalcMoon() would be extremely painful!
- Calculate just before and just after the given time.
- Average to find position, subtract to find velocity.
- */
- const double dt = 1.0e-5; /* 0.864 seconds */
- astro_vector_t r1, r2;
- astro_time_t t1, t2;
- astro_state_vector_t s;
-
- t1 = Astronomy_AddDays(time, -dt);
- t2 = Astronomy_AddDays(time, +dt);
-
- r1 = Astronomy_GeoMoon(t1);
- r2 = Astronomy_GeoMoon(t2);
-
- /* The desired position is the average of the two calculated positions. */
- s.x = (r1.x + r2.x) / 2;
- s.y = (r1.y + r2.y) / 2;
- s.z = (r1.z + r2.z) / 2;
-
- /* The difference of the position vectors divided by the time span gives the velocity vector. */
- s.vx = (r2.x - r1.x) / (2 * dt);
- s.vy = (r2.y - r1.y) / (2 * dt);
- s.vz = (r2.z - r1.z) / (2 * dt);
- s.t = time;
- s.status = ASTRO_SUCCESS;
-
- return s;
-}
-
-
-/**
- * @brief Calculates the geocentric position and velocity of the Earth/Moon barycenter.
- *
- * Given a time of observation, calculates the geocentric position and velocity vectors
- * of the Earth/Moon barycenter (EMB).
- * The position (x, y, z) components are expressed in AU (astronomical units).
- * The velocity (vx, vy, vz) components are expressed in AU/day.
- * The coordinates are oriented with respect to the Earth's equator at the J2000 epoch.
- * In Astronomy Engine, this orientation is called EQJ.
- *
- * @param time The date and time for which to calculate the EMB vectors.
- * @return The EMB's position and velocity vectors in geocentric J2000 equatorial coordinates.
- */
-astro_state_vector_t Astronomy_GeoEmbState(astro_time_t time)
-{
- astro_state_vector_t s = Astronomy_GeoMoonState(time);
- const double d = 1.0 + EARTH_MOON_MASS_RATIO;
- s.x /= d;
- s.y /= d;
- s.z /= d;
- s.vx /= d;
- s.vy /= d;
- s.vz /= d;
- return s;
-}
-
-
-/**
- * @brief Calculates the Moon's libration angles at a given moment in time.
- *
- * Libration is an observed back-and-forth wobble of the portion of the
- * Moon visible from the Earth. It is caused by the imperfect tidal locking
- * of the Moon's fixed rotation rate, compared to its variable angular speed
- * of orbit around the Earth.
- *
- * This function calculates a pair of perpendicular libration angles,
- * one representing rotation of the Moon in ecliptic longitude `elon`, the other
- * in ecliptic latitude `elat`, both relative to the Moon's mean Earth-facing position.
- *
- * This function also returns the geocentric position of the Moon
- * expressed in ecliptic longitude `mlon`, ecliptic latitude `mlat`, the
- * distance `dist_km` between the centers of the Earth and Moon expressed in kilometers,
- * and the apparent angular diameter of the Moon `diam_deg`.
- *
- * @param time The date and time for which to calculate libration angles.
- * @return The Moon's ecliptic position and libration angles as seen from the Earth.
- */
-astro_libration_t Astronomy_Libration(astro_time_t time)
-{
- astro_libration_t lib;
- double t, t2, t3, t4;
- double f, omega, w, a, ldash, ldash2, bdash, bdash2;
- double k1, k2, m, mdash, d, e, rho, sigma, tau;
- const double sin_I = sin(MOON_AXIS_INCLINATION_RADIANS);
- const double cos_I = cos(MOON_AXIS_INCLINATION_RADIANS);
-
- t = time.tt / 36525.0;
- t2 = t * t;
- t3 = t2 * t;
- t4 = t2 * t2;
-
- double mlon; /* Moon's ecliptic longitude in radians. */
- double mlat; /* Moon's ecliptic latitude in radians. */
- CalcMoon(t, &mlon, &mlat, &lib.dist_km);
- lib.mlon = RAD2DEG * mlon;
- lib.mlat = RAD2DEG * mlat;
- lib.dist_km *= KM_PER_AU;
- lib.diam_deg = (2.0 * RAD2DEG) * atan(MOON_MEAN_RADIUS_KM / sqrt(lib.dist_km*lib.dist_km - MOON_MEAN_RADIUS_KM*MOON_MEAN_RADIUS_KM));
-
- /* Moon's argument of latitude in radians. */
- f = DEG2RAD * NormalizeLongitude(93.2720950 + 483202.0175233*t - 0.0036539*t2 - t3/3526000 + t4/863310000);
-
- /* Moon's ascending node's mean longitude in radians. */
- omega = DEG2RAD * NormalizeLongitude(125.0445479 - 1934.1362891*t + 0.0020754*t2 + t3/467441 - t4/60616000);
-
- /* Sun's mean anomaly. */
- m = DEG2RAD * NormalizeLongitude(357.5291092 + 35999.0502909*t - 0.0001536*t2 + t3/24490000);
-
- /* Moon's mean anomaly. */
- mdash = DEG2RAD * NormalizeLongitude(134.9633964 + 477198.8675055*t + 0.0087414*t2 + t3/69699 - t4/14712000);
-
- /* Moon's mean elongation. */
- d = DEG2RAD * NormalizeLongitude(297.8501921 + 445267.1114034*t - 0.0018819*t2 + t3/545868 - t4/113065000);
-
- /* Eccentricity of the Earth's orbit. */
- e = 1.0 - 0.002516*t - 0.0000074*t2;
-
- /* Optical librations */
- w = mlon - omega;
- a = atan2(sin(w)*cos(mlat)*cos_I - sin(mlat)*sin_I, cos(w)*cos(mlat));
- ldash = LongitudeOffset(RAD2DEG * (a - f));
- bdash = asin(-sin(w)*cos(mlat)*sin_I - sin(mlat)*cos_I);
-
- /* Physical librations */
- k1 = DEG2RAD*(119.75 + 131.849*t);
- k2 = DEG2RAD*(72.56 + 20.186*t);
-
- rho = (
- -0.02752*cos(mdash) +
- -0.02245*sin(f) +
- +0.00684*cos(mdash - 2*f) +
- -0.00293*cos(2*f) +
- -0.00085*cos(2*f - 2*d) +
- -0.00054*cos(mdash - 2*d) +
- -0.00020*sin(mdash + f) +
- -0.00020*cos(mdash + 2*f) +
- -0.00020*cos(mdash - f) +
- +0.00014*cos(mdash + 2*f - 2*d)
- );
-
- sigma = (
- -0.02816*sin(mdash) +
- +0.02244*cos(f) +
- -0.00682*sin(mdash - 2*f) +
- -0.00279*sin(2*f) +
- -0.00083*sin(2*f - 2*d) +
- +0.00069*sin(mdash - 2*d) +
- +0.00040*cos(mdash + f) +
- -0.00025*sin(2*mdash) +
- -0.00023*sin(mdash + 2*f) +
- +0.00020*cos(mdash - f) +
- +0.00019*sin(mdash - f) +
- +0.00013*sin(mdash + 2*f - 2*d) +
- -0.00010*cos(mdash - 3*f)
- );
-
- tau = (
- +0.02520*e*sin(m) +
- +0.00473*sin(2*mdash - 2*f) +
- -0.00467*sin(mdash) +
- +0.00396*sin(k1) +
- +0.00276*sin(2*mdash - 2*d) +
- +0.00196*sin(omega) +
- -0.00183*cos(mdash - f) +
- +0.00115*sin(mdash - 2*d) +
- -0.00096*sin(mdash - d) +
- +0.00046*sin(2*f - 2*d) +
- -0.00039*sin(mdash - f) +
- -0.00032*sin(mdash - m - d) +
- +0.00027*sin(2*mdash - m - 2*d) +
- +0.00023*sin(k2) +
- -0.00014*sin(2*d) +
- +0.00014*cos(2*mdash - 2*f) +
- -0.00012*sin(mdash - 2*f) +
- -0.00012*sin(2*mdash) +
- +0.00011*sin(2*mdash - 2*m - 2*d)
- );
-
- ldash2 = -tau + (rho*cos(a) + sigma*sin(a))*tan(bdash);
- bdash *= RAD2DEG;
- bdash2 = sigma*cos(a) - rho*sin(a);
-
- lib.elon = ldash + ldash2;
- lib.elat = bdash + bdash2;
-
- return lib;
-}
-
-
-/*------------------ VSOP ------------------*/
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- double amplitude;
- double phase;
- double frequency;
-}
-vsop_term_t;
-
-typedef struct
-{
- int nterms;
- const vsop_term_t *term;
-}
-vsop_series_t;
-
-typedef struct
-{
- int nseries;
- const vsop_series_t *series;
-}
-vsop_formula_t;
-
-typedef struct
-{
- const vsop_formula_t formula[3];
-}
-vsop_model_t;
-
-typedef struct
-{
- double mu;
- double al[2];
- vsop_series_t a;
- vsop_series_t l;
- vsop_series_t z;
- vsop_series_t zeta;
-}
-jupiter_moon_t;
-/** @endcond */
-
-static const vsop_term_t vsop_lon_Mercury_0[] =
-{
- { 4.40250710144, 0.00000000000, 0.00000000000 },
- { 0.40989414977, 1.48302034195, 26087.90314157420 },
- { 0.05046294200, 4.47785489551, 52175.80628314840 },
- { 0.00855346844, 1.16520322459, 78263.70942472259 },
- { 0.00165590362, 4.11969163423, 104351.61256629678 },
- { 0.00034561897, 0.77930768443, 130439.51570787099 },
- { 0.00007583476, 3.71348404924, 156527.41884944518 }
-};
-
-static const vsop_term_t vsop_lon_Mercury_1[] =
-{
- { 26087.90313685529, 0.00000000000, 0.00000000000 },
- { 0.01131199811, 6.21874197797, 26087.90314157420 },
- { 0.00292242298, 3.04449355541, 52175.80628314840 },
- { 0.00075775081, 6.08568821653, 78263.70942472259 },
- { 0.00019676525, 2.80965111777, 104351.61256629678 }
-};
-
-static const vsop_series_t vsop_lon_Mercury[] =
-{
- { 7, vsop_lon_Mercury_0 },
- { 5, vsop_lon_Mercury_1 }
-};
-
-static const vsop_term_t vsop_lat_Mercury_0[] =
-{
- { 0.11737528961, 1.98357498767, 26087.90314157420 },
- { 0.02388076996, 5.03738959686, 52175.80628314840 },
- { 0.01222839532, 3.14159265359, 0.00000000000 },
- { 0.00543251810, 1.79644363964, 78263.70942472259 },
- { 0.00129778770, 4.83232503958, 104351.61256629678 },
- { 0.00031866927, 1.58088495658, 130439.51570787099 },
- { 0.00007963301, 4.60972126127, 156527.41884944518 }
-};
-
-static const vsop_term_t vsop_lat_Mercury_1[] =
-{
- { 0.00274646065, 3.95008450011, 26087.90314157420 },
- { 0.00099737713, 3.14159265359, 0.00000000000 }
-};
-
-static const vsop_series_t vsop_lat_Mercury[] =
-{
- { 7, vsop_lat_Mercury_0 },
- { 2, vsop_lat_Mercury_1 }
-};
-
-static const vsop_term_t vsop_rad_Mercury_0[] =
-{
- { 0.39528271651, 0.00000000000, 0.00000000000 },
- { 0.07834131818, 6.19233722598, 26087.90314157420 },
- { 0.00795525558, 2.95989690104, 52175.80628314840 },
- { 0.00121281764, 6.01064153797, 78263.70942472259 },
- { 0.00021921969, 2.77820093972, 104351.61256629678 },
- { 0.00004354065, 5.82894543774, 130439.51570787099 }
-};
-
-static const vsop_term_t vsop_rad_Mercury_1[] =
-{
- { 0.00217347740, 4.65617158665, 26087.90314157420 },
- { 0.00044141826, 1.42385544001, 52175.80628314840 }
-};
-
-static const vsop_series_t vsop_rad_Mercury[] =
-{
- { 6, vsop_rad_Mercury_0 },
- { 2, vsop_rad_Mercury_1 }
-};
-
-;
-static const vsop_term_t vsop_lon_Venus_0[] =
-{
- { 3.17614666774, 0.00000000000, 0.00000000000 },
- { 0.01353968419, 5.59313319619, 10213.28554621100 },
- { 0.00089891645, 5.30650047764, 20426.57109242200 },
- { 0.00005477194, 4.41630661466, 7860.41939243920 },
- { 0.00003455741, 2.69964447820, 11790.62908865880 },
- { 0.00002372061, 2.99377542079, 3930.20969621960 },
- { 0.00001317168, 5.18668228402, 26.29831979980 },
- { 0.00001664146, 4.25018630147, 1577.34354244780 },
- { 0.00001438387, 4.15745084182, 9683.59458111640 },
- { 0.00001200521, 6.15357116043, 30639.85663863300 }
-};
-
-static const vsop_term_t vsop_lon_Venus_1[] =
-{
- { 10213.28554621638, 0.00000000000, 0.00000000000 },
- { 0.00095617813, 2.46406511110, 10213.28554621100 },
- { 0.00007787201, 0.62478482220, 20426.57109242200 }
-};
-
-static const vsop_series_t vsop_lon_Venus[] =
-{
- { 10, vsop_lon_Venus_0 },
- { 3, vsop_lon_Venus_1 }
-};
-
-static const vsop_term_t vsop_lat_Venus_0[] =
-{
- { 0.05923638472, 0.26702775812, 10213.28554621100 },
- { 0.00040107978, 1.14737178112, 20426.57109242200 },
- { 0.00032814918, 3.14159265359, 0.00000000000 }
-};
-
-static const vsop_term_t vsop_lat_Venus_1[] =
-{
- { 0.00287821243, 1.88964962838, 10213.28554621100 }
-};
-
-static const vsop_series_t vsop_lat_Venus[] =
-{
- { 3, vsop_lat_Venus_0 },
- { 1, vsop_lat_Venus_1 }
-};
-
-static const vsop_term_t vsop_rad_Venus_0[] =
-{
- { 0.72334820891, 0.00000000000, 0.00000000000 },
- { 0.00489824182, 4.02151831717, 10213.28554621100 },
- { 0.00001658058, 4.90206728031, 20426.57109242200 },
- { 0.00001378043, 1.12846591367, 11790.62908865880 },
- { 0.00001632096, 2.84548795207, 7860.41939243920 },
- { 0.00000498395, 2.58682193892, 9683.59458111640 },
- { 0.00000221985, 2.01346696541, 19367.18916223280 },
- { 0.00000237454, 2.55136053886, 15720.83878487840 }
-};
-
-static const vsop_term_t vsop_rad_Venus_1[] =
-{
- { 0.00034551041, 0.89198706276, 10213.28554621100 }
-};
-
-static const vsop_series_t vsop_rad_Venus[] =
-{
- { 8, vsop_rad_Venus_0 },
- { 1, vsop_rad_Venus_1 }
-};
-
-;
-static const vsop_term_t vsop_lon_Earth_0[] =
-{
- { 1.75347045673, 0.00000000000, 0.00000000000 },
- { 0.03341656453, 4.66925680415, 6283.07584999140 },
- { 0.00034894275, 4.62610242189, 12566.15169998280 },
- { 0.00003417572, 2.82886579754, 3.52311834900 },
- { 0.00003497056, 2.74411783405, 5753.38488489680 },
- { 0.00003135899, 3.62767041756, 77713.77146812050 },
- { 0.00002676218, 4.41808345438, 7860.41939243920 },
- { 0.00002342691, 6.13516214446, 3930.20969621960 },
- { 0.00001273165, 2.03709657878, 529.69096509460 },
- { 0.00001324294, 0.74246341673, 11506.76976979360 },
- { 0.00000901854, 2.04505446477, 26.29831979980 },
- { 0.00001199167, 1.10962946234, 1577.34354244780 },
- { 0.00000857223, 3.50849152283, 398.14900340820 },
- { 0.00000779786, 1.17882681962, 5223.69391980220 },
- { 0.00000990250, 5.23268072088, 5884.92684658320 },
- { 0.00000753141, 2.53339052847, 5507.55323866740 },
- { 0.00000505267, 4.58292599973, 18849.22754997420 },
- { 0.00000492392, 4.20505711826, 775.52261132400 },
- { 0.00000356672, 2.91954114478, 0.06731030280 },
- { 0.00000284125, 1.89869240932, 796.29800681640 },
- { 0.00000242879, 0.34481445893, 5486.77784317500 },
- { 0.00000317087, 5.84901948512, 11790.62908865880 },
- { 0.00000271112, 0.31486255375, 10977.07880469900 },
- { 0.00000206217, 4.80646631478, 2544.31441988340 },
- { 0.00000205478, 1.86953770281, 5573.14280143310 },
- { 0.00000202318, 2.45767790232, 6069.77675455340 },
- { 0.00000126225, 1.08295459501, 20.77539549240 },
- { 0.00000155516, 0.83306084617, 213.29909543800 }
-};
-
-static const vsop_term_t vsop_lon_Earth_1[] =
-{
- { 6283.07584999140, 0.00000000000, 0.00000000000 },
- { 0.00206058863, 2.67823455808, 6283.07584999140 },
- { 0.00004303419, 2.63512233481, 12566.15169998280 }
-};
-
-static const vsop_term_t vsop_lon_Earth_2[] =
-{
- { 0.00008721859, 1.07253635559, 6283.07584999140 }
-};
-
-static const vsop_series_t vsop_lon_Earth[] =
-{
- { 28, vsop_lon_Earth_0 },
- { 3, vsop_lon_Earth_1 },
- { 1, vsop_lon_Earth_2 }
-};
-
-static const vsop_term_t vsop_lat_Earth_1[] =
-{
- { 0.00227777722, 3.41376620530, 6283.07584999140 },
- { 0.00003805678, 3.37063423795, 12566.15169998280 }
-};
-
-static const vsop_series_t vsop_lat_Earth[] =
-{
- { 0, NULL },
- { 2, vsop_lat_Earth_1 }
-};
-
-static const vsop_term_t vsop_rad_Earth_0[] =
-{
- { 1.00013988784, 0.00000000000, 0.00000000000 },
- { 0.01670699632, 3.09846350258, 6283.07584999140 },
- { 0.00013956024, 3.05524609456, 12566.15169998280 },
- { 0.00003083720, 5.19846674381, 77713.77146812050 },
- { 0.00001628463, 1.17387558054, 5753.38488489680 },
- { 0.00001575572, 2.84685214877, 7860.41939243920 },
- { 0.00000924799, 5.45292236722, 11506.76976979360 },
- { 0.00000542439, 4.56409151453, 3930.20969621960 },
- { 0.00000472110, 3.66100022149, 5884.92684658320 },
- { 0.00000085831, 1.27079125277, 161000.68573767410 },
- { 0.00000057056, 2.01374292245, 83996.84731811189 },
- { 0.00000055736, 5.24159799170, 71430.69561812909 },
- { 0.00000174844, 3.01193636733, 18849.22754997420 },
- { 0.00000243181, 4.27349530790, 11790.62908865880 }
-};
-
-static const vsop_term_t vsop_rad_Earth_1[] =
-{
- { 0.00103018607, 1.10748968172, 6283.07584999140 },
- { 0.00001721238, 1.06442300386, 12566.15169998280 }
-};
-
-static const vsop_term_t vsop_rad_Earth_2[] =
-{
- { 0.00004359385, 5.78455133808, 6283.07584999140 }
-};
-
-static const vsop_series_t vsop_rad_Earth[] =
-{
- { 14, vsop_rad_Earth_0 },
- { 2, vsop_rad_Earth_1 },
- { 1, vsop_rad_Earth_2 }
-};
-
-;
-static const vsop_term_t vsop_lon_Mars_0[] =
-{
- { 6.20347711581, 0.00000000000, 0.00000000000 },
- { 0.18656368093, 5.05037100270, 3340.61242669980 },
- { 0.01108216816, 5.40099836344, 6681.22485339960 },
- { 0.00091798406, 5.75478744667, 10021.83728009940 },
- { 0.00027744987, 5.97049513147, 3.52311834900 },
- { 0.00010610235, 2.93958560338, 2281.23049651060 },
- { 0.00012315897, 0.84956094002, 2810.92146160520 },
- { 0.00008926784, 4.15697846427, 0.01725365220 },
- { 0.00008715691, 6.11005153139, 13362.44970679920 },
- { 0.00006797556, 0.36462229657, 398.14900340820 },
- { 0.00007774872, 3.33968761376, 5621.84292321040 },
- { 0.00003575078, 1.66186505710, 2544.31441988340 },
- { 0.00004161108, 0.22814971327, 2942.46342329160 },
- { 0.00003075252, 0.85696614132, 191.44826611160 },
- { 0.00002628117, 0.64806124465, 3337.08930835080 },
- { 0.00002937546, 6.07893711402, 0.06731030280 },
- { 0.00002389414, 5.03896442664, 796.29800681640 },
- { 0.00002579844, 0.02996736156, 3344.13554504880 },
- { 0.00001528141, 1.14979301996, 6151.53388830500 },
- { 0.00001798806, 0.65634057445, 529.69096509460 },
- { 0.00001264357, 3.62275122593, 5092.15195811580 },
- { 0.00001286228, 3.06796065034, 2146.16541647520 },
- { 0.00001546404, 2.91579701718, 1751.53953141600 },
- { 0.00001024902, 3.69334099279, 8962.45534991020 },
- { 0.00000891566, 0.18293837498, 16703.06213349900 },
- { 0.00000858759, 2.40093811940, 2914.01423582380 },
- { 0.00000832715, 2.46418619474, 3340.59517304760 },
- { 0.00000832720, 4.49495782139, 3340.62968035200 },
- { 0.00000712902, 3.66335473479, 1059.38193018920 },
- { 0.00000748723, 3.82248614017, 155.42039943420 },
- { 0.00000723861, 0.67497311481, 3738.76143010800 },
- { 0.00000635548, 2.92182225127, 8432.76438481560 },
- { 0.00000655162, 0.48864064125, 3127.31333126180 },
- { 0.00000550474, 3.81001042328, 0.98032106820 },
- { 0.00000552750, 4.47479317037, 1748.01641306700 },
- { 0.00000425966, 0.55364317304, 6283.07584999140 },
- { 0.00000415131, 0.49662285038, 213.29909543800 },
- { 0.00000472167, 3.62547124025, 1194.44701022460 },
- { 0.00000306551, 0.38052848348, 6684.74797174860 },
- { 0.00000312141, 0.99853944405, 6677.70173505060 },
- { 0.00000293198, 4.22131299634, 20.77539549240 },
- { 0.00000302375, 4.48618007156, 3532.06069281140 },
- { 0.00000274027, 0.54222167059, 3340.54511639700 },
- { 0.00000281079, 5.88163521788, 1349.86740965880 },
- { 0.00000231183, 1.28242156993, 3870.30339179440 },
- { 0.00000283602, 5.76885434940, 3149.16416058820 },
- { 0.00000236117, 5.75503217933, 3333.49887969900 },
- { 0.00000274033, 0.13372524985, 3340.67973700260 },
- { 0.00000299395, 2.78323740866, 6254.62666252360 }
-};
-
-static const vsop_term_t vsop_lon_Mars_1[] =
-{
- { 3340.61242700512, 0.00000000000, 0.00000000000 },
- { 0.01457554523, 3.60433733236, 3340.61242669980 },
- { 0.00168414711, 3.92318567804, 6681.22485339960 },
- { 0.00020622975, 4.26108844583, 10021.83728009940 },
- { 0.00003452392, 4.73210393190, 3.52311834900 },
- { 0.00002586332, 4.60670058555, 13362.44970679920 },
- { 0.00000841535, 4.45864030426, 2281.23049651060 }
-};
-
-static const vsop_term_t vsop_lon_Mars_2[] =
-{
- { 0.00058152577, 2.04961712429, 3340.61242669980 },
- { 0.00013459579, 2.45738706163, 6681.22485339960 }
-};
-
-static const vsop_series_t vsop_lon_Mars[] =
-{
- { 49, vsop_lon_Mars_0 },
- { 7, vsop_lon_Mars_1 },
- { 2, vsop_lon_Mars_2 }
-};
-
-static const vsop_term_t vsop_lat_Mars_0[] =
-{
- { 0.03197134986, 3.76832042431, 3340.61242669980 },
- { 0.00298033234, 4.10616996305, 6681.22485339960 },
- { 0.00289104742, 0.00000000000, 0.00000000000 },
- { 0.00031365539, 4.44651053090, 10021.83728009940 },
- { 0.00003484100, 4.78812549260, 13362.44970679920 }
-};
-
-static const vsop_term_t vsop_lat_Mars_1[] =
-{
- { 0.00217310991, 6.04472194776, 3340.61242669980 },
- { 0.00020976948, 3.14159265359, 0.00000000000 },
- { 0.00012834709, 1.60810667915, 6681.22485339960 }
-};
-
-static const vsop_series_t vsop_lat_Mars[] =
-{
- { 5, vsop_lat_Mars_0 },
- { 3, vsop_lat_Mars_1 }
-};
-
-static const vsop_term_t vsop_rad_Mars_0[] =
-{
- { 1.53033488271, 0.00000000000, 0.00000000000 },
- { 0.14184953160, 3.47971283528, 3340.61242669980 },
- { 0.00660776362, 3.81783443019, 6681.22485339960 },
- { 0.00046179117, 4.15595316782, 10021.83728009940 },
- { 0.00008109733, 5.55958416318, 2810.92146160520 },
- { 0.00007485318, 1.77239078402, 5621.84292321040 },
- { 0.00005523191, 1.36436303770, 2281.23049651060 },
- { 0.00003825160, 4.49407183687, 13362.44970679920 },
- { 0.00002306537, 0.09081579001, 2544.31441988340 },
- { 0.00001999396, 5.36059617709, 3337.08930835080 },
- { 0.00002484394, 4.92545639920, 2942.46342329160 },
- { 0.00001960195, 4.74249437639, 3344.13554504880 },
- { 0.00001167119, 2.11260868341, 5092.15195811580 },
- { 0.00001102816, 5.00908403998, 398.14900340820 },
- { 0.00000899066, 4.40791133207, 529.69096509460 },
- { 0.00000992252, 5.83861961952, 6151.53388830500 },
- { 0.00000807354, 2.10217065501, 1059.38193018920 },
- { 0.00000797915, 3.44839203899, 796.29800681640 },
- { 0.00000740975, 1.49906336885, 2146.16541647520 }
-};
-
-static const vsop_term_t vsop_rad_Mars_1[] =
-{
- { 0.01107433345, 2.03250524857, 3340.61242669980 },
- { 0.00103175887, 2.37071847807, 6681.22485339960 },
- { 0.00012877200, 0.00000000000, 0.00000000000 },
- { 0.00010815880, 2.70888095665, 10021.83728009940 }
-};
-
-static const vsop_term_t vsop_rad_Mars_2[] =
-{
- { 0.00044242249, 0.47930604954, 3340.61242669980 },
- { 0.00008138042, 0.86998389204, 6681.22485339960 }
-};
-
-static const vsop_series_t vsop_rad_Mars[] =
-{
- { 19, vsop_rad_Mars_0 },
- { 4, vsop_rad_Mars_1 },
- { 2, vsop_rad_Mars_2 }
-};
-
-;
-static const vsop_term_t vsop_lon_Jupiter_0[] =
-{
- { 0.59954691494, 0.00000000000, 0.00000000000 },
- { 0.09695898719, 5.06191793158, 529.69096509460 },
- { 0.00573610142, 1.44406205629, 7.11354700080 },
- { 0.00306389205, 5.41734730184, 1059.38193018920 },
- { 0.00097178296, 4.14264726552, 632.78373931320 },
- { 0.00072903078, 3.64042916389, 522.57741809380 },
- { 0.00064263975, 3.41145165351, 103.09277421860 },
- { 0.00039806064, 2.29376740788, 419.48464387520 },
- { 0.00038857767, 1.27231755835, 316.39186965660 },
- { 0.00027964629, 1.78454591820, 536.80451209540 },
- { 0.00013589730, 5.77481040790, 1589.07289528380 },
- { 0.00008246349, 3.58227925840, 206.18554843720 },
- { 0.00008768704, 3.63000308199, 949.17560896980 },
- { 0.00007368042, 5.08101194270, 735.87651353180 },
- { 0.00006263150, 0.02497628807, 213.29909543800 },
- { 0.00006114062, 4.51319998626, 1162.47470440780 },
- { 0.00004905396, 1.32084470588, 110.20632121940 },
- { 0.00005305285, 1.30671216791, 14.22709400160 },
- { 0.00005305441, 4.18625634012, 1052.26838318840 },
- { 0.00004647248, 4.69958103684, 3.93215326310 },
- { 0.00003045023, 4.31676431084, 426.59819087600 },
- { 0.00002609999, 1.56667394063, 846.08283475120 },
- { 0.00002028191, 1.06376530715, 3.18139373770 },
- { 0.00001764763, 2.14148655117, 1066.49547719000 },
- { 0.00001722972, 3.88036268267, 1265.56747862640 },
- { 0.00001920945, 0.97168196472, 639.89728631400 },
- { 0.00001633223, 3.58201833555, 515.46387109300 },
- { 0.00001431999, 4.29685556046, 625.67019231240 },
- { 0.00000973272, 4.09764549134, 95.97922721780 }
-};
-
-static const vsop_term_t vsop_lon_Jupiter_1[] =
-{
- { 529.69096508814, 0.00000000000, 0.00000000000 },
- { 0.00489503243, 4.22082939470, 529.69096509460 },
- { 0.00228917222, 6.02646855621, 7.11354700080 },
- { 0.00030099479, 4.54540782858, 1059.38193018920 },
- { 0.00020720920, 5.45943156902, 522.57741809380 },
- { 0.00012103653, 0.16994816098, 536.80451209540 },
- { 0.00006067987, 4.42422292017, 103.09277421860 },
- { 0.00005433968, 3.98480737746, 419.48464387520 },
- { 0.00004237744, 5.89008707199, 14.22709400160 }
-};
-
-static const vsop_term_t vsop_lon_Jupiter_2[] =
-{
- { 0.00047233601, 4.32148536482, 7.11354700080 },
- { 0.00030649436, 2.92977788700, 529.69096509460 },
- { 0.00014837605, 3.14159265359, 0.00000000000 }
-};
-
-static const vsop_series_t vsop_lon_Jupiter[] =
-{
- { 29, vsop_lon_Jupiter_0 },
- { 9, vsop_lon_Jupiter_1 },
- { 3, vsop_lon_Jupiter_2 }
-};
-
-static const vsop_term_t vsop_lat_Jupiter_0[] =
-{
- { 0.02268615702, 3.55852606721, 529.69096509460 },
- { 0.00109971634, 3.90809347197, 1059.38193018920 },
- { 0.00110090358, 0.00000000000, 0.00000000000 },
- { 0.00008101428, 3.60509572885, 522.57741809380 },
- { 0.00006043996, 4.25883108339, 1589.07289528380 },
- { 0.00006437782, 0.30627119215, 536.80451209540 }
-};
-
-static const vsop_term_t vsop_lat_Jupiter_1[] =
-{
- { 0.00078203446, 1.52377859742, 529.69096509460 }
-};
-
-static const vsop_series_t vsop_lat_Jupiter[] =
-{
- { 6, vsop_lat_Jupiter_0 },
- { 1, vsop_lat_Jupiter_1 }
-};
-
-static const vsop_term_t vsop_rad_Jupiter_0[] =
-{
- { 5.20887429326, 0.00000000000, 0.00000000000 },
- { 0.25209327119, 3.49108639871, 529.69096509460 },
- { 0.00610599976, 3.84115365948, 1059.38193018920 },
- { 0.00282029458, 2.57419881293, 632.78373931320 },
- { 0.00187647346, 2.07590383214, 522.57741809380 },
- { 0.00086792905, 0.71001145545, 419.48464387520 },
- { 0.00072062974, 0.21465724607, 536.80451209540 },
- { 0.00065517248, 5.97995884790, 316.39186965660 },
- { 0.00029134542, 1.67759379655, 103.09277421860 },
- { 0.00030135335, 2.16132003734, 949.17560896980 },
- { 0.00023453271, 3.54023522184, 735.87651353180 },
- { 0.00022283743, 4.19362594399, 1589.07289528380 },
- { 0.00023947298, 0.27458037480, 7.11354700080 },
- { 0.00013032614, 2.96042965363, 1162.47470440780 },
- { 0.00009703360, 1.90669633585, 206.18554843720 },
- { 0.00012749023, 2.71550286592, 1052.26838318840 },
- { 0.00007057931, 2.18184839926, 1265.56747862640 },
- { 0.00006137703, 6.26418240033, 846.08283475120 },
- { 0.00002616976, 2.00994012876, 1581.95934828300 }
-};
-
-static const vsop_term_t vsop_rad_Jupiter_1[] =
-{
- { 0.01271801520, 2.64937512894, 529.69096509460 },
- { 0.00061661816, 3.00076460387, 1059.38193018920 },
- { 0.00053443713, 3.89717383175, 522.57741809380 },
- { 0.00031185171, 4.88276958012, 536.80451209540 },
- { 0.00041390269, 0.00000000000, 0.00000000000 }
-};
-
-static const vsop_series_t vsop_rad_Jupiter[] =
-{
- { 19, vsop_rad_Jupiter_0 },
- { 5, vsop_rad_Jupiter_1 }
-};
-
-;
-static const vsop_term_t vsop_lon_Saturn_0[] =
-{
- { 0.87401354025, 0.00000000000, 0.00000000000 },
- { 0.11107659762, 3.96205090159, 213.29909543800 },
- { 0.01414150957, 4.58581516874, 7.11354700080 },
- { 0.00398379389, 0.52112032699, 206.18554843720 },
- { 0.00350769243, 3.30329907896, 426.59819087600 },
- { 0.00206816305, 0.24658372002, 103.09277421860 },
- { 0.00079271300, 3.84007056878, 220.41264243880 },
- { 0.00023990355, 4.66976924553, 110.20632121940 },
- { 0.00016573588, 0.43719228296, 419.48464387520 },
- { 0.00014906995, 5.76903183869, 316.39186965660 },
- { 0.00015820290, 0.93809155235, 632.78373931320 },
- { 0.00014609559, 1.56518472000, 3.93215326310 },
- { 0.00013160301, 4.44891291899, 14.22709400160 },
- { 0.00015053543, 2.71669915667, 639.89728631400 },
- { 0.00013005299, 5.98119023644, 11.04570026390 },
- { 0.00010725067, 3.12939523827, 202.25339517410 },
- { 0.00005863206, 0.23656938524, 529.69096509460 },
- { 0.00005227757, 4.20783365759, 3.18139373770 },
- { 0.00006126317, 1.76328667907, 277.03499374140 },
- { 0.00005019687, 3.17787728405, 433.71173787680 },
- { 0.00004592550, 0.61977744975, 199.07200143640 },
- { 0.00004005867, 2.24479718502, 63.73589830340 },
- { 0.00002953796, 0.98280366998, 95.97922721780 },
- { 0.00003873670, 3.22283226966, 138.51749687070 },
- { 0.00002461186, 2.03163875071, 735.87651353180 },
- { 0.00003269484, 0.77492638211, 949.17560896980 },
- { 0.00001758145, 3.26580109940, 522.57741809380 },
- { 0.00001640172, 5.50504453050, 846.08283475120 },
- { 0.00001391327, 4.02333150505, 323.50541665740 },
- { 0.00001580648, 4.37265307169, 309.27832265580 },
- { 0.00001123498, 2.83726798446, 415.55249061210 },
- { 0.00001017275, 3.71700135395, 227.52618943960 },
- { 0.00000848642, 3.19150170830, 209.36694217490 }
-};
-
-static const vsop_term_t vsop_lon_Saturn_1[] =
-{
- { 213.29909521690, 0.00000000000, 0.00000000000 },
- { 0.01297370862, 1.82834923978, 213.29909543800 },
- { 0.00564345393, 2.88499717272, 7.11354700080 },
- { 0.00093734369, 1.06311793502, 426.59819087600 },
- { 0.00107674962, 2.27769131009, 206.18554843720 },
- { 0.00040244455, 2.04108104671, 220.41264243880 },
- { 0.00019941774, 1.27954390470, 103.09277421860 },
- { 0.00010511678, 2.74880342130, 14.22709400160 },
- { 0.00006416106, 0.38238295041, 639.89728631400 },
- { 0.00004848994, 2.43037610229, 419.48464387520 },
- { 0.00004056892, 2.92133209468, 110.20632121940 },
- { 0.00003768635, 3.64965330780, 3.93215326310 }
-};
-
-static const vsop_term_t vsop_lon_Saturn_2[] =
-{
- { 0.00116441330, 1.17988132879, 7.11354700080 },
- { 0.00091841837, 0.07325195840, 213.29909543800 },
- { 0.00036661728, 0.00000000000, 0.00000000000 },
- { 0.00015274496, 4.06493179167, 206.18554843720 }
-};
-
-static const vsop_series_t vsop_lon_Saturn[] =
-{
- { 33, vsop_lon_Saturn_0 },
- { 12, vsop_lon_Saturn_1 },
- { 4, vsop_lon_Saturn_2 }
-};
-
-static const vsop_term_t vsop_lat_Saturn_0[] =
-{
- { 0.04330678039, 3.60284428399, 213.29909543800 },
- { 0.00240348302, 2.85238489373, 426.59819087600 },
- { 0.00084745939, 0.00000000000, 0.00000000000 },
- { 0.00030863357, 3.48441504555, 220.41264243880 },
- { 0.00034116062, 0.57297307557, 206.18554843720 },
- { 0.00014734070, 2.11846596715, 639.89728631400 },
- { 0.00009916667, 5.79003188904, 419.48464387520 },
- { 0.00006993564, 4.73604689720, 7.11354700080 },
- { 0.00004807588, 5.43305312061, 316.39186965660 }
-};
-
-static const vsop_term_t vsop_lat_Saturn_1[] =
-{
- { 0.00198927992, 4.93901017903, 213.29909543800 },
- { 0.00036947916, 3.14159265359, 0.00000000000 },
- { 0.00017966989, 0.51979431110, 426.59819087600 }
-};
-
-static const vsop_series_t vsop_lat_Saturn[] =
-{
- { 9, vsop_lat_Saturn_0 },
- { 3, vsop_lat_Saturn_1 }
-};
-
-static const vsop_term_t vsop_rad_Saturn_0[] =
-{
- { 9.55758135486, 0.00000000000, 0.00000000000 },
- { 0.52921382865, 2.39226219573, 213.29909543800 },
- { 0.01873679867, 5.23549604660, 206.18554843720 },
- { 0.01464663929, 1.64763042902, 426.59819087600 },
- { 0.00821891141, 5.93520042303, 316.39186965660 },
- { 0.00547506923, 5.01532618980, 103.09277421860 },
- { 0.00371684650, 2.27114821115, 220.41264243880 },
- { 0.00361778765, 3.13904301847, 7.11354700080 },
- { 0.00140617506, 5.70406606781, 632.78373931320 },
- { 0.00108974848, 3.29313390175, 110.20632121940 },
- { 0.00069006962, 5.94099540992, 419.48464387520 },
- { 0.00061053367, 0.94037691801, 639.89728631400 },
- { 0.00048913294, 1.55733638681, 202.25339517410 },
- { 0.00034143772, 0.19519102597, 277.03499374140 },
- { 0.00032401773, 5.47084567016, 949.17560896980 },
- { 0.00020936596, 0.46349251129, 735.87651353180 },
- { 0.00009796004, 5.20477537945, 1265.56747862640 },
- { 0.00011993338, 5.98050967385, 846.08283475120 },
- { 0.00020839300, 1.52102476129, 433.71173787680 },
- { 0.00015298404, 3.05943814940, 529.69096509460 },
- { 0.00006465823, 0.17732249942, 1052.26838318840 },
- { 0.00011380257, 1.73105427040, 522.57741809380 },
- { 0.00003419618, 4.94550542171, 1581.95934828300 }
-};
-
-static const vsop_term_t vsop_rad_Saturn_1[] =
-{
- { 0.06182981340, 0.25843511480, 213.29909543800 },
- { 0.00506577242, 0.71114625261, 206.18554843720 },
- { 0.00341394029, 5.79635741658, 426.59819087600 },
- { 0.00188491195, 0.47215589652, 220.41264243880 },
- { 0.00186261486, 3.14159265359, 0.00000000000 },
- { 0.00143891146, 1.40744822888, 7.11354700080 }
-};
-
-static const vsop_term_t vsop_rad_Saturn_2[] =
-{
- { 0.00436902572, 4.78671677509, 213.29909543800 }
-};
-
-static const vsop_series_t vsop_rad_Saturn[] =
-{
- { 23, vsop_rad_Saturn_0 },
- { 6, vsop_rad_Saturn_1 },
- { 1, vsop_rad_Saturn_2 }
-};
-
-;
-static const vsop_term_t vsop_lon_Uranus_0[] =
-{
- { 5.48129294297, 0.00000000000, 0.00000000000 },
- { 0.09260408234, 0.89106421507, 74.78159856730 },
- { 0.01504247898, 3.62719260920, 1.48447270830 },
- { 0.00365981674, 1.89962179044, 73.29712585900 },
- { 0.00272328168, 3.35823706307, 149.56319713460 },
- { 0.00070328461, 5.39254450063, 63.73589830340 },
- { 0.00068892678, 6.09292483287, 76.26607127560 },
- { 0.00061998615, 2.26952066061, 2.96894541660 },
- { 0.00061950719, 2.85098872691, 11.04570026390 },
- { 0.00026468770, 3.14152083966, 71.81265315070 },
- { 0.00025710476, 6.11379840493, 454.90936652730 },
- { 0.00021078850, 4.36059339067, 148.07872442630 },
- { 0.00017818647, 1.74436930289, 36.64856292950 },
- { 0.00014613507, 4.73732166022, 3.93215326310 },
- { 0.00011162509, 5.82681796350, 224.34479570190 },
- { 0.00010997910, 0.48865004018, 138.51749687070 },
- { 0.00009527478, 2.95516862826, 35.16409022120 },
- { 0.00007545601, 5.23626582400, 109.94568878850 },
- { 0.00004220241, 3.23328220918, 70.84944530420 },
- { 0.00004051900, 2.27755017300, 151.04766984290 },
- { 0.00003354596, 1.06549007380, 4.45341812490 },
- { 0.00002926718, 4.62903718891, 9.56122755560 },
- { 0.00003490340, 5.48306144511, 146.59425171800 },
- { 0.00003144069, 4.75199570434, 77.75054398390 },
- { 0.00002922333, 5.35235361027, 85.82729883120 },
- { 0.00002272788, 4.36600400036, 70.32818044240 },
- { 0.00002051219, 1.51773566586, 0.11187458460 },
- { 0.00002148602, 0.60745949945, 38.13303563780 },
- { 0.00001991643, 4.92437588682, 277.03499374140 },
- { 0.00001376226, 2.04283539351, 65.22037101170 },
- { 0.00001666902, 3.62744066769, 380.12776796000 },
- { 0.00001284107, 3.11347961505, 202.25339517410 },
- { 0.00001150429, 0.93343589092, 3.18139373770 },
- { 0.00001533221, 2.58594681212, 52.69019803950 },
- { 0.00001281604, 0.54271272721, 222.86032299360 },
- { 0.00001372139, 4.19641530878, 111.43016149680 },
- { 0.00001221029, 0.19900650030, 108.46121608020 },
- { 0.00000946181, 1.19253165736, 127.47179660680 },
- { 0.00001150989, 4.17898916639, 33.67961751290 }
-};
-
-static const vsop_term_t vsop_lon_Uranus_1[] =
-{
- { 74.78159860910, 0.00000000000, 0.00000000000 },
- { 0.00154332863, 5.24158770553, 74.78159856730 },
- { 0.00024456474, 1.71260334156, 1.48447270830 },
- { 0.00009258442, 0.42829732350, 11.04570026390 },
- { 0.00008265977, 1.50218091379, 63.73589830340 },
- { 0.00009150160, 1.41213765216, 149.56319713460 }
-};
-
-static const vsop_series_t vsop_lon_Uranus[] =
-{
- { 39, vsop_lon_Uranus_0 },
- { 6, vsop_lon_Uranus_1 }
-};
-
-static const vsop_term_t vsop_lat_Uranus_0[] =
-{
- { 0.01346277648, 2.61877810547, 74.78159856730 },
- { 0.00062341400, 5.08111189648, 149.56319713460 },
- { 0.00061601196, 3.14159265359, 0.00000000000 },
- { 0.00009963722, 1.61603805646, 76.26607127560 },
- { 0.00009926160, 0.57630380333, 73.29712585900 }
-};
-
-static const vsop_term_t vsop_lat_Uranus_1[] =
-{
- { 0.00034101978, 0.01321929936, 74.78159856730 }
-};
-
-static const vsop_series_t vsop_lat_Uranus[] =
-{
- { 5, vsop_lat_Uranus_0 },
- { 1, vsop_lat_Uranus_1 }
-};
-
-static const vsop_term_t vsop_rad_Uranus_0[] =
-{
- { 19.21264847206, 0.00000000000, 0.00000000000 },
- { 0.88784984413, 5.60377527014, 74.78159856730 },
- { 0.03440836062, 0.32836099706, 73.29712585900 },
- { 0.02055653860, 1.78295159330, 149.56319713460 },
- { 0.00649322410, 4.52247285911, 76.26607127560 },
- { 0.00602247865, 3.86003823674, 63.73589830340 },
- { 0.00496404167, 1.40139935333, 454.90936652730 },
- { 0.00338525369, 1.58002770318, 138.51749687070 },
- { 0.00243509114, 1.57086606044, 71.81265315070 },
- { 0.00190522303, 1.99809394714, 1.48447270830 },
- { 0.00161858838, 2.79137786799, 148.07872442630 },
- { 0.00143706183, 1.38368544947, 11.04570026390 },
- { 0.00093192405, 0.17437220467, 36.64856292950 },
- { 0.00071424548, 4.24509236074, 224.34479570190 },
- { 0.00089806014, 3.66105364565, 109.94568878850 },
- { 0.00039009723, 1.66971401684, 70.84944530420 },
- { 0.00046677296, 1.39976401694, 35.16409022120 },
- { 0.00039025624, 3.36234773834, 277.03499374140 },
- { 0.00036755274, 3.88649278513, 146.59425171800 },
- { 0.00030348723, 0.70100838798, 151.04766984290 },
- { 0.00029156413, 3.18056336700, 77.75054398390 },
- { 0.00022637073, 0.72518687029, 529.69096509460 },
- { 0.00011959076, 1.75043392140, 984.60033162190 },
- { 0.00025620756, 5.25656086672, 380.12776796000 }
-};
-
-static const vsop_term_t vsop_rad_Uranus_1[] =
-{
- { 0.01479896629, 3.67205697578, 74.78159856730 }
-};
-
-static const vsop_series_t vsop_rad_Uranus[] =
-{
- { 24, vsop_rad_Uranus_0 },
- { 1, vsop_rad_Uranus_1 }
-};
-
-;
-static const vsop_term_t vsop_lon_Neptune_0[] =
-{
- { 5.31188633046, 0.00000000000, 0.00000000000 },
- { 0.01798475530, 2.90101273890, 38.13303563780 },
- { 0.01019727652, 0.48580922867, 1.48447270830 },
- { 0.00124531845, 4.83008090676, 36.64856292950 },
- { 0.00042064466, 5.41054993053, 2.96894541660 },
- { 0.00037714584, 6.09221808686, 35.16409022120 },
- { 0.00033784738, 1.24488874087, 76.26607127560 },
- { 0.00016482741, 0.00007727998, 491.55792945680 },
- { 0.00009198584, 4.93747051954, 39.61750834610 },
- { 0.00008994250, 0.27462171806, 175.16605980020 }
-};
-
-static const vsop_term_t vsop_lon_Neptune_1[] =
-{
- { 38.13303563957, 0.00000000000, 0.00000000000 },
- { 0.00016604172, 4.86323329249, 1.48447270830 },
- { 0.00015744045, 2.27887427527, 38.13303563780 }
-};
-
-static const vsop_series_t vsop_lon_Neptune[] =
-{
- { 10, vsop_lon_Neptune_0 },
- { 3, vsop_lon_Neptune_1 }
-};
-
-static const vsop_term_t vsop_lat_Neptune_0[] =
-{
- { 0.03088622933, 1.44104372644, 38.13303563780 },
- { 0.00027780087, 5.91271884599, 76.26607127560 },
- { 0.00027623609, 0.00000000000, 0.00000000000 },
- { 0.00015355489, 2.52123799551, 36.64856292950 },
- { 0.00015448133, 3.50877079215, 39.61750834610 }
-};
-
-static const vsop_series_t vsop_lat_Neptune[] =
-{
- { 5, vsop_lat_Neptune_0 }
-};
-
-static const vsop_term_t vsop_rad_Neptune_0[] =
-{
- { 30.07013205828, 0.00000000000, 0.00000000000 },
- { 0.27062259632, 1.32999459377, 38.13303563780 },
- { 0.01691764014, 3.25186135653, 36.64856292950 },
- { 0.00807830553, 5.18592878704, 1.48447270830 },
- { 0.00537760510, 4.52113935896, 35.16409022120 },
- { 0.00495725141, 1.57105641650, 491.55792945680 },
- { 0.00274571975, 1.84552258866, 175.16605980020 },
- { 0.00012012320, 1.92059384991, 1021.24889455140 },
- { 0.00121801746, 5.79754470298, 76.26607127560 },
- { 0.00100896068, 0.37702724930, 73.29712585900 },
- { 0.00135134092, 3.37220609835, 39.61750834610 },
- { 0.00007571796, 1.07149207335, 388.46515523820 }
-};
-
-static const vsop_series_t vsop_rad_Neptune[] =
-{
- { 12, vsop_rad_Neptune_0 }
-};
-
-;
-
-/** @cond DOXYGEN_SKIP */
-#define VSOPFORMULA(x) { ASTRO_ARRAYSIZE(x), x }
-/** @endcond */
-
-static const vsop_model_t vsop[] =
-{
- { { VSOPFORMULA(vsop_lon_Mercury), VSOPFORMULA(vsop_lat_Mercury), VSOPFORMULA(vsop_rad_Mercury) } },
- { { VSOPFORMULA(vsop_lon_Venus), VSOPFORMULA(vsop_lat_Venus), VSOPFORMULA(vsop_rad_Venus) } },
- { { VSOPFORMULA(vsop_lon_Earth), VSOPFORMULA(vsop_lat_Earth), VSOPFORMULA(vsop_rad_Earth) } },
- { { VSOPFORMULA(vsop_lon_Mars), VSOPFORMULA(vsop_lat_Mars), VSOPFORMULA(vsop_rad_Mars) } },
- { { VSOPFORMULA(vsop_lon_Jupiter), VSOPFORMULA(vsop_lat_Jupiter), VSOPFORMULA(vsop_rad_Jupiter) } },
- { { VSOPFORMULA(vsop_lon_Saturn), VSOPFORMULA(vsop_lat_Saturn), VSOPFORMULA(vsop_rad_Saturn) } },
- { { VSOPFORMULA(vsop_lon_Uranus), VSOPFORMULA(vsop_lat_Uranus), VSOPFORMULA(vsop_rad_Uranus) } },
- { { VSOPFORMULA(vsop_lon_Neptune), VSOPFORMULA(vsop_lat_Neptune), VSOPFORMULA(vsop_rad_Neptune) } }
-};
-
-/** @cond DOXYGEN_SKIP */
-#define CalcEarth(time) CalcVsop(&vsop[BODY_EARTH], (time))
-#define LON_INDEX 0
-#define LAT_INDEX 1
-#define RAD_INDEX 2
-/** @endcond */
-
-static void VsopCoords(const vsop_model_t *model, double t, double sphere[3])
-{
- int k, s, i;
- double incr;
-
- for (k=0; k < 3; ++k)
- {
- double tpower = 1.0;
- const vsop_formula_t *formula = &model->formula[k];
- sphere[k] = 0.0;
- for (s=0; s < formula->nseries; ++s)
- {
- double sum = 0.0;
- const vsop_series_t *series = &formula->series[s];
- for (i=0; i < series->nterms; ++i)
- {
- const vsop_term_t *term = &series->term[i];
- sum += term->amplitude * cos(term->phase + (t * term->frequency));
- }
- incr = tpower * sum;
- if (k == LON_INDEX)
- incr = fmod(incr, PI2); /* improve precision for longitudes, which can be hundreds of radians */
- sphere[k] += incr;
- tpower *= t;
- }
- }
-}
-
-
-static terse_vector_t VsopRotate(const double ecl[3])
-{
- terse_vector_t equ;
-
- /*
- X +1.000000000000 +0.000000440360 -0.000000190919 X
- Y = -0.000000479966 +0.917482137087 -0.397776982902 Y
- Z FK5 0.000000000000 +0.397776982902 +0.917482137087 Z VSOP87A
- */
-
- equ.x = ecl[0] + 0.000000440360*ecl[1] - 0.000000190919*ecl[2];
- equ.y = -0.000000479966*ecl[0] + 0.917482137087*ecl[1] - 0.397776982902*ecl[2];
- equ.z = 0.397776982902*ecl[1] + 0.917482137087*ecl[2];
-
- return equ;
-}
-
-
-static void VsopSphereToRect(double lon, double lat, double radius, double pos[3])
-{
- double r_coslat = radius * cos(lat);
- double coslon = cos(lon);
- double sinlon = sin(lon);
- pos[0] = r_coslat * coslon;
- pos[1] = r_coslat * sinlon;
- pos[2] = radius * sin(lat);
-}
-
-static const double DAYS_PER_MILLENNIUM = 365250.0;
-
-
-static astro_vector_t CalcVsop(const vsop_model_t *model, astro_time_t time)
-{
- double t = time.tt / DAYS_PER_MILLENNIUM;
- double sphere[3]; /* lon, lat, rad */
- double eclip[3];
- astro_vector_t vector;
- terse_vector_t pos;
-
- /* Calculate the VSOP "B" trigonometric series to obtain ecliptic spherical coordinates. */
- VsopCoords(model, t, sphere);
-
- /* Convert ecliptic spherical coordinates to ecliptic Cartesian coordinates. */
- VsopSphereToRect(sphere[LON_INDEX], sphere[LAT_INDEX], sphere[RAD_INDEX], eclip);
-
- /* Convert ecliptic Cartesian coordinates to equatorial Cartesian coordinates. */
- pos = VsopRotate(eclip);
-
- /* Package the position as astro_vector_t. */
- vector.status = ASTRO_SUCCESS;
- vector.t = time;
- vector.x = pos.x;
- vector.y = pos.y;
- vector.z = pos.z;
-
- return vector;
-}
-
-
-static void VsopDeriv(const vsop_model_t *model, double t, double deriv[3])
-{
- int k, s, i;
-
- for (k=0; k < 3; ++k)
- {
- double tpower = 1.0; /* t^s */
- double dpower = 0.0; /* t^(s-1) */
- const vsop_formula_t *formula = &model->formula[k];
- deriv[k] = 0.0;
- for (s=0; s < formula->nseries; ++s)
- {
- double sin_sum = 0.0;
- double cos_sum = 0.0;
- const vsop_series_t *series = &formula->series[s];
- for (i=0; i < series->nterms; ++i)
- {
- const vsop_term_t *term = &series->term[i];
- double angle = term->phase + (t * term->frequency);
- sin_sum += term->amplitude * term->frequency * sin(angle);
- if (s > 0)
- cos_sum += term->amplitude * cos(angle);
- }
- deriv[k] += (s * dpower * cos_sum) - (tpower * sin_sum);
- dpower = tpower;
- tpower *= t;
- }
- }
-}
-
-
-static body_state_t CalcVsopPosVel(const vsop_model_t *model, double tt)
-{
- body_state_t state;
- double t = tt / DAYS_PER_MILLENNIUM;
- double sphere[3]; /* lon, lat, r */
- double deriv[3]; /* d(lon)/dt, d(lat)/dt, dr/dt */
- double eclip[3];
- double dr_dt, dlat_dt, dlon_dt;
- double r, coslat, coslon, sinlat, sinlon;
-
- state.tt = tt;
- VsopCoords(model, t, sphere);
- VsopSphereToRect(sphere[LON_INDEX], sphere[LAT_INDEX], sphere[RAD_INDEX], eclip);
- state.r = VsopRotate(eclip);
-
- VsopDeriv(model, t, deriv);
-
- /* Use spherical coords and spherical derivatives to calculate */
- /* the velocity vector in rectangular coordinates. */
-
- /* Calculate mnemonic variables to help keep the math straight. */
- coslon = cos(sphere[LON_INDEX]);
- sinlon = sin(sphere[LON_INDEX]);
- coslat = cos(sphere[LAT_INDEX]);
- sinlat = sin(sphere[LAT_INDEX]);
- r = sphere[RAD_INDEX];
- dlon_dt = deriv[LON_INDEX];
- dlat_dt = deriv[LAT_INDEX];
- dr_dt = deriv[RAD_INDEX];
-
- /* vx = dx/dt */
- eclip[0] = (dr_dt * coslat * coslon) - (r * sinlat * coslon * dlat_dt) - (r * coslat * sinlon * dlon_dt);
-
- /* vy = dy/dt */
- eclip[1] = (dr_dt * coslat * sinlon) - (r * sinlat * sinlon * dlat_dt) + (r * coslat * coslon * dlon_dt);
-
- /* vz = dz/dt */
- eclip[2] = (dr_dt * sinlat) + (r * coslat * dlat_dt);
-
- /* Rotate the velocity vector from ecliptic to equatorial coordinates. */
- state.v = VsopRotate(eclip);
-
- /* Convert speed units from [AU/millennium] to [AU/day]. */
- VecScale(&state.v, 1 / DAYS_PER_MILLENNIUM);
-
- return state;
-}
-
-
-static double VsopHelioDistance(const vsop_model_t *model, astro_time_t time)
-{
- int s, i;
- double t = time.tt / DAYS_PER_MILLENNIUM;
- double distance = 0.0;
- double tpower = 1.0;
- const vsop_formula_t *formula = &model->formula[2]; /* [2] is the distance part of the formula */
-
- /*
- The caller only wants to know the distance between the planet and the Sun.
- So we only need to calculate the radial component of the spherical coordinates.
- */
-
- for (s=0; s < formula->nseries; ++s)
- {
- double sum = 0.0;
- const vsop_series_t *series = &formula->series[s];
- for (i=0; i < series->nterms; ++i)
- {
- const vsop_term_t *term = &series->term[i];
- sum += term->amplitude * cos(term->phase + (t * term->frequency));
- }
- distance += tpower * sum;
- tpower *= t;
- }
-
- return distance;
-}
-
-
-static void AdjustBarycenter(astro_vector_t *ssb, astro_time_t time, astro_body_t body, double planet_gm)
-{
- astro_vector_t planet;
- double shift;
-
- shift = planet_gm / (planet_gm + SUN_GM);
- planet = CalcVsop(&vsop[body], time);
- ssb->x += shift * planet.x;
- ssb->y += shift * planet.y;
- ssb->z += shift * planet.z;
-}
-
-
-static astro_vector_t CalcSolarSystemBarycenter(astro_time_t time)
-{
- astro_vector_t ssb;
-
- ssb.status = ASTRO_SUCCESS;
- ssb.t = time;
- ssb.x = ssb.y = ssb.z = 0.0;
-
- AdjustBarycenter(&ssb, time, BODY_JUPITER, JUPITER_GM);
- AdjustBarycenter(&ssb, time, BODY_SATURN, SATURN_GM);
- AdjustBarycenter(&ssb, time, BODY_URANUS, URANUS_GM);
- AdjustBarycenter(&ssb, time, BODY_NEPTUNE, NEPTUNE_GM);
-
- return ssb;
-}
-
-/*------------------ begin general gravity simulator ------------------*/
-
-static terse_vector_t UpdatePosition(double dt, terse_vector_t r, terse_vector_t v, terse_vector_t a)
-{
- r.x += (v.x + a.x*dt/2) * dt;
- r.y += (v.y + a.y*dt/2) * dt;
- r.z += (v.z + a.z*dt/2) * dt;
- return r;
-}
-
-
-static terse_vector_t UpdateVelocity(double dt, terse_vector_t v, terse_vector_t a)
-{
- v.x += dt * a.x;
- v.y += dt * a.y;
- v.z += dt * a.z;
- return v;
-}
-
-
-static body_state_t AdjustBarycenterPosVel(body_state_t *ssb, double tt, astro_body_t body, double planet_gm)
-{
- body_state_t planet;
- double shift;
-
- /*
- This function does 2 important things:
- 1. Adjusts 'ssb' by the effect of one major body on the Solar System Barycenter.
- 2, Returns the heliocentric position of that major body.
- */
-
- shift = planet_gm / (planet_gm + SUN_GM);
- planet = CalcVsopPosVel(&vsop[body], tt);
- VecIncr(&ssb->r, VecMul(shift, planet.r));
- VecIncr(&ssb->v, VecMul(shift, planet.v));
-
- return planet;
-}
-
-
-static void MajorBodyBary(major_bodies_t *bary, double tt)
-{
- /* Initialize the Sun's position as a zero vector, then adjust it from pulls from the planets. */
- bary->Sun.tt = tt;
- bary->Sun.r = VecZero;
- bary->Sun.v = VecZero;
-
- /* Calculate heliocentric planet positions and SSB. */
- bary->Jupiter = AdjustBarycenterPosVel(&bary->Sun, tt, BODY_JUPITER, JUPITER_GM);
- bary->Saturn = AdjustBarycenterPosVel(&bary->Sun, tt, BODY_SATURN, SATURN_GM);
- bary->Uranus = AdjustBarycenterPosVel(&bary->Sun, tt, BODY_URANUS, URANUS_GM);
- bary->Neptune = AdjustBarycenterPosVel(&bary->Sun, tt, BODY_NEPTUNE, NEPTUNE_GM);
-
- /* Convert planet [pos, vel] from heliocentric to barycentric. */
- VecDecr(&bary->Jupiter.r, bary->Sun.r); VecDecr(&bary->Jupiter.v, bary->Sun.v);
- VecDecr(&bary->Saturn.r, bary->Sun.r); VecDecr(&bary->Saturn.v, bary->Sun.v);
- VecDecr(&bary->Uranus.r, bary->Sun.r); VecDecr(&bary->Uranus.v, bary->Sun.v);
- VecDecr(&bary->Neptune.r, bary->Sun.r); VecDecr(&bary->Neptune.v, bary->Sun.v);
-
- /* Convert heliocentric SSB to barycentric Sun. */
- VecScale(&bary->Sun.r, -1.0);
- VecScale(&bary->Sun.v, -1.0);
-}
-
-
-static void AddAcceleration(terse_vector_t *acc, terse_vector_t small_pos, double gm, terse_vector_t major_pos)
-{
- double dx, dy, dz, r2, pull;
-
- dx = major_pos.x - small_pos.x;
- dy = major_pos.y - small_pos.y;
- dz = major_pos.z - small_pos.z;
-
- r2 = dx*dx + dy*dy + dz*dz;
- pull = gm / (r2 * sqrt(r2));
-
- acc->x += dx * pull;
- acc->y += dy * pull;
- acc->z += dz * pull;
-}
-
-
-static terse_vector_t SmallBodyAcceleration(terse_vector_t small_pos, const major_bodies_t *bary)
-{
- terse_vector_t acc = VecZero;
-
- /* Use barycentric coordinates of the Sun and major planets to calculate gravitational accelerations. */
- AddAcceleration(&acc, small_pos, SUN_GM, bary->Sun.r);
- AddAcceleration(&acc, small_pos, JUPITER_GM, bary->Jupiter.r);
- AddAcceleration(&acc, small_pos, SATURN_GM, bary->Saturn.r);
- AddAcceleration(&acc, small_pos, URANUS_GM, bary->Uranus.r);
- AddAcceleration(&acc, small_pos, NEPTUNE_GM, bary->Neptune.r);
-
- return acc;
-}
-
-
-body_grav_calc_t GravSim( /* out: [pos, vel, acc] of the simulated body at time tt2 */
- major_bodies_t *bary2, /* temp: work area for major body barycentric state */
- double tt2, /* in: a target time to be calculated (either before or after tt1) */
- const body_grav_calc_t *calc1) /* in: [pos, vel, acc] of the simulated body at time tt1 */
-{
- body_grav_calc_t calc2;
- terse_vector_t approx_pos;
- terse_vector_t acc;
- const double dt = tt2 - calc1->tt;
-
- /* Calculate where the major bodies (Sun, Jupiter...Neptune) will be at the next time step. */
- MajorBodyBary(bary2, tt2);
-
- /* Estimate position of small body as if current acceleration applies across the whole time interval. */
- /* approx_pos = pos1 + vel1*dt + (1/2)acc*dt^2 */
- approx_pos = UpdatePosition(dt, calc1->r, calc1->v, calc1->a);
-
- /* Calculate acceleration experienced by small body at approximate next location. */
- acc = SmallBodyAcceleration(approx_pos, bary2);
-
- /* Calculate the average acceleration of the endpoints. */
- /* This becomes our estimate of the mean effective acceleration over the whole interval. */
- acc = VecMean(acc, calc1->a);
-
- /* Refine the estimates of [pos, vel, acc] at tt2 using the mean acceleration. */
- calc2.r = UpdatePosition(dt, calc1->r, calc1->v, acc);
- calc2.v = UpdateVelocity(dt, calc1->v, acc);
- calc2.a = SmallBodyAcceleration(calc2.r, bary2);
- calc2.tt = tt2;
- return calc2;
-}
-
-
-static body_grav_calc_t GravFromState(major_bodies_t *bary, const body_state_t *state)
-{
- body_grav_calc_t calc;
-
- MajorBodyBary(bary, state->tt);
-
- calc.tt = state->tt;
- calc.r = VecAdd(state->r, bary->Sun.r); /* convert heliocentric to barycentric */
- calc.v = VecAdd(state->v, bary->Sun.v); /* convert heliocentric to barycentric */
- calc.a = SmallBodyAcceleration(calc.r, bary);
-
- return calc;
-}
-
-
-static void CalcSolarSystem(astro_grav_sim_t *sim)
-{
- int body;
- double tt = sim->curr->time.tt;
- body_state_t *grav = sim->curr->gravitators;
- body_state_t *sun = &grav[BODY_SUN];
-
- /* Initialize the Sun's position/velocity as zero vectors, then adjust from pulls from the planets. */
- sun->tt = tt;
- sun->r = VecZero;
- sun->v = VecZero;
-
- /* Calculate the position of each planet, and adjust the SSB position accordingly. */
- grav[BODY_MERCURY] = AdjustBarycenterPosVel(sun, tt, BODY_MERCURY, MERCURY_GM);
- grav[BODY_VENUS ] = AdjustBarycenterPosVel(sun, tt, BODY_VENUS, VENUS_GM);
- grav[BODY_EARTH ] = AdjustBarycenterPosVel(sun, tt, BODY_EARTH, EARTH_GM + MOON_GM);
- grav[BODY_MARS ] = AdjustBarycenterPosVel(sun, tt, BODY_MARS, MARS_GM);
- grav[BODY_JUPITER] = AdjustBarycenterPosVel(sun, tt, BODY_JUPITER, JUPITER_GM);
- grav[BODY_SATURN ] = AdjustBarycenterPosVel(sun, tt, BODY_SATURN, SATURN_GM);
- grav[BODY_URANUS ] = AdjustBarycenterPosVel(sun, tt, BODY_URANUS, URANUS_GM);
- grav[BODY_NEPTUNE] = AdjustBarycenterPosVel(sun, tt, BODY_NEPTUNE, NEPTUNE_GM);
-
- /* Convert planet state vectors from heliocentric to barycentric. */
- for (body = BODY_MERCURY; body <= BODY_NEPTUNE; ++body)
- {
- VecDecr(&grav[body].r, sun->r);
- VecDecr(&grav[body].v, sun->v);
- }
-
- /* Convert heliocentric SSB to barycentric Sun. */
- VecScale(&sun->r, -1.0);
- VecScale(&sun->v, -1.0);
-}
-
-
-static void CalcBodyAccelerations(astro_grav_sim_t *sim)
-{
- int i;
- const body_state_t *grav = sim->curr->gravitators;
-
- /* Calculate the gravitational acceleration experienced by the simulated bodies. */
- for (i = 0; i < sim->numBodies; ++i)
- {
- body_grav_calc_t *calc = &sim->curr->bodies[i];
-
- calc->a = VecZero;
-
- AddAcceleration(&calc->a, calc->r, SUN_GM, grav[BODY_SUN ].r);
- AddAcceleration(&calc->a, calc->r, MERCURY_GM, grav[BODY_MERCURY].r);
- AddAcceleration(&calc->a, calc->r, VENUS_GM, grav[BODY_VENUS ].r);
- AddAcceleration(&calc->a, calc->r, EARTH_GM + MOON_GM, grav[BODY_EARTH ].r);
- AddAcceleration(&calc->a, calc->r, MARS_GM, grav[BODY_MARS ].r);
- AddAcceleration(&calc->a, calc->r, JUPITER_GM, grav[BODY_JUPITER].r);
- AddAcceleration(&calc->a, calc->r, SATURN_GM, grav[BODY_SATURN ].r);
- AddAcceleration(&calc->a, calc->r, URANUS_GM, grav[BODY_URANUS ].r);
- AddAcceleration(&calc->a, calc->r, NEPTUNE_GM, grav[BODY_NEPTUNE].r);
- }
-}
-
-
-static body_state_t *GravSimBodyStatePtr(astro_grav_sim_t *sim, astro_body_t body)
-{
- /*
- Return a pointer to the place where we cache the barycentric
- state of the given body, or NULL if this body is not one
- that we use for calculating gravitational interactions.
- */
-
- if ((body == BODY_SUN) || (body >= BODY_MERCURY && body <= BODY_NEPTUNE))
- return &sim->curr->gravitators[body];
-
- return NULL;
-}
-
-
-static astro_state_vector_t GravSimOriginState(astro_grav_sim_t *sim)
-{
- const body_state_t *optr;
- astro_time_t time = sim->curr->time;
-
- if (sim->originBody == BODY_SSB)
- {
- /* The barycentric state of the SSB is zero, by definition. */
- astro_state_vector_t state;
- state.status = ASTRO_SUCCESS;
- state.t = time;
- state.x = 0.0;
- state.y = 0.0;
- state.z = 0.0;
- state.vx = 0.0;
- state.vy = 0.0;
- state.vz = 0.0;
- return state;
- }
-
- optr = GravSimBodyStatePtr(sim, sim->originBody);
- if (optr != NULL)
- return ExportState(*optr, time);
-
- /* We only support the VSOP bodies, for efficiency. */
- return StateVecError(ASTRO_INVALID_BODY, time);
-}
-
-
-static void GravSimDuplicate(astro_grav_sim_t *sim)
-{
- /* Copy the current state into the previous state, so that both become the same moment in time. */
- sim->prev->time = sim->curr->time;
- memcpy(sim->prev->gravitators, sim->curr->gravitators, sizeof(sim->prev->gravitators));
- memcpy(sim->prev->bodies, sim->curr->bodies, ((size_t)sim->numBodies) * sizeof(sim->prev->bodies[0]));
-}
-
-
-/**
- * @brief Allocate and initialize a gravity step simulator.
- *
- * Prepares to simulate a series of incremental time steps,
- * simulating the movement of zero or more small bodies through the Solar System
- * acting under gravitational attraction from the Sun and planets.
- *
- * After calling this function, you can call #Astronomy_GravSimUpdate
- * as many times as desired to advance the simulation by small time steps.
- *
- * If this function succeeds (returns `ASTRO_SUCCESS`), `sim`
- * will be set to a dynamically allocated object. The caller is
- * then responsible for eventually calling #Astronomy_GravSimFree
- * to release the memory.
- *
- * @param simOut
- * The address of a pointer to store the newly allocated simulation object.
- * The type #astro_grav_sim_t is an opaque type, so its internal structure is not documented.
- *
- * @param originBody
- * Specifies the origin of the reference frame.
- * All position vectors and velocity vectors will use `originBody`
- * as the origin of the coordinate system.
- * This origin applies to all the input vectors provided in the
- * `bodyStateArray` parameter of this function, along with all
- * output vectors returned by #Astronomy_GravSimUpdate.
- * Most callers will want to provide one of the following:
- * `BODY_SUN` for heliocentric coordinates,
- * `BODY_SSB` for solar system barycentric coordinates,
- * or `BODY_EARTH` for geocentric coordinates. Note that the
- * gravity simulator does not correct for light travel time;
- * all state vectors are tied to a Newtonian "instantaneous" time.
- *
- * @param time
- * The initial time at which to start the simulation.
- *
- * @param numBodies
- * The number of small bodies to be simulated. This may be any non-negative integer.
- *
- * @param bodyStateArray
- * An array of initial state vectors (positions and velocities) of the small bodies to be simulated.
- * The caller must know the positions and velocities of the small bodies at an initial moment in time.
- * Their positions and velocities are expressed with respect to `originBody`, using J2000 mean equator orientation (EQJ).
- * Positions are expressed in astronomical units (AU). Velocities are expressed in AU/day.
- * All the times embedded within the state vectors must be exactly equal to `time`,
- * or this function will fail with the error `ASTRO_INCONSISTENT_TIMES`.
- *
- * @return
- * `ASTRO_SUCCESS` on success, with `*sim` set to a non-NULL value. Otherwise an error code with `*sim` set to NULL.
- */
-astro_status_t Astronomy_GravSimInit(
- astro_grav_sim_t **simOut,
- astro_body_t originBody,
- astro_time_t time,
- int numBodies,
- const astro_state_vector_t *bodyStateArray)
-{
- astro_grav_sim_t *sim;
- astro_status_t status;
- body_grav_calc_t *array;
- int i;
-
- /* Validate parameters before attempting to allocate memory. */
-
- if (simOut == NULL)
- return ASTRO_INVALID_PARAMETER;
-
- *simOut = NULL;
-
- if (numBodies < 0)
- return ASTRO_INVALID_PARAMETER;
-
- if (numBodies > 0 && bodyStateArray == NULL)
- return ASTRO_INVALID_PARAMETER;
-
- if (originBody < BODY_MERCURY || originBody > BODY_SSB)
- return ASTRO_INVALID_BODY;
-
- /* Verify that all the state vectors are valid and have matching times. */
- for (i = 0; i < numBodies; ++i)
- {
- if (bodyStateArray[i].status != ASTRO_SUCCESS)
- return ASTRO_INVALID_PARAMETER;
-
- if (bodyStateArray[i].t.tt != time.tt)
- return ASTRO_INCONSISTENT_TIMES;
- }
-
- *simOut = sim = (astro_grav_sim_t *) calloc(1, sizeof(astro_grav_sim_t));
- if (sim == NULL)
- return ASTRO_OUT_OF_MEMORY;
-
- sim->originBody = originBody;
- sim->numBodies = numBodies;
- sim->prev = &(sim->endpoint[0]);
- sim->curr = &(sim->endpoint[1]);
- sim->curr->time = time;
-
- if (numBodies > 0)
- {
- sim->prev->bodies = (body_grav_calc_t *) calloc(numBodies, sizeof(body_grav_calc_t));
- sim->curr->bodies = (body_grav_calc_t *) calloc(numBodies, sizeof(body_grav_calc_t));
- if (sim->prev->bodies == NULL || sim->curr->bodies == NULL)
- {
- status = ASTRO_OUT_OF_MEMORY;
- goto fail;
- }
- }
-
- /* Remember the initial states of all the bodies as "current". */
- /* Convert from the public type astro_state_t to our internal type body_grav_calc_t. */
- array = sim->curr->bodies;
- for (i = 0; i < numBodies; ++i)
- {
- array[i].tt = bodyStateArray[i].t.tt;
- array[i].r.x = bodyStateArray[i].x;
- array[i].r.y = bodyStateArray[i].y;
- array[i].r.z = bodyStateArray[i].z;
- array[i].v.x = bodyStateArray[i].vx;
- array[i].v.y = bodyStateArray[i].vy;
- array[i].v.z = bodyStateArray[i].vz;
- }
-
- /* Calculate the state of the Sun and planets. */
- CalcSolarSystem(sim);
-
- /*
- We need to do all the physics calculations in barycentric coordinates.
- But the caller can provide the input vectors with respect to any body.
- Correct the input body state vectors for the specified coordinate origin.
- */
- if (originBody != BODY_SSB)
- {
- /* Determine the barycentric state of the origin body. */
- astro_state_vector_t originState = GravSimOriginState(sim);
- if (originState.status != ASTRO_SUCCESS)
- {
- status = originState.status;
- goto fail;
- }
-
- /* Add barycentric origin to origin-centric body to obtain barycentric body. */
- for (i = 0; i < numBodies; ++i)
- {
- array[i].r.x += originState.x;
- array[i].r.y += originState.y;
- array[i].r.z += originState.z;
- array[i].v.x += originState.vx;
- array[i].v.y += originState.vy;
- array[i].v.z += originState.vz;
- }
- }
-
- /* Calculate the net acceleration experienced by the small bodies. */
- CalcBodyAccelerations(sim);
-
- /* To prepare for a possible swap operation, duplicate the current state into the previous state. */
- GravSimDuplicate(sim);
-
- return ASTRO_SUCCESS;
-
-fail:
- Astronomy_GravSimFree(sim);
- *simOut = NULL;
- return status;
-}
-
-
-/**
- * @brief Advances a gravity simulation by a small time step.
- *
- * @param sim
- * A simulation object that was created by a prior call to #Astronomy_GravSimInit.
- *
- * @param time
- * A time that is a small increment away from the current simulation time.
- * It is up to the developer to figure out an appropriate time increment.
- * Depending on the trajectories, a smaller or larger increment
- * may be needed for the desired accuracy. Some experimentation may be needed.
- * Generally, bodies that stay in the outer Solar System and move slowly can
- * use larger time steps. Bodies that pass into the inner Solar System and
- * move faster will need a smaller time step to maintain accuracy.
- * The `time` value may be after or before the current simulation time
- * to move forward or backward in time.
- *
- * @param numBodies
- * The number of bodies whose state vectors are to be updated.
- * This is the number of elements in the `bodyStateArray`.
- * This parameter is passed as a sanity check, and must be equal
- * to the value passed to #Astronomy_GravSimInit when `sim` was created.
- *
- * @param bodyStateArray
- * An array big enough to hold `numBodies` state vectors, to receive
- * the updated positions and velocities of the simulated small bodies.
- * Alternatively, `bodyStateArray` may be NULL if the output of this
- * simulation step is not needed. This makes the call slightly faster.
- *
- * @return
- * `ASTRO_SUCCESS` if the calculation was successful.
- * Otherwise, an error code if something went wrong, in which case
- * the simulation should be considered "broken". This means there
- * is no reliable output in `bodyStateArray` and that no more calculations
- * can be performed with `sim`.
- */
-astro_status_t Astronomy_GravSimUpdate(
- astro_grav_sim_t *sim,
- astro_time_t time,
- int numBodies,
- astro_state_vector_t *bodyStateArray)
-{
- terse_vector_t acc;
- double dt; /* terrestrial time increment */
- int i;
-
- /*
- The caller's understanding of the number of bodies must match the actual
- array size in `sim`, or we risk corrupting/accessing invalid memory.
- */
- if (numBodies != sim->numBodies)
- return ASTRO_INVALID_PARAMETER;
-
- dt = time.tt - sim->curr->time.tt;
-
- if (dt == 0.0)
- {
- /*
- Special case: the time has not changed, so skip the usual physics calculations.
- This allows a way for the caller to query the current state if desired.
- It is also necessary to avoid dividing by `dt` if `dt` is zero.
- To prepare for a possible swap operation, duplicate the current state into the previous state.
- */
- GravSimDuplicate(sim);
- }
- else
- {
- /* Swap the current state and the previous state. Then calculate the new current state. */
- Astronomy_GravSimSwap(sim);
-
- /* Update the current time. This is the only place we have a full (tt,ut) pair. */
- /* All of the Newtonian dynamics are calculated using tt only. */
- sim->curr->time = time;
-
- /* Now that sim->time is set, it is safe to call `CalcSolarSystem`. */
- CalcSolarSystem(sim);
-
- for (i = 0; i < numBodies; ++i)
- {
- /*
- Estimate the positions of the small bodies as if their
- current accelerations apply across the whole time interval.
- approx_pos = pos1 + vel1*dt + (1/2)acc*dt^2
- */
- const body_grav_calc_t *prev = &sim->prev->bodies[i];
- sim->curr->bodies[i].r = UpdatePosition(dt, prev->r, prev->v, prev->a);
- }
-
- /*
- Calculate the acceleration experienced by the small bodies
- at their respective approximate next locations.
- */
- CalcBodyAccelerations(sim);
-
- for (i = 0; i < numBodies; ++i)
- {
- const body_grav_calc_t *prev = &sim->prev->bodies[i];
- body_grav_calc_t *curr = &sim->curr->bodies[i];
-
- /*
- Calculate the average of the acceleration vectors
- experienced by the previous body positions and
- their estimated next positions.
- These become estimates of the mean effective accelerations over the whole interval.
- */
- acc = VecMean(prev->a, curr->a);
-
- /*
- Refine the estimates of position and velocity at the next time step,
- using the mean acceleration as a better approximation of the
- continuously changing acceleration acting on each body.
- */
- curr->tt = time.tt;
- curr->r = UpdatePosition(dt, prev->r, prev->v, acc);
- curr->v = UpdateVelocity(dt, prev->v, acc);
- }
-
- /*
- Re-calculate accelerations experienced by each body.
- These will be needed for the next simulation step (if any).
- Also, they will be potentially useful if some day we add
- a function to query the acceleration vectors for the bodies.
- */
- CalcBodyAccelerations(sim);
- }
-
- /*
- Translate our internal calculations of body positions
- and velocities into state vectors that the caller can understand.
- But if the output buffer `bodyStateArray` is NULL, it means
- the caller wanted us to update the simulation state without
- returning any output.
- */
- if (bodyStateArray != NULL)
- {
- for (i = 0; i < numBodies; ++i)
- bodyStateArray[i] = ExportGravCalc(sim->curr->bodies[i], time);
-
- if (sim->originBody != BODY_SSB)
- {
- /* Determine the barycentric state of the origin body. */
- astro_state_vector_t originState = GravSimOriginState(sim);
- if (originState.status != ASTRO_SUCCESS)
- return originState.status;
-
- /* Subtract vectors to convert barycentric states to origin-centric states. */
- for (i = 0; i < numBodies; ++i)
- {
- bodyStateArray[i].x -= originState.x;
- bodyStateArray[i].y -= originState.y;
- bodyStateArray[i].z -= originState.z;
- bodyStateArray[i].vx -= originState.vx;
- bodyStateArray[i].vy -= originState.vy;
- bodyStateArray[i].vz -= originState.vz;
- }
- }
- }
-
- return ASTRO_SUCCESS;
-}
-
-
-/**
- * @brief Get the position and velocity of a Solar System body included in the simulation.
- *
- * In order to simulate the movement of small bodies through the Solar System,
- * the simulator needs to calculate the state vectors for the Sun and planets.
- *
- * If an application wants to know the positions of one or more of the planets
- * in addition to the small bodies, this function provides a way to obtain
- * their state vectors. This is provided for the sake of efficiency, to avoid
- * redundant calculations.
- *
- * @param sim
- * A gravity simulator object created by a successful call to #Astronomy_GravSimInit.
- *
- * @param body
- * The Sun, Mercury, Venus, Earth, Mars, Jupiter, Saturn, Uranus, or Neptune.
- *
- * @return
- * If the given body is part of the set of calculated bodies
- * (Sun and planets), returns the current time step's state
- * vector for that body, expressed in the coordinate system
- * that was specified by the `originBody` parameter to #Astronomy_GravSimInit.
- * Success is indicated by the returned structure's `status` field holding
- * `ASTRO_SUCCESS`. Any other `status` value indicates an error, meaning
- * the returned state vector is invalid.
- */
-astro_state_vector_t Astronomy_GravSimBodyState(
- astro_grav_sim_t *sim,
- astro_body_t body)
-{
- astro_state_vector_t state;
- body_state_t *bptr;
-
- bptr = GravSimBodyStatePtr(sim, body);
- if (bptr == NULL)
- return StateVecError(ASTRO_INVALID_BODY, sim->curr->time);
-
- state = GravSimOriginState(sim);
- if (state.status != ASTRO_SUCCESS)
- return state;
-
- /*
- Subtract the origin's state from the body's barycentric
- state to get the body in the desired reference frame.
- state.t and state.status are already initialized correctly.
- */
-
- state.x = bptr->r.x - state.x;
- state.y = bptr->r.y - state.y;
- state.z = bptr->r.z - state.z;
- state.vx = bptr->v.x - state.vx;
- state.vy = bptr->v.y - state.vy;
- state.vz = bptr->v.z - state.vz;
-
- return state;
-}
-
-
-/**
- * @brief Exchange the current time step with the previous time step.
- *
- * Sometimes it is helpful to "explore" various times near a given
- * simulation time step, while repeatedly returning to the original
- * time step. For example, when backdating a position for light travel
- * time, the caller may wish to repeatedly try different amounts of
- * backdating. When the backdating solver has converged, the caller
- * wants to leave the simulation in its original state.
- *
- * This function allows a single "undo" of a simulation, and does so
- * very efficiently.
- *
- * Usually this function will be called immediately after a matching
- * call to #Astronomy_GravSimUpdate. It has the effect of rolling
- * back the most recent update. If called twice in a row, it reverts
- * the swap and thus has no net effect.
- *
- * #Astronomy_GravSimInit initializes the current state and previous
- * state to be identical. Both states represent the `time` parameter that was
- * passed into the initializer. Therefore, `Astronomy_GravSimSwap` will
- * have no effect from the caller's point of view when passed a simulator
- * that has not yet been updated by a call to #Astronomy_GravSimUpdate.
- *
- * @param sim
- * A gravity simulator object that was created by a prior call to #Astronomy_GravSimInit.
- */
-void Astronomy_GravSimSwap(astro_grav_sim_t *sim)
-{
- gravsim_endpoint_t *swap = sim->prev;
- sim->prev = sim->curr;
- sim->curr = swap;
-}
-
-
-/**
- * @brief Returns the time of the current simulation step.
- *
- * @param sim
- * A gravity simulator object that was created by a prior call to #Astronomy_GravSimInit.
- */
-astro_time_t Astronomy_GravSimTime(const astro_grav_sim_t *sim)
-{
- return sim->curr->time;
-}
-
-
-/**
- * @brief Returns the number of small bodies represented in this simulation.
- *
- * When a simulation is created by a call to #Astronomy_GravSimInit,
- * the caller specifies the number of small bodies.
- * This function returns that same number, which may be convenient for a caller,
- * so that it does not need to track the body count separately.
- *
- * @param sim
- * A gravity simulator object that was created by a prior call to #Astronomy_GravSimInit.
- */
-int Astronomy_GravSimNumBodies(const astro_grav_sim_t *sim)
-{
- return sim->numBodies;
-}
-
-
-/**
- * @brief Returns the body whose center is the coordinate origin that small bodies are referenced to.
- *
- * When a simulation is created by a call to #Astronomy_GravSimInit,
- * the caller specifies an `originBody` to indicate the coordinate origin
- * used to represent the small bodies being simulated.
- * This function returns that same #astro_body_t value.
- *
- * @param sim
- * A gravity simulator object that was created by a prior call to #Astronomy_GravSimInit.
- */
-astro_body_t Astronomy_GravSimOrigin(const astro_grav_sim_t *sim)
-{
- return sim->originBody;
-}
-
-
-/**
- * @brief Releases memory allocated to a gravity simulator object.
- *
- * To avoid memory leaks, any successful call to #Astronomy_GravSimInit
- * must be paired with a matching call to `Astronomy_GravSimFree`.
- *
- * @param sim
- * A gravity simulator object that was created by a prior call to #Astronomy_GravSimInit.
- */
-void Astronomy_GravSimFree(astro_grav_sim_t *sim)
-{
- if (sim != NULL)
- {
- free(sim->endpoint[0].bodies);
- free(sim->endpoint[1].bodies);
- free(sim);
- }
-}
-
-
-/*------------------ begin Pluto integrator ------------------*/
-
-static const body_state_t PlutoStateTable[] =
-{
- { -730000.0, {-26.118207232108, -14.376168177825, 3.384402515299}, { 1.6339372163656e-03, -2.7861699588508e-03, -1.3585880229445e-03} }
-, { -700800.0, { 41.974905202127, -0.448502952929, -12.770351505989}, { 7.3458569351457e-04, 2.2785014891658e-03, 4.8619778602049e-04} }
-, { -671600.0, { 14.706930780744, 44.269110540027, 9.353698474772}, {-2.1000147999800e-03, 2.2295915939915e-04, 7.0143443551414e-04} }
-, { -642400.0, {-29.441003929957, -6.430161530570, 6.858481011305}, { 8.4495803960544e-04, -3.0783914758711e-03, -1.2106305981192e-03} }
-, { -613200.0, { 39.444396946234, -6.557989760571, -13.913760296463}, { 1.1480029005873e-03, 2.2400006880665e-03, 3.5168075922288e-04} }
-, { -584000.0, { 20.230380950700, 43.266966657189, 7.382966091923}, {-1.9754081700585e-03, 5.3457141292226e-04, 7.5929169129793e-04} }
-, { -554800.0, {-30.658325364620, 2.093818874552, 9.880531138071}, { 6.1010603013347e-05, -3.1326500935382e-03, -9.9346125151067e-04} }
-, { -525600.0, { 35.737703251673, -12.587706024764, -14.677847247563}, { 1.5802939375649e-03, 2.1347678412429e-03, 1.9074436384343e-04} }
-, { -496400.0, { 25.466295188546, 41.367478338417, 5.216476873382}, {-1.8054401046468e-03, 8.3283083599510e-04, 8.0260156912107e-04} }
-, { -467200.0, {-29.847174904071, 10.636426313081, 12.297904180106}, {-6.3257063052907e-04, -2.9969577578221e-03, -7.4476074151596e-04} }
-, { -438000.0, { 30.774692107687, -18.236637015304, -14.945535879896}, { 2.0113162005465e-03, 1.9353827024189e-03, -2.0937793168297e-06} }
-, { -408800.0, { 30.243153324028, 38.656267888503, 2.938501750218}, {-1.6052508674468e-03, 1.1183495337525e-03, 8.3333973416824e-04} }
-, { -379600.0, {-27.288984772533, 18.643162147874, 14.023633623329}, {-1.1856388898191e-03, -2.7170609282181e-03, -4.9015526126399e-04} }
-, { -350400.0, { 24.519605196774, -23.245756064727, -14.626862367368}, { 2.4322321483154e-03, 1.6062008146048e-03, -2.3369181613312e-04} }
-, { -321200.0, { 34.505274805875, 35.125338586954, 0.557361475637}, {-1.3824391637782e-03, 1.3833397561817e-03, 8.4823598806262e-04} }
-, { -292000.0, {-23.275363915119, 25.818514298769, 15.055381588598}, {-1.6062295460975e-03, -2.3395961498533e-03, -2.4377362639479e-04} }
-, { -262800.0, { 17.050384798092, -27.180376290126, -13.608963321694}, { 2.8175521080578e-03, 1.1358749093955e-03, -4.9548725258825e-04} }
-, { -233600.0, { 38.093671910285, 30.880588383337, -1.843688067413}, {-1.1317697153459e-03, 1.6128814698472e-03, 8.4177586176055e-04} }
-, { -204400.0, {-18.197852930878, 31.932869934309, 15.438294826279}, {-1.9117272501813e-03, -1.9146495909842e-03, -1.9657304369835e-05} }
-, { -175200.0, { 8.528924039997, -29.618422200048, -11.805400994258}, { 3.1034370787005e-03, 5.1393633292430e-04, -7.7293066202546e-04} }
-, { -146000.0, { 40.946857258640, 25.904973592021, -4.256336240499}, {-8.3652705194051e-04, 1.8129497136404e-03, 8.1564228273060e-04} }
-, { -116800.0, {-12.326958895325, 36.881883446292, 15.217158258711}, {-2.1166103705038e-03, -1.4814420035990e-03, 1.7401209844705e-04} }
-, { -87600.0, { -0.633258375909, -30.018759794709, -9.171932874950}, { 3.2016994581737e-03, -2.5279858672148e-04, -1.0411088271861e-03} }
-, { -58400.0, { 42.936048423883, 20.344685584452, -6.588027007912}, {-5.0525450073192e-04, 1.9910074335507e-03, 7.7440196540269e-04} }
-, { -29200.0, { -5.975910552974, 40.611809958460, 14.470131723673}, {-2.2184202156107e-03, -1.0562361130164e-03, 3.3652250216211e-04} }
-, { 0.0, { -9.875369580774, -27.978926224737, -5.753711824704}, { 3.0287533248818e-03, -1.1276087003636e-03, -1.2651326732361e-03} }
-, { 29200.0, { 43.958831986165, 14.214147973292, -8.808306227163}, {-1.4717608981871e-04, 2.1404187242141e-03, 7.1486567806614e-04} }
-, { 58400.0, { 0.678136763520, 43.094461639362, 13.243238780721}, {-2.2358226110718e-03, -6.3233636090933e-04, 4.7664798895648e-04} }
-, { 87600.0, {-18.282602096834, -23.305039586660, -1.766620508028}, { 2.5567245263557e-03, -1.9902940754171e-03, -1.3943491701082e-03} }
-, { 116800.0, { 43.873338744526, 7.700705617215, -10.814273666425}, { 2.3174803055677e-04, 2.2402163127924e-03, 6.2988756452032e-04} }
-, { 146000.0, { 7.392949027906, 44.382678951534, 11.629500214854}, {-2.1932815453830e-03, -2.1751799585364e-04, 5.9556516201114e-04} }
-, { 175200.0, {-24.981690229261, -16.204012851426, 2.466457544298}, { 1.8193989149580e-03, -2.6765419531201e-03, -1.3848283502247e-03} }
-, { 204400.0, { 42.530187039511, 0.845935508021, -12.554907527683}, { 6.5059779150669e-04, 2.2725657282262e-03, 5.1133743202822e-04} }
-, { 233600.0, { 13.999526486822, 44.462363044894, 9.669418486465}, {-2.1079296569252e-03, 1.7533423831993e-04, 6.9128485798076e-04} }
-, { 262800.0, {-29.184024803031, -7.371243995762, 6.493275957928}, { 9.3581363109681e-04, -3.0610357109184e-03, -1.2364201089345e-03} }
-, { 292000.0, { 39.831980671753, -6.078405766765, -13.909815358656}, { 1.1117769689167e-03, 2.2362097830152e-03, 3.6230548231153e-04} }
-, { 321200.0, { 20.294955108476, 43.417190420251, 7.450091985932}, {-1.9742157451535e-03, 5.3102050468554e-04, 7.5938408813008e-04} }
-, { 350400.0, {-30.669992302160, 2.318743558955, 9.973480913858}, { 4.5605107450676e-05, -3.1308219926928e-03, -9.9066533301924e-04} }
-, { 379600.0, { 35.626122155983, -12.897647509224, -14.777586508444}, { 1.6015684949743e-03, 2.1171931182284e-03, 1.8002516202204e-04} }
-, { 408800.0, { 26.133186148561, 41.232139187599, 5.006401326220}, {-1.7857704419579e-03, 8.6046232702817e-04, 8.0614690298954e-04} }
-, { 438000.0, {-29.576740229230, 11.863535943587, 12.631323039872}, {-7.2292830060955e-04, -2.9587820140709e-03, -7.0824296450300e-04} }
-, { 467200.0, { 29.910805787391, -19.159019294000, -15.013363865194}, { 2.0871080437997e-03, 1.8848372554514e-03, -3.8528655083926e-05} }
-, { 496400.0, { 31.375957451819, 38.050372720763, 2.433138343754}, {-1.5546055556611e-03, 1.1699815465629e-03, 8.3565439266001e-04} }
-, { 525600.0, {-26.360071336928, 20.662505904952, 14.414696258958}, {-1.3142373118349e-03, -2.6236647854842e-03, -4.2542017598193e-04} }
-, { 554800.0, { 22.599441488648, -24.508879898306, -14.484045731468}, { 2.5454108304806e-03, 1.4917058755191e-03, -3.0243665086079e-04} }
-, { 584000.0, { 35.877864013014, 33.894226366071, -0.224524636277}, {-1.2941245730845e-03, 1.4560427668319e-03, 8.4762160640137e-04} }
-, { 613200.0, {-21.538149762417, 28.204068269761, 15.321973799534}, {-1.7312117409010e-03, -2.1939631314577e-03, -1.6316913275180e-04} }
-, { 642400.0, { 13.971521374415, -28.339941764789, -13.083792871886}, { 2.9334630526035e-03, 9.1860931752944e-04, -5.9939422488627e-04} }
-, { 671600.0, { 39.526942044143, 28.939897360110, -2.872799527539}, {-1.0068481658095e-03, 1.7021132888090e-03, 8.3578230511981e-04} }
-, { 700800.0, {-15.576200701394, 34.399412961275, 15.466033737854}, {-2.0098814612884e-03, -1.7191109825989e-03, 7.0414782780416e-05} }
-, { 730000.0, { 4.243252837090, -30.118201690825, -10.707441231349}, { 3.1725847067411e-03, 1.6098461202270e-04, -9.0672150593868e-04} }
-};
-
-/* FIXFIXFIX - Using a global is not thread-safe. Either add thread-locks or change API to accept a cache pointer. */
-static body_segment_t *pluto_cache[PLUTO_NUM_STATES-1];
-
-
-static int ClampIndex(double frac, int nsteps)
-{
- int index = (int) floor(frac);
- if (index < 0)
- return 0;
- if (index >= nsteps)
- return nsteps-1;
- return index;
-}
-
-
-static astro_status_t GetSegment(int *seg_index, body_segment_t *cache[], double tt)
-{
- int i;
- body_segment_t reverse;
- body_segment_t *seg;
- major_bodies_t bary;
- double step_tt, ramp;
-
- if (tt < PlutoStateTable[0].tt || tt > PlutoStateTable[PLUTO_NUM_STATES-1].tt)
- {
- /* We don't bother calculating a segment. Let the caller crawl backward/forward to this time. */
- *seg_index = -1;
- return ASTRO_SUCCESS;
- }
-
- /* See if we have a segment that straddles the requested time. */
- /* If so, return it. Otherwise, calculate it and return it. */
-
- *seg_index = ClampIndex((tt - PlutoStateTable[0].tt) / PLUTO_TIME_STEP, PLUTO_NUM_STATES-1);
- if (cache[*seg_index] == NULL)
- {
- /* Allocate memory for the segment (about 11K each). */
- seg = cache[*seg_index] = (body_segment_t *) calloc(1, sizeof(body_segment_t));
- if (seg == NULL)
- return ASTRO_OUT_OF_MEMORY;
-
- /* Calculate the segment. */
- /* Pick the pair of bracketing body states to fill the segment. */
-
- /* Each endpoint is exact. */
- seg->step[0] = GravFromState(&bary, &PlutoStateTable[*seg_index]);
- seg->step[PLUTO_NSTEPS-1] = GravFromState(&bary, &PlutoStateTable[*seg_index + 1]);
-
- /* Simulate forwards from the lower time bound. */
- step_tt = seg->step[0].tt;
- for (i=1; i < PLUTO_NSTEPS-1; ++i)
- seg->step[i] = GravSim(&bary, step_tt += PLUTO_DT, &seg->step[i-1]);
-
- /* Simulate backwards from the upper time bound. */
- step_tt = seg->step[PLUTO_NSTEPS-1].tt;
- reverse.step[PLUTO_NSTEPS-1] = seg->step[PLUTO_NSTEPS-1];
- for (i=PLUTO_NSTEPS-2; i > 0; --i)
- reverse.step[i] = GravSim(&bary, step_tt -= PLUTO_DT, &reverse.step[i+1]);
-
- /* Fade-mix the two series so that there are no discontinuities. */
- for (i=PLUTO_NSTEPS-2; i > 0; --i)
- {
- ramp = (double)i / (PLUTO_NSTEPS-1);
- seg->step[i].r = VecRamp(seg->step[i].r, reverse.step[i].r, ramp);
- seg->step[i].v = VecRamp(seg->step[i].v, reverse.step[i].v, ramp);
- seg->step[i].a = VecRamp(seg->step[i].a, reverse.step[i].a, ramp);
- }
- }
-
- return ASTRO_SUCCESS;
-}
-
-
-static body_grav_calc_t CalcPlutoOneWay(major_bodies_t *bary, const body_state_t *init_state, double target_tt, double dt)
-{
- body_grav_calc_t calc;
- int i, n;
-
- calc = GravFromState(bary, init_state);
- n = (int) ceil((target_tt - calc.tt) / dt);
- for (i=0; i < n; ++i)
- calc = GravSim(bary, (i+1 == n) ? target_tt : (calc.tt + dt), &calc);
-
- return calc;
-}
-
-
-static astro_status_t CalcPluto(body_state_t *bstate, astro_time_t time, int helio)
-{
- terse_vector_t acc, ra, rb, va, vb;
- major_bodies_t bary;
- const body_segment_t *seg;
- int seg_index, left;
- const body_grav_calc_t *s1;
- const body_grav_calc_t *s2;
- body_grav_calc_t calc;
- astro_status_t status;
- double ramp;
-
- memset(bstate, 0, sizeof(body_state_t));
- bstate->tt = time.tt;
-
- status = GetSegment(&seg_index, pluto_cache, time.tt);
- if (status != ASTRO_SUCCESS)
- return status;
-
- if (seg_index < 0)
- {
- /* The target time is outside the year range 0000..4000. */
- /* Calculate it by crawling backward from 0000 or forward from 4000. */
- /* FIXFIXFIX - This is super slow. Could optimize this with extra caching if needed. */
- if (time.tt < PlutoStateTable[0].tt)
- calc = CalcPlutoOneWay(&bary, &PlutoStateTable[0], time.tt, -PLUTO_DT);
- else
- calc = CalcPlutoOneWay(&bary, &PlutoStateTable[PLUTO_NUM_STATES-1], time.tt, +PLUTO_DT);
-
- bstate->r = calc.r;
- bstate->v = calc.v;
- }
- else
- {
- seg = pluto_cache[seg_index];
- left = ClampIndex((time.tt - seg->step[0].tt) / PLUTO_DT, PLUTO_NSTEPS-1);
- s1 = &seg->step[left];
- s2 = &seg->step[left+1];
-
- /* Find mean acceleration vector over the interval. */
- acc = VecMean(s1->a, s2->a);
-
- /* Use Newtonian mechanics to extrapolate away from t1 in the positive time direction. */
- ra = UpdatePosition(time.tt - s1->tt, s1->r, s1->v, acc);
- va = UpdateVelocity(time.tt - s1->tt, s1->v, acc);
-
- /* Use Newtonian mechanics to extrapolate away from t2 in the negative time direction. */
- rb = UpdatePosition(time.tt - s2->tt, s2->r, s2->v, acc);
- vb = UpdateVelocity(time.tt - s2->tt, s2->v, acc);
-
- /* Use fade in/out idea to blend the two position estimates. */
- ramp = (time.tt - s1->tt)/PLUTO_DT;
- bstate->r = VecRamp(ra, rb, ramp);
- bstate->v = VecRamp(va, vb, ramp);
-
- if (helio)
- MajorBodyBary(&bary, time.tt);
- }
-
- if (helio)
- {
- /* Convert barycentric coordinates back to heliocentric coordinates. */
- VecDecr(&bstate->r, bary.Sun.r);
- VecDecr(&bstate->v, bary.Sun.v);
- }
-
- return ASTRO_SUCCESS;
-}
-
-/*------------------ end Pluto integrator ------------------*/
-
-
-/*---------------------- begin Jupiter moons ----------------------*/
-
-static const astro_rotation_t Rotation_JUP_EQJ =
-{
- ASTRO_SUCCESS,
- {
- { 9.99432765338654e-01, -3.36771074697641e-02, 0.00000000000000e+00 },
- { 3.03959428906285e-02, 9.02057912352809e-01, 4.30543388542295e-01 },
- { -1.44994559663353e-02, -4.30299169409101e-01, 9.02569881273754e-01 }
- }
-};
-
-static const vsop_term_t jm_Io_a[] =
-{
- { 0.0028210960212903, 0.0000000000000000e+00, 0.0000000000000000e+00 }
-};
-
-static const vsop_term_t jm_Io_l[] =
-{
- { -0.0001925258348666, 4.9369589722644998e+00, 1.3584836583050000e-02 },
- { -0.0000970803596076, 4.3188796477322002e+00, 1.3034138432430000e-02 },
- { -0.0000898817416500, 1.9080016428616999e+00, 3.0506486715799999e-03 },
- { -0.0000553101050262, 1.4936156681568999e+00, 1.2938928911549999e-02 }
-};
-
-static const vsop_term_t jm_Io_z[] =
-{
- { 0.0041510849668155, 4.0899396355450000e+00, -1.2906864146660001e-02 },
- { 0.0006260521444113, 1.4461888986270000e+00, 3.5515522949801999e+00 },
- { 0.0000352747346169, 2.1256287034577999e+00, 1.2727416566999999e-04 }
-};
-
-static const vsop_term_t jm_Io_zeta[] =
-{
- { 0.0003142172466014, 2.7964219722923001e+00, -2.3150960980000000e-03 },
- { 0.0000904169207946, 1.0477061879627001e+00, -5.6920638196000003e-04 }
-};
-
-static const vsop_term_t jm_Europa_a[] =
-{
- { 0.0044871037804314, 0.0000000000000000e+00, 0.0000000000000000e+00 },
- { 0.0000004324367498, 1.8196456062910000e+00, 1.7822295777568000e+00 }
-};
-
-static const vsop_term_t jm_Europa_l[] =
-{
- { 0.0008576433172936, 4.3188693178264002e+00, 1.3034138308049999e-02 },
- { 0.0004549582875086, 1.4936531751079001e+00, 1.2938928819619999e-02 },
- { 0.0003248939825174, 1.8196494533458001e+00, 1.7822295777568000e+00 },
- { -0.0003074250079334, 4.9377037005910998e+00, 1.3584832867240000e-02 },
- { 0.0001982386144784, 1.9079869054759999e+00, 3.0510121286900001e-03 },
- { 0.0001834063551804, 2.1402853388529000e+00, 1.4500978933800000e-03 },
- { -0.0001434383188452, 5.6222140366630002e+00, 8.9111478887838003e-01 },
- { -0.0000771939140944, 4.3002724372349999e+00, 2.6733443704265998e+00 }
-};
-
-static const vsop_term_t jm_Europa_z[] =
-{
- { -0.0093589104136341, 4.0899396509038999e+00, -1.2906864146660001e-02 },
- { 0.0002988994545555, 5.9097265185595003e+00, 1.7693227079461999e+00 },
- { 0.0002139036390350, 2.1256289300016000e+00, 1.2727418406999999e-04 },
- { 0.0001980963564781, 2.7435168292649998e+00, 6.7797343008999997e-04 },
- { 0.0001210388158965, 5.5839943711203004e+00, 3.2056614899999997e-05 },
- { 0.0000837042048393, 1.6094538368039000e+00, -9.0402165808846002e-01 },
- { 0.0000823525166369, 1.4461887708689001e+00, 3.5515522949801999e+00 }
-};
-
-static const vsop_term_t jm_Europa_zeta[] =
-{
- { 0.0040404917832303, 1.0477063169425000e+00, -5.6920640539999997e-04 },
- { 0.0002200421034564, 3.3368857864364001e+00, -1.2491307306999999e-04 },
- { 0.0001662544744719, 2.4134862374710999e+00, 0.0000000000000000e+00 },
- { 0.0000590282470983, 5.9719930968366004e+00, -3.0561602250000000e-05 }
-};
-
-static const vsop_term_t jm_Ganymede_a[] =
-{
- { 0.0071566594572575, 0.0000000000000000e+00, 0.0000000000000000e+00 },
- { 0.0000013930299110, 1.1586745884981000e+00, 2.6733443704265998e+00 }
-};
-
-static const vsop_term_t jm_Ganymede_l[] =
-{
- { 0.0002310797886226, 2.1402987195941998e+00, 1.4500978438400001e-03 },
- { -0.0001828635964118, 4.3188672736968003e+00, 1.3034138282630000e-02 },
- { 0.0001512378778204, 4.9373102372298003e+00, 1.3584834812520000e-02 },
- { -0.0001163720969778, 4.3002659861490002e+00, 2.6733443704265998e+00 },
- { -0.0000955478069846, 1.4936612842567001e+00, 1.2938928798570001e-02 },
- { 0.0000815246854464, 5.6222137132535002e+00, 8.9111478887838003e-01 },
- { -0.0000801219679602, 1.2995922951532000e+00, 1.0034433456728999e+00 },
- { -0.0000607017260182, 6.4978769669238001e-01, 5.0172167043264004e-01 }
-};
-
-static const vsop_term_t jm_Ganymede_z[] =
-{
- { 0.0014289811307319, 2.1256295942738999e+00, 1.2727413029000001e-04 },
- { 0.0007710931226760, 5.5836330003496002e+00, 3.2064341100000001e-05 },
- { 0.0005925911780766, 4.0899396636447998e+00, -1.2906864146660001e-02 },
- { 0.0002045597496146, 5.2713683670371996e+00, -1.2523544076106000e-01 },
- { 0.0001785118648258, 2.8743156721063001e-01, 8.7820792442520001e-01 },
- { 0.0001131999784893, 1.4462127277818000e+00, 3.5515522949801999e+00 },
- { -0.0000658778169210, 2.2702423990985001e+00, -1.7951364394536999e+00 },
- { 0.0000497058888328, 5.9096792204858000e+00, 1.7693227129285001e+00 }
-};
-
-static const vsop_term_t jm_Ganymede_zeta[] =
-{
- { 0.0015932721570848, 3.3368862796665000e+00, -1.2491307058000000e-04 },
- { 0.0008533093128905, 2.4133881688166001e+00, 0.0000000000000000e+00 },
- { 0.0003513347911037, 5.9720789850126996e+00, -3.0561017709999999e-05 },
- { -0.0001441929255483, 1.0477061764435001e+00, -5.6920632124000004e-04 }
-};
-
-static const vsop_term_t jm_Callisto_a[] =
-{
- { 0.0125879701715314, 0.0000000000000000e+00, 0.0000000000000000e+00 },
- { 0.0000035952049470, 6.4965776007116005e-01, 5.0172168165034003e-01 },
- { 0.0000027580210652, 1.8084235781510001e+00, 3.1750660413359002e+00 }
-};
-
-static const vsop_term_t jm_Callisto_l[] =
-{
- { 0.0005586040123824, 2.1404207189814999e+00, 1.4500979323100001e-03 },
- { -0.0003805813868176, 2.7358844897852999e+00, 2.9729650620000000e-05 },
- { 0.0002205152863262, 6.4979652596399995e-01, 5.0172167243580001e-01 },
- { 0.0001877895151158, 1.8084787604004999e+00, 3.1750660413359002e+00 },
- { 0.0000766916975242, 6.2720114319754998e+00, 1.3928364636651001e+00 },
- { 0.0000747056855106, 1.2995916202344000e+00, 1.0034433456728999e+00 }
-};
-
-static const vsop_term_t jm_Callisto_z[] =
-{
- { 0.0073755808467977, 5.5836071576083999e+00, 3.2065099140000001e-05 },
- { 0.0002065924169942, 5.9209831565786004e+00, 3.7648624194703001e-01 },
- { 0.0001589869764021, 2.8744006242622999e-01, 8.7820792442520001e-01 },
- { -0.0001561131605348, 2.1257397865089001e+00, 1.2727441285000001e-04 },
- { 0.0001486043380971, 1.4462134301023000e+00, 3.5515522949801999e+00 },
- { 0.0000635073108731, 5.9096803285953996e+00, 1.7693227129285001e+00 },
- { 0.0000599351698525, 4.1125517584797997e+00, -2.7985797954588998e+00 },
- { 0.0000540660842731, 5.5390350845569003e+00, 2.8683408228299999e-03 },
- { -0.0000489596900866, 4.6218149483337996e+00, -6.2695712529518999e-01 }
-};
-
-static const vsop_term_t jm_Callisto_zeta[] =
-{
- { 0.0038422977898495, 2.4133922085556998e+00, 0.0000000000000000e+00 },
- { 0.0022453891791894, 5.9721736773277003e+00, -3.0561255249999997e-05 },
- { -0.0002604479450559, 3.3368746306408998e+00, -1.2491309972000001e-04 },
- { 0.0000332112143230, 5.5604137742336999e+00, 2.9003768850700000e-03 }
-};
-
-static const jupiter_moon_t JupiterMoonModel[] =
-{
- { 2.8248942843381399e-07, { 1.4462132960212239e+00, 3.5515522861824000e+00 }
- , { 1, jm_Io_a }
- , { 4, jm_Io_l }
- , { 3, jm_Io_z }
- , { 2, jm_Io_zeta } },
-
- { 2.8248327439289299e-07, { -3.7352634374713622e-01, 1.7693227111234699e+00 }
- , { 2, jm_Europa_a }
- , { 8, jm_Europa_l }
- , { 7, jm_Europa_z }
- , { 4, jm_Europa_zeta } },
-
- { 2.8249818418472298e-07, { 2.8740893911433479e-01, 8.7820792358932798e-01 }
- , { 2, jm_Ganymede_a }
- , { 8, jm_Ganymede_l }
- , { 8, jm_Ganymede_z }
- , { 4, jm_Ganymede_zeta } },
-
- { 2.8249214488990899e-07, { -3.6203412913757038e-01, 3.7648623343382798e-01 }
- , { 3, jm_Callisto_a }
- , { 6, jm_Callisto_l }
- , { 9, jm_Callisto_z }
- , { 4, jm_Callisto_zeta } }
-};
-
-static astro_state_vector_t JupiterMoon_elem2pv(astro_time_t time, double mu, const double elem[6])
-{
- /* Translation of FORTRAN subroutine ELEM2PV from: */
- /* https://ftp.imcce.fr/pub/ephem/satel/galilean/L1/L1.2/ */
- astro_state_vector_t state;
- double EE, DE, CE, SE, DLE, RSAM1, ASR, PHI, PSI, X1, Y1, VX1, VY1, F2, P2, Q2, PQ;
-
- const double A = elem[0];
- const double AL = elem[1];
- const double K = elem[2];
- const double H = elem[3];
- const double Q = elem[4];
- const double P = elem[5];
-
- const double AN = sqrt(mu / (A*A*A));
-
- EE = AL + K*sin(AL) - H*cos(AL);
- do
- {
- CE = cos(EE);
- SE = sin(EE);
- DE = (AL - EE + K*SE - H*CE) / (1.0 - K*CE - H*SE);
- EE += DE;
- }
- while (fabs(DE) >= 1.0e-12);
-
- CE = cos(EE);
- SE = sin(EE);
- DLE = H*CE - K*SE;
- RSAM1 = -K*CE - H*SE;
- ASR = 1.0/(1.0 + RSAM1);
- PHI = sqrt(1.0 - K*K - H*H);
- PSI = 1.0/(1.0 + PHI);
- X1 = A*(CE - K - PSI*H*DLE);
- Y1 = A*(SE - H + PSI*K*DLE);
- VX1 = AN*ASR*A*(-SE - PSI*H*RSAM1);
- VY1 = AN*ASR*A*(+CE + PSI*K*RSAM1);
- F2 = 2.0*sqrt(1.0 - Q*Q - P*P);
- P2 = 1.0 - 2.0*P*P;
- Q2 = 1.0 - 2.0*Q*Q;
- PQ = 2.0*P*Q;
-
- state.x = X1*P2 + Y1*PQ;
- state.y = X1*PQ + Y1*Q2;
- state.z = (Q*Y1 - X1*P)*F2;
-
- state.vx = VX1*P2 + VY1*PQ;
- state.vy = VX1*PQ + VY1*Q2;
- state.vz = (Q*VY1 - VX1*P)*F2;
-
- state.t = time;
- state.status = ASTRO_SUCCESS;
- return state;
-}
-
-static astro_state_vector_t CalcJupiterMoon(astro_time_t time, int mindex)
-{
- /* This is a translation of FORTRAN code by Duriez, Lainey, and Vienne: */
- /* https://ftp.imcce.fr/pub/ephem/satel/galilean/L1/L1.2/ */
-
- astro_state_vector_t state;
- int k;
- double arg;
- double elem[6];
- const jupiter_moon_t *m = &JupiterMoonModel[mindex];
- const double t = time.tt + 18262.5; /* t = time since 1950-01-01T00:00:00Z */
-
- /* Calculate 6 orbital elements at the given time t. */
-
- elem[0] = 0.0;
- for (k = 0; k < m->a.nterms; ++k)
- {
- arg = m->a.term[k].phase + (t * m->a.term[k].frequency);
- elem[0] += m->a.term[k].amplitude * cos(arg);
- }
-
- elem[1] = m->al[0] + (t * m->al[1]);
- for (k = 0; k < m->l.nterms; ++k)
- {
- arg = m->l.term[k].phase + (t * m->l.term[k].frequency);
- elem[1] += m->l.term[k].amplitude * sin(arg);
- }
- elem[1] = fmod(elem[1], PI2);
- if (elem[1] < 0.0)
- elem[1] += PI2;
-
- elem[2] = elem[3] = 0.0;
- for (k = 0; k < m->z.nterms; ++k)
- {
- arg = m->z.term[k].phase + (t * m->z.term[k].frequency);
- elem[2] += m->z.term[k].amplitude * cos(arg);
- elem[3] += m->z.term[k].amplitude * sin(arg);
- }
-
- elem[4] = elem[5] = 0.0;
- for (k = 0; k < m->zeta.nterms; ++k)
- {
- arg = m->zeta.term[k].phase + (t * m->zeta.term[k].frequency);
- elem[4] += m->zeta.term[k].amplitude * cos(arg);
- elem[5] += m->zeta.term[k].amplitude * sin(arg);
- }
-
- /* Convert the oribital elements into position vectors in the Jupiter equatorial system (JUP). */
- state = JupiterMoon_elem2pv(time, m->mu, elem);
-
- /* Re-orient position and velocity vectors from Jupiter-equatorial (JUP) to Earth-equatorial in J2000 (EQJ). */
- return Astronomy_RotateState(Rotation_JUP_EQJ, state);
-}
-
-
-/**
- * @brief Calculates jovicentric positions and velocities of Jupiter's largest 4 moons.
- *
- * Calculates position and velocity vectors for Jupiter's moons
- * Io, Europa, Ganymede, and Callisto, at the given date and time.
- * The vectors are jovicentric (relative to the center of Jupiter).
- * Their orientation is the Earth's equatorial system at the J2000 epoch (EQJ).
- * The position components are expressed in astronomical units (AU), and the
- * velocity components are in AU/day.
- *
- * To convert to heliocentric position vectors, call #Astronomy_HelioVector
- * with `BODY_JUPITER` to get Jupiter's heliocentric position, then
- * add the jovicentric positions.
- *
- * Likewise, you can call #Astronomy_GeoVector
- * with `BODY_JUPITER` to convert to geocentric positions.
- * However, you will have to manually correct for light travel time
- * from the Jupiter system to Earth to figure out what time to pass
- * to `Astronomy_JupiterMoons` to get an accurate picture
- * of how Jupiter and its moons look from Earth.
- *
- * @param time The date and time for which to calculate the position vectors.
- * @return Position vectors of Jupiter's largest 4 moons, as described above.
- */
-astro_jupiter_moons_t Astronomy_JupiterMoons(astro_time_t time)
-{
- astro_jupiter_moons_t jm;
-
- jm.io = CalcJupiterMoon(time, 0);
- jm.europa = CalcJupiterMoon(time, 1);
- jm.ganymede = CalcJupiterMoon(time, 2);
- jm.callisto = CalcJupiterMoon(time, 3);
-
- return jm;
-}
-
-/*---------------------- end Jupiter moons ----------------------*/
-
-
-/**
- * @brief Calculates heliocentric Cartesian coordinates of a body in the J2000 equatorial system.
- *
- * This function calculates the position of the given celestial body as a vector,
- * using the center of the Sun as the origin. The result is expressed as a Cartesian
- * vector in the J2000 equatorial system: the coordinates are based on the mean equator
- * of the Earth at noon UTC on 1 January 2000.
- *
- * The position is not corrected for light travel time or aberration.
- * This is different from the behavior of #Astronomy_GeoVector.
- *
- * If given an invalid value for `body`, this function will fail. The caller should always check
- * the `status` field inside the returned #astro_vector_t for `ASTRO_SUCCESS` (success)
- * or any other value (failure) before trusting the resulting vector.
- *
- * @param body
- * A body for which to calculate a heliocentric position: the Sun, Moon, any of the planets,
- * the Solar System Barycenter (SSB), or the Earth Moon Barycenter (EMB).
- * Can also be a star defined by #Astronomy_DefineStar.
- * @param time The date and time for which to calculate the position.
- * @return A heliocentric position vector of the center of the given body.
- */
-astro_vector_t Astronomy_HelioVector(astro_body_t body, astro_time_t time)
-{
- astro_vector_t vector, earth;
- body_state_t bstate;
- const stardef_t *star;
-
- star = UserDefinedStar(body);
- if (star != NULL)
- {
- astro_spherical_t sphere;
- sphere.lat = star->dec;
- sphere.lon = 15.0 * star->ra;
- sphere.dist = star->dist;
- sphere.status = ASTRO_SUCCESS;
- return Astronomy_VectorFromSphere(sphere, time);
- }
-
- switch (body)
- {
- case BODY_SUN:
- vector.status = ASTRO_SUCCESS;
- vector.x = 0.0;
- vector.y = 0.0;
- vector.z = 0.0;
- vector.t = time;
- return vector;
-
- case BODY_MERCURY:
- case BODY_VENUS:
- case BODY_EARTH:
- case BODY_MARS:
- case BODY_JUPITER:
- case BODY_SATURN:
- case BODY_URANUS:
- case BODY_NEPTUNE:
- return CalcVsop(&vsop[body], time);
-
- case BODY_PLUTO:
- vector.t = time;
- vector.status = CalcPluto(&bstate, time, 1);
- if (vector.status != ASTRO_SUCCESS)
- {
- vector.x = vector.y = vector.z = NAN;
- }
- else
- {
- vector.x = bstate.r.x;
- vector.y = bstate.r.y;
- vector.z = bstate.r.z;
- }
- return vector;
-
- case BODY_MOON:
- vector = Astronomy_GeoMoon(time);
- earth = CalcEarth(time);
- vector.x += earth.x;
- vector.y += earth.y;
- vector.z += earth.z;
- return vector;
-
- case BODY_EMB:
- vector = Astronomy_GeoMoon(time);
- earth = CalcEarth(time);
- vector.x = earth.x + (vector.x / (1.0 + EARTH_MOON_MASS_RATIO));
- vector.y = earth.y + (vector.y / (1.0 + EARTH_MOON_MASS_RATIO));
- vector.z = earth.z + (vector.z / (1.0 + EARTH_MOON_MASS_RATIO));
- return vector;
-
- case BODY_SSB:
- return CalcSolarSystemBarycenter(time);
-
- default:
- return VecError(ASTRO_INVALID_BODY, time);
- }
-}
-
-/**
- * @brief Calculates the distance from a body to the Sun at a given time.
- *
- * Given a date and time, this function calculates the distance between
- * the center of `body` and the center of the Sun.
- * For the planets Mercury through Neptune, this function is significantly
- * more efficient than calling #Astronomy_HelioVector followed by #Astronomy_VectorLength.
- *
- * @param body
- * A body for which to calculate a heliocentric distance:
- * the Sun, Moon, any of the planets, or a user-defined star.
- *
- * @param time
- * The date and time for which to calculate the heliocentric distance.
- *
- * @return
- * If successful, an #astro_func_result_t structure whose `status` is `ASTRO_SUCCESS`
- * and whose `value` holds the heliocentric distance in AU.
- * Otherwise, `status` reports an error condition.
- */
-astro_func_result_t Astronomy_HelioDistance(astro_body_t body, astro_time_t time)
-{
- astro_vector_t vector;
- astro_func_result_t result;
- const stardef_t *star;
-
- star = UserDefinedStar(body);
- if (star != NULL)
- {
- result.status = ASTRO_SUCCESS;
- result.value = star->dist;
- return result;
- }
-
- switch (body)
- {
- case BODY_SUN:
- result.status = ASTRO_SUCCESS;
- result.value = 0.0;
- return result;
-
- case BODY_MERCURY:
- case BODY_VENUS:
- case BODY_EARTH:
- case BODY_MARS:
- case BODY_JUPITER:
- case BODY_SATURN:
- case BODY_URANUS:
- case BODY_NEPTUNE:
- result.status = ASTRO_SUCCESS;
- result.value = VsopHelioDistance(&vsop[body], time);
- return result;
-
- default:
- /* For non-VSOP objects, fall back to taking the length of the heliocentric vector. */
- vector = Astronomy_HelioVector(body, time);
- if (vector.status != ASTRO_SUCCESS)
- return FuncError(vector.status);
- result.status = ASTRO_SUCCESS;
- result.value = Astronomy_VectorLength(vector);
- return result;
- }
-}
-
-
-/**
- * @brief Solve for light travel time of a vector function.
- *
- * When observing a distant object, for example Jupiter as seen from Earth,
- * the amount of time it takes for light to travel from the object to the
- * observer can significantly affect the object's apparent position.
- * This function is a generic solver that figures out how long in the
- * past light must have left the observed object to reach the observer
- * at the specified observation time. It uses a context/function pair
- * as a generic interface that expresses an arbitrary position vector
- * as a function of time.
- *
- * This function repeatedly calls `func`, passing `context` and a series of time
- * estimates in the past. Then `func` must return a relative position vector between
- * the observer and the target. `Astronomy_CorrectLightTravel` keeps calling
- * `func` with more and more refined estimates of the time light must have
- * left the target to arrive at the observer.
- *
- * For common use cases, it is simpler to use #Astronomy_BackdatePosition
- * for calculating the light travel time correction of one body observing another body.
- *
- * For geocentric calculations, #Astronomy_GeoVector also backdates the returned
- * position vector for light travel time, only it returns the observation time in
- * the returned vector's `t` field rather than the backdated time.
- *
- * @param context Holds any parameters needed by `func`.
- * @param func Pointer to a function that returns a relative position vector as a function of time.
- * @param time The observation time for which to solve for light travel delay.
- * @return
- * The position vector returned by `func` at the solved backdated time.
- * On success, the vector will hold `ASTRO_SUCCESS` in its `status` field,
- * the backdated time in its `t` field, along with the apparent relative position.
- * If an error occurs, `status` will hold an error code and the remaining fields
- * should be ignored.
- */
-astro_vector_t Astronomy_CorrectLightTravel(
- void *context,
- astro_position_func_t func,
- astro_time_t time)
-{
- int iter;
- astro_time_t ltime, ltime2;
- astro_vector_t pos;
- double distance, dt;
-
- ltime = time;
- for (iter = 0; iter < 10; ++iter)
- {
- pos = func(context, ltime);
- if (pos.status != ASTRO_SUCCESS)
- return pos;
-
- distance = Astronomy_VectorLength(pos);
-
- /*
- This solver does not support more than one light-day of distance,
- because that would cause convergence problems and inaccurate
- values for stellar aberration angles.
- */
- if (distance > C_AUDAY)
- return VecError(ASTRO_INVALID_PARAMETER, time);
-
- ltime2 = Astronomy_AddDays(time, -distance/C_AUDAY);
- dt = fabs(ltime2.tt - ltime.tt);
- if (dt < 1.0e-9) /* 86.4 microseconds */
- return pos;
-
- ltime = ltime2;
- }
- return VecError(ASTRO_NO_CONVERGE, time); /* light travel time solver did not converge */
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- astro_body_t observerBody;
- astro_body_t targetBody;
- astro_aberration_t aberration;
- astro_vector_t observerPos; /* used only when aberration == NO_ABERRATION */
-}
-backdate_context_t;
-/** @endcond */
-
-
-static astro_vector_t BodyPosition(void *context, astro_time_t time)
-{
- const backdate_context_t *b = (const backdate_context_t *)context;
- astro_vector_t observerPos, pos;
-
- if (b->aberration == NO_ABERRATION)
- {
- /* No aberration, so use the pre-calculated initial position of the observer body. */
- observerPos = b->observerPos;
- }
- else
- {
- /*
- The following discussion is worded with the observer body being the Earth,
- which is often the case. However, the same reasoning applies to any observer body
- without loss of generality.
-
- To include aberration, make a good first-order approximation
- by backdating the Earth's position also.
- This is confusing, but it works for objects within the Solar System
- because the distance the Earth moves in that small amount of light
- travel time (a few minutes to a few hours) is well approximated
- by a line segment that substends the angle seen from the remote
- body viewing Earth. That angle is pretty close to the aberration
- angle of the moving Earth viewing the remote body.
- In other words, both of the following approximate the aberration angle:
- (transverse distance Earth moves) / (distance to body)
- (transverse speed of Earth) / (speed of light).
- */
- observerPos = Astronomy_HelioVector(b->observerBody, time);
- }
-
- if (observerPos.status != ASTRO_SUCCESS)
- return observerPos;
-
- pos = Astronomy_HelioVector(b->targetBody, time);
- if (pos.status == ASTRO_SUCCESS)
- {
- /* Convert heliocentric body position to observer-centric position. */
- pos.x -= observerPos.x;
- pos.y -= observerPos.y;
- pos.z -= observerPos.z;
- }
- return pos;
-}
-
-
-/**
- * @brief Solve for light travel time correction of apparent position.
- *
- * When observing a distant object, for example Jupiter as seen from Earth,
- * the amount of time it takes for light to travel from the object to the
- * observer can significantly affect the object's apparent position.
- *
- * This function solves the light travel time correction for the apparent
- * relative position vector of a target body as seen by an observer body
- * at a given observation time.
- *
- * For geocentric calculations, #Astronomy_GeoVector also includes light
- * travel time correction, but the time `t` embedded in its returned vector
- * refers to the observation time, not the backdated time that light left
- * the observed body. Thus `Astronomy_BackdatePosition` provides direct
- * access to the light departure time for callers that need it.
- *
- * For a more generalized light travel correction solver, see #Astronomy_CorrectLightTravel.
- *
- * @param time The time of observation.
- * @param observerBody The body to be used as the observation location.
- * @param targetBody The body to be observed.
- * @param aberration `ABERRATION` to correct for aberration, or `NO_ABERRATION` to leave uncorrected.
- *
- * @return
- * On success, the position vector at the solved backdated time.
- * The returned vector will hold `ASTRO_SUCCESS` in its `status` field,
- * the backdated time in its `t` field, along with the apparent relative position.
- * If an error occurs, `status` will hold an error code and the remaining fields should be ignored.
- */
-astro_vector_t Astronomy_BackdatePosition(
- astro_time_t time,
- astro_body_t observerBody,
- astro_body_t targetBody,
- astro_aberration_t aberration)
-{
- if (UserDefinedStar(targetBody))
- {
- /*
- This is a user-defined star, which must be treated as a special case.
- First, we assume its heliocentric position does not change with time.
- Second, we assume its heliocentric position has already been corrected
- for light-travel time, its coordinates given as it appears on Earth at the present.
- Therefore, no backdating is applied.
- */
- astro_vector_t ovec, tvec, vec;
- double rx, ry, rz, s;
- astro_state_vector_t ostate;
-
- tvec = Astronomy_HelioVector(targetBody, time);
- if (tvec.status != ASTRO_SUCCESS)
- return tvec;
-
- switch (aberration)
- {
- case NO_ABERRATION:
- /* Return the star's position as seen from the observer. */
- ovec = Astronomy_HelioVector(observerBody, time);
- if (ovec.status != ASTRO_SUCCESS)
- return ovec;
- vec.x = tvec.x - ovec.x;
- vec.y = tvec.y - ovec.y;
- vec.z = tvec.z - ovec.z;
- vec.t = time;
- vec.status = ASTRO_SUCCESS;
- return vec;
-
- case ABERRATION:
- /*
- (Observer velocity) - (light vector) = (Aberration-corrected direction to target body).
- Note that this is an approximation, because technically the light vector should
- be measured in barycentric coordinates, not heliocentric. The error is very small.
- */
- ostate = Astronomy_HelioState(observerBody, time);
- if (ostate.status != ASTRO_SUCCESS)
- return VecError(ostate.status, time);
-
- rx = tvec.x - ostate.x;
- ry = tvec.y - ostate.y;
- rz = tvec.z - ostate.z;
- s = C_AUDAY / sqrt(rx*rx + ry*ry + rz*rz);
-
- vec.x = rx + ostate.vx/s;
- vec.y = ry + ostate.vy/s;
- vec.z = rz + ostate.vz/s;
- vec.t = time;
- vec.status = ASTRO_SUCCESS;
- return vec;
-
- default:
- return VecError(ASTRO_INVALID_PARAMETER, time);
- }
- }
- else
- {
- backdate_context_t context;
-
- context.observerBody = observerBody;
- context.targetBody = targetBody;
- context.aberration = aberration;
- switch (aberration)
- {
- case NO_ABERRATION:
- /* Without aberration, we need the observer body position at the observation time only. */
- /* For efficiency, calculate it once and hold onto it, so `BodyPosition` can keep using it. */
- context.observerPos = Astronomy_HelioVector(observerBody, time);
- break;
-
- case ABERRATION:
- /* With aberration, `BackdatePosition` will calculate the observer body state at different times. */
- /* Therefore, do not waste time calculating it at the observation time. */
- /* Initialize the memory with an explicitly invalid value. */
- context.observerPos = VecError(ASTRO_NOT_INITIALIZED, time);
- break;
-
- default:
- return VecError(ASTRO_INVALID_PARAMETER, time);
- }
-
- return Astronomy_CorrectLightTravel(&context, BodyPosition, time);
- }
-}
-
-
-/**
- * @brief Calculates geocentric Cartesian coordinates of a body in the J2000 equatorial system.
- *
- * This function calculates the position of the given celestial body as a vector,
- * using the center of the Earth as the origin. The result is expressed as a Cartesian
- * vector in the J2000 equatorial system: the coordinates are based on the mean equator
- * of the Earth at noon UTC on 1 January 2000.
- *
- * If given an invalid value for `body`, this function will fail. The caller should always check
- * the `status` field inside the returned #astro_vector_t for `ASTRO_SUCCESS` (success)
- * or any other value (failure) before trusting the resulting vector.
- *
- * Unlike #Astronomy_HelioVector, this function corrects for light travel time.
- * This means the position of the body is "back-dated" by the amount of time it takes
- * light to travel from that body to an observer on the Earth.
- *
- * Also, the position can optionally be corrected for
- * [aberration](https://en.wikipedia.org/wiki/Aberration_of_light), an effect
- * causing the apparent direction of the body to be shifted due to transverse
- * movement of the Earth with respect to the rays of light coming from that body.
- *
- * @param body
- * A body for which to calculate a heliocentric position: the Sun, Moon, or any of the planets.
- * Can also be a star defined by #Astronomy_DefineStar.
- * @param time The date and time for which to calculate the position.
- * @param aberration `ABERRATION` to correct for aberration, or `NO_ABERRATION` to leave uncorrected.
- * @return A geocentric position vector of the center of the given body.
- */
-astro_vector_t Astronomy_GeoVector(astro_body_t body, astro_time_t time, astro_aberration_t aberration)
-{
- astro_vector_t vector;
-
- switch (body)
- {
- case BODY_EARTH:
- /* The Earth's geocentric coordinates are always (0,0,0). */
- vector.status = ASTRO_SUCCESS;
- vector.x = 0.0;
- vector.y = 0.0;
- vector.z = 0.0;
- break;
-
- case BODY_MOON:
- /* The moon is so close, aberration and light travel time don't matter. */
- vector = Astronomy_GeoMoon(time);
- break;
-
- default:
- /* For all other bodies, apply light travel time correction. */
- vector = Astronomy_BackdatePosition(time, BODY_EARTH, body, aberration);
- break;
- }
-
- vector.t = time; /* tricky: return the observation time, not the backdated time */
- return vector;
-}
-
-
-/**
- * @brief Calculates barycentric position and velocity vectors for the given body.
- *
- * Given a body and a time, calculates the barycentric position and velocity
- * vectors for the center of that body at that time.
- * The vectors are expressed in J2000 mean equator coordinates (EQJ).
- *
- * @param body
- * The celestial body whose barycentric state vector is to be calculated.
- * Supported values are `BODY_SUN`, `BODY_MOON`, `BODY_EMB`, `BODY_SSB`, and all planets:
- * `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`, `BODY_JUPITER`,
- * `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`.
- * @param time
- * The date and time for which to calculate position and velocity.
- * @return
- * A structure that contains barycentric position and velocity vectors.
- */
-astro_state_vector_t Astronomy_BaryState(astro_body_t body, astro_time_t time)
-{
- astro_state_vector_t state;
- major_bodies_t bary;
- body_state_t planet, earth;
-
- if (body == BODY_SSB)
- {
- /* Trivial case: the solar system barycenter itself. */
- state.status = ASTRO_SUCCESS;
- state.x = state.y = state.z = 0.0;
- state.vx = state.vy = state.vz = 0.0;
- state.t = time;
- return state;
- }
-
- if (body == BODY_PLUTO)
- {
- astro_status_t status = CalcPluto(&planet, time, 0);
- if (status != ASTRO_SUCCESS)
- return StateVecError(status, time);
- return ExportState(planet, time);
- }
-
- MajorBodyBary(&bary, time.tt);
-
- switch (body)
- {
- /* If the caller is asking for one of the major bodies, we can immediately return the answer. */
- case BODY_SUN: return ExportState(bary.Sun, time);
- case BODY_JUPITER: return ExportState(bary.Jupiter, time);
- case BODY_SATURN: return ExportState(bary.Saturn, time);
- case BODY_URANUS: return ExportState(bary.Uranus, time);
- case BODY_NEPTUNE: return ExportState(bary.Neptune, time);
-
- /* Handle the remaining VSOP bodies: Mercury, Venus, Earth, Mars. */
- case BODY_MERCURY:
- case BODY_VENUS:
- case BODY_EARTH:
- case BODY_MARS:
- planet = CalcVsopPosVel(&vsop[body], time.tt);
- /* BarySun + HelioBody = BaryBody */
- state.x = bary.Sun.r.x + planet.r.x;
- state.y = bary.Sun.r.y + planet.r.y;
- state.z = bary.Sun.r.z + planet.r.z;
- state.vx = bary.Sun.v.x + planet.v.x;
- state.vy = bary.Sun.v.y + planet.v.y;
- state.vz = bary.Sun.v.z + planet.v.z;
- state.t = time;
- state.status = ASTRO_SUCCESS;
- return state;
-
- case BODY_MOON:
- case BODY_EMB:
- earth = CalcVsopPosVel(&vsop[BODY_EARTH], time.tt);
- if (body == BODY_MOON)
- state = Astronomy_GeoMoonState(time);
- else
- state = Astronomy_GeoEmbState(time);
- state.x += bary.Sun.r.x + earth.r.x;
- state.y += bary.Sun.r.y + earth.r.y;
- state.z += bary.Sun.r.z + earth.r.z;
- state.vx += bary.Sun.v.x + earth.v.x;
- state.vy += bary.Sun.v.y + earth.v.y;
- state.vz += bary.Sun.v.z + earth.v.z;
- return state;
-
- default:
- return StateVecError(ASTRO_INVALID_BODY, time);
- }
-}
-
-
-/**
- * @brief Calculates heliocentric position and velocity vectors for the given body.
- *
- * Given a body and a time, calculates the position and velocity
- * vectors for the center of that body at that time, relative to the center of the Sun.
- * The vectors are expressed in J2000 mean equator coordinates (EQJ).
- * If you need the position vector only, it is more efficient to call #Astronomy_HelioVector.
- * The Sun's center is a non-inertial frame of reference. In other words, the Sun
- * experiences acceleration due to gravitational forces, mostly from the larger
- * planets (Jupiter, Saturn, Uranus, and Neptune). If you want to calculate momentum,
- * kinetic energy, or other quantities that require a non-accelerating frame
- * of reference, consider using #Astronomy_BaryState instead.
- *
- * @param body
- * The celestial body whose heliocentric state vector is to be calculated.
- * Supported values are `BODY_SUN`, `BODY_MOON`, `BODY_EMB`, `BODY_SSB`, and all planets:
- * `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`, `BODY_JUPITER`,
- * `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`.
- * Also allowed to be a user-defined star created by #Astronomy_DefineStar.
- * @param time
- * The date and time for which to calculate position and velocity.
- * @return
- * A structure that contains heliocentric position and velocity vectors.
- */
-astro_state_vector_t Astronomy_HelioState(astro_body_t body, astro_time_t time)
-{
- astro_status_t status;
- astro_state_vector_t state;
- major_bodies_t bary;
- body_state_t planet, earth;
-
- if (UserDefinedStar(body))
- {
- astro_vector_t vec = Astronomy_HelioVector(body, time);
- state.x = vec.x;
- state.y = vec.y;
- state.z = vec.z;
- state.vx = state.vy = state.vz = 0.0;
- state.t = time;
- state.status = vec.status;
- return state;
- }
-
- switch (body)
- {
- case BODY_SUN:
- /* Trivial case: the Sun is the origin of the heliocentric frame. */
- state.status = ASTRO_SUCCESS;
- state.x = state.y = state.z = 0.0;
- state.vx = state.vy = state.vz = 0.0;
- state.t = time;
- return state;
-
- case BODY_SSB:
- /* Calculate the barycentric Sun. Then the negative of that is the heliocentric SSB. */
- MajorBodyBary(&bary, time.tt);
- state.x = -bary.Sun.r.x;
- state.y = -bary.Sun.r.y;
- state.z = -bary.Sun.r.z;
- state.vx = -bary.Sun.v.x;
- state.vy = -bary.Sun.v.y;
- state.vz = -bary.Sun.v.z;
- state.t = time;
- state.status = ASTRO_SUCCESS;
- return state;
-
- case BODY_MERCURY:
- case BODY_VENUS:
- case BODY_EARTH:
- case BODY_MARS:
- case BODY_JUPITER:
- case BODY_SATURN:
- case BODY_URANUS:
- case BODY_NEPTUNE:
- /* Planets included in the VSOP87 model. */
- planet = CalcVsopPosVel(&vsop[body], time.tt);
- return ExportState(planet, time);
-
- case BODY_PLUTO:
- status = CalcPluto(&planet, time, 1);
- if (status != ASTRO_SUCCESS)
- return StateVecError(status, time);
- return ExportState(planet, time);
-
- case BODY_MOON:
- case BODY_EMB:
- earth = CalcVsopPosVel(&vsop[BODY_EARTH], time.tt);
- if (body == BODY_MOON)
- state = Astronomy_GeoMoonState(time);
- else
- state = Astronomy_GeoEmbState(time);
- state.x += earth.r.x;
- state.y += earth.r.y;
- state.z += earth.r.z;
- state.vx += earth.v.x;
- state.vy += earth.v.y;
- state.vz += earth.v.z;
- return state;
-
- default:
- return StateVecError(ASTRO_INVALID_BODY, time);
- }
-}
-
-
-/**
- * @brief Returns the product of mass and universal gravitational constant of a Solar System body.
- *
- * For problems involving the gravitational interactions of Solar System bodies,
- * it is helpful to know the product GM, where G = the universal gravitational constant
- * and M = the mass of the body. In practice, GM is known to a higher precision than
- * either G or M alone, and thus using the product results in the most accurate results.
- * This function returns the product GM in the units au^3/day^2, or 0 for invalid bodies.
- * The values come from page 10 of a
- * [JPL memorandum regarding the DE405/LE405 ephemeris](https://web.archive.org/web/20120220062549/http://iau-comm4.jpl.nasa.gov/de405iom/de405iom.pdf).
- *
- * @param body The body for which to find the GM product.
- * @return The mass product of the given body in au^3/day^2.
- */
-double Astronomy_MassProduct(astro_body_t body)
-{
- switch (body)
- {
- case BODY_SUN: return SUN_GM;
- case BODY_MERCURY: return MERCURY_GM;
- case BODY_VENUS: return VENUS_GM;
- case BODY_EARTH: return EARTH_GM;
- case BODY_MOON: return MOON_GM;
- case BODY_EMB: return EARTH_GM + MOON_GM;
- case BODY_MARS: return MARS_GM;
- case BODY_JUPITER: return JUPITER_GM;
- case BODY_SATURN: return SATURN_GM;
- case BODY_URANUS: return URANUS_GM;
- case BODY_NEPTUNE: return NEPTUNE_GM;
- case BODY_PLUTO: return PLUTO_GM;
- default: return 0.0; /* invalid body */
- }
-}
-
-
-/**
- * @brief Calculates one of the 5 Lagrange points for a pair of co-orbiting bodies.
- *
- * Given a more massive "major" body and a much less massive "minor" body,
- * calculates one of the five Lagrange points in relation to the minor body's
- * orbit around the major body. The parameter `point` is an integer that
- * selects the Lagrange point as follows:
- *
- * 1 = the Lagrange point between the major body and minor body.
- * 2 = the Lagrange point on the far side of the minor body.
- * 3 = the Lagrange point on the far side of the major body.
- * 4 = the Lagrange point 60 degrees ahead of the minor body's orbital position.
- * 5 = the Lagrange point 60 degrees behind the minor body's orbital position.
- *
- * The function returns the state vector for the selected Lagrange point
- * in J2000 mean equator coordinates (EQJ), with respect to the center of the
- * major body.
- *
- * To calculate Sun/Earth Lagrange points, pass in `BODY_SUN` for `major_body`
- * and `BODY_EMB` (Earth/Moon barycenter) for `minor_body`.
- * For Lagrange points of the Sun and any other planet, pass in that planet
- * (e.g. `BODY_JUPITER`) for `minor_body`.
- * To calculate Earth/Moon Lagrange points, pass in `BODY_EARTH` and `BODY_MOON`
- * for the major and minor bodies respectively.
- *
- * In some cases, it may be more efficient to call #Astronomy_LagrangePointFast,
- * especially when the state vectors have already been calculated, or are needed
- * for some other purpose.
- *
- * @param point A value 1..5 that selects which of the Lagrange points to calculate.
- * @param time The time at which the Lagrange point is to be calculated.
- * @param major_body The more massive of the co-orbiting bodies: `BODY_SUN` or `BODY_EARTH`.
- * @param minor_body The less massive of the co-orbiting bodies. See main remarks.
- * @return The position and velocity of the selected Lagrange point with respect to the major body's center.
- */
-astro_state_vector_t Astronomy_LagrangePoint(
- int point,
- astro_time_t time,
- astro_body_t major_body,
- astro_body_t minor_body)
-{
- astro_state_vector_t major_state, minor_state;
- double major_mass, minor_mass;
-
- major_mass = Astronomy_MassProduct(major_body);
- if (major_mass <= 0.0)
- return StateVecError(ASTRO_INVALID_BODY, time);
-
- minor_mass = Astronomy_MassProduct(minor_body);
- if (minor_mass <= 0.0)
- return StateVecError(ASTRO_INVALID_BODY, time);
-
- /* Calculate the state vectors for the major and minor bodies. */
- if (major_body == BODY_EARTH && minor_body == BODY_MOON)
- {
- /* Use geocentric calculations for more precision. */
-
- /* The Earth's geocentric state is trivial. */
- major_state.status = ASTRO_SUCCESS;
- major_state.t = time;
- major_state.x = major_state.y = major_state.z = 0.0;
- major_state.vx = major_state.vy = major_state.vz = 0.0;
-
- minor_state = Astronomy_GeoMoonState(time);
- if (minor_state.status != ASTRO_SUCCESS)
- return minor_state;
- }
- else
- {
- major_state = Astronomy_HelioState(major_body, time);
- if (major_state.status != ASTRO_SUCCESS)
- return major_state;
-
- minor_state = Astronomy_HelioState(minor_body, time);
- if (minor_state.status != ASTRO_SUCCESS)
- return minor_state;
- }
-
- return Astronomy_LagrangePointFast(
- point,
- major_state,
- major_mass,
- minor_state,
- minor_mass
- );
-}
-
-
-/**
- * @brief Calculates one of the 5 Lagrange points from body masses and state vectors.
- *
- * Given a more massive "major" body and a much less massive "minor" body,
- * calculates one of the five Lagrange points in relation to the minor body's
- * orbit around the major body. The parameter `point` is an integer that
- * selects the Lagrange point as follows:
- *
- * 1 = the Lagrange point between the major body and minor body.
- * 2 = the Lagrange point on the far side of the minor body.
- * 3 = the Lagrange point on the far side of the major body.
- * 4 = the Lagrange point 60 degrees ahead of the minor body's orbital position.
- * 5 = the Lagrange point 60 degrees behind the minor body's orbital position.
- *
- * The caller passes in the state vector and mass for both bodies.
- * The state vectors can be in any orientation and frame of reference.
- * The body masses are expressed as GM products, where G = the universal
- * gravitation constant and M = the body's mass. Thus the units for
- * `major_mass` and `minor_mass` must be au^3/day^2.
- * Use #Astronomy_MassProduct to obtain GM values for various solar system bodies.
- *
- * The function returns the state vector for the selected Lagrange point
- * using the same orientation as the state vector parameters `major_state` and `minor_state`,
- * and the position and velocity components are with respect to the major body's center.
- *
- * Consider calling #Astronomy_LagrangePoint, instead of this function, for simpler usage in most cases.
- *
- * @param point A value 1..5 that selects which of the Lagrange points to calculate.
- * @param major_state The state vector of the major (more massive) of the pair of bodies.
- * @param major_mass The mass product GM of the major body.
- * @param minor_state The state vector of the minor (less massive) of the pair of bodies.
- * @param minor_mass The mass product GM of the minor body.
- * @return The position and velocity of the selected Lagrange point with respect to the major body's center.
- */
-astro_state_vector_t Astronomy_LagrangePointFast(
- int point,
- astro_state_vector_t major_state,
- double major_mass,
- astro_state_vector_t minor_state,
- double minor_mass)
-{
- const double cos_60 = 0.5;
- const double sin_60 = 0.8660254037844386; /* sqrt(3) / 2 */
- double scale, dx, dy, dz;
- double vx, vy, vz;
- double R2, R, r1, r2, x, deltax, dr1, dr2, numer1, numer2, omega2, accel, deriv;
- astro_state_vector_t p;
-
- if (point < 1 || point > 5)
- return StateVecError(ASTRO_INVALID_PARAMETER, major_state.t);
-
- if (major_state.status != ASTRO_SUCCESS || minor_state.status != ASTRO_SUCCESS)
- return StateVecError(ASTRO_INVALID_PARAMETER, major_state.t);
-
- if (!isfinite(major_mass) || major_mass <= 0.0)
- return StateVecError(ASTRO_INVALID_PARAMETER, major_state.t);
-
- if (!isfinite(minor_mass) || minor_mass <= 0.0)
- return StateVecError(ASTRO_INVALID_PARAMETER, major_state.t);
-
- /* Find the relative position vector . */
- dx = minor_state.x - major_state.x;
- dy = minor_state.y - major_state.y;
- dz = minor_state.z - major_state.z;
- R2 = (dx*dx + dy*dy + dz*dz);
-
- /* R = Total distance between the bodies. */
- R = sqrt(R2);
-
- /* Find the velocity vector . */
- vx = minor_state.vx - major_state.vx;
- vy = minor_state.vy - major_state.vy;
- vz = minor_state.vz - major_state.vz;
-
- if (point == 4 || point == 5)
- {
- double nx, ny, nz;
- double ux, uy, uz, U;
- double Dx, Dy, Dz;
- double Ux, Uy, Uz;
- double vert, vrad, vtan;
-
- /*
- For L4 and L5, we need to find points 60 degrees away from the
- line connecting the two bodies and in the instantaneous orbital plane.
- Define the instantaneous orbital plane as the unique plane that contains
- both the relative position vector and the relative velocity vector.
- */
-
- /* Take the cross product of position and velocity to find a normal vector . */
- nx = dy*vz - dz*vy;
- ny = dz*vx - dx*vz;
- nz = dx*vy - dy*vx;
-
- /* Take the cross product normal*position to get a tangential vector . */
- ux = ny*dz - nz*dy;
- uy = nz*dx - nx*dz;
- uz = nx*dy - ny*dx;
-
- /* Convert the tangential direction vector to a unit vector. */
- U = sqrt(ux*ux + uy*uy + uz*uz);
- ux /= U;
- uy /= U;
- uz /= U;
-
- /* Convert the relative position vector into a unit vector. */
- dx /= R;
- dy /= R;
- dz /= R;
-
- /* Now we have two perpendicular unit vectors in the orbital plane: 'd' and 'u'. */
-
- /* Create new unit vectors rotated (+/-)60 degrees from the radius/tangent directions. */
- vert = (point == 4) ? +sin_60 : -sin_60;
-
- /* Rotated radial vector */
- Dx = cos_60*dx + vert*ux;
- Dy = cos_60*dy + vert*uy;
- Dz = cos_60*dz + vert*uz;
-
- /* Rotated tangent vector */
- Ux = cos_60*ux - vert*dx;
- Uy = cos_60*uy - vert*dy;
- Uz = cos_60*uz - vert*dz;
-
- /* Calculate L4/L5 positions relative to the major body. */
- p.x = R * Dx;
- p.y = R * Dy;
- p.z = R * Dz;
-
- /* Use dot products to find radial and tangential components of the relative velocity. */
- vrad = vx*dx + vy*dy + vz*dz;
- vtan = vx*ux + vy*uy + vz*uz;
-
- /* Calculate L4/L5 velocities. */
- p.vx = vrad*Dx + vtan*Ux;
- p.vy = vrad*Dy + vtan*Uy;
- p.vz = vrad*Dz + vtan*Uz;
- }
- else
- {
- /*
- Calculate the distances of each body from their mutual barycenter.
- r1 = negative distance of major mass from barycenter (e.g. Sun to the left of barycenter)
- r2 = positive distance of minor mass from barycenter (e.g. Earth to the right of barycenter)
- */
- r1 = -R * (minor_mass / (major_mass + minor_mass));
- r2 = +R * (major_mass / (major_mass + minor_mass));
-
- /* Calculate the square of the angular orbital speed in [rad^2 / day^2]. */
- omega2 = (major_mass + minor_mass) / (R2*R);
-
- /*
- Use Newton's Method to numerically solve for the location where
- outward centrifugal acceleration in the rotating frame of reference
- is equal to net inward gravitational acceleration.
- First derive a good initial guess based on approximate analysis.
- */
- if (point == 1 || point == 2)
- {
- scale = (major_mass / (major_mass + minor_mass)) * cbrt(minor_mass / (3.0 * major_mass));
- numer1 = -major_mass; /* The major mass is to the left of L1 and L2 */
- if (point == 1)
- {
- scale = 1.0 - scale;
- numer2 = +minor_mass; /* The minor mass is to the right of L1. */
- }
- else
- {
- scale = 1.0 + scale;
- numer2 = -minor_mass; /* The minor mass is to the left of L2. */
- }
- }
- else /* point == 3 */
- {
- scale = ((7.0/12.0)*minor_mass - major_mass) / (minor_mass + major_mass);
- numer1 = +major_mass; /* major mass is to the right of L3. */
- numer2 = +minor_mass; /* minor mass is to the right of L3. */
- }
-
- /* Iterate Newton's Method until it converges. */
- x = R*scale - r1;
- do
- {
- dr1 = x - r1;
- dr2 = x - r2;
- accel = omega2*x + numer1/(dr1*dr1) + numer2/(dr2*dr2);
- deriv = omega2 - 2*numer1/(dr1*dr1*dr1) - 2*numer2/(dr2*dr2*dr2);
- deltax = accel/deriv;
- x -= deltax;
- }
- while (fabs(deltax/R) > 1.0e-14);
- scale = (x - r1) / R;
-
- p.x = scale * dx;
- p.y = scale * dy;
- p.z = scale * dz;
- p.vx = scale * vx;
- p.vy = scale * vy;
- p.vz = scale * vz;
- }
- p.t = major_state.t;
- p.status = ASTRO_SUCCESS;
- return p;
-}
-
-
-/**
- * @brief Calculates equatorial coordinates of a celestial body as seen by an observer on the Earth's surface.
- *
- * Calculates topocentric equatorial coordinates in one of two different systems:
- * J2000 or true-equator-of-date, depending on the value of the `equdate` parameter.
- * Equatorial coordinates include right ascension, declination, and distance in astronomical units.
- *
- * This function corrects for light travel time: it adjusts the apparent location
- * of the observed body based on how long it takes for light to travel from the body to the Earth.
- *
- * This function corrects for *topocentric parallax*, meaning that it adjusts for the
- * angular shift depending on where the observer is located on the Earth. This is most
- * significant for the Moon, because it is so close to the Earth. However, parallax corection
- * has a small effect on the apparent positions of other bodies.
- *
- * Correction for aberration is optional, using the `aberration` parameter.
- *
- * @param body The celestial body to be observed. Not allowed to be `BODY_EARTH`.
- * @param time The date and time at which the observation takes place.
- * @param observer A location on or near the surface of the Earth.
- * @param equdate Selects the date of the Earth's equator in which to express the equatorial coordinates.
- * @param aberration Selects whether or not to correct for aberration.
- * @return Topocentric equatorial coordinates of the celestial body.
- */
-astro_equatorial_t Astronomy_Equator(
- astro_body_t body,
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate,
- astro_aberration_t aberration)
-{
- astro_equatorial_t equ;
- astro_vector_t gc;
- double gc_observer[3];
- double j2000[3];
- double temp[3];
- double datevect[3];
-
- if (time == NULL)
- return EquError(ASTRO_INVALID_PARAMETER);
-
- /* Calculate the geocentric location of the observer. */
- geo_pos(time, observer, gc_observer);
-
- /* Calculate the geocentric location of the body. */
- gc = Astronomy_GeoVector(body, *time, aberration);
- if (gc.status != ASTRO_SUCCESS)
- return EquError(gc.status);
-
- /* Convert geocentric coordinates to topocentric coordinates. */
- j2000[0] = gc.x - gc_observer[0];
- j2000[1] = gc.y - gc_observer[1];
- j2000[2] = gc.z - gc_observer[2];
-
- switch (equdate)
- {
- case EQUATOR_OF_DATE:
- precession(j2000, *time, FROM_2000, temp);
- nutation(temp, time, FROM_2000, datevect);
- equ = vector2radec(datevect, *time);
- return equ;
-
- case EQUATOR_J2000:
- equ = vector2radec(j2000, *time);
- return equ;
-
- default:
- return EquError(ASTRO_INVALID_PARAMETER);
- }
-}
-
-/**
- * @brief Calculates geocentric equatorial coordinates of an observer on the surface of the Earth.
- *
- * This function calculates a vector from the center of the Earth to
- * a point on or near the surface of the Earth, expressed in equatorial
- * coordinates. It takes into account the rotation of the Earth at the given
- * time, along with the given latitude, longitude, and elevation of the observer.
- *
- * The caller may pass a value in `equdate` to select either `EQUATOR_J2000`
- * for using J2000 coordinates, or `EQUATOR_OF_DATE` for using coordinates relative
- * to the Earth's equator at the specified time.
- *
- * The returned vector has components expressed in astronomical units (AU).
- * To convert to kilometers, multiply the `x`, `y`, and `z` values by
- * the constant value #KM_PER_AU.
- *
- * The inverse of this function is also available: #Astronomy_VectorObserver.
- *
- * @param time
- * The date and time for which to calculate the observer's position vector.
- *
- * @param observer
- * The geographic location of a point on or near the surface of the Earth.
- *
- * @param equdate
- * Selects the date of the Earth's equator in which to express the equatorial coordinates.
- * The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator
- * at noon UTC on January 1, 2000, in which case this function corrects for precession
- * and nutation of the Earth as it was at the moment specified by the `time` parameter.
- * Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `time`
- * as the orientation.
- *
- * @return
- * If successful, the returned vector holds `ASTRO_SUCCESS` in its `status` field,
- * and is an equatorial vector from the center of the Earth to the specified location
- * on (or near) the Earth's surface. Otherwise, `status` holds an error code.
- */
-astro_vector_t Astronomy_ObserverVector(
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate)
-{
- astro_vector_t vec;
- double gast, pos[3], temp[3];
-
- if (time == NULL)
- return VecError(ASTRO_INVALID_PARAMETER, TimeError());
-
- gast = Astronomy_SiderealTime(time);
- terra(observer, gast, pos, NULL);
-
- switch (equdate)
- {
- case EQUATOR_OF_DATE:
- /* 'pos' already contains equator-of-date coordinates. */
- break;
-
- case EQUATOR_J2000:
- /* Convert 'pos' from equator-of-date to J2000. */
- nutation(pos, time, INTO_2000, temp);
- precession(temp, *time, INTO_2000, pos);
- break;
-
- default:
- /* This is not a valid value of the 'equdate' parameter. */
- return VecError(ASTRO_INVALID_PARAMETER, *time);
- }
-
- vec.x = pos[0];
- vec.y = pos[1];
- vec.z = pos[2];
- vec.t = *time;
- vec.status = ASTRO_SUCCESS;
- return vec;
-}
-
-
-/**
- * @brief Calculates geocentric equatorial position and velocity of an observer on the surface of the Earth.
- *
- * This function calculates position and velocity vectors of an observer
- * on or near the surface of the Earth, expressed in equatorial
- * coordinates. It takes into account the rotation of the Earth at the given
- * time, along with the given latitude, longitude, and elevation of the observer.
- *
- * The caller may pass a value in `equdate` to select either `EQUATOR_J2000`
- * for using J2000 coordinates, or `EQUATOR_OF_DATE` for using coordinates relative
- * to the Earth's equator at the specified time.
- *
- * The returned position vector has components expressed in astronomical units (AU).
- * To convert to kilometers, multiply the `x`, `y`, and `z` values by
- * the constant value #KM_PER_AU.
- *
- * The returned velocity vector is measured in AU/day.
- *
- * If you need the position only, and not the velocity, #Astronomy_ObserverVector
- * is slightly more efficient than this function.
- *
- * @param time
- * The date and time for which to calculate the observer's geocentric state vector.
- *
- * @param observer
- * The geographic location of a point on or near the surface of the Earth.
- *
- * @param equdate
- * Selects the date of the Earth's equator in which to express the equatorial coordinates.
- * The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator
- * at noon UTC on January 1, 2000, in which case this function corrects for precession
- * and nutation of the Earth as it was at the moment specified by the `time` parameter.
- * Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `time`
- * as the orientation.
- *
- * @return
- * If successful, the returned state vector holds `ASTRO_SUCCESS` in its `status` field,
- * and the position (x, y, z) and velocity (vx, vy, vz) vectors are valid.
- * Otherwise, `status` holds an error code.
- */
-astro_state_vector_t Astronomy_ObserverState(
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate)
-{
- astro_state_vector_t state;
- double gast, pos[3], vel[3], postemp[3], veltemp[3];
-
- if (time == NULL)
- return StateVecError(ASTRO_INVALID_PARAMETER, TimeError());
-
- gast = Astronomy_SiderealTime(time);
- terra(observer, gast, pos, vel);
-
- switch (equdate)
- {
- case EQUATOR_OF_DATE:
- /* 'pos' and 'vel' already contain equator-of-date coordinates. */
- break;
-
- case EQUATOR_J2000:
- /* Convert 'pos' from equator-of-date to J2000. */
- nutation_posvel(pos, vel, time, INTO_2000, postemp, veltemp);
- precession_posvel(postemp, veltemp, *time, INTO_2000, pos, vel);
- break;
-
- default:
- /* This is not a valid value of the 'equdate' parameter. */
- return StateVecError(ASTRO_INVALID_PARAMETER, *time);
- }
-
- state.x = pos[0];
- state.y = pos[1];
- state.z = pos[2];
- state.vx = vel[0];
- state.vy = vel[1];
- state.vz = vel[2];
- state.t = *time;
- state.status = ASTRO_SUCCESS;
- return state;
-}
-
-
-/**
- * @brief Calculates the geographic location corresponding to an equatorial vector.
- *
- * This is the inverse function of #Astronomy_ObserverVector.
- * Given a geocentric equatorial vector, it returns the geographic
- * latitude, longitude, and elevation for that vector.
- *
- * @param vector
- * The geocentric equatorial position vector for which to find geographic coordinates.
- * The components are expressed in Astronomical Units (AU).
- * You can calculate AU by dividing kilometers by the constant #KM_PER_AU.
- * The time `vector.t` determines the Earth's rotation. The caller must set `vector.t` to a valid time.
- * The vector is passed by reference (using a pointer) so that nutation calculations
- * can be cached inside `vector.t` as an optimization.
- *
- * @param equdate
- * Selects the date of the Earth's equator in which `vector` is expressed.
- * The caller may select `EQUATOR_J2000` to use the orientation of the Earth's equator
- * at noon UTC on January 1, 2000, in which case this function corrects for precession
- * and nutation of the Earth as it was at the moment specified by `vector.t`.
- * Or the caller may select `EQUATOR_OF_DATE` to use the Earth's equator at `vector.t`
- * as the orientation.
- *
- * @return
- * The geographic latitude, longitude, and elevation above sea level
- * that corresponds to the given equatorial vector.
- */
-astro_observer_t Astronomy_VectorObserver(
- astro_vector_t *vector,
- astro_equator_date_t equdate)
-{
- double gast;
- double pos1[3];
- double pos2[3];
-
- gast = Astronomy_SiderealTime(&vector->t);
- pos1[0] = vector->x;
- pos1[1] = vector->y;
- pos1[2] = vector->z;
- if (equdate == EQUATOR_J2000)
- {
- precession(pos1, vector->t, FROM_2000, pos2);
- nutation(pos2, &vector->t, FROM_2000, pos1);
- }
- return inverse_terra(pos1, gast);
-}
-
-
-/**
- * @brief Calculates the gravitational acceleration experienced by an observer on the Earth.
- *
- * This function implements the WGS 84 Ellipsoidal Gravity Formula.
- * The result is a combination of inward gravitational acceleration
- * with outward centrifugal acceleration, as experienced by an observer
- * in the Earth's rotating frame of reference.
- * The resulting value increases toward the Earth's poles and decreases
- * toward the equator, consistent with changes of the weight measured
- * by a spring scale of a fixed mass moved to different latitudes and heights
- * on the Earth.
- *
- * @param latitude
- * The latitude of the observer in degrees north or south of the equator.
- * By formula symmetry, positive latitudes give the same answer as negative
- * latitudes, so the sign does not matter.
- *
- * @param height
- * The height above the sea level geoid in meters.
- * No range checking is done; however, accuracy is only valid in the
- * range 0 to 100000 meters.
- *
- * @return
- * The effective gravitational acceleration expressed in meters per second squared [m/s^2].
- */
-double Astronomy_ObserverGravity(double latitude, double height)
-{
- double s = sin(latitude * DEG2RAD);
- double s2 = s*s;
- double g0 = 9.7803253359 * (1.0 + 0.00193185265241*s2) / sqrt(1.0 - 0.00669437999013*s2);
- return g0 * (1.0 - (3.15704e-07 - 2.10269e-09*s2)*height + 7.37452e-14*height*height);
-}
-
-
-/**
- * @brief Calculates the apparent location of a body relative to the local horizon of an observer on the Earth.
- *
- * Given a date and time, the geographic location of an observer on the Earth, and
- * equatorial coordinates (right ascension and declination) of a celestial body,
- * this function returns horizontal coordinates (azimuth and altitude angles) for the body
- * relative to the horizon at the geographic location.
- *
- * The right ascension `ra` and declination `dec` passed in must be *equator of date*
- * coordinates, based on the Earth's true equator at the date and time of the observation.
- * Otherwise the resulting horizontal coordinates will be inaccurate.
- * Equator of date coordinates can be obtained by calling #Astronomy_Equator, passing in
- * `EQUATOR_OF_DATE` as its `equdate` parameter. It is also recommended to enable
- * aberration correction by passing in `ABERRATION` as the `aberration` parameter.
- *
- * This function optionally corrects for atmospheric refraction.
- * For most uses, it is recommended to pass `REFRACTION_NORMAL` in the `refraction` parameter to
- * correct for optical lensing of the Earth's atmosphere that causes objects
- * to appear somewhat higher above the horizon than they actually are.
- * However, callers may choose to avoid this correction by passing in `REFRACTION_NONE`.
- * If refraction correction is enabled, the azimuth, altitude, right ascension, and declination
- * in the #astro_horizon_t structure returned by this function will all be corrected for refraction.
- * If refraction is disabled, none of these four coordinates will be corrected; in that case,
- * the right ascension and declination in the returned structure will be numerically identical
- * to the respective `ra` and `dec` values passed in.
- *
- * @param time
- * The date and time of the observation.
- *
- * @param observer
- * The geographic location of the observer.
- *
- * @param ra
- * The right ascension of the body in sidereal hours.
- * See function remarks for more details.
- *
- * @param dec
- * The declination of the body in degrees. See function remarks for more details.
- *
- * @param refraction
- * Selects whether to correct for atmospheric refraction, and if so, which model to use.
- * The recommended value for most uses is `REFRACTION_NORMAL`.
- * See function remarks for more details.
- *
- * @return
- * The body's apparent horizontal coordinates and equatorial coordinates, both optionally corrected for refraction.
- */
-astro_horizon_t Astronomy_Horizon(
- astro_time_t *time,
- astro_observer_t observer,
- double ra,
- double dec,
- astro_refraction_t refraction)
-{
- astro_horizon_t hor;
- double latrad, lonrad, decrad, rarad;
- double uze[3], une[3], uwe[3];
- double uz[3], un[3], uw[3];
- double p[3], pz, pn, pw, proj;
- double az, zd;
- double spin_angle;
-
- if (time == NULL)
- {
- /* The best we can do is return an invalid state. */
- /* It would break external dependencies to expect them to check for errors. */
- hor.altitude = NAN;
- hor.azimuth = NAN;
- hor.ra = NAN;
- hor.dec = NAN;
- return hor;
- }
-
- latrad = observer.latitude * DEG2RAD;
- lonrad = observer.longitude * DEG2RAD;
- decrad = dec * DEG2RAD;
- rarad = ra * HOUR2RAD;
-
- double sinlat = sin(latrad);
- double coslat = cos(latrad);
- double sinlon = sin(lonrad);
- double coslon = cos(lonrad);
- double sindc = sin(decrad);
- double cosdc = cos(decrad);
- double sinra = sin(rarad);
- double cosra = cos(rarad);
-
- /*
- Calculate three mutually perpendicular unit vectors
- in equatorial coordinates: uze, une, uwe.
-
- uze = The direction of the observer's local zenith (straight up).
- une = The direction toward due north on the observer's horizon.
- uwe = The direction toward due west on the observer's horizon.
-
- HOWEVER, these are uncorrected for the Earth's rotation due to the time of day.
-
- The components of these 3 vectors are as follows:
- [0] = x = direction from center of Earth toward 0 degrees longitude (the prime meridian) on equator.
- [1] = y = direction from center of Earth toward 90 degrees west longitude on equator.
- [2] = z = direction from center of Earth toward the north pole.
- */
-
- uze[0] = coslat * coslon;
- uze[1] = coslat * sinlon;
- uze[2] = sinlat;
-
- une[0] = -sinlat * coslon;
- une[1] = -sinlat * sinlon;
- une[2] = coslat;
-
- uwe[0] = sinlon;
- uwe[1] = -coslon;
- uwe[2] = 0.0;
-
- /*
- Correct the vectors uze, une, uwe for the Earth's rotation by calculating
- sidereal time. Call spin() for each uncorrected vector to rotate about
- the Earth's axis to yield corrected unit vectors uz, un, uw.
- Multiply sidereal hours by -15 to convert to degrees and flip eastward
- rotation of the Earth to westward apparent movement of objects with time.
- */
-
- spin_angle = -15.0 * Astronomy_SiderealTime(time);
- spin(spin_angle, uze, uz);
- spin(spin_angle, une, un);
- spin(spin_angle, uwe, uw);
-
- /*
- Convert angular equatorial coordinates (RA, DEC) to
- cartesian equatorial coordinates in 'p', using the
- same orientation system as uze, une, uwe.
- */
-
- p[0] = cosdc * cosra;
- p[1] = cosdc * sinra;
- p[2] = sindc;
-
- /*
- Use dot products of p with the zenith, north, and west
- vectors to obtain the cartesian coordinates of the body in
- the observer's horizontal orientation system.
-
- pn = north component [-1, +1]
- pw = west component [-1, +1]
- pz = zenith component [-1, +1]
- */
-
- pn = p[0]*un[0] + p[1]*un[1] + p[2]*un[2];
- pw = p[0]*uw[0] + p[1]*uw[1] + p[2]*uw[2];
- pz = p[0]*uz[0] + p[1]*uz[1] + p[2]*uz[2];
-
- /* proj is the "shadow" of the body vector along the observer's flat ground. */
- proj = hypot(pn, pw);
- if (proj > 0.0)
- {
- /* If the body is not exactly straight up/down, it has an azimuth. */
- /* Invert the angle to produce degrees eastward from north. */
- az = -atan2(pw, pn) * RAD2DEG;
- if (az < 0.0)
- az += 360;
- }
- else
- {
- /* The body is straight up/down, so it does not have an azimuth. */
- /* Report an arbitrary but reasonable value. */
- az = 0.0;
- }
-
- /* zd = the angle of the body away from the observer's zenith, in degrees. */
- zd = atan2(proj, pz) * RAD2DEG;
- hor.ra = ra;
- hor.dec = dec;
-
- if (refraction == REFRACTION_NORMAL || refraction == REFRACTION_JPLHOR)
- {
- double zd0, refr;
-
- zd0 = zd;
- refr = Astronomy_Refraction(refraction, 90.0 - zd);
- zd -= refr;
-
- if (refr > 0.0 && zd > 3.0e-4)
- {
- int j;
- double sinzd = sin(zd * DEG2RAD);
- double coszd = cos(zd * DEG2RAD);
- double sinzd0 = sin(zd0 * DEG2RAD);
- double coszd0 = cos(zd0 * DEG2RAD);
- double pr[3];
-
- for (j=0; j<3; ++j)
- pr[j] = ((p[j] - coszd0 * uz[j]) / sinzd0)*sinzd + uz[j]*coszd;
-
- proj = hypot(pr[0], pr[1]);
- if (proj > 0)
- {
- hor.ra = RAD2HOUR * atan2(pr[1], pr[0]);
- if (hor.ra < 0.0)
- hor.ra += 24.0;
- }
- else
- {
- hor.ra = 0.0;
- }
- hor.dec = RAD2DEG * atan2(pr[2], proj);
- }
- }
-
- hor.azimuth = az;
- hor.altitude = 90.0 - zd;
- return hor;
-}
-
-/**
- * @brief Calculates geocentric ecliptic coordinates for the Sun.
- *
- * This function calculates the position of the Sun as seen from the Earth.
- * The returned value includes both Cartesian and spherical coordinates.
- * The x-coordinate and longitude values in the returned structure are based
- * on the *true equinox of date*: one of two points in the sky where the instantaneous
- * plane of the Earth's equator at the given date and time (the *equatorial plane*)
- * intersects with the plane of the Earth's orbit around the Sun (the *ecliptic plane*).
- * By convention, the apparent location of the Sun at the March equinox is chosen
- * as the longitude origin and x-axis direction, instead of the one for September.
- *
- * `Astronomy_SunPosition` corrects for precession and nutation of the Earth's axis
- * in order to obtain the exact equatorial plane at the given time.
- *
- * This function can be used for calculating changes of seasons: equinoxes and solstices.
- * In fact, the function #Astronomy_Seasons does use this function for that purpose.
- *
- * @param time
- * The date and time for which to calculate the Sun's position.
- *
- * @return
- * The ecliptic coordinates of the Sun using the Earth's true equator of date.
- */
-astro_ecliptic_t Astronomy_SunPosition(astro_time_t time)
-{
- astro_time_t adjusted_time;
- astro_vector_t earth2000;
- double sun2000[3];
- double stemp[3];
- double sun_ofdate[3];
- double true_obliq;
-
- /* Correct for light travel time from the Sun. */
- /* Otherwise season calculations (equinox, solstice) will all be early by about 8 minutes! */
- adjusted_time = Astronomy_AddDays(time, -1.0 / C_AUDAY);
-
- earth2000 = CalcEarth(adjusted_time);
- if (earth2000.status != ASTRO_SUCCESS)
- return EclError(earth2000.status);
-
- /* Convert heliocentric location of Earth to geocentric location of Sun. */
- sun2000[0] = -earth2000.x;
- sun2000[1] = -earth2000.y;
- sun2000[2] = -earth2000.z;
-
- /* Convert to equatorial Cartesian coordinates of date. */
- precession(sun2000, adjusted_time, FROM_2000, stemp);
- nutation(stemp, &adjusted_time, FROM_2000, sun_ofdate);
-
- /* Convert equatorial coordinates to ecliptic coordinates. */
- true_obliq = DEG2RAD * e_tilt(&adjusted_time).tobl;
- return RotateEquatorialToEcliptic(sun_ofdate, true_obliq, time);
-}
-
-/**
- * @brief Converts a J2000 mean equator (EQJ) vector to a true ecliptic of date (ETC) vector and angles.
- *
- * Given coordinates relative to the Earth's equator at J2000 (the instant of noon UTC
- * on 1 January 2000), this function converts those coordinates to true ecliptic coordinates
- * that are relative to the plane of the Earth's orbit around the Sun on that date.
- *
- * @param eqj
- * Equatorial coordinates in the EQJ frame of reference.
- * You can call #Astronomy_GeoVector to obtain suitable equatorial coordinates.
- *
- * @return
- * Spherical and vector coordinates expressed in true ecliptic coordinates of date (ECT).
- */
-astro_ecliptic_t Astronomy_Ecliptic(astro_vector_t eqj)
-{
- earth_tilt_t et;
- double eqj_pos[3];
- double mean_pos[3];
- double eqd_pos[3];
-
- if (eqj.status != ASTRO_SUCCESS)
- return EclError(eqj.status);
-
- /* Calculate nutation and obliquity for this time. */
- /* As an optimization, the nutation angles are cached in `time`, */
- /* and reused below when the `nutation` function is called. */
- et = e_tilt(&eqj.t);
-
- /* Convert mean J2000 equator (EQJ) to true equator of date (EQD). */
- eqj_pos[0] = eqj.x;
- eqj_pos[1] = eqj.y;
- eqj_pos[2] = eqj.z;
- precession(eqj_pos, eqj.t, FROM_2000, mean_pos);
- nutation(mean_pos, &eqj.t, FROM_2000, eqd_pos);
-
- /* Rotate from EQD to true ecliptic of date (ECT). */
- return RotateEquatorialToEcliptic(eqd_pos, et.tobl * DEG2RAD, eqj.t);
-}
-
-/**
- * @brief Calculates heliocentric ecliptic longitude of a body.
- *
- * This function calculates the angle around the plane of the Earth's orbit
- * of a celestial body, as seen from the center of the Sun.
- * The angle is measured prograde (in the direction of the Earth's orbit around the Sun)
- * in degrees from the true equinox of date. The ecliptic longitude is always in the range [0, 360).
- *
- * @param body
- * A body other than the Sun.
- *
- * @param time
- * The date and time at which the body's ecliptic longitude is to be calculated.
- *
- * @return
- * On success, returns a structure whose `status` is `ASTRO_SUCCESS` and whose
- * `angle` holds the ecliptic longitude in degrees.
- * On failure, `status` holds a value other than `ASTRO_SUCCESS`.
- */
-astro_angle_result_t Astronomy_EclipticLongitude(astro_body_t body, astro_time_t time)
-{
- astro_vector_t hv;
- astro_ecliptic_t eclip;
- astro_angle_result_t result;
-
- if (body == BODY_SUN)
- return AngleError(ASTRO_INVALID_BODY); /* cannot calculate heliocentric longitude of the Sun */
-
- hv = Astronomy_HelioVector(body, time);
- eclip = Astronomy_Ecliptic(hv); /* checks for errors in hv, so we don't have to here */
- if (eclip.status != ASTRO_SUCCESS)
- return AngleError(eclip.status);
-
- result.angle = eclip.elon;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-static astro_ecliptic_t RotateEquatorialToEcliptic(const double pos[3], double obliq_radians, astro_time_t time)
-{
- astro_ecliptic_t ecl;
- double cos_ob, sin_ob;
- double xyproj;
-
- cos_ob = cos(obliq_radians);
- sin_ob = sin(obliq_radians);
-
- ecl.vec.status = ASTRO_SUCCESS;
- ecl.vec.t = time;
- ecl.vec.x = +pos[0];
- ecl.vec.y = +pos[1]*cos_ob + pos[2]*sin_ob;
- ecl.vec.z = -pos[1]*sin_ob + pos[2]*cos_ob;
-
- xyproj = hypot(ecl.vec.x, ecl.vec.y);
- if (xyproj > 0.0)
- {
- ecl.elon = RAD2DEG * atan2(ecl.vec.y, ecl.vec.x);
- if (ecl.elon < 0.0)
- ecl.elon += 360.0;
- }
- else
- ecl.elon = 0.0;
-
- ecl.elat = RAD2DEG * atan2(ecl.vec.z, xyproj);
- ecl.status = ASTRO_SUCCESS;
- return ecl;
-}
-
-static astro_func_result_t sun_offset(void *context, astro_time_t time)
-{
- astro_func_result_t result;
- double targetLon = *((double *)context);
- astro_ecliptic_t ecl = Astronomy_SunPosition(time);
- if (ecl.status != ASTRO_SUCCESS)
- return FuncError(ecl.status);
- result.value = LongitudeOffset(ecl.elon - targetLon);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Searches for the time when the Sun reaches an apparent ecliptic longitude as seen from the Earth.
- *
- * This function finds the moment in time, if any exists in the given time window,
- * that the center of the Sun reaches a specific ecliptic longitude as seen from the center of the Earth.
- *
- * This function can be used to determine equinoxes and solstices.
- * However, it is usually more convenient and efficient to call #Astronomy_Seasons
- * to calculate all equinoxes and solstices for a given calendar year.
- *
- * The function searches the window of time specified by `startTime` and `startTime+limitDays`.
- * The search will return an error if the Sun never reaches the longitude `targetLon` or
- * if the window is so large that the longitude ranges more than 180 degrees within it.
- * It is recommended to keep the window smaller than 10 days when possible.
- *
- * @param targetLon
- * The desired ecliptic longitude in degrees, relative to the true equinox of date.
- * This may be any value in the range [0, 360), although certain values have
- * conventional meanings:
- * 0 = March equinox, 90 = June solstice, 180 = September equinox, 270 = December solstice.
- *
- * @param startTime
- * The date and time for starting the search for the desired longitude event.
- *
- * @param limitDays
- * The real-valued number of days, which when added to `startTime`, limits the
- * range of time over which the search looks.
- * It is recommended to keep this value between 1 and 10 days.
- * See function remarks for more details.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the `time` field will contain the date and time the Sun reaches the target longitude.
- * Any other value indicates an error.
- * See remarks in #Astronomy_Search (which this function calls) for more information about possible error codes.
- */
-astro_search_result_t Astronomy_SearchSunLongitude(
- double targetLon,
- astro_time_t startTime,
- double limitDays)
-{
- astro_time_t t2 = Astronomy_AddDays(startTime, limitDays);
- return Astronomy_Search(sun_offset, &targetLon, startTime, t2, 0.01);
-}
-
-/** @cond DOXYGEN_SKIP */
-#define CALLFUNC(f,t) \
- do { \
- funcres = func(context, (t)); \
- if (funcres.status != ASTRO_SUCCESS) return SearchError(funcres.status); \
- (f) = funcres.value; \
- } while(0)
-/** @endcond */
-
-/**
- * @brief Searches for a time at which a function's value increases through zero.
- *
- * Certain astronomy calculations involve finding a time when an event occurs.
- * Often such events can be defined as the root of a function:
- * the time at which the function's value becomes zero.
- *
- * `Astronomy_Search` finds the *ascending root* of a function: the time at which
- * the function's value becomes zero while having a positive slope. That is, as time increases,
- * the function transitions from a negative value, through zero at a specific moment,
- * to a positive value later. The goal of the search is to find that specific moment.
- *
- * The search function is specified by two parameters: `func` and `context`.
- * The `func` parameter is a pointer to the function itself, which accepts a time
- * and a context containing any other arguments needed to evaluate the function.
- * The `context` parameter supplies that context for the given search.
- * As an example, a caller may wish to find the moment a celestial body reaches a certain
- * ecliptic longitude. In that case, the caller might create a structure that contains
- * an #astro_body_t member to specify the body and a `double` to hold the target longitude.
- * The function would cast the pointer `context` passed in as a pointer to that structure type.
- * It could subtract the target longitude from the actual longitude at a given time;
- * thus the difference would equal zero at the moment in time the planet reaches the
- * desired longitude.
- *
- * The `func` returns an #astro_func_result_t structure every time it is called.
- * If the returned structure has a value of `status` other than `ASTRO_SUCCESS`,
- * the search immediately fails and reports that same error code in the `status`
- * returned by `Astronomy_Search`. Otherwise, `status` is `ASTRO_SUCCESS` and
- * `value` is the value of the function, and the search proceeds until it either
- * finds the ascending root or fails for some reason.
- *
- * The search calls `func` repeatedly to rapidly narrow in on any ascending
- * root within the time window specified by `t1` and `t2`. The search never
- * reports a solution outside this time window.
- *
- * `Astronomy_Search` uses a combination of bisection and quadratic interpolation
- * to minimize the number of function calls. However, it is critical that the
- * supplied time window be small enough that there cannot be more than one root
- * (ascedning or descending) within it; otherwise the search can fail.
- * Beyond that, it helps to make the time window as small as possible, ideally
- * such that the function itself resembles a smooth parabolic curve within that window.
- *
- * If an ascending root is not found, or more than one root
- * (ascending and/or descending) exists within the window `t1`..`t2`,
- * the search will fail with status code `ASTRO_SEARCH_FAILURE`.
- *
- * If the search does not converge within 20 iterations, it will fail
- * with status code `ASTRO_NO_CONVERGE`.
- *
- * @param func
- * The function for which to find the time of an ascending root.
- * See function remarks for more details.
- *
- * @param context
- * Any ancillary data needed by the function `func` to calculate a value.
- * The data type varies depending on the function passed in.
- * For example, the function may involve a specific celestial body that
- * must be specified somehow.
- *
- * @param t1
- * The lower time bound of the search window.
- * See function remarks for more details.
- *
- * @param t2
- * The upper time bound of the search window.
- * See function remarks for more details.
- *
- * @param dt_tolerance_seconds
- * Specifies an amount of time in seconds within which a bounded ascending root
- * is considered accurate enough to stop. A typical value is 1 second.
- *
- * @return
- * If successful, the returned structure has `status` equal to `ASTRO_SUCCESS`
- * and `time` set to a value within `dt_tolerance_seconds` of an ascending root.
- * On success, the `time` value will always be in the inclusive range [`t1`, `t2`].
- * If the search fails, `status` will be set to a value other than `ASTRO_SUCCESS`.
- * See function remarks for more details.
- */
-astro_search_result_t Astronomy_Search(
- astro_search_func_t func,
- void *context,
- astro_time_t t1,
- astro_time_t t2,
- double dt_tolerance_seconds)
-{
- astro_search_result_t result;
- astro_time_t tmid;
- astro_time_t tq;
- astro_func_result_t funcres;
- double f1, f2, fmid=0.0, fq, dt_days, dt, dt_guess;
- double q_ut, q_df_dt;
- const int iter_limit = 20;
- int iter = 0;
- int calc_fmid = 1;
-
- dt_days = fabs(dt_tolerance_seconds / SECONDS_PER_DAY);
- CALLFUNC(f1, t1);
- CALLFUNC(f2, t2);
-
- for(;;)
- {
- if (++iter > iter_limit)
- return SearchError(ASTRO_NO_CONVERGE);
-
- dt = (t2.tt - t1.tt) / 2.0;
- tmid = Astronomy_AddDays(t1, dt);
- if (fabs(dt) < dt_days)
- {
- /* We are close enough to the event to stop the search. */
- result.time = tmid;
- result.status = ASTRO_SUCCESS;
- return result;
- }
-
- if (calc_fmid)
- CALLFUNC(fmid, tmid);
- else
- calc_fmid = 1; /* we already have the correct value of fmid from the previous loop */
-
- /* Quadratic interpolation: */
- /* Try to find a parabola that passes through the 3 points we have sampled: */
- /* (t1,f1), (tmid,fmid), (t2,f2) */
-
- if (QuadInterp(tmid.ut, t2.ut - tmid.ut, f1, fmid, f2, &q_ut, &q_df_dt))
- {
- tq = Astronomy_TimeFromDays(q_ut);
- CALLFUNC(fq, tq);
- if (q_df_dt != 0.0)
- {
- dt_guess = fabs(fq / q_df_dt);
- if (dt_guess < dt_days)
- {
- /* The estimated time error is small enough that we can quit now. */
- result.time = tq;
- result.status = ASTRO_SUCCESS;
- return result;
- }
-
- /* Try guessing a tighter boundary with the interpolated root at the center. */
- dt_guess *= 1.2;
- if (dt_guess < dt/10.0)
- {
- astro_time_t tleft = Astronomy_AddDays(tq, -dt_guess);
- astro_time_t tright = Astronomy_AddDays(tq, +dt_guess);
- if ((tleft.ut - t1.ut)*(tleft.ut - t2.ut) < 0)
- {
- if ((tright.ut - t1.ut)*(tright.ut - t2.ut) < 0)
- {
- double fleft, fright;
- CALLFUNC(fleft, tleft);
- CALLFUNC(fright, tright);
- if (fleft<0.0 && fright>=0.0)
- {
- f1 = fleft;
- f2 = fright;
- t1 = tleft;
- t2 = tright;
- fmid = fq;
- calc_fmid = 0; /* save a little work -- no need to re-calculate fmid next time around the loop */
- continue;
- }
- }
- }
- }
- }
- }
-
- /* After quadratic interpolation attempt. */
- /* Now just divide the region in two parts and pick whichever one appears to contain a root. */
- if (f1 < 0.0 && fmid >= 0.0)
- {
- t2 = tmid;
- f2 = fmid;
- continue;
- }
-
- if (fmid < 0.0 && f2 >= 0.0)
- {
- t1 = tmid;
- f1 = fmid;
- continue;
- }
-
- /* Either there is no ascending zero-crossing in this range */
- /* or the search window is too wide (more than one zero-crossing). */
- return SearchError(ASTRO_SEARCH_FAILURE);
- }
-}
-
-static int QuadInterp(
- double tm, double dt, double fa, double fm, double fb,
- double *out_t, double *out_df_dt)
-{
- double Q, R, S;
- double x, u, ru, x1, x2;
-
- Q = (fb + fa)/2.0 - fm;
- R = (fb - fa)/2.0;
- S = fm;
-
- if (Q == 0.0)
- {
- /* This is a line, not a parabola. */
- if (R == 0.0)
- return 0; /* This is a HORIZONTAL line... can't make progress! */
- x = -S / R;
- if (x < -1.0 || x > +1.0)
- return 0; /* out of bounds */
- }
- else
- {
- /* This really is a parabola. Find roots x1, x2. */
- u = R*R - 4*Q*S;
- if (u <= 0.0)
- return 0; /* can't solve if imaginary, or if vertex of parabola is tangent. */
-
- ru = sqrt(u);
- x1 = (-R + ru) / (2.0 * Q);
- x2 = (-R - ru) / (2.0 * Q);
- if (-1.0 <= x1 && x1 <= +1.0)
- {
- if (-1.0 <= x2 && x2 <= +1.0)
- return 0; /* two roots are within bounds; we require a unique zero-crossing. */
- x = x1;
- }
- else if (-1.0 <= x2 && x2 <= +1.0)
- x = x2;
- else
- return 0; /* neither root is within bounds */
- }
-
- *out_t = tm + x*dt;
- *out_df_dt = (2*Q*x + R) / dt;
- return 1; /* success */
-}
-
-static astro_status_t FindSeasonChange(double targetLon, int year, int month, int day, astro_time_t *time)
-{
- astro_time_t startTime;
- astro_search_result_t result;
-
- startTime = Astronomy_MakeTime(year, month, day, 0, 0, 0.0);
- result = Astronomy_SearchSunLongitude(targetLon, startTime, 20.0);
- *time = result.time;
- return result.status;
-}
-
-/**
- * @brief Finds both equinoxes and both solstices for a given calendar year.
- *
- * The changes of seasons are defined by solstices and equinoxes.
- * Given a calendar year number, this function calculates the
- * March and September equinoxes and the June and December solstices.
- *
- * The equinoxes are the moments twice each year when the plane of the
- * Earth's equator passes through the center of the Sun. In other words,
- * the Sun's declination is zero at both equinoxes.
- * The March equinox defines the beginning of spring in the northern hemisphere
- * and the beginning of autumn in the southern hemisphere.
- * The September equinox defines the beginning of autumn in the northern hemisphere
- * and the beginning of spring in the southern hemisphere.
- *
- * The solstices are the moments twice each year when one of the Earth's poles
- * is most tilted toward the Sun. More precisely, the Sun's declination reaches
- * its minimum value at the December solstice, which defines the beginning of
- * winter in the northern hemisphere and the beginning of summer in the southern
- * hemisphere. The Sun's declination reaches its maximum value at the June solstice,
- * which defines the beginning of summer in the northern hemisphere and the beginning
- * of winter in the southern hemisphere.
- *
- * @param year
- * The calendar year number for which to calculate equinoxes and solstices.
- * The value may be any integer, but only the years 1800 through 2100 have been
- * validated for accuracy: unit testing against data from the
- * United States Naval Observatory confirms that all equinoxes and solstices
- * for that range of years are within 2 minutes of the correct time.
- *
- * @return
- * The times of the four seasonal changes in the given calendar year.
- * This function should always succeed. However, to be safe, callers
- * should check the `status` field of the returned structure to make sure
- * it contains `ASTRO_SUCCESS`. Any failures indicate a bug in the algorithm
- * and should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
- */
-astro_seasons_t Astronomy_Seasons(int year)
-{
- astro_seasons_t seasons;
- astro_status_t status;
-
- seasons.status = ASTRO_SUCCESS;
-
- /*
- https://github.com/cosinekitty/astronomy/issues/187
- Solstices and equinoxes drift over long spans of time,
- due to precession of the Earth's axis.
- Therefore, we have to search a wider range of time than
- one might expect. It turns out this has very little
- effect on efficiency, thanks to the quick convergence
- of quadratic interpolation inside Astronomy_Search().
- */
-
- status = FindSeasonChange( 0, year, 3, 10, &seasons.mar_equinox);
- if (status != ASTRO_SUCCESS) seasons.status = status;
-
- status = FindSeasonChange( 90, year, 6, 10, &seasons.jun_solstice);
- if (status != ASTRO_SUCCESS) seasons.status = status;
-
- status = FindSeasonChange(180, year, 9, 10, &seasons.sep_equinox);
- if (status != ASTRO_SUCCESS) seasons.status = status;
-
- status = FindSeasonChange(270, year, 12, 10, &seasons.dec_solstice);
- if (status != ASTRO_SUCCESS) seasons.status = status;
-
- return seasons;
-}
-
-/**
- * @brief Returns the angle between the given body and the Sun, as seen from the Earth.
- *
- * This function calculates the angular separation between the given body and the Sun,
- * as seen from the center of the Earth. This angle is helpful for determining how
- * easy it is to see the body away from the glare of the Sun.
- *
- * @param body
- * The celestial body whose angle from the Sun is to be measured.
- * Not allowed to be `BODY_EARTH`.
- *
- * @param time
- * The time at which the observation is made.
- *
- * @return
- * If successful, the returned structure contains `ASTRO_SUCCESS` in the `status` field
- * and `angle` holds the angle in degrees between the Sun and the specified body as
- * seen from the center of the Earth.
- * If an error occurs, the `status` field contains a value other than `ASTRO_SUCCESS`
- * that indicates the error condition.
- */
-astro_angle_result_t Astronomy_AngleFromSun(astro_body_t body, astro_time_t time)
-{
- astro_vector_t sv, bv;
-
- if (body == BODY_EARTH)
- return AngleError(ASTRO_EARTH_NOT_ALLOWED);
-
- sv = Astronomy_GeoVector(BODY_SUN, time, ABERRATION);
- if (sv.status != ASTRO_SUCCESS)
- return AngleError(sv.status);
-
- bv = Astronomy_GeoVector(body, time, ABERRATION);
- if (bv.status != ASTRO_SUCCESS)
- return AngleError(bv.status);
-
- return Astronomy_AngleBetween(sv, bv);
-}
-
-/**
- * @brief
- * Determines visibility of a celestial body relative to the Sun, as seen from the Earth.
- *
- * This function returns an #astro_elongation_t structure, which provides the following
- * information about the given celestial body at the given time:
- *
- * - `visibility` is an enumerated type that specifies whether the body is more easily seen
- * in the morning before sunrise, or in the evening after sunset.
- *
- * - `elongation` is the angle in degrees between two vectors: one from the center of the Earth to the
- * center of the Sun, the other from the center of the Earth to the center of the specified body.
- * This angle indicates how far away the body is from the glare of the Sun.
- * The elongation angle is always in the range [0, 180].
- *
- * - `ecliptic_separation` is the absolute value of the difference between the body's ecliptic longitude
- * and the Sun's ecliptic longitude, both as seen from the center of the Earth. This angle measures
- * around the plane of the Earth's orbit, and ignores how far above or below that plane the body is.
- * The ecliptic separation is measured in degrees and is always in the range [0, 180].
- *
- * @param body
- * The celestial body whose visibility is to be calculated.
- *
- * @param time
- * The date and time of the observation.
- *
- * @return
- * If successful, the `status` field in the returned structure contains `ASTRO_SUCCESS`
- * and all the other fields in the structure are valid. On failure, `status` contains
- * some other value as an error code and the other fields contain invalid values.
- */
-astro_elongation_t Astronomy_Elongation(astro_body_t body, astro_time_t time)
-{
- astro_elongation_t result;
- astro_angle_result_t angres;
-
- angres = Astronomy_PairLongitude(body, BODY_SUN, time);
- if (angres.status != ASTRO_SUCCESS)
- return ElongError(angres.status);
-
- if (angres.angle > 180.0)
- {
- result.visibility = VISIBLE_MORNING;
- result.ecliptic_separation = 360.0 - angres.angle;
- }
- else
- {
- result.visibility = VISIBLE_EVENING;
- result.ecliptic_separation = angres.angle;
- }
-
- angres = Astronomy_AngleFromSun(body, time);
- if (angres.status != ASTRO_SUCCESS)
- return ElongError(angres.status);
-
- result.elongation = angres.angle;
- result.time = time;
- result.status = ASTRO_SUCCESS;
-
- return result;
-}
-
-static astro_func_result_t neg_elong_slope(void *context, astro_time_t time)
-{
- static const double dt = 0.1;
- astro_angle_result_t e1, e2;
- astro_func_result_t result;
- astro_body_t body = *((astro_body_t *)context);
- astro_time_t t1 = Astronomy_AddDays(time, -dt/2.0);
- astro_time_t t2 = Astronomy_AddDays(time, +dt/2.0);
-
- e1 = Astronomy_AngleFromSun(body, t1);
- if (e1.status != ASTRO_SUCCESS)
- return FuncError(e1.status);
-
- e2 = Astronomy_AngleFromSun(body, t2);
- if (e2.status)
- return FuncError(e2.status);
-
- result.value = (e1.angle - e2.angle)/dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Finds a date and time when Mercury or Venus reaches its maximum angle from the Sun as seen from the Earth.
- *
- * Mercury and Venus are are often difficult to observe because they are closer to the Sun than the Earth is.
- * Mercury especially is almost always impossible to see because it gets lost in the Sun's glare.
- * The best opportunities for spotting Mercury, and the best opportunities for viewing Venus through
- * a telescope without atmospheric interference, are when these planets reach maximum elongation.
- * These are events where the planets reach the maximum angle from the Sun as seen from the Earth.
- *
- * This function solves for those times, reporting the next maximum elongation event's date and time,
- * the elongation value itself, the relative longitude with the Sun, and whether the planet is best
- * observed in the morning or evening. See #Astronomy_Elongation for more details about the returned structure.
- *
- * @param body
- * Either `BODY_MERCURY` or `BODY_VENUS`. Any other value will fail with the error `ASTRO_INVALID_BODY`.
- * To find the best viewing opportunites for planets farther from the Sun than the Earth is (Mars through Pluto)
- * use #Astronomy_SearchRelativeLongitude to find the next opposition event.
- *
- * @param startTime
- * The date and time at which to begin the search. The maximum elongation event found will always
- * be the first one that occurs after this date and time.
- *
- * @return
- * If successful, the `status` field of the returned structure will be `ASTRO_SUCCESS`
- * and the other structure fields will be valid. Otherwise, `status` will contain
- * some other value indicating an error.
- */
-astro_elongation_t Astronomy_SearchMaxElongation(astro_body_t body, astro_time_t startTime)
-{
- double s1, s2;
- int iter;
- astro_angle_result_t plon, elon;
- astro_time_t t_start;
- double rlon, rlon_lo, rlon_hi, adjust_days;
- astro_func_result_t syn;
- astro_search_result_t search1, search2, searchx;
- astro_time_t t1, t2;
- astro_func_result_t m1, m2;
-
- /* Determine the range of relative longitudes within which maximum elongation can occur for this planet. */
- switch (body)
- {
- case BODY_MERCURY:
- s1 = 50.0;
- s2 = 85.0;
- break;
-
- case BODY_VENUS:
- s1 = 40.0;
- s2 = 50.0;
- break;
-
- default:
- /* SearchMaxElongation works for Mercury and Venus only. */
- return ElongError(ASTRO_INVALID_BODY);
- }
-
- syn = SynodicPeriod(body);
- if (syn.status != ASTRO_SUCCESS)
- return ElongError(syn.status);
-
- iter = 0;
- while (++iter <= 2)
- {
- plon = Astronomy_EclipticLongitude(body, startTime);
- if (plon.status != ASTRO_SUCCESS)
- return ElongError(plon.status);
-
- elon = Astronomy_EclipticLongitude(BODY_EARTH, startTime);
- if (elon.status != ASTRO_SUCCESS)
- return ElongError(elon.status);
-
- rlon = LongitudeOffset(plon.angle - elon.angle); /* clamp to (-180, +180] */
-
- /* The slope function is not well-behaved when rlon is near 0 degrees or 180 degrees */
- /* because there is a cusp there that causes a discontinuity in the derivative. */
- /* So we need to guard against searching near such times. */
- if (rlon >= -s1 && rlon < +s1)
- {
- /* Seek to the window [+s1, +s2]. */
- adjust_days = 0.0;
- /* Search forward for the time t1 when rel lon = +s1. */
- rlon_lo = +s1;
- /* Search forward for the time t2 when rel lon = +s2. */
- rlon_hi = +s2;
- }
- else if (rlon > +s2 || rlon < -s2)
- {
- /* Seek to the next search window at [-s2, -s1]. */
- adjust_days = 0.0;
- /* Search forward for the time t1 when rel lon = -s2. */
- rlon_lo = -s2;
- /* Search forward for the time t2 when rel lon = -s1. */
- rlon_hi = -s1;
- }
- else if (rlon >= 0.0)
- {
- /* rlon must be in the middle of the window [+s1, +s2]. */
- /* Search BACKWARD for the time t1 when rel lon = +s1. */
- adjust_days = -syn.value / 4.0;
- rlon_lo = +s1;
- rlon_hi = +s2;
- /* Search forward from t1 to find t2 such that rel lon = +s2. */
- }
- else
- {
- /* rlon must be in the middle of the window [-s2, -s1]. */
- /* Search BACKWARD for the time t1 when rel lon = -s2. */
- adjust_days = -syn.value / 4.0;
- rlon_lo = -s2;
- /* Search forward from t1 to find t2 such that rel lon = -s1. */
- rlon_hi = -s1;
- }
-
- t_start = Astronomy_AddDays(startTime, adjust_days);
-
- search1 = Astronomy_SearchRelativeLongitude(body, rlon_lo, t_start);
- if (search1.status != ASTRO_SUCCESS)
- return ElongError(search1.status);
- t1 = search1.time;
-
- search2 = Astronomy_SearchRelativeLongitude(body, rlon_hi, t1);
- if (search2.status != ASTRO_SUCCESS)
- return ElongError(search2.status);
- t2 = search2.time;
-
- /* Now we have a time range [t1,t2] that brackets a maximum elongation event. */
- /* Confirm the bracketing. */
- m1 = neg_elong_slope(&body, t1);
- if (m1.status != ASTRO_SUCCESS)
- return ElongError(m1.status);
-
- if (m1.value >= 0)
- return ElongError(ASTRO_INTERNAL_ERROR); /* there is a bug in the bracketing algorithm! */
-
- m2 = neg_elong_slope(&body, t2);
- if (m2.status != ASTRO_SUCCESS)
- return ElongError(m2.status);
-
- if (m2.value <= 0)
- return ElongError(ASTRO_INTERNAL_ERROR); /* there is a bug in the bracketing algorithm! */
-
- /* Use the generic search algorithm to home in on where the slope crosses from negative to positive. */
- searchx = Astronomy_Search(neg_elong_slope, &body, t1, t2, 10.0);
- if (searchx.status != ASTRO_SUCCESS)
- return ElongError(searchx.status);
-
- if (searchx.time.tt >= startTime.tt)
- return Astronomy_Elongation(body, searchx.time);
-
- /* This event is in the past (earlier than startTime). */
- /* We need to search forward from t2 to find the next possible window. */
- /* We never need to search more than twice. */
- startTime = Astronomy_AddDays(t2, 1.0);
- }
-
- return ElongError(ASTRO_SEARCH_FAILURE);
-}
-
-
-/**
- * @brief Returns one body's ecliptic longitude with respect to another, as seen from the Earth.
- *
- * This function determines where one body appears around the ecliptic plane
- * (the plane of the Earth's orbit around the Sun) as seen from the Earth,
- * relative to the another body's apparent position.
- * The function returns an angle in the half-open range [0, 360) degrees.
- * The value is the ecliptic longitude of `body1` relative to the ecliptic
- * longitude of `body2`.
- *
- * The angle is 0 when the two bodies are at the same ecliptic longitude
- * as seen from the Earth. The angle increases in the prograde direction
- * (the direction that the planets orbit the Sun and the Moon orbits the Earth).
- *
- * When the angle is 180 degrees, it means the two bodies appear on opposite sides
- * of the sky for an Earthly observer.
- *
- * Neither `body1` nor `body2` is allowed to be `BODY_EARTH`.
- * If this happens, the function fails with the error code `ASTRO_EARTH_NOT_ALLOWED`.
- *
- * @param body1
- * The first body, whose longitude is to be found relative to the second body.
- *
- * @param body2
- * The second body, relative to which the longitude of the first body is to be found.
- *
- * @param time
- * The date and time of the observation.
- *
- * @return
- * On success, the `status` field in the returned structure holds `ASTRO_SUCCESS` and
- * the `angle` field holds a value in the range [0, 360).
- * On failure, the `status` field contains some other value indicating an error condition.
- */
-astro_angle_result_t Astronomy_PairLongitude(
- astro_body_t body1,
- astro_body_t body2,
- astro_time_t time)
-{
- astro_vector_t vector1, vector2;
- astro_ecliptic_t eclip1, eclip2;
- astro_angle_result_t result;
-
- if (body1 == BODY_EARTH || body2 == BODY_EARTH)
- return AngleError(ASTRO_EARTH_NOT_ALLOWED);
-
- vector1 = Astronomy_GeoVector(body1, time, NO_ABERRATION);
- eclip1 = Astronomy_Ecliptic(vector1); /* checks for errors in vector1 */
- if (eclip1.status != ASTRO_SUCCESS)
- return AngleError(eclip1.status);
-
- vector2 = Astronomy_GeoVector(body2, time, NO_ABERRATION);
- eclip2 = Astronomy_Ecliptic(vector2); /* checks for errors in vector2 */
- if (eclip2.status != ASTRO_SUCCESS)
- return AngleError(eclip2.status);
-
- result.status = ASTRO_SUCCESS;
- result.angle = NormalizeLongitude(eclip1.elon - eclip2.elon);
- return result;
-}
-
-
-/**
- * @brief
- * Returns the Moon's phase as an angle from 0 to 360 degrees.
- *
- * This function determines the phase of the Moon using its apparent
- * ecliptic longitude relative to the Sun, as seen from the center of the Earth.
- * Certain values of the angle have conventional definitions:
- *
- * - 0 = new moon
- * - 90 = first quarter
- * - 180 = full moon
- * - 270 = third quarter
- *
- * @param time
- * The date and time of the observation.
- *
- * @return
- * On success, the function returns the angle as described in the function remarks
- * in the `angle` field and `ASTRO_SUCCESS` in the `status` field.
- * The function should always succeed, but it is a good idea for callers to check
- * the `status` field in the returned structure.
- * Any other value in `status` indicates a failure that should be
- * [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
- */
-astro_angle_result_t Astronomy_MoonPhase(astro_time_t time)
-{
- return Astronomy_PairLongitude(BODY_MOON, BODY_SUN, time);
-}
-
-static astro_func_result_t moon_offset(void *context, astro_time_t time)
-{
- astro_func_result_t result;
- double targetLon = *((double *)context);
- astro_angle_result_t angres = Astronomy_MoonPhase(time);
- if (angres.status != ASTRO_SUCCESS)
- return FuncError(angres.status);
- result.value = LongitudeOffset(angres.angle - targetLon);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Searches for the time that the Moon reaches a specified phase.
- *
- * Lunar phases are conventionally defined in terms of the Moon's geocentric ecliptic
- * longitude with respect to the Sun's geocentric ecliptic longitude.
- * When the Moon and the Sun have the same longitude, that is defined as a new moon.
- * When their longitudes are 180 degrees apart, that is defined as a full moon.
- *
- * This function searches for any value of the lunar phase expressed as an
- * angle in degrees in the range [0, 360).
- *
- * If you want to iterate through lunar quarters (new moon, first quarter, full moon, third quarter)
- * it is much easier to call the functions #Astronomy_SearchMoonQuarter and #Astronomy_NextMoonQuarter.
- * This function is useful for finding general phase angles outside those four quarters.
- *
- * @param targetLon
- * The difference in geocentric longitude between the Sun and Moon
- * that specifies the lunar phase being sought. This can be any value
- * in the range [0, 360). Certain values have conventional names:
- * 0 = new moon, 90 = first quarter, 180 = full moon, 270 = third quarter.
- *
- * @param startTime
- * The beginning of the time window in which to search for the Moon reaching the specified phase.
- *
- * @param limitDays
- * The number of days away from `startTime` that limits the time window for the search.
- * If the value is negative, the search is performed into the past from `startTime`.
- * Otherwise, the search is performed into the future from `startTime`.
- *
- * @return
- * On success, the `status` field in the returned structure holds `ASTRO_SUCCESS` and
- * the `time` field holds the date and time when the Moon reaches the target longitude.
- * On failure, `status` holds some other value as an error code.
- * One possible error code is `ASTRO_NO_MOON_QUARTER` if `startTime` and `limitDays`
- * do not enclose the desired event. See remarks in #Astronomy_Search for other possible
- * error codes.
- */
-astro_search_result_t Astronomy_SearchMoonPhase(double targetLon, astro_time_t startTime, double limitDays)
-{
- /*
- To avoid discontinuities in the moon_offset function causing problems,
- we need to approximate when that function will next return 0.
- We probe it with the start time and take advantage of the fact
- that every lunar phase repeats roughly every 29.5 days.
- There is a surprising uncertainty in the quarter timing,
- due to the eccentricity of the moon's orbit.
- I have seen more than 0.9 days away from the simple prediction.
- To be safe, we take the predicted time of the event and search
- +/-1.5 days around it (a 3-day wide window).
- Return ASTRO_NO_MOON_QUARTER if the final result goes beyond limitDays after startTime.
- */
- const double uncertainty = 1.5;
- astro_func_result_t funcres;
- double ya, est_dt, dt1, dt2;
- astro_time_t t1, t2;
-
- funcres = moon_offset(&targetLon, startTime);
- if (funcres.status != ASTRO_SUCCESS)
- return SearchError(funcres.status);
-
- ya = funcres.value;
- if (limitDays < 0.0)
- {
- /* Search backward in time. */
- if (ya < 0.0) ya += 360.0;
- est_dt = -(MEAN_SYNODIC_MONTH * ya) / 360.0;
- dt1 = est_dt - uncertainty;
- dt2 = est_dt + uncertainty;
- if (dt2 < limitDays)
- return SearchError(ASTRO_NO_MOON_QUARTER); /* not possible for moon phase to occur within specified window (too short) */
- if (dt1 < limitDays)
- dt1 = limitDays;
- }
- else
- {
- /* Search forward in time. */
- if (ya > 0.0) ya -= 360.0;
- est_dt = -(MEAN_SYNODIC_MONTH * ya) / 360.0;
- dt1 = est_dt - uncertainty;
- dt2 = est_dt + uncertainty;
- if (dt1 > limitDays)
- return SearchError(ASTRO_NO_MOON_QUARTER); /* not possible for moon phase to occur within specified window (too short) */
- if (dt2 > limitDays)
- dt2 = limitDays;
- }
- t1 = Astronomy_AddDays(startTime, dt1);
- t2 = Astronomy_AddDays(startTime, dt2);
- return Astronomy_Search(moon_offset, &targetLon, t1, t2, 0.1);
-}
-
-/**
- * @brief
- * Finds the first lunar quarter after the specified date and time.
- *
- * A lunar quarter is one of the following four lunar phase events:
- * new moon, first quarter, full moon, third quarter.
- * This function finds the lunar quarter that happens soonest
- * after the specified date and time.
- *
- * To continue iterating through consecutive lunar quarters, call this function once,
- * followed by calls to #Astronomy_NextMoonQuarter as many times as desired.
- *
- * @param startTime
- * The date and time at which to start the search.
- *
- * @return
- * This function should always succeed, indicated by the `status` field
- * in the returned structure holding `ASTRO_SUCCESS`. Any other value indicates
- * an internal error, which should be [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
- * To be safe, calling code should always check the `status` field for errors.
- */
-astro_moon_quarter_t Astronomy_SearchMoonQuarter(astro_time_t startTime)
-{
- astro_moon_quarter_t mq;
- astro_angle_result_t angres;
- astro_search_result_t srchres;
-
- /* Determine what the next quarter phase will be. */
- angres = Astronomy_MoonPhase(startTime);
- if (angres.status != ASTRO_SUCCESS)
- return MoonQuarterError(angres.status);
-
- mq.quarter = (1 + (int)floor(angres.angle / 90.0)) % 4;
- srchres = Astronomy_SearchMoonPhase(90.0 * mq.quarter, startTime, 10.0);
- if (srchres.status != ASTRO_SUCCESS)
- return MoonQuarterError(srchres.status);
-
- mq.status = ASTRO_SUCCESS;
- mq.time = srchres.time;
- return mq;
-}
-
-/**
- * @brief
- * Continues searching for lunar quarters from a previous search.
- *
- * After calling #Astronomy_SearchMoonQuarter, this function can be called
- * one or more times to continue finding consecutive lunar quarters.
- * This function finds the next consecutive moon quarter event after the one passed in as the parameter `mq`.
- *
- * @param mq
- * A value returned by a prior call to #Astronomy_SearchMoonQuarter or #Astronomy_NextMoonQuarter.
- *
- * @return
- * If `mq` is valid, this function should always succeed, indicated by the `status` field
- * in the returned structure holding `ASTRO_SUCCESS`. Any other value indicates
- * an internal error, which (after confirming that `mq` is valid) should be
- * [reported as an issue](https://github.com/cosinekitty/astronomy/issues).
- * To be safe, calling code should always check the `status` field for errors.
- */
-astro_moon_quarter_t Astronomy_NextMoonQuarter(astro_moon_quarter_t mq)
-{
- astro_time_t time;
- astro_moon_quarter_t next_mq;
-
- if (mq.status != ASTRO_SUCCESS)
- return MoonQuarterError(ASTRO_INVALID_PARAMETER);
-
- /* Skip 6 days past the previous found moon quarter to find the next one. */
- /* This is less than the minimum possible increment. */
- /* So far I have seen the interval well contained by the range (6.5, 8.3) days. */
-
- time = Astronomy_AddDays(mq.time, 6.0);
- next_mq = Astronomy_SearchMoonQuarter(time);
- if (next_mq.status == ASTRO_SUCCESS)
- {
- /* Verify that we found the expected moon quarter. */
- if (next_mq.quarter != (1 + mq.quarter) % 4)
- return MoonQuarterError(ASTRO_WRONG_MOON_QUARTER); /* internal error! we found the wrong moon quarter */
- }
- return next_mq;
-}
-
-static astro_func_result_t rlon_offset(astro_body_t body, astro_time_t time, int direction, double targetRelLon)
-{
- astro_func_result_t result;
- astro_angle_result_t plon, elon;
- double diff;
-
- plon = Astronomy_EclipticLongitude(body, time);
- if (plon.status != ASTRO_SUCCESS)
- return FuncError(plon.status);
-
- elon = Astronomy_EclipticLongitude(BODY_EARTH, time);
- if (elon.status != ASTRO_SUCCESS)
- return FuncError(elon.status);
-
- diff = direction * (elon.angle - plon.angle);
- result.value = LongitudeOffset(diff - targetRelLon);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Searches for the time when the Earth and another planet are separated by a specified angle
- * in ecliptic longitude, as seen from the Sun.
- *
- * A relative longitude is the angle between two bodies measured in the plane of the Earth's orbit
- * (the ecliptic plane). The distance of the bodies above or below the ecliptic plane is ignored.
- * If you imagine the shadow of the body cast onto the ecliptic plane, and the angle measured around
- * that plane from one body to the other in the direction the planets orbit the Sun, you will get an
- * angle somewhere between 0 and 360 degrees. This is the relative longitude.
- *
- * Given a planet other than the Earth in `body` and a time to start the search in `startTime`,
- * this function searches for the next time that the relative longitude measured from the planet
- * to the Earth is `targetRelLon`.
- *
- * Certain astronomical events are defined in terms of relative longitude between the Earth and another planet:
- *
- * - When the relative longitude is 0 degrees, it means both planets are in the same direction from the Sun.
- * For planets that orbit closer to the Sun (Mercury and Venus), this is known as *inferior conjunction*,
- * a time when the other planet becomes very difficult to see because of being lost in the Sun's glare.
- * (The only exception is in the rare event of a transit, when we see the silhouette of the planet passing
- * between the Earth and the Sun.)
- *
- * - When the relative longitude is 0 degrees and the other planet orbits farther from the Sun,
- * this is known as *opposition*. Opposition is when the planet is closest to the Earth, and
- * also when it is visible for most of the night, so it is considered the best time to observe the planet.
- *
- * - When the relative longitude is 180 degrees, it means the other planet is on the opposite side of the Sun
- * from the Earth. This is called *superior conjunction*. Like inferior conjunction, the planet is
- * very difficult to see from the Earth. Superior conjunction is possible for any planet other than the Earth.
- *
- * @param body
- * A planet other than the Earth. If `body` is not a planet other than the Earth, an error occurs.
- *
- * @param targetRelLon
- * The desired relative longitude, expressed in degrees. Must be in the range [0, 360).
- *
- * @param startTime
- * The date and time at which to begin the search.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and `time` will hold the date and time of the relative longitude event.
- * Otherwise `status` will hold some other value that indicates an error condition.
- */
-astro_search_result_t Astronomy_SearchRelativeLongitude(astro_body_t body, double targetRelLon, astro_time_t startTime)
-{
- astro_search_result_t result;
- astro_func_result_t syn;
- astro_func_result_t error_angle;
- double prev_angle;
- astro_time_t time;
- int iter, direction;
-
- if (body == BODY_EARTH)
- return SearchError(ASTRO_EARTH_NOT_ALLOWED);
-
- if (body == BODY_MOON || body == BODY_SUN)
- return SearchError(ASTRO_INVALID_BODY);
-
- syn = SynodicPeriod(body);
- if (syn.status != ASTRO_SUCCESS)
- return SearchError(syn.status);
-
- direction = IsSuperiorPlanet(body) ? +1 : -1;
-
- /* Iterate until we converge on the desired event. */
- /* Calculate the error angle, which will be a negative number of degrees, */
- /* meaning we are "behind" the target relative longitude. */
-
- error_angle = rlon_offset(body, startTime, direction, targetRelLon);
- if (error_angle.status != ASTRO_SUCCESS)
- return SearchError(error_angle.status);
-
- if (error_angle.value > 0)
- error_angle.value -= 360; /* force searching forward in time */
-
- time = startTime;
- for (iter = 0; iter < 100; ++iter)
- {
- /* Estimate how many days in the future (positive) or past (negative) */
- /* we have to go to get closer to the target relative longitude. */
- double day_adjust = (-error_angle.value/360.0) * syn.value;
- time = Astronomy_AddDays(time, day_adjust);
- if (fabs(day_adjust) * SECONDS_PER_DAY < 1.0)
- {
- result.time = time;
- result.status = ASTRO_SUCCESS;
- return result;
- }
-
- prev_angle = error_angle.value;
- error_angle = rlon_offset(body, time, direction, targetRelLon);
- if (error_angle.status != ASTRO_SUCCESS)
- return SearchError(error_angle.status);
-
- if (fabs(prev_angle) < 30.0 && (prev_angle != error_angle.value))
- {
- /* Improve convergence for Mercury/Mars (eccentric orbits) */
- /* by adjusting the synodic period to more closely match the */
- /* variable speed of both planets in this part of their respective orbits. */
- double ratio = prev_angle / (prev_angle - error_angle.value);
- if (ratio > 0.5 && ratio < 2.0)
- syn.value *= ratio;
- }
- }
-
- return SearchError(ASTRO_NO_CONVERGE);
-}
-
-/**
- * @brief Searches for the time when the center of a body reaches a specified hour angle as seen by an observer on the Earth.
- *
- * The *hour angle* of a celestial body indicates its position in the sky with respect
- * to the Earth's rotation. The hour angle depends on the location of the observer on the Earth.
- * The hour angle is 0 when the body's center reaches its highest angle above the horizon in a given day.
- * The hour angle increases by 1 unit for every sidereal hour that passes after that point, up
- * to 24 sidereal hours when it reaches the highest point again. So the hour angle indicates
- * the number of hours that have passed since the most recent time that the body has culminated,
- * or reached its highest point.
- *
- * This function searches for the next or previous time a celestial body reaches the given hour angle
- * relative to the date and time specified by `startTime`.
- * To find when a body culminates, pass 0 for `hourAngle`.
- * To find when a body reaches its lowest point in the sky, pass 12 for `hourAngle`.
- *
- * Note that, especially close to the Earth's poles, a body as seen on a given day
- * may always be above the horizon or always below the horizon, so the caller cannot
- * assume that a culminating object is visible nor that an object is below the horizon
- * at its minimum altitude.
- *
- * On success, the function reports the date and time, along with the horizontal coordinates
- * of the body at that time, as seen by the given observer.
- *
- * @param body
- * The Sun, Moon, any planet other than the Earth,
- * or a user-defined star that was created by a call to #Astronomy_DefineStar.
- *
- * @param observer
- * Indicates a location on or near the surface of the Earth where the observer is located.
- * Call #Astronomy_MakeObserver to create an observer structure.
- *
- * @param hourAngle
- * An hour angle value in the range [0, 24) indicating the number of sidereal hours after the
- * body's most recent culmination.
- *
- * @param startTime
- * The date and time at which to start the search.
- *
- * @param direction
- * The direction in time to perform the search: a positive value
- * searches forward in time, a negative value searches backward in time.
- * The function will fail with `ASTRO_INVALID_PARAMETER` if `direction` is zero.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`
- * and the other structure fields are valid. Otherwise, `status` holds some other value
- * that indicates an error condition.
- */
-astro_hour_angle_t Astronomy_SearchHourAngleEx(
- astro_body_t body,
- astro_observer_t observer,
- double hourAngle,
- astro_time_t startTime,
- int direction)
-{
- int iter = 0;
- astro_time_t time;
- astro_equatorial_t ofdate;
- astro_hour_angle_t result;
- double delta_sidereal_hours, delta_days, gast;
-
- if (body == BODY_EARTH)
- return HourAngleError(ASTRO_EARTH_NOT_ALLOWED);
-
- if (hourAngle < 0.0 || hourAngle >= 24.0)
- return HourAngleError(ASTRO_INVALID_PARAMETER);
-
- if (direction == 0)
- return HourAngleError(ASTRO_INVALID_PARAMETER);
-
- time = startTime;
- for(;;)
- {
- ++iter;
-
- /* Calculate Greenwich Apparent Sidereal Time (GAST) at the given time. */
- gast = Astronomy_SiderealTime(&time);
-
- /* Obtain equatorial coordinates of date for the body. */
- ofdate = Astronomy_Equator(body, &time, observer, EQUATOR_OF_DATE, ABERRATION);
- if (ofdate.status != ASTRO_SUCCESS)
- return HourAngleError(ofdate.status);
-
- /* Calculate the adjustment needed in sidereal time */
- /* to bring the hour angle to the desired value. */
-
- delta_sidereal_hours = fmod((hourAngle + ofdate.ra - observer.longitude/15) - gast, 24.0);
- if (iter == 1)
- {
- /* On the first iteration, always search the requested time direction. */
- if (direction > 0)
- {
- /* Search forward in time. */
- if (delta_sidereal_hours < 0.0)
- delta_sidereal_hours += 24.0;
- }
- else
- {
- /* Search backward in time. */
- if (delta_sidereal_hours > 0.0)
- delta_sidereal_hours -= 24.0;
- }
- }
- else
- {
- /* On subsequent iterations, we make the smallest possible adjustment, */
- /* either forward or backward in time. */
- if (delta_sidereal_hours < -12.0)
- delta_sidereal_hours += 24.0;
- else if (delta_sidereal_hours > +12.0)
- delta_sidereal_hours -= 24.0;
- }
-
- /* If the error is tolerable (less than 0.1 seconds), the search has succeeded. */
- if (fabs(delta_sidereal_hours) * 3600.0 < 0.1)
- {
- result.hor = Astronomy_Horizon(&time, observer, ofdate.ra, ofdate.dec, REFRACTION_NORMAL);
- result.time = time;
- result.status = ASTRO_SUCCESS;
- return result;
- }
-
- /* We need to loop another time to get more accuracy. */
- /* Update the terrestrial time (in solar days) adjusting by sidereal time (sidereal hours). */
- delta_days = (delta_sidereal_hours / 24.0) * SOLAR_DAYS_PER_SIDEREAL_DAY;
- time = Astronomy_AddDays(time, delta_days);
- }
-}
-
-
-/**
- * @brief Finds the hour angle of a body for a given observer and time.
- *
- * The *hour angle* of a celestial body indicates its position in the sky with respect
- * to the Earth's rotation. The hour angle depends on the location of the observer on the Earth.
- * The hour angle is 0 when the body's center reaches its highest angle above the horizon in a given day.
- * The hour angle increases by 1 unit for every sidereal hour that passes after that point, up
- * to 24 sidereal hours when it reaches the highest point again. So the hour angle indicates
- * the number of hours that have passed since the most recent time that the body has culminated,
- * or reached its highest point.
- *
- * @param body
- * The body whose observed hour angle is to be found.
- *
- * @param time
- * The time of the observation.
- *
- * @param observer
- * The geographic location where the observation takes place.
- *
- * @return astro_func_result_t
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`
- * and `value` holds the hour angle in the half-open range [0, 24).
- * Otherwise, `status` is an error code that indicates failure.
- */
-astro_func_result_t Astronomy_HourAngle(astro_body_t body, astro_time_t *time, astro_observer_t observer)
-{
- astro_func_result_t result;
- astro_equatorial_t ofdate;
- double gast;
-
- if (time == NULL)
- return FuncError(ASTRO_INVALID_PARAMETER);
-
- /* Calculate Greenwich Apparent Sidereal Time (GAST) at the given time. */
- gast = Astronomy_SiderealTime(time);
-
- /* Obtain equatorial coordinates of date for the body. */
- ofdate = Astronomy_Equator(body, time, observer, EQUATOR_OF_DATE, ABERRATION);
- if (ofdate.status != ASTRO_SUCCESS)
- return FuncError(ofdate.status);
-
- result.value = fmod(observer.longitude/15 + gast - ofdate.ra, 24.0);
- if (result.value < 0.0)
- result.value += 24.0;
- result.status = ASTRO_SUCCESS;
-
- return result;
-}
-
-
-/** @cond DOXYGEN_SKIP */
-
-typedef struct
-{
- astro_body_t body;
- int direction; // search option: +1 = rise, -1 = set
- astro_observer_t observer;
- double body_radius_au;
- double target_altitude;
-}
-context_altitude_t;
-
-static const double RISE_SET_DT = 0.42; /* 10.08 hours: Nyquist-safe for 22-hour period. */
-
-typedef struct
-{
- astro_status_t status;
- astro_time_t tx;
- astro_time_t ty;
- double ax;
- double ay;
-}
-ascent_t;
-
-int _AltitudeDiffCallCount;
-int _FindAscentMaxRecursionDepth;
-
-/** @endcond */
-
-static astro_func_result_t altitude_diff(void *context, astro_time_t time)
-{
- astro_func_result_t result;
- astro_equatorial_t ofdate;
- astro_horizon_t hor;
- double altitude;
- const context_altitude_t *p = (const context_altitude_t *)context;
-
- ++_AltitudeDiffCallCount; /* for internal performance testing */
-
- ofdate = Astronomy_Equator(p->body, &time, p->observer, EQUATOR_OF_DATE, ABERRATION);
- if (ofdate.status != ASTRO_SUCCESS)
- return FuncError(ofdate.status);
-
- hor = Astronomy_Horizon(&time, p->observer, ofdate.ra, ofdate.dec, REFRACTION_NONE);
- altitude = hor.altitude + RAD2DEG*asin(p->body_radius_au / ofdate.dist);
- result.value = p->direction*(altitude - p->target_altitude);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static ascent_t AscentError(astro_status_t status)
-{
- ascent_t ascent;
- ascent.ax = ascent.ay = NAN;
- ascent.tx = ascent.ty = TimeError();
- ascent.status = status;
- return ascent;
-}
-
-
-static ascent_t FindAscent(
- int depth,
- context_altitude_t *context,
- double max_deriv_alt,
- astro_time_t t1,
- astro_time_t t2,
- double a1,
- double a2)
-{
- ascent_t ascent;
- double da, dt, abs_a1, abs_a2;
- astro_time_t tm;
- astro_func_result_t alt;
-
- /* For internal performance testing. */
- if (depth > _FindAscentMaxRecursionDepth)
- _FindAscentMaxRecursionDepth = depth;
-
- /* See if we can find any time interval where the altitude-diff function */
- /* rises from non-positive to positive. */
- /* Return ASTRO_SUCCESS if we do, ASTRO_SEARCH_FAILURE if we don't, or some other status for error cases. */
-
- if (a1 < 0.0 && a2 >= 0.0)
- {
- /* Trivial success case: the endpoints already rise through zero. */
- ascent.status = ASTRO_SUCCESS;
- ascent.tx = t1;
- ascent.ty = t2;
- ascent.ax = a1;
- ascent.ay = a2;
- return ascent;
- }
-
- if (a1 >= 0.0 && a2 < 0.0)
- {
- /* Trivial failure case: Assume Nyquist condition prevents an ascent. */
- return AscentError(ASTRO_SEARCH_FAILURE);
- }
-
- if (depth > 17)
- {
- /*
- Safety valve: do not allow unlimited recursion.
- This should never happen if the rest of the logic is working correctly,
- so fail the whole search if it does happen. It's a bug!
- */
- return AscentError(ASTRO_NO_CONVERGE);
- }
-
- /*
- Both altitudes are on the same side of zero: both are negative, or both are non-negative.
- There could be a convex "hill" or a concave "valley" that passes through zero.
- In polar regions sometimes there is a rise/set or set/rise pair within minutes of each other.
- For example, the Moon can be below the horizon, then the very top of it becomes
- visible (moonrise) for a few minutes, then it moves sideways and down below
- the horizon again (moonset). We want to catch these cases.
- However, for efficiency and practicality concerns, because the rise/set search itself
- has a 0.1 second threshold, we do not worry about rise/set pairs that are less than
- one second apart. These are marginal cases that are rendered highly uncertain
- anyway, due to unpredictable atmospheric refraction conditions (air temperature and pressure).
- */
- dt = (t2.ut - t1.ut) / 2;
- if (dt * SECONDS_PER_DAY < 1.0)
- return AscentError(ASTRO_SEARCH_FAILURE);
-
- /* Is it possible to reach zero from the altitude that is closer to zero? */
- abs_a1 = fabs(a1);
- abs_a2 = fabs(a2);
- da = (abs_a1 < abs_a2) ? abs_a1 : abs_a2;
-
- /*
- Without loss of generality, assume |a1| <= |a2|.
- (Reverse the argument in the case |a2| < |a1|.)
- Imagine you have to "drive" from a1 to 0, then back to a2.
- You can't go faster than max_deriv_alt. If you can't reach 0 in half the time,
- you certainly don't have time to reach 0, turn around, and still make your way
- back up to a2 (which is at least as far from 0 than a1 is) in the time interval dt.
- Therefore, the time threshold is half the time interval, or dt/2.
- */
- if (da > max_deriv_alt*(dt / 2))
- {
- /* Prune: the altitude cannot change fast enough to reach zero. */
- return AscentError(ASTRO_SEARCH_FAILURE);
- }
-
- /* Bisect the time interval and evaluate the altitude at the midpoint. */
- tm = Astronomy_TimeFromDays((t1.ut + t2.ut)/2);
- alt = altitude_diff(context, tm);
- if (alt.status != ASTRO_SUCCESS)
- return AscentError(ASTRO_SEARCH_FAILURE);
-
- /* Recurse to the left interval. */
- ascent = FindAscent(1+depth, context, max_deriv_alt, t1, tm, a1, alt.value);
- if (ascent.status == ASTRO_SEARCH_FAILURE)
- {
- /* Recurse to the right interval. */
- ascent = FindAscent(1+depth, context, max_deriv_alt, tm, t2, alt.value, a2);
- }
-
- return ascent;
-}
-
-
-static astro_func_result_t MaxAltitudeSlope(astro_body_t body, double latitude)
-{
- astro_func_result_t result;
- double deriv_ra, deriv_dec, latrad;
-
- if (!isfinite(latitude) || latitude < -90.0 || latitude > +90.0)
- {
- result.value = NAN;
- result.status = ASTRO_INVALID_PARAMETER;
- return result;
- }
-
- /*
- Calculate the maximum possible rate that this body's altitude
- could change [degrees/day] as seen by this observer.
- First use experimentally determined extreme bounds for this body
- of how much topocentric RA and DEC can ever change per rate of time.
- We need minimum possible d(RA)/dt, and maximum possible magnitude of d(DEC)/dt.
- Conservatively, we round d(RA)/dt down, d(DEC)/dt up.
- Then calculate the resulting maximum possible altitude change rate.
- */
-
- switch (body)
- {
- case BODY_MOON:
- deriv_ra = +4.5;
- deriv_dec = +8.2;
- break;
-
- case BODY_SUN:
- deriv_ra = +0.8;
- deriv_dec = +0.5;
- break;
-
- case BODY_MERCURY:
- deriv_ra = -1.6;
- deriv_dec = +1.0;
- break;
-
- case BODY_VENUS:
- deriv_ra = -0.8;
- deriv_dec = +0.6;
- break;
-
- case BODY_MARS:
- deriv_ra = -0.5;
- deriv_dec = +0.4;
- break;
-
- case BODY_JUPITER:
- case BODY_SATURN:
- case BODY_URANUS:
- case BODY_NEPTUNE:
- case BODY_PLUTO:
- deriv_ra = -0.2;
- deriv_dec = +0.2;
- break;
-
- case BODY_EARTH:
- result.value = NAN;
- result.status = ASTRO_EARTH_NOT_ALLOWED;
- return result;
-
- default:
- if (UserDefinedStar(body))
- {
- /*
- The minimum allowed heliocentric distance of a user-defined star
- is one light-year. This can cause a tiny amount of parallax (about 0.001 degrees).
- Also, including stellar aberration (22 arcsec = 0.006 degrees), we provide a
- generous safety buffer of 0.008 degrees.
- */
- deriv_ra = -0.008;
- deriv_dec = +0.008;
- break;
- }
- result.value = NAN;
- result.status = ASTRO_INVALID_BODY;
- return result;
- }
-
- latrad = DEG2RAD * latitude;
- result.value = fabs(((360.0 / SOLAR_DAYS_PER_SIDEREAL_DAY) - deriv_ra)*cos(latrad)) + fabs(deriv_dec*sin(latrad));
- result.status = isfinite(result.value) ? ASTRO_SUCCESS : ASTRO_INTERNAL_ERROR;
- return result;
-}
-
-
-static astro_search_result_t InternalSearchAltitude(
- astro_body_t body,
- astro_observer_t observer,
- astro_direction_t direction,
- astro_time_t startTime,
- double limitDays,
- double bodyRadiusAu,
- double targetAltitude)
-{
- astro_search_result_t search_result;
- astro_func_result_t func_result;
- context_altitude_t context;
- ascent_t ascent;
- astro_time_t t1, t2;
- double a1, a2, max_deriv_alt;
-
- if (!isfinite(targetAltitude) || targetAltitude < -90.0 || targetAltitude > +90.0)
- return SearchError(ASTRO_INVALID_PARAMETER);
-
- func_result = MaxAltitudeSlope(body, observer.latitude);
- if (func_result.status != ASTRO_SUCCESS)
- return SearchError(func_result.status);
- max_deriv_alt = func_result.value;
-
- context.body = body;
- context.direction = (int)direction;
- context.observer = observer;
- context.body_radius_au = bodyRadiusAu;
- context.target_altitude = targetAltitude;
-
- /* We allow searching forward or backward in time. */
- /* But we want to keep t1 < t2, so we need a few if/else statements. */
- t1 = t2 = startTime;
- func_result = altitude_diff(&context, t2);
- if (func_result.status != ASTRO_SUCCESS)
- return SearchError(func_result.status);
- a1 = a2 = func_result.value;
-
- for(;;)
- {
- if (limitDays < 0.0)
- {
- t1 = Astronomy_AddDays(t2, -RISE_SET_DT);
- func_result = altitude_diff(&context, t1);
- if (func_result.status != ASTRO_SUCCESS)
- return SearchError(func_result.status);
- a1 = func_result.value;
- }
- else
- {
- t2 = Astronomy_AddDays(t1, +RISE_SET_DT);
- func_result = altitude_diff(&context, t2);
- if (func_result.status != ASTRO_SUCCESS)
- return SearchError(func_result.status);
- a2 = func_result.value;
- }
-
- ascent = FindAscent(0, &context, max_deriv_alt, t1, t2, a1, a2);
- if (ascent.status == ASTRO_SUCCESS)
- {
- /* We found a time interval [t1, t2] that contains an alt-diff */
- /* rising from negative a1 to non-negative a2. */
- /* Search for the time where the root occurs. */
- search_result = Astronomy_Search(altitude_diff, &context, ascent.tx, ascent.ty, 0.1);
- if (search_result.status == ASTRO_SUCCESS)
- {
- /* Now that we have a solution, we have to check whether it goes outside the time bounds. */
- if (limitDays < 0.0)
- {
- if (search_result.time.ut < startTime.ut + limitDays)
- return SearchError(ASTRO_SEARCH_FAILURE);
- }
- else
- {
- if (search_result.time.ut > startTime.ut + limitDays)
- return SearchError(ASTRO_SEARCH_FAILURE);
- }
- return search_result; /* success! */
- }
-
- /* The search should have succeeded. Something is wrong with FindAscent! */
- return SearchError(ASTRO_INTERNAL_ERROR);
- }
- else if (ascent.status == ASTRO_SEARCH_FAILURE)
- {
- /* There is no ascent in this interval, so keep searching. */
- }
- else
- {
- /* An unexpected error occurred. Fail the search. */
- return SearchError(ascent.status);
- }
-
- if (limitDays < 0.0)
- {
- if (t1.ut < startTime.ut + limitDays)
- return SearchError(ASTRO_SEARCH_FAILURE);
- t2 = t1;
- a2 = a1;
- }
- else
- {
- if (t2.ut > startTime.ut + limitDays)
- return SearchError(ASTRO_SEARCH_FAILURE);
- t1 = t2;
- a1 = a2;
- }
- }
-}
-
-
-/**
- * @brief Calculates U.S. Standard Atmosphere (1976) variables as a function of elevation.
- *
- * This function calculates idealized values of pressure, temperature, and density
- * using the U.S. Standard Atmosphere (1976) model.
- *
- * See:
- * https://hbcp.chemnetbase.com/faces/documents/14_12/14_12_0001.xhtml
- * https://ntrs.nasa.gov/api/citations/19770009539/downloads/19770009539.pdf
- * https://www.ngdc.noaa.gov/stp/space-weather/online-publications/miscellaneous/us-standard-atmosphere-1976/us-standard-atmosphere_st76-1562_noaa.pdf
- *
- * @param elevationMeters
- * The elevation above sea level at which to calculate atmospheric variables.
- * The value must be at least -500 to +100000, or the function will
- * fail with status `ASTRO_INVALID_PARAMETER`.
- *
- * @return astro_atmosphere_tp0
- */
-astro_atmosphere_t Astronomy_Atmosphere(double elevationMeters)
-{
- astro_atmosphere_t atmos;
- const double P0 = 101325.0; /* pressure at sea level [pascals] */
- const double T0 = 288.15; /* temperature at sea level [kelvins] */
- const double T1 = 216.65; /* temperature between 20 km and 32 km [kelvins] */
-
- /*
- Formulas for air temperature and pressure at a height of `h` meters
- were found at:
- https://hbcp.chemnetbase.com/faces/documents/14_12/14_12_0001.xhtml
-
- These in turn come from:
- 1. COESA, U.S. Standard Atmosphere, 1976, U.S. Government Printing Office, Washington, DC, 1976.
- 2. Jursa, A. S., Ed., Handbook of Geophysics and the Space Environment, Air Force Geophysics Laboratory, 1985.
- */
-
- if (!isfinite(elevationMeters) || elevationMeters < -500.0 || elevationMeters > 100000.0)
- {
- /* Invalid elevation. */
- atmos.status = ASTRO_INVALID_PARAMETER;
- atmos.pressure = atmos.temperature = atmos.density = NAN;
- }
- else
- {
- if (elevationMeters <= 11000.0)
- {
- atmos.temperature = T0 - 0.0065*elevationMeters;
- atmos.pressure = P0 * pow(T0 / atmos.temperature, -5.25577);
- }
- else if (elevationMeters <= 20000.0)
- {
- atmos.temperature = T1;
- atmos.pressure = 22632.0 * exp(-0.00015768832 * (elevationMeters - 11000.0));
- }
- else
- {
- atmos.temperature = T1 + 0.001*(elevationMeters - 20000.0);
- atmos.pressure = 5474.87 * pow(T1 / atmos.temperature, 34.16319);
- }
- /* The density is calculated relative to the sea level value. */
- /* Using the ideal gas law PV=nRT, we deduce that density is proportional to P/T. */
- atmos.density = (atmos.pressure / atmos.temperature) / (P0 / T0);
- atmos.status = ASTRO_SUCCESS;
- }
-
- return atmos;
-}
-
-
-static double HorizonDipAngle(
- astro_observer_t observer,
- double metersAboveGround)
-{
- double phi, sinphi, cosphi, c, s, ht_km, ach, ash, radius_m;
- double k, dip;
-
- /* Calculate the effective radius of the Earth at ground level below the observer. */
- /* Correct for the Earth's oblateness. */
- phi = observer.latitude * DEG2RAD;
- sinphi = sin(phi);
- cosphi = cos(phi);
- c = 1.0 / hypot(cosphi, sinphi*EARTH_FLATTENING);
- s = c * (EARTH_FLATTENING * EARTH_FLATTENING);
- ht_km = (observer.height - metersAboveGround) / 1000.0; /* height of ground above sea level */
- ach = EARTH_EQUATORIAL_RADIUS_KM*c + ht_km;
- ash = EARTH_EQUATORIAL_RADIUS_KM*s + ht_km;
- radius_m = 1000.0 * hypot(ach*cosphi, ash*sinphi);
-
- /*
- Correct refraction of a ray of light traveling tangent to the Earth's surface.
- Based on: https://www.largeformatphotography.info/sunmooncalc/SMCalc.js
- which in turn derives from:
- Sweer, John. 1938. The Path of a Ray of Light Tangent to the Surface of the Earth.
- Journal of the Optical Society of America 28 (September):327-329.
- */
-
- /* k = refraction index */
- k = 0.175 * pow(1.0 - (6.5e-3/283.15)*(observer.height - (2.0/3.0)*metersAboveGround), 3.256);
-
- /* Calculate how far below the observer's horizontal plane the observed horizon dips. */
- dip = RAD2DEG * -(sqrt(2*(1 - k)*metersAboveGround / radius_m) / (1 - k));
- return dip;
-}
-
-
-
-/**
- * @brief Searches for the next time a celestial body rises or sets as seen by an observer on the Earth.
- *
- * This function finds the next rise or set time of the Sun, Moon, or planet other than the Earth.
- * Rise time is when the body first starts to be visible above the horizon.
- * For example, sunrise is the moment that the top of the Sun first appears to peek above the horizon.
- * Set time is the moment when the body appears to vanish below the horizon.
- * Therefore, this function adjusts for the apparent angular radius of the observed body
- * (significant only for the Sun and Moon).
- *
- * This function corrects for a typical value of atmospheric refraction, which causes celestial
- * bodies to appear higher above the horizon than they would if the Earth had no atmosphere.
- * Astronomy Engine uses a correction of 34 arcminutes. Real-world refraction varies based
- * on air temperature, pressure, and humidity; such weather-based conditions are outside
- * the scope of Astronomy Engine.
- *
- * Note that rise or set may not occur in every 24 hour period.
- * For example, near the Earth's poles, there are long periods of time where
- * the Sun stays below the horizon, never rising.
- * Also, it is possible for the Moon to rise just before midnight but not set during the subsequent 24-hour day.
- * This is because the Moon sets nearly an hour later each day due to orbiting the Earth a
- * significant amount during each rotation of the Earth.
- * Therefore callers must not assume that the function will always succeed.
- *
- * @param body
- * The Sun, Moon, any planet other than the Earth,
- * or a user-defined star that was created by a call to #Astronomy_DefineStar.
- *
- * @param observer
- * The location where observation takes place.
- * You can create an observer structure by calling #Astronomy_MakeObserver.
- *
- * @param direction
- * Either `DIRECTION_RISE` to find a rise time or `DIRECTION_SET` to find a set time.
- *
- * @param startTime
- * The date and time at which to start the search.
- *
- * @param limitDays
- * Limits how many days to search for a rise or set time, and defines
- * the direction in time to search. When `limitDays` is positive, the
- * search is performed into the future, after `startTime`.
- * When negative, the search is performed into the past, before `startTime`.
- * To limit a rise or set time to the same day, you can use a value of 1 day.
- * In cases where you want to find the next rise or set time no matter how far
- * in the future (for example, for an observer near the south pole), you can
- * pass in a larger value like 365.
- *
- * @param metersAboveGround
- * Usually the observer is located at ground level. Then this parameter
- * should be zero. But if the observer is significantly higher than ground
- * level, for example in an airplane, this parameter should be a positive
- * number indicating how far above the ground the observer is.
- * An error occurs if `metersAboveGround` is negative.
- *
- * @return
- * On success, the `status` field in the returned structure contains `ASTRO_SUCCESS`
- * and the `time` field contains the date and time of the rise or set time as requested.
- * If the `status` field contains `ASTRO_SEARCH_FAILURE`, it means the rise or set
- * event does not occur within `limitDays` days of `startTime`. This is a normal condition,
- * not an error. Any other value of `status` indicates an error of some kind.
- */
-astro_search_result_t Astronomy_SearchRiseSetEx(
- astro_body_t body,
- astro_observer_t observer,
- astro_direction_t direction,
- astro_time_t startTime,
- double limitDays,
- double metersAboveGround)
-{
- double altitude, dip;
- double body_radius_au;
- astro_atmosphere_t atmos;
-
- if (!isfinite(metersAboveGround) || (metersAboveGround < 0.0))
- return SearchError(ASTRO_INVALID_PARAMETER);
-
- switch (body)
- {
- case BODY_SUN: body_radius_au = SUN_RADIUS_AU; break;
- case BODY_MOON: body_radius_au = MOON_EQUATORIAL_RADIUS_AU; break;
- default: body_radius_au = 0.0; break;
- }
-
- /* Calculate atmospheric density at ground level. */
- atmos = Astronomy_Atmosphere(observer.height - metersAboveGround);
- if (atmos.status != ASTRO_SUCCESS)
- return SearchError(atmos.status);
-
- /* Calculate the apparent angular dip of the horizon. */
- dip = HorizonDipAngle(observer, metersAboveGround);
-
- /* Correct refraction for objects near the horizon, using atmospheric density at the ground. */
- altitude = dip - (REFRACTION_NEAR_HORIZON * atmos.density);
-
- /* Search for the top of the body crossing the corrected altitude angle. */
- return InternalSearchAltitude(body, observer, direction, startTime, limitDays, body_radius_au, altitude);
-}
-
-
-/**
- * @brief Finds the next time the center of a body passes through a given altitude.
- *
- * Finds when the center of the given body ascends or descends through a given
- * altitude angle, as seen by an observer at the specified location on the Earth.
- * By using the appropriate combination of `direction` and `altitude` parameters,
- * this function can be used to find when civil, nautical, or astronomical twilight
- * begins (dawn) or ends (dusk).
- *
- * Civil dawn begins before sunrise when the Sun ascends through 6 degrees below
- * the horizon. To find civil dawn, pass `DIRECTION_RISE` for `direction` and -6 for `altitude`.
- *
- * Civil dusk ends after sunset when the Sun descends through 6 degrees below the horizon.
- * To find civil dusk, pass `DIRECTION_SET` for `direction` and -6 for `altitude`.
- *
- * Nautical twilight is similar to civil twilight, only the `altitude` value should be -12 degrees.
- *
- * Astronomical twilight uses -18 degrees as the `altitude` value.
- *
- * By convention for twilight time calculations, the altitude is not corrected for
- * atmospheric refraction. This is because the target altitudes are below the horizon,
- * and refraction is not directly observable.
- *
- * `Astronomy_SearchAltitude` is not intended to find rise/set times of a body for two reasons:
- * (1) Rise/set times of the Sun or Moon are defined by their topmost visible portion, not their centers.
- * (2) Rise/set times are affected significantly by atmospheric refraction.
- * Therefore, it is better to use #Astronomy_SearchRiseSetEx to find rise/set times, which
- * corrects for both of these considerations.
- *
- * `Astronomy_SearchAltitude` will not work reliably for altitudes at or near the body's
- * maximum or minimum altitudes. To find the time a body reaches minimum or maximum altitude
- * angles, use #Astronomy_SearchHourAngleEx.
- *
- * @param body
- * The Sun, Moon, any planet other than the Earth,
- * or a user-defined star that was created by a call to #Astronomy_DefineStar.
- *
- * @param observer
- * The location where observation takes place.
- * You can create an observer structure by calling #Astronomy_MakeObserver.
- *
- * @param direction
- * Either `DIRECTION_RISE` to find when the body ascends through the altitude,
- * or `DIRECTION_SET` for when the body descends through the altitude.
- *
- * @param startTime
- * The date and time at which to start the search.
- *
- * @param limitDays
- * Limits how many days to search for the body reaching the altitude angle,
- * and defines the direction in time to search. When `limitDays` is positive, the
- * search is performed into the future, after `startTime`.
- * When negative, the search is performed into the past, before `startTime`.
- * To limit the search to the same day, you can use a value of 1 day.
- * In cases where you want to find the altitude event no matter how far
- * in the future (for example, for an observer near the south pole), you can
- * pass in a larger value like 365.
- *
- * @param altitude
- * The desired altitude angle of the body's center above (positive)
- * or below (negative) the observer's local horizon, expressed in degrees.
- * Must be in the range [-90, +90].
- *
- * @return
- * On success, the `status` field in the returned structure contains `ASTRO_SUCCESS`
- * and the `time` field contains the date and time of the requested altitude event.
- * If the `status` field contains `ASTRO_SEARCH_FAILURE`, it means the altitude
- * event does not occur within `limitDays` days of `startTime`. This is a normal condition,
- * not an error. Any other value of `status` indicates an error of some kind.
- */
-astro_search_result_t Astronomy_SearchAltitude(
- astro_body_t body,
- astro_observer_t observer,
- astro_direction_t direction,
- astro_time_t startTime,
- double limitDays,
- double altitude)
-{
- return InternalSearchAltitude(body, observer, direction, startTime, limitDays, 0.0, altitude);
-}
-
-
-static double MoonMagnitude(double phase, double helio_dist, double geo_dist)
-{
- /* https://astronomy.stackexchange.com/questions/10246/is-there-a-simple-analytical-formula-for-the-lunar-phase-brightness-curve */
- double rad = phase * DEG2RAD;
- double rad2 = rad * rad;
- double rad4 = rad2 * rad2;
- double mag = -12.717 + 1.49*fabs(rad) + 0.0431*rad4;
- double moon_mean_distance_au = 385000.6 / KM_PER_AU;
- double geo_au = geo_dist / moon_mean_distance_au;
- mag += 5*log10(helio_dist * geo_au);
- return mag;
-}
-
-static astro_status_t SaturnMagnitude(
- double phase,
- double helio_dist,
- double geo_dist,
- astro_vector_t gc,
- astro_time_t time,
- double *mag,
- double *ring_tilt)
-{
- astro_ecliptic_t eclip;
- double ir, Nr, lat, lon, tilt, sin_tilt;
-
- *mag = *ring_tilt = NAN;
-
- /* Based on formulas by Paul Schlyter found here: */
- /* http://www.stjarnhimlen.se/comp/ppcomp.html#15 */
-
- /* We must handle Saturn's rings as a major component of its visual magnitude. */
- /* Find geocentric ecliptic coordinates of Saturn. */
- eclip = Astronomy_Ecliptic(gc);
- if (eclip.status != ASTRO_SUCCESS)
- return eclip.status;
-
- ir = DEG2RAD * 28.06; /* tilt of Saturn's rings to the ecliptic, in radians */
- Nr = DEG2RAD * (169.51 + (3.82e-5 * time.tt)); /* ascending node of Saturn's rings, in radians */
-
- /* Find tilt of Saturn's rings, as seen from Earth. */
- lat = DEG2RAD * eclip.elat;
- lon = DEG2RAD * eclip.elon;
- tilt = asin(sin(lat)*cos(ir) - cos(lat)*sin(ir)*sin(lon-Nr));
- sin_tilt = sin(fabs(tilt));
-
- *mag = -9.0 + 0.044*phase;
- *mag += sin_tilt*(-2.6 + 1.2*sin_tilt);
- *mag += 5.0 * log10(helio_dist * geo_dist);
-
- *ring_tilt = RAD2DEG * tilt;
-
- return ASTRO_SUCCESS;
-}
-
-static astro_status_t VisualMagnitude(
- astro_body_t body,
- double phase,
- double helio_dist,
- double geo_dist,
- double *mag)
-{
- /* For Mercury and Venus, see: https://iopscience.iop.org/article/10.1086/430212 */
- double c0, c1=0, c2=0, c3=0, x;
- *mag = NAN;
- switch (body)
- {
- case BODY_MERCURY: c0 = -0.60, c1 = +4.98, c2 = -4.88, c3 = +3.02; break;
- case BODY_VENUS:
- if (phase < 163.6)
- c0 = -4.47, c1 = +1.03, c2 = +0.57, c3 = +0.13;
- else
- c0 = 0.98, c1 = -1.02;
- break;
- case BODY_MARS: c0 = -1.52, c1 = +1.60; break;
- case BODY_JUPITER: c0 = -9.40, c1 = +0.50; break;
- case BODY_URANUS: c0 = -7.19, c1 = +0.25; break;
- case BODY_NEPTUNE: c0 = -6.87; break;
- case BODY_PLUTO: c0 = -1.00, c1 = +4.00; break;
- default: return ASTRO_INVALID_BODY;
- }
-
- x = phase / 100;
- *mag = c0 + x*(c1 + x*(c2 + x*c3));
- *mag += 5.0 * log10(helio_dist * geo_dist);
- return ASTRO_SUCCESS;
-}
-
-/**
- * @brief
- * Finds visual magnitude, phase angle, and other illumination information about a celestial body.
- *
- * This function calculates information about how bright a celestial body appears from the Earth,
- * reported as visual magnitude, which is a smaller (or even negative) number for brighter objects
- * and a larger number for dimmer objects.
- *
- * For bodies other than the Sun, it reports a phase angle, which is the angle in degrees between
- * the Sun and the Earth, as seen from the center of the body. Phase angle indicates what fraction
- * of the body appears illuminated as seen from the Earth. For example, when the phase angle is
- * near zero, it means the body appears "full" as seen from the Earth. A phase angle approaching
- * 180 degrees means the body appears as a thin crescent as seen from the Earth. A phase angle
- * of 90 degrees means the body appears "half full".
- * For the Sun, the phase angle is always reported as 0; the Sun emits light rather than reflecting it,
- * so it doesn't have a phase angle.
- *
- * When the body is Saturn, the returned structure contains a field `ring_tilt` that holds
- * the tilt angle in degrees of Saturn's rings as seen from the Earth. A value of 0 means
- * the rings appear edge-on, and are thus nearly invisible from the Earth. The `ring_tilt` holds
- * 0 for all bodies other than Saturn.
- *
- * @param body
- * The Sun, Moon, or any planet other than the Earth.
- *
- * @param time
- * The date and time of the observation.
- *
- * @return
- * On success, the `status` field of the return structure holds `ASTRO_SUCCESS`
- * and the other structure fields are valid.
- * Any other value indicates an error, in which case the remaining structure fields are not valid.
- */
-astro_illum_t Astronomy_Illumination(astro_body_t body, astro_time_t time)
-{
- astro_vector_t earth; /* vector from Sun to Earth */
- astro_vector_t hc; /* vector from Sun to body */
- astro_vector_t gc; /* vector from Earth to body */
- double mag; /* visual magnitude */
- astro_angle_result_t phase; /* phase angle in degrees between Earth and Sun as seen from body */
- double helio_dist; /* distance from Sun to body */
- double geo_dist; /* distance from Earth to body */
- double ring_tilt = 0.0; /* Saturn's ring tilt (0 for all other bodies) */
- astro_illum_t illum;
- astro_status_t status;
-
- if (body == BODY_EARTH)
- return IllumError(ASTRO_EARTH_NOT_ALLOWED);
-
- earth = CalcEarth(time);
- if (earth.status != ASTRO_SUCCESS)
- return IllumError(earth.status);
-
- if (body == BODY_SUN)
- {
- gc.status = ASTRO_SUCCESS;
- gc.t = time;
- gc.x = -earth.x;
- gc.y = -earth.y;
- gc.z = -earth.z;
-
- hc.status = ASTRO_SUCCESS;
- hc.t = time;
- hc.x = 0.0;
- hc.y = 0.0;
- hc.z = 0.0;
-
- /* The Sun emits light instead of reflecting it, */
- /* so we report a placeholder phase angle of 0. */
- phase.status = ASTRO_SUCCESS;
- phase.angle = 0.0;
- }
- else
- {
- if (body == BODY_MOON)
- {
- /* For extra numeric precision, use geocentric Moon formula directly. */
- gc = Astronomy_GeoMoon(time);
- if (gc.status != ASTRO_SUCCESS)
- return IllumError(gc.status);
-
- hc.status = ASTRO_SUCCESS;
- hc.t = time;
- hc.x = earth.x + gc.x;
- hc.y = earth.y + gc.y;
- hc.z = earth.z + gc.z;
- }
- else
- {
- /* For planets, the heliocentric vector is more direct to calculate. */
- hc = Astronomy_HelioVector(body, time);
- if (hc.status != ASTRO_SUCCESS)
- return IllumError(hc.status);
-
- gc.status = ASTRO_SUCCESS;
- gc.t = time;
- gc.x = hc.x - earth.x;
- gc.y = hc.y - earth.y;
- gc.z = hc.z - earth.z;
- }
-
- phase = Astronomy_AngleBetween(gc, hc);
- if (phase.status != ASTRO_SUCCESS)
- return IllumError(phase.status);
- }
-
- geo_dist = Astronomy_VectorLength(gc);
- helio_dist = Astronomy_VectorLength(hc);
-
- switch (body)
- {
- case BODY_SUN:
- mag = -0.17 + 5.0*log10(geo_dist / AU_PER_PARSEC);
- break;
-
- case BODY_MOON:
- mag = MoonMagnitude(phase.angle, helio_dist, geo_dist);
- break;
-
- case BODY_SATURN:
- status = SaturnMagnitude(phase.angle, helio_dist, geo_dist, gc, time, &mag, &ring_tilt);
- if (status != ASTRO_SUCCESS)
- return IllumError(status);
- break;
-
- default:
- status = VisualMagnitude(body, phase.angle, helio_dist, geo_dist, &mag);
- if (status != ASTRO_SUCCESS)
- return IllumError(status);
- break;
- }
-
- illum.status = ASTRO_SUCCESS;
- illum.time = time;
- illum.mag = mag;
- illum.phase_angle = phase.angle;
- illum.phase_fraction = (1.0 + cos(DEG2RAD * phase.angle)) / 2.0;
- illum.helio_dist = helio_dist;
- illum.ring_tilt = ring_tilt;
-
- return illum;
-}
-
-static astro_func_result_t mag_slope(void *context, astro_time_t time)
-{
- /*
- The Search() function finds a transition from negative to positive values.
- The derivative of magnitude y with respect to time t (dy/dt)
- is negative as an object gets brighter, because the magnitude numbers
- get smaller. At peak magnitude dy/dt = 0, then as the object gets dimmer,
- dy/dt > 0.
- */
- static const double dt = 0.01;
- astro_illum_t y1, y2;
- astro_body_t body = *((astro_body_t *)context);
- astro_time_t t1 = Astronomy_AddDays(time, -dt/2);
- astro_time_t t2 = Astronomy_AddDays(time, +dt/2);
- astro_func_result_t result;
-
- y1 = Astronomy_Illumination(body, t1);
- if (y1.status != ASTRO_SUCCESS)
- return FuncError(y1.status);
-
- y2 = Astronomy_Illumination(body, t2);
- if (y2.status != ASTRO_SUCCESS)
- return FuncError(y2.status);
-
- result.value = (y2.mag - y1.mag) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Searches for the date and time Venus will next appear brightest as seen from the Earth.
- *
- * This function searches for the date and time Venus appears brightest as seen from the Earth.
- * Currently only Venus is supported for the `body` parameter, though this could change in the future.
- * Mercury's peak magnitude occurs at superior conjunction, when it is virtually impossible to see from the Earth,
- * so peak magnitude events have little practical value for that planet.
- * Planets other than Venus and Mercury reach peak magnitude at opposition, which can
- * be found using #Astronomy_SearchRelativeLongitude.
- * The Moon reaches peak magnitude at full moon, which can be found using
- * #Astronomy_SearchMoonQuarter or #Astronomy_SearchMoonPhase.
- * The Sun reaches peak magnitude at perihelion, which occurs each year in January.
- * However, the difference is minor and has little practical value.
- *
- * @param body
- * Currently only `BODY_VENUS` is allowed. Any other value results in the error `ASTRO_INVALID_BODY`.
- * See function remarks for more details.
- *
- * @param startTime
- * The date and time to start searching for the next peak magnitude event.
- *
- * @return
- * See documentation about the return value from #Astronomy_Illumination.
- */
-astro_illum_t Astronomy_SearchPeakMagnitude(astro_body_t body, astro_time_t startTime)
-{
- /* s1 and s2 are relative longitudes within which peak magnitude of Venus can occur. */
- static const double s1 = 10.0;
- static const double s2 = 30.0;
- int iter;
- astro_angle_result_t plon, elon;
- astro_search_result_t t1, t2, tx;
- astro_func_result_t syn, m1, m2;
- astro_time_t t_start;
- double rlon, rlon_lo, rlon_hi, adjust_days;
-
- if (body != BODY_VENUS)
- return IllumError(ASTRO_INVALID_BODY);
-
- iter = 0;
- while (++iter <= 2)
- {
- /* Find current heliocentric relative longitude between the */
- /* inferior planet and the Earth. */
- plon = Astronomy_EclipticLongitude(body, startTime);
- if (plon.status != ASTRO_SUCCESS)
- return IllumError(plon.status);
-
- elon = Astronomy_EclipticLongitude(BODY_EARTH, startTime);
- if (elon.status != ASTRO_SUCCESS)
- return IllumError(elon.status);
-
- rlon = LongitudeOffset(plon.angle - elon.angle); /* clamp to (-180, +180]. */
-
- /* The slope function is not well-behaved when rlon is near 0 degrees or 180 degrees */
- /* because there is a cusp there that causes a discontinuity in the derivative. */
- /* So we need to guard against searching near such times. */
-
- if (rlon >= -s1 && rlon < +s1)
- {
- /* Seek to the window [+s1, +s2]. */
- adjust_days = 0.0;
- /* Search forward for the time t1 when rel lon = +s1. */
- rlon_lo = +s1;
- /* Search forward for the time t2 when rel lon = +s2. */
- rlon_hi = +s2;
- }
- else if (rlon >= +s2 || rlon < -s2)
- {
- /* Seek to the next search window at [-s2, -s1]. */
- adjust_days = 0.0;
- /* Search forward for the time t1 when rel lon = -s2. */
- rlon_lo = -s2;
- /* Search forward for the time t2 when rel lon = -s1. */
- rlon_hi = -s1;
- }
- else if (rlon >= 0)
- {
- /* rlon must be in the middle of the window [+s1, +s2]. */
- /* Search BACKWARD for the time t1 when rel lon = +s1. */
- syn = SynodicPeriod(body);
- if (syn.status != ASTRO_SUCCESS)
- return IllumError(syn.status);
- adjust_days = -syn.value / 4;
- rlon_lo = +s1;
- /* Search forward from t1 to find t2 such that rel lon = +s2. */
- rlon_hi = +s2;
- }
- else
- {
- /* rlon must be in the middle of the window [-s2, -s1]. */
- /* Search BACKWARD for the time t1 when rel lon = -s2. */
- syn = SynodicPeriod(body);
- if (syn.status != ASTRO_SUCCESS)
- return IllumError(syn.status);
- adjust_days = -syn.value / 4;
- rlon_lo = -s2;
- /* Search forward from t1 to find t2 such that rel lon = -s1. */
- rlon_hi = -s1;
- }
- t_start = Astronomy_AddDays(startTime, adjust_days);
- t1 = Astronomy_SearchRelativeLongitude(body, rlon_lo, t_start);
- if (t1.status != ASTRO_SUCCESS)
- return IllumError(t1.status);
- t2 = Astronomy_SearchRelativeLongitude(body, rlon_hi, t1.time);
- if (t2.status != ASTRO_SUCCESS)
- return IllumError(t2.status);
-
- /* Now we have a time range [t1,t2] that brackets a maximum magnitude event. */
- /* Confirm the bracketing. */
- m1 = mag_slope(&body, t1.time);
- if (m1.status != ASTRO_SUCCESS)
- return IllumError(m1.status);
- if (m1.value >= 0.0)
- return IllumError(ASTRO_INTERNAL_ERROR); /* should never happen! */
-
- m2 = mag_slope(&body, t2.time);
- if (m2.status != ASTRO_SUCCESS)
- return IllumError(m2.status);
- if (m2.value <= 0.0)
- return IllumError(ASTRO_INTERNAL_ERROR); /* should never happen! */
-
- /* Use the generic search algorithm to home in on where the slope crosses from negative to positive. */
- tx = Astronomy_Search(mag_slope, &body, t1.time, t2.time, 10.0);
- if (tx.status != ASTRO_SUCCESS)
- return IllumError(tx.status);
-
- if (tx.time.tt >= startTime.tt)
- return Astronomy_Illumination(body, tx.time);
-
- /* This event is in the past (earlier than startTime). */
- /* We need to search forward from t2 to find the next possible window. */
- /* We never need to search more than twice. */
- startTime = Astronomy_AddDays(t2.time, 1.0);
- }
-
- return IllumError(ASTRO_SEARCH_FAILURE);
-}
-
-static double MoonDistance(astro_time_t t)
-{
- double lon, lat, dist;
- CalcMoon(t.tt / 36525.0, &lon, &lat, &dist);
- return dist;
-}
-
-static astro_func_result_t moon_distance_slope(void *context, astro_time_t time)
-{
- static const double dt = 0.001;
- astro_time_t t1 = Astronomy_AddDays(time, -dt/2.0);
- astro_time_t t2 = Astronomy_AddDays(time, +dt/2.0);
- double dist1, dist2;
- int direction = *((int *)context);
- astro_func_result_t result;
-
- dist1 = MoonDistance(t1);
- dist2 = MoonDistance(t2);
- result.value = direction * (dist2 - dist1) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-/**
- * @brief
- * Finds the date and time of the Moon's closest distance (perigee)
- * or farthest distance (apogee) with respect to the Earth.
- *
- * Given a date and time to start the search in `startTime`, this function finds the
- * next date and time that the center of the Moon reaches the closest or farthest point
- * in its orbit with respect to the center of the Earth, whichever comes first
- * after `startTime`.
- *
- * The closest point is called *perigee* and the farthest point is called *apogee*.
- * The word *apsis* refers to either event.
- *
- * To iterate through consecutive alternating perigee and apogee events, call `Astronomy_SearchLunarApsis`
- * once, then use the return value to call #Astronomy_NextLunarApsis. After that,
- * keep feeding the previous return value from `Astronomy_NextLunarApsis` into another
- * call of `Astronomy_NextLunarApsis` as many times as desired.
- *
- * @param startTime
- * The date and time at which to start searching for the next perigee or apogee.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`,
- * `time` holds the date and time of the next lunar apsis, `kind` holds either
- * `APSIS_PERICENTER` for perigee or `APSIS_APOCENTER` for apogee, and the distance
- * values `dist_au` (astronomical units) and `dist_km` (kilometers) are valid.
- * If the function fails, `status` holds some value other than `ASTRO_SUCCESS` that
- * indicates what went wrong, and the other structure fields are invalid.
- */
-astro_apsis_t Astronomy_SearchLunarApsis(astro_time_t startTime)
-{
- astro_time_t t1, t2;
- astro_search_result_t search;
- astro_func_result_t m1, m2;
- int positive_direction = +1;
- int negative_direction = -1;
- const double increment = 5.0; /* number of days to skip in each iteration */
- astro_apsis_t result;
- int iter;
-
- /*
- Check the rate of change of the distance dr/dt at the start time.
- If it is positive, the Moon is currently getting farther away,
- so start looking for apogee.
- Conversely, if dr/dt < 0, start looking for perigee.
- Either way, the polarity of the slope will change, so the product will be negative.
- Handle the crazy corner case of exactly touching zero by checking for m1*m2 <= 0.
- */
-
- t1 = startTime;
- m1 = moon_distance_slope(&positive_direction, t1);
- if (m1.status != ASTRO_SUCCESS)
- return ApsisError(m1.status);
-
- for (iter=0; iter * increment < 2.0 * MEAN_SYNODIC_MONTH; ++iter)
- {
- t2 = Astronomy_AddDays(t1, increment);
- m2 = moon_distance_slope(&positive_direction, t2);
- if (m2.status != ASTRO_SUCCESS)
- return ApsisError(m2.status);
-
- if (m1.value * m2.value <= 0.0)
- {
- /* There is a change of slope polarity within the time range [t1, t2]. */
- /* Therefore this time range contains an apsis. */
- /* Figure out whether it is perigee or apogee. */
-
- if (m1.value < 0.0 || m2.value > 0.0)
- {
- /* We found a minimum-distance event: perigee. */
- /* Search the time range for the time when the slope goes from negative to positive. */
- search = Astronomy_Search(moon_distance_slope, &positive_direction, t1, t2, 1.0);
- result.kind = APSIS_PERICENTER;
- }
- else if (m1.value > 0.0 || m2.value < 0.0)
- {
- /* We found a maximum-distance event: apogee. */
- /* Search the time range for the time when the slope goes from positive to negative. */
- search = Astronomy_Search(moon_distance_slope, &negative_direction, t1, t2, 1.0);
- result.kind = APSIS_APOCENTER;
- }
- else
- {
- /* This should never happen. It should not be possible for both slopes to be zero. */
- return ApsisError(ASTRO_INTERNAL_ERROR);
- }
-
- if (search.status != ASTRO_SUCCESS)
- return ApsisError(search.status);
-
- result.status = ASTRO_SUCCESS;
- result.time = search.time;
- result.dist_au = MoonDistance(search.time);
- result.dist_km = result.dist_au * KM_PER_AU;
- return result;
- }
-
- /* We have not yet found a slope polarity change. Keep searching. */
- t1 = t2;
- m1 = m2;
- }
-
- /* It should not be possible to fail to find an apsis within 2 synodic months. */
- return ApsisError(ASTRO_INTERNAL_ERROR);
-}
-
-/**
- * @brief
- * Finds the next lunar perigee or apogee event in a series.
- *
- * This function requires an #astro_apsis_t value obtained from a call
- * to #Astronomy_SearchLunarApsis or `Astronomy_NextLunarApsis`. Given
- * an apogee event, this function finds the next perigee event, and vice versa.
- *
- * See #Astronomy_SearchLunarApsis for more details.
- *
- * @param apsis
- * An apsis event obtained from a call to #Astronomy_SearchLunarApsis or `Astronomy_NextLunarApsis`.
- * See #Astronomy_SearchLunarApsis for more details.
- *
- * @return
- * Same as the return value for #Astronomy_SearchLunarApsis.
- */
-astro_apsis_t Astronomy_NextLunarApsis(astro_apsis_t apsis)
-{
- static const double skip = 11.0; /* number of days to skip to start looking for next apsis event */
- astro_apsis_t next;
- astro_time_t time;
-
- if (apsis.status != ASTRO_SUCCESS)
- return ApsisError(ASTRO_INVALID_PARAMETER);
-
- if (apsis.kind != APSIS_APOCENTER && apsis.kind != APSIS_PERICENTER)
- return ApsisError(ASTRO_INVALID_PARAMETER);
-
- time = Astronomy_AddDays(apsis.time, skip);
- next = Astronomy_SearchLunarApsis(time);
- if (next.status == ASTRO_SUCCESS)
- {
- /* Verify that we found the opposite apsis from the previous one. */
- if (next.kind + apsis.kind != 1)
- return ApsisError(ASTRO_INTERNAL_ERROR);
- }
- return next;
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- int direction;
- astro_body_t body;
-}
-planet_distance_context_t;
-/** @endcond */
-
-
-static astro_func_result_t planet_distance_slope(void *context, astro_time_t time)
-{
- static const double dt = 0.001;
- const planet_distance_context_t *pc = (const planet_distance_context_t *) context;
- astro_time_t t1 = Astronomy_AddDays(time, -dt/2.0);
- astro_time_t t2 = Astronomy_AddDays(time, +dt/2.0);
- astro_func_result_t dist1, dist2, result;
-
- dist1 = Astronomy_HelioDistance(pc->body, t1);
- if (dist1.status != ASTRO_SUCCESS)
- return dist1;
-
- dist2 = Astronomy_HelioDistance(pc->body, t2);
- if (dist2.status != ASTRO_SUCCESS)
- return dist2;
-
- result.value = pc->direction * (dist2.value - dist1.value) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-static astro_apsis_t PlanetExtreme(
- astro_body_t body,
- astro_apsis_kind_t kind,
- astro_time_t start_time,
- double dayspan)
-{
- astro_apsis_t apsis;
- const double direction = (kind == APSIS_APOCENTER) ? +1.0 : -1.0;
- const int npoints = 10;
- int i, best_i;
- double interval;
- double dist, best_dist;
- astro_time_t time;
- astro_func_result_t result;
-
- for(;;)
- {
- interval = dayspan / (npoints - 1);
-
- if (interval < 1.0 / 1440.0) /* iterate until uncertainty is less than one minute */
- {
- apsis.status = ASTRO_SUCCESS;
- apsis.kind = kind;
- apsis.time = Astronomy_AddDays(start_time, interval / 2.0);
- result = Astronomy_HelioDistance(body, apsis.time);
- if (result.status != ASTRO_SUCCESS)
- return ApsisError(result.status);
- apsis.dist_au = result.value;
- apsis.dist_km = apsis.dist_au * KM_PER_AU;
- return apsis;
- }
-
- best_i = -1;
- best_dist = 0.0;
- for (i=0; i < npoints; ++i)
- {
- time = Astronomy_AddDays(start_time, i * interval);
- result = Astronomy_HelioDistance(body, time);
- if (result.status != ASTRO_SUCCESS)
- return ApsisError(result.status);
- dist = direction * result.value;
- if (i==0 || dist > best_dist)
- {
- best_i = i;
- best_dist = dist;
- }
- }
-
- /* Narrow in on the extreme point. */
- start_time = Astronomy_AddDays(start_time, (best_i - 1) * interval);
- dayspan = 2.0 * interval;
- }
-}
-
-
-static astro_apsis_t BruteSearchPlanetApsis(astro_body_t body, astro_time_t startTime)
-{
- const int npoints = 100;
- int i;
- astro_time_t t1, t2, time, t_min, t_max;
- double dist, max_dist, min_dist;
- astro_apsis_t perihelion, aphelion;
- double interval;
- double period;
- astro_func_result_t result;
-
- /*
- Neptune is a special case for two reasons:
- 1. Its orbit is nearly circular (low orbital eccentricity).
- 2. It is so distant from the Sun that the orbital period is very long.
- Put together, this causes wobbling of the Sun around the Solar System Barycenter (SSB)
- to be so significant that there are 3 local minima in the distance-vs-time curve
- near each apsis. Therefore, unlike for other planets, we can't use an optimized
- algorithm for finding dr/dt = 0.
- Instead, we use a dumb, brute-force algorithm of sampling and finding min/max
- heliocentric distance.
-
- There is a similar problem in the TOP2013 model for Pluto:
- Its position vector has high-frequency oscillations that confuse the
- slope-based determination of apsides.
- */
-
- /*
- Rewind approximately 30 degrees in the orbit,
- then search forward for 270 degrees.
- This is a very cautious way to prevent missing an apsis.
- Typically we will find two apsides, and we pick whichever
- apsis is ealier, but after startTime.
- Sample points around this orbital arc and find when the distance
- is greatest and smallest.
- */
- period = Astronomy_PlanetOrbitalPeriod(body);
- t1 = Astronomy_AddDays(startTime, period * ( -30.0 / 360.0));
- t2 = Astronomy_AddDays(startTime, period * (+270.0 / 360.0));
- t_min = t_max = t1;
- min_dist = max_dist = -1.0; /* prevent warning about uninitialized variables */
- interval = (t2.ut - t1.ut) / (npoints - 1.0);
-
- for (i=0; i < npoints; ++i)
- {
- double ut = t1.ut + (i * interval);
- time = Astronomy_TimeFromDays(ut);
- result = Astronomy_HelioDistance(body, time);
- if (result.status != ASTRO_SUCCESS)
- return ApsisError(result.status);
- dist = result.value;
- if (i == 0)
- {
- max_dist = min_dist = dist;
- }
- else
- {
- if (dist > max_dist)
- {
- max_dist = dist;
- t_max = time;
- }
- if (dist < min_dist)
- {
- min_dist = dist;
- t_min = time;
- }
- }
- }
-
- t1 = Astronomy_AddDays(t_min, -2 * interval);
- perihelion = PlanetExtreme(body, APSIS_PERICENTER, t1, 4 * interval);
-
- t1 = Astronomy_AddDays(t_max, -2 * interval);
- aphelion = PlanetExtreme(body, APSIS_APOCENTER, t1, 4 * interval);
-
- if (perihelion.status == ASTRO_SUCCESS && perihelion.time.tt >= startTime.tt)
- {
- if (aphelion.status == ASTRO_SUCCESS && aphelion.time.tt >= startTime.tt)
- {
- /* Perihelion and aphelion are both valid. Pick the one that comes first. */
- if (aphelion.time.tt < perihelion.time.tt)
- return aphelion;
- }
- return perihelion;
- }
-
- if (aphelion.status == ASTRO_SUCCESS && aphelion.time.tt >= startTime.tt)
- return aphelion;
-
- return ApsisError(ASTRO_FAIL_APSIS);
-}
-
-
-/**
- * @brief
- * Finds the date and time of a planet's perihelion (closest approach to the Sun)
- * or aphelion (farthest distance from the Sun) after a given time.
- *
- * Given a date and time to start the search in `startTime`, this function finds the
- * next date and time that the center of the specified planet reaches the closest or farthest point
- * in its orbit with respect to the center of the Sun, whichever comes first
- * after `startTime`.
- *
- * The closest point is called *perihelion* and the farthest point is called *aphelion*.
- * The word *apsis* refers to either event.
- *
- * To iterate through consecutive alternating perihelion and aphelion events,
- * call `Astronomy_SearchPlanetApsis` once, then use the return value to call
- * #Astronomy_NextPlanetApsis. After that, keep feeding the previous return value
- * from `Astronomy_NextPlanetApsis` into another call of `Astronomy_NextPlanetApsis`
- * as many times as desired.
- *
- * @param body
- * The planet for which to find the next perihelion/aphelion event.
- * Not allowed to be `BODY_SUN` or `BODY_MOON`.
- *
- * @param startTime
- * The date and time at which to start searching for the next perihelion or aphelion.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`,
- * `time` holds the date and time of the next planetary apsis, `kind` holds either
- * `APSIS_PERICENTER` for perihelion or `APSIS_APOCENTER` for aphelion, and the distance
- * values `dist_au` (astronomical units) and `dist_km` (kilometers) are valid.
- * If the function fails, `status` holds some value other than `ASTRO_SUCCESS` that
- * indicates what went wrong, and the other structure fields are invalid.
- */
-astro_apsis_t Astronomy_SearchPlanetApsis(astro_body_t body, astro_time_t startTime)
-{
- astro_time_t t1, t2;
- astro_search_result_t search;
- astro_func_result_t m1, m2;
- planet_distance_context_t context;
- astro_apsis_t result;
- int iter;
- double orbit_period_days;
- double increment; /* number of days to skip in each iteration */
- astro_func_result_t dist;
-
- if (body == BODY_NEPTUNE || body == BODY_PLUTO)
- return BruteSearchPlanetApsis(body, startTime);
-
- orbit_period_days = Astronomy_PlanetOrbitalPeriod(body);
- if (orbit_period_days == 0.0)
- return ApsisError(ASTRO_INVALID_BODY); /* The body must be a planet. */
-
- increment = orbit_period_days / 6.0;
-
- context.body = body;
-
- t1 = startTime;
- context.direction = +1;
- m1 = planet_distance_slope(&context, t1);
- if (m1.status != ASTRO_SUCCESS)
- return ApsisError(m1.status);
-
- for (iter=0; iter * increment < 2.0 * orbit_period_days; ++iter)
- {
- t2 = Astronomy_AddDays(t1, increment);
- context.direction = +1;
- m2 = planet_distance_slope(&context, t2);
- if (m2.status != ASTRO_SUCCESS)
- return ApsisError(m2.status);
-
- if (m1.value * m2.value <= 0.0)
- {
- /* There is a change of slope polarity within the time range [t1, t2]. */
- /* Therefore this time range contains an apsis. */
- /* Figure out whether it is perihelion or aphelion. */
-
- if (m1.value < 0.0 || m2.value > 0.0)
- {
- /* We found a minimum-distance event: perihelion. */
- /* Search the time range for the time when the slope goes from negative to positive. */
- context.direction = +1;
- result.kind = APSIS_PERICENTER;
- }
- else if (m1.value > 0.0 || m2.value < 0.0)
- {
- /* We found a maximum-distance event: aphelion. */
- /* Search the time range for the time when the slope goes from positive to negative. */
- context.direction = -1;
- result.kind = APSIS_APOCENTER;
- }
- else
- {
- /* This should never happen. It should not be possible for both slopes to be zero. */
- return ApsisError(ASTRO_INTERNAL_ERROR);
- }
-
- search = Astronomy_Search(planet_distance_slope, &context, t1, t2, 1.0);
- if (search.status != ASTRO_SUCCESS)
- return ApsisError(search.status);
-
- dist = Astronomy_HelioDistance(body, search.time);
- if (dist.status != ASTRO_SUCCESS)
- return ApsisError(dist.status);
-
- result.status = ASTRO_SUCCESS;
- result.time = search.time;
- result.dist_au = dist.value;
- result.dist_km = dist.value * KM_PER_AU;
- return result;
- }
-
- /* We have not yet found a slope polarity change. Keep searching. */
- t1 = t2;
- m1 = m2;
- }
-
- /* It should not be possible to fail to find an apsis within 2 orbits. */
- return ApsisError(ASTRO_INTERNAL_ERROR);
-}
-
-/**
- * @brief
- * Finds the next planetary perihelion or aphelion event in a series.
- *
- * This function requires an #astro_apsis_t value obtained from a call
- * to #Astronomy_SearchPlanetApsis or `Astronomy_NextPlanetApsis`.
- * Given an aphelion event, this function finds the next perihelion event, and vice versa.
- *
- * See #Astronomy_SearchPlanetApsis for more details.
- *
- * @param body
- * The planet for which to find the next perihelion/aphelion event.
- * Not allowed to be `BODY_SUN` or `BODY_MOON`.
- * Must match the body passed into the call that produced the `apsis` parameter.
- *
- * @param apsis
- * An apsis event obtained from a call to #Astronomy_SearchPlanetApsis or `Astronomy_NextPlanetApsis`.
- *
- * @return
- * Same as the return value for #Astronomy_SearchPlanetApsis.
- */
-astro_apsis_t Astronomy_NextPlanetApsis(astro_body_t body, astro_apsis_t apsis)
-{
- double skip; /* number of days to skip to start looking for next apsis event */
- astro_apsis_t next;
- astro_time_t time;
-
- if (apsis.status != ASTRO_SUCCESS)
- return ApsisError(ASTRO_INVALID_PARAMETER);
-
- if (apsis.kind != APSIS_APOCENTER && apsis.kind != APSIS_PERICENTER)
- return ApsisError(ASTRO_INVALID_PARAMETER);
-
- skip = 0.25 * Astronomy_PlanetOrbitalPeriod(body); /* skip 1/4 of an orbit before starting search again */
- if (skip <= 0.0)
- return ApsisError(ASTRO_INVALID_BODY); /* body must be a planet */
-
- time = Astronomy_AddDays(apsis.time, skip);
- next = Astronomy_SearchPlanetApsis(body, time);
- if (next.status == ASTRO_SUCCESS)
- {
- /* Verify that we found the opposite apsis from the previous one. */
- if (next.kind + apsis.kind != 1)
- return ApsisError(ASTRO_INTERNAL_ERROR);
- }
- return next;
-}
-
-
-/**
- * @brief Calculates the inverse of a rotation matrix.
- *
- * Given a rotation matrix that performs some coordinate transform,
- * this function returns the matrix that reverses that transform.
- *
- * @param rotation
- * The rotation matrix to be inverted.
- *
- * @return
- * A rotation matrix that performs the opposite transformation.
- */
-astro_rotation_t Astronomy_InverseRotation(astro_rotation_t rotation)
-{
- astro_rotation_t inverse;
-
- if (rotation.status != ASTRO_SUCCESS)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- inverse.status = ASTRO_SUCCESS;
- inverse.rot[0][0] = rotation.rot[0][0];
- inverse.rot[0][1] = rotation.rot[1][0];
- inverse.rot[0][2] = rotation.rot[2][0];
- inverse.rot[1][0] = rotation.rot[0][1];
- inverse.rot[1][1] = rotation.rot[1][1];
- inverse.rot[1][2] = rotation.rot[2][1];
- inverse.rot[2][0] = rotation.rot[0][2];
- inverse.rot[2][1] = rotation.rot[1][2];
- inverse.rot[2][2] = rotation.rot[2][2];
-
- return inverse;
-}
-
-/**
- * @brief Creates a rotation based on applying one rotation followed by another.
- *
- * Given two rotation matrices, returns a combined rotation matrix that is
- * equivalent to rotating based on the first matrix, followed by the second.
- *
- * @param a
- * The first rotation to apply.
- *
- * @param b
- * The second rotation to apply.
- *
- * @return
- * The combined rotation matrix.
- */
-astro_rotation_t Astronomy_CombineRotation(astro_rotation_t a, astro_rotation_t b)
-{
- astro_rotation_t c;
-
- if (a.status != ASTRO_SUCCESS || b.status != ASTRO_SUCCESS)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- /*
- Use matrix multiplication: c = b*a.
- We put 'b' on the left and 'a' on the right because,
- just like when you use a matrix M to rotate a vector V,
- you put the M on the left in the product M*V.
- We can think of this as 'b' rotating all the 3 column vectors in 'a'.
- */
- c.rot[0][0] = b.rot[0][0]*a.rot[0][0] + b.rot[1][0]*a.rot[0][1] + b.rot[2][0]*a.rot[0][2];
- c.rot[1][0] = b.rot[0][0]*a.rot[1][0] + b.rot[1][0]*a.rot[1][1] + b.rot[2][0]*a.rot[1][2];
- c.rot[2][0] = b.rot[0][0]*a.rot[2][0] + b.rot[1][0]*a.rot[2][1] + b.rot[2][0]*a.rot[2][2];
- c.rot[0][1] = b.rot[0][1]*a.rot[0][0] + b.rot[1][1]*a.rot[0][1] + b.rot[2][1]*a.rot[0][2];
- c.rot[1][1] = b.rot[0][1]*a.rot[1][0] + b.rot[1][1]*a.rot[1][1] + b.rot[2][1]*a.rot[1][2];
- c.rot[2][1] = b.rot[0][1]*a.rot[2][0] + b.rot[1][1]*a.rot[2][1] + b.rot[2][1]*a.rot[2][2];
- c.rot[0][2] = b.rot[0][2]*a.rot[0][0] + b.rot[1][2]*a.rot[0][1] + b.rot[2][2]*a.rot[0][2];
- c.rot[1][2] = b.rot[0][2]*a.rot[1][0] + b.rot[1][2]*a.rot[1][1] + b.rot[2][2]*a.rot[1][2];
- c.rot[2][2] = b.rot[0][2]*a.rot[2][0] + b.rot[1][2]*a.rot[2][1] + b.rot[2][2]*a.rot[2][2];
-
- c.status = ASTRO_SUCCESS;
- return c;
-}
-
-/**
- * @brief Creates an identity rotation matrix.
- *
- * Returns a rotation matrix that has no effect on orientation.
- * This matrix can be the starting point for other operations,
- * such as using a series of calls to #Astronomy_Pivot to
- * create a custom rotation matrix.
- *
- * @return
- * The identity matrix.
- */
-astro_rotation_t Astronomy_IdentityMatrix(void)
-{
- astro_rotation_t r;
-
- r.rot[0][0] = 1.0; r.rot[1][0] = 0.0; r.rot[2][0] = 0.0;
- r.rot[0][1] = 0.0; r.rot[1][1] = 1.0; r.rot[2][1] = 0.0;
- r.rot[0][2] = 0.0; r.rot[1][2] = 0.0; r.rot[2][2] = 1.0;
-
- r.status = ASTRO_SUCCESS;
-
- return r;
-}
-
-/**
- * @brief Re-orients a rotation matrix by pivoting it by an angle around one of its axes.
- *
- * Given a rotation matrix, a selected coordinate axis, and an angle in degrees,
- * this function pivots the rotation matrix by that angle around that coordinate axis.
- *
- * For example, if you have rotation matrix that converts ecliptic coordinates (ECL)
- * to horizontal coordinates (HOR), but you really want to convert ECL to the orientation
- * of a telescope camera pointed at a given body, you can use `Astronomy_Pivot` twice:
- * (1) pivot around the zenith axis by the body's azimuth, then (2) pivot around the
- * western axis by the body's altitude angle. The resulting rotation matrix will then
- * reorient ECL coordinates to the orientation of your telescope camera.
- *
- * @param rotation
- * The input rotation matrix.
- *
- * @param axis
- * An integer that selects which coordinate axis to rotate around:
- * 0 = x, 1 = y, 2 = z. Any other value will fail with the error code
- * `ASTRO_INVALID_PARAMETER` in the `status` field of the return value.
- *
- * @param angle
- * An angle in degrees indicating the amount of rotation around the specified axis.
- * Positive angles indicate rotation counterclockwise as seen from the positive
- * direction along that axis, looking towards the origin point of the orientation system.
- * If `angle` is NAN or infinite, the function will fail with the error code
- * `ASTRO_INVALID_PARAMETER`. Any finite number of degrees is allowed, but best
- * precision will result from keeping `angle` in the range [-360, +360].
- *
- * @return
- * If successful, the return value will have `ASTRO_SUCCESS` in the `status`
- * field, along with a pivoted rotation matrix. Otherwise, `status` holds
- * an appropriate error code and the rotation matrix is invalid.
- */
-astro_rotation_t Astronomy_Pivot(astro_rotation_t rotation, int axis, double angle)
-{
- astro_rotation_t p;
- double radians, c, s;
- int i, j, k;
-
- /* Check for an invalid input matrix. */
- if (rotation.status != ASTRO_SUCCESS)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- /* Check for an invalid coordinate axis. */
- if (axis < 0 || axis > 2)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- /* Check for an invalid angle value. */
- if (!isfinite(angle))
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- radians = angle * DEG2RAD;
- c = cos(radians);
- s = sin(radians);
-
- /*
- We need to maintain the "right-hand" rule, no matter which
- axis was selected. That means we pick (i, j, k) axis order
- such that the following vector cross product is satisfied:
- i x j = k
- */
- i = (axis + 1) % 3;
- j = (axis + 2) % 3;
- k = axis;
-
- p.rot[i][i] = c*rotation.rot[i][i] - s*rotation.rot[i][j];
- p.rot[i][j] = s*rotation.rot[i][i] + c*rotation.rot[i][j];
- p.rot[i][k] = rotation.rot[i][k];
-
- p.rot[j][i] = c*rotation.rot[j][i] - s*rotation.rot[j][j];
- p.rot[j][j] = s*rotation.rot[j][i] + c*rotation.rot[j][j];
- p.rot[j][k] = rotation.rot[j][k];
-
- p.rot[k][i] = c*rotation.rot[k][i] - s*rotation.rot[k][j];
- p.rot[k][j] = s*rotation.rot[k][i] + c*rotation.rot[k][j];
- p.rot[k][k] = rotation.rot[k][k];
-
- p.status = ASTRO_SUCCESS;
- return p;
-}
-
-/**
- * @brief Converts spherical coordinates to Cartesian coordinates.
- *
- * Given spherical coordinates and a time at which they are valid,
- * returns a vector of Cartesian coordinates. The returned value
- * includes the time, as required by the type #astro_vector_t.
- *
- * @param sphere
- * Spherical coordinates to be converted.
- *
- * @param time
- * The time that should be included in the return value.
- *
- * @return
- * The vector form of the supplied spherical coordinates.
- */
-astro_vector_t Astronomy_VectorFromSphere(astro_spherical_t sphere, astro_time_t time)
-{
- astro_vector_t vector;
- double radlat, radlon, rcoslat;
-
- if (sphere.status != ASTRO_SUCCESS)
- return VecError(ASTRO_INVALID_PARAMETER, time);
-
- radlat = sphere.lat * DEG2RAD;
- radlon = sphere.lon * DEG2RAD;
- rcoslat = sphere.dist * cos(radlat);
-
- vector.status = ASTRO_SUCCESS;
- vector.t = time;
- vector.x = rcoslat * cos(radlon);
- vector.y = rcoslat * sin(radlon);
- vector.z = sphere.dist * sin(radlat);
-
- return vector;
-}
-
-
-/**
- * @brief Converts Cartesian coordinates to spherical coordinates.
- *
- * Given a Cartesian vector, returns latitude, longitude, and distance.
- *
- * @param vector
- * Cartesian vector to be converted to spherical coordinates.
- *
- * @return
- * Spherical coordinates that are equivalent to the given vector.
- */
-astro_spherical_t Astronomy_SphereFromVector(astro_vector_t vector)
-{
- double xyproj;
- astro_spherical_t sphere;
-
- if (vector.status != ASTRO_SUCCESS)
- return SphereError(vector.status);
-
- xyproj = vector.x*vector.x + vector.y*vector.y;
- sphere.dist = sqrt(xyproj + vector.z*vector.z);
- if (xyproj == 0.0)
- {
- if (vector.z == 0.0)
- {
- /* Indeterminate coordinates; pos vector has zero length. */
- return SphereError(ASTRO_INVALID_PARAMETER);
- }
-
- sphere.lon = 0.0;
- sphere.lat = (vector.z < 0.0) ? -90.0 : +90.0;
- }
- else
- {
- sphere.lon = RAD2DEG * atan2(vector.y, vector.x);
- if (sphere.lon < 0.0)
- sphere.lon += 360.0;
-
- sphere.lat = RAD2DEG * atan2(vector.z, sqrt(xyproj));
- }
-
- sphere.status = ASTRO_SUCCESS;
- return sphere;
-}
-
-
-/**
- * @brief
- * Given an equatorial vector, calculates equatorial angular coordinates.
- *
- * @param vector
- * A vector in an equatorial coordinate system.
- *
- * @return
- * Angular coordinates expressed in the same equatorial system as `vector`.
- */
-astro_equatorial_t Astronomy_EquatorFromVector(astro_vector_t vector)
-{
- astro_equatorial_t equ;
- astro_spherical_t sphere;
-
- sphere = Astronomy_SphereFromVector(vector);
- if (sphere.status != ASTRO_SUCCESS)
- return EquError(sphere.status);
-
- equ.status = ASTRO_SUCCESS;
- equ.dec = sphere.lat;
- equ.ra = sphere.lon / 15.0; /* convert degrees to sidereal hours */
- equ.dist = sphere.dist;
- equ.vec = vector;
-
- return equ;
-}
-
-
-static double ToggleAzimuthDirection(double az)
-{
- az = 360.0 - az;
- if (az >= 360.0)
- az -= 360.0;
- else if (az < 0.0)
- az += 360.0;
- return az;
-}
-
-/**
- * @brief Converts Cartesian coordinates to horizontal coordinates.
- *
- * Given a horizontal Cartesian vector, returns horizontal azimuth and altitude.
- *
- * *IMPORTANT:* This function differs from #Astronomy_SphereFromVector in two ways:
- * - `Astronomy_SphereFromVector` returns a `lon` value that represents azimuth defined counterclockwise
- * from north (e.g., west = +90), but this function represents a clockwise rotation
- * (e.g., east = +90). The difference is because `Astronomy_SphereFromVector` is intended
- * to preserve the vector "right-hand rule", while this function defines azimuth in a more
- * traditional way as used in navigation and cartography.
- * - This function optionally corrects for atmospheric refraction, while `Astronomy_SphereFromVector`
- * does not.
- *
- * The returned structure contains the azimuth in `lon`.
- * It is measured in degrees clockwise from north: east = +90 degrees, west = +270 degrees.
- *
- * The altitude is stored in `lat`.
- *
- * The distance to the observed object is stored in `dist`,
- * and is expressed in astronomical units (AU).
- *
- * @param vector
- * Cartesian vector to be converted to horizontal coordinates.
- *
- * @param refraction
- * `REFRACTION_NORMAL`: correct altitude for atmospheric refraction (recommended).
- * `REFRACTION_NONE`: no atmospheric refraction correction is performed.
- * `REFRACTION_JPLHOR`: for JPL Horizons compatibility testing only; not recommended for normal use.
- *
- * @return
- * If successful, `status` holds `ASTRO_SUCCESS` and the other fields are valid as described
- * in the function remarks.
- * Otherwise `status` holds an error code and the other fields are undefined.
- */
-astro_spherical_t Astronomy_HorizonFromVector(astro_vector_t vector, astro_refraction_t refraction)
-{
- astro_spherical_t sphere;
-
- sphere = Astronomy_SphereFromVector(vector);
- if (sphere.status == ASTRO_SUCCESS)
- {
- /* Convert azimuth from counterclockwise-from-north to clockwise-from-north. */
- sphere.lon = ToggleAzimuthDirection(sphere.lon);
- sphere.lat += Astronomy_Refraction(refraction, sphere.lat);
- }
-
- return sphere;
-}
-
-
-/**
- * @brief
- * Given apparent angular horizontal coordinates in `sphere`, calculate horizontal vector.
- *
- * @param sphere
- * A structure that contains apparent horizontal coordinates:
- * `lat` holds the refracted altitude angle,
- * `lon` holds the azimuth in degrees clockwise from north,
- * and `dist` holds the distance from the observer to the object in AU.
- *
- * @param time
- * The date and time of the observation. This is needed because the returned
- * #astro_vector_t structure requires a valid time value when passed to certain other functions.
- *
- * @param refraction
- * The refraction option used to model atmospheric lensing. See #Astronomy_Refraction.
- * This specifies how refraction is to be removed from the altitude stored in `sphere.lat`.
- *
- * @return
- * A vector in the horizontal system: `x` = north, `y` = west, and `z` = zenith (up).
- */
-astro_vector_t Astronomy_VectorFromHorizon(astro_spherical_t sphere, astro_time_t time, astro_refraction_t refraction)
-{
- if (sphere.status != ASTRO_SUCCESS)
- return VecError(ASTRO_INVALID_PARAMETER, time);
-
- /* Convert azimuth from clockwise-from-north to counterclockwise-from-north. */
- sphere.lon = ToggleAzimuthDirection(sphere.lon);
-
- /* Reverse any applied refraction. */
- sphere.lat += Astronomy_InverseRefraction(refraction, sphere.lat);
-
- return Astronomy_VectorFromSphere(sphere, time);
-}
-
-
-/**
- * @brief
- * Calculates the amount of "lift" to an altitude angle caused by atmospheric refraction.
- *
- * Given an altitude angle and a refraction option, calculates
- * the amount of "lift" caused by atmospheric refraction.
- * This is the number of degrees higher in the sky an object appears
- * due to the lensing of the Earth's atmosphere.
- * This function works best near sea level.
- * To correct for higher elevations, call #Astronomy_Atmosphere for that
- * elevation and multiply the refraction angle by the resulting relative density.
- *
- * @param refraction
- * The option selecting which refraction correction to use.
- * If `REFRACTION_NORMAL`, uses a well-behaved refraction model that works well for
- * all valid values (-90 to +90) of `altitude`.
- * If `REFRACTION_JPLHOR`, this function returns a compatible value with the JPL Horizons tool.
- * If any other value (including `REFRACTION_NONE`), this function returns 0.
- *
- * @param altitude
- * An altitude angle in a horizontal coordinate system. Must be a value between -90 and +90.
- *
- * @return
- * The angular adjustment in degrees to be added to the altitude angle to correct for atmospheric lensing.
- */
-double Astronomy_Refraction(astro_refraction_t refraction, double altitude)
-{
- double refr, hd;
-
- if (altitude < -90.0 || altitude > +90.0)
- return 0.0; /* no attempt to correct an invalid altitude */
-
- if (refraction == REFRACTION_NORMAL || refraction == REFRACTION_JPLHOR)
- {
- /*
- http://extras.springer.com/1999/978-1-4471-0555-8/chap4/horizons/horizons.pdf
- JPL Horizons says it uses refraction algorithm from
- Meeus "Astronomical Algorithms", 1991, p. 101-102.
- I found the following Go implementation:
- https://github.com/soniakeys/meeus/blob/master/v3/refraction/refract.go
- This is a translation from the function "Saemundsson" there.
- I found experimentally that JPL Horizons clamps the angle to 1 degree below the horizon.
- This is important because the 'refr' formula below goes crazy near hd = -5.11.
- */
-
- hd = altitude;
- if (hd < -1.0)
- hd = -1.0;
-
- refr = (1.02 / tan((hd+10.3/(hd+5.11))*DEG2RAD)) / 60.0;
-
- if (refraction == REFRACTION_NORMAL && altitude < -1.0)
- {
- /*
- In "normal" mode we gradually reduce refraction toward the nadir
- so that we never get an altitude angle less than -90 degrees.
- When horizon angle is -1 degrees, the factor is exactly 1.
- As altitude approaches -90 (the nadir), the fraction approaches 0 linearly.
- */
- refr *= (altitude + 90.0) / 89.0;
- }
- }
- else
- {
- /* No refraction, or the refraction option is invalid. */
- refr = 0.0;
- }
-
- return refr;
-}
-
-
-/**
- * @brief
- * Calculates the inverse of an atmospheric refraction angle.
- *
- * Given an observed altitude angle that includes atmospheric refraction,
- * calculates the negative angular correction to obtain the unrefracted
- * altitude. This is useful for cases where observed horizontal
- * coordinates are to be converted to another orientation system,
- * but refraction first must be removed from the observed position.
- *
- * @param refraction
- * The option selecting which refraction correction to use.
- * See #Astronomy_Refraction.
- *
- * @param bent_altitude
- * The apparent altitude that includes atmospheric refraction.
- *
- * @return
- * The angular adjustment in degrees to be added to the
- * altitude angle to correct for atmospheric lensing.
- * This will be less than or equal to zero.
- */
-double Astronomy_InverseRefraction(astro_refraction_t refraction, double bent_altitude)
-{
- double altitude, diff;
-
- if (bent_altitude < -90.0 || bent_altitude > +90.0)
- return 0.0; /* no attempt to correct an invalid altitude */
-
- /* Find the pre-adjusted altitude whose refraction correction leads to 'altitude'. */
- altitude = bent_altitude - Astronomy_Refraction(refraction, bent_altitude);
- for(;;)
- {
- /* See how close we got. */
- diff = (altitude + Astronomy_Refraction(refraction, altitude)) - bent_altitude;
- if (fabs(diff) < 1.0e-14)
- return altitude - bent_altitude;
-
- altitude -= diff;
- }
-}
-
-/**
- * @brief Applies a rotation to a vector, yielding a rotated vector.
- *
- * This function transforms a vector in one orientation to a vector
- * in another orientation.
- *
- * @param rotation
- * A rotation matrix that specifies how the orientation of the vector is to be changed.
- *
- * @param vector
- * The vector whose orientation is to be changed.
- *
- * @return
- * A vector in the orientation specified by `rotation`.
- */
-astro_vector_t Astronomy_RotateVector(astro_rotation_t rotation, astro_vector_t vector)
-{
- astro_vector_t target;
-
- if (rotation.status != ASTRO_SUCCESS || vector.status != ASTRO_SUCCESS)
- return VecError(ASTRO_INVALID_PARAMETER, vector.t);
-
- target.status = ASTRO_SUCCESS;
- target.t = vector.t;
- target.x = rotation.rot[0][0]*vector.x + rotation.rot[1][0]*vector.y + rotation.rot[2][0]*vector.z;
- target.y = rotation.rot[0][1]*vector.x + rotation.rot[1][1]*vector.y + rotation.rot[2][1]*vector.z;
- target.z = rotation.rot[0][2]*vector.x + rotation.rot[1][2]*vector.y + rotation.rot[2][2]*vector.z;
-
- return target;
-}
-
-
-/**
- * @brief Applies a rotation to a state vector, yielding a rotated vector.
- *
- * This function transforms a state vector in one orientation to a vector
- * in another orientation.
- *
- * @param rotation
- * A rotation matrix that specifies how the orientation of the state vector is to be changed.
- *
- * @param state
- * The state vector whose orientation is to be changed.
- * Both the position and velocity components are transformed.
- *
- * @return
- * A state vector in the orientation specified by `rotation`.
- */
-astro_state_vector_t Astronomy_RotateState(astro_rotation_t rotation, astro_state_vector_t state)
-{
- astro_state_vector_t target;
-
- if (rotation.status != ASTRO_SUCCESS || state.status != ASTRO_SUCCESS)
- return StateVecError(ASTRO_INVALID_PARAMETER, state.t);
-
- target.status = ASTRO_SUCCESS;
- target.t = state.t;
-
- target.x = rotation.rot[0][0]*state.x + rotation.rot[1][0]*state.y + rotation.rot[2][0]*state.z;
- target.y = rotation.rot[0][1]*state.x + rotation.rot[1][1]*state.y + rotation.rot[2][1]*state.z;
- target.z = rotation.rot[0][2]*state.x + rotation.rot[1][2]*state.y + rotation.rot[2][2]*state.z;
-
- target.vx = rotation.rot[0][0]*state.vx + rotation.rot[1][0]*state.vy + rotation.rot[2][0]*state.vz;
- target.vy = rotation.rot[0][1]*state.vx + rotation.rot[1][1]*state.vy + rotation.rot[2][1]*state.vz;
- target.vz = rotation.rot[0][2]*state.vx + rotation.rot[1][2]*state.vy + rotation.rot[2][2]*state.vz;
-
- return target;
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean equator (EQJ) to J2000 mean ecliptic (ECL).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQJ = equatorial system, using equator at J2000 epoch.
- * Target: ECL = ecliptic system, using equator at J2000 epoch.
- *
- * @return
- * A rotation matrix that converts EQJ to ECL.
- */
-astro_rotation_t Astronomy_Rotation_EQJ_ECL(void)
-{
- static const double c = COS_OBLIQ_2000;
- static const double s = SIN_OBLIQ_2000;
- astro_rotation_t r;
-
- r.status = ASTRO_SUCCESS;
- r.rot[0][0] = 1.0; r.rot[1][0] = 0.0; r.rot[2][0] = 0.0;
- r.rot[0][1] = 0.0; r.rot[1][1] = +c; r.rot[2][1] = +s;
- r.rot[0][2] = 0.0; r.rot[1][2] = -s; r.rot[2][2] = +c;
- return r;
-}
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean ecliptic (ECL) to J2000 mean equator (EQJ).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: ECL = ecliptic system, using equator at J2000 epoch.
- * Target: EQJ = equatorial system, using equator at J2000 epoch.
- *
- * @return
- * A rotation matrix that converts ECL to EQJ.
- */
-astro_rotation_t Astronomy_Rotation_ECL_EQJ(void)
-{
- static const double c = COS_OBLIQ_2000;
- static const double s = SIN_OBLIQ_2000;
- astro_rotation_t r;
-
- r.status = ASTRO_SUCCESS;
- r.rot[0][0] = 1.0; r.rot[1][0] = 0.0; r.rot[2][0] = 0.0;
- r.rot[0][1] = 0.0; r.rot[1][1] = +c; r.rot[2][1] = -s;
- r.rot[0][2] = 0.0; r.rot[1][2] = +s; r.rot[2][2] = +c;
- return r;
-}
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean equator (EQJ) to equatorial of-date (EQD).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQJ = equatorial system, using equator at J2000 epoch.
- * Target: EQD = equatorial system, using equator of the specified date/time.
- *
- * @param time
- * The date and time at which the Earth's equator defines the target orientation.
- *
- * @return
- * A rotation matrix that converts EQJ to EQD at `time`.
- */
-astro_rotation_t Astronomy_Rotation_EQJ_EQD(astro_time_t *time)
-{
- astro_rotation_t prec, nut;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- prec = precession_rot(*time, FROM_2000);
- nut = nutation_rot(time, FROM_2000);
- return Astronomy_CombineRotation(prec, nut);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean equator (EQJ) to true ecliptic of date (ECT).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQJ = equatorial system, using mean equator at J2000 epoch.
- * Target: ECT = ecliptic system, using true equinox of the specified date/time.
- *
- * @param time
- * The date and time at which the Earth's equator defines the target orientation.
- *
- * @return
- * A rotation matrix that converts EQJ to ECT at `time`.
- */
-astro_rotation_t Astronomy_Rotation_EQJ_ECT(astro_time_t *time)
-{
- astro_rotation_t rot, step;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- rot = Astronomy_Rotation_EQJ_EQD(time);
- step = Astronomy_Rotation_EQD_ECT(time);
- return Astronomy_CombineRotation(rot, step);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from true ecliptic of date (ECT) to J2000 mean equator (EQJ).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: ECT = ecliptic system, using true equinox of the specified date/time.
- * Target: EQJ = equatorial system, using mean equator at J2000 epoch.
- *
- * @param time
- * The date and time at which the Earth's equator defines the target orientation.
- *
- * @return
- * A rotation matrix that converts ECT to EQJ at `time`.
- */
-astro_rotation_t Astronomy_Rotation_ECT_EQJ(astro_time_t *time)
-{
- astro_rotation_t rot, step;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- rot = Astronomy_Rotation_ECT_EQD(time);
- step = Astronomy_Rotation_EQD_EQJ(time);
- return Astronomy_CombineRotation(rot, step);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from equatorial of-date (EQD) to J2000 mean equator (EQJ).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQD = equatorial system, using equator of the specified date/time.
- * Target: EQJ = equatorial system, using equator at J2000 epoch.
- *
- * @param time
- * The date and time at which the Earth's equator defines the source orientation.
- *
- * @return
- * A rotation matrix that converts EQD at `time` to EQJ.
- */
-astro_rotation_t Astronomy_Rotation_EQD_EQJ(astro_time_t *time)
-{
- astro_rotation_t prec, nut;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- nut = nutation_rot(time, INTO_2000);
- prec = precession_rot(*time, INTO_2000);
- return Astronomy_CombineRotation(nut, prec);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from equatorial of-date (EQD) to horizontal (HOR).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQD = equatorial system, using equator of the specified date/time.
- * Target: HOR = horizontal system.
- *
- * @param time
- * The date and time at which the Earth's equator applies.
- *
- * @param observer
- * A location near the Earth's mean sea level that defines the observer's horizon.
- *
- * @return
- * A rotation matrix that converts EQD to HOR at `time` and for `observer`.
- * The components of the horizontal vector are:
- * x = north, y = west, z = zenith (straight up from the observer).
- * These components are chosen so that the "right-hand rule" works for the vector
- * and so that north represents the direction where azimuth = 0.
- */
-astro_rotation_t Astronomy_Rotation_EQD_HOR(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t rot;
- double uze[3], une[3], uwe[3];
- double uz[3], un[3], uw[3];
- double spin_angle;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- double sinlat = sin(observer.latitude * DEG2RAD);
- double coslat = cos(observer.latitude * DEG2RAD);
- double sinlon = sin(observer.longitude * DEG2RAD);
- double coslon = cos(observer.longitude * DEG2RAD);
-
- uze[0] = coslat * coslon;
- uze[1] = coslat * sinlon;
- uze[2] = sinlat;
-
- une[0] = -sinlat * coslon;
- une[1] = -sinlat * sinlon;
- une[2] = coslat;
-
- uwe[0] = sinlon;
- uwe[1] = -coslon;
- uwe[2] = 0.0;
-
- spin_angle = -15.0 * Astronomy_SiderealTime(time);
- spin(spin_angle, uze, uz);
- spin(spin_angle, une, un);
- spin(spin_angle, uwe, uw);
-
- rot.rot[0][0] = un[0]; rot.rot[1][0] = un[1]; rot.rot[2][0] = un[2];
- rot.rot[0][1] = uw[0]; rot.rot[1][1] = uw[1]; rot.rot[2][1] = uw[2];
- rot.rot[0][2] = uz[0]; rot.rot[1][2] = uz[1]; rot.rot[2][2] = uz[2];
-
- rot.status = ASTRO_SUCCESS;
- return rot;
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from horizontal (HOR) to equatorial of-date (EQD).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: HOR = horizontal system (x=North, y=West, z=Zenith).
- * Target: EQD = equatorial system, using equator of the specified date/time.
- *
- * @param time
- * The date and time at which the Earth's equator applies.
- *
- * @param observer
- * A location near the Earth's mean sea level that defines the observer's horizon.
- *
- * @return
- * A rotation matrix that converts HOR to EQD at `time` and for `observer`.
- */
-astro_rotation_t Astronomy_Rotation_HOR_EQD(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t rot = Astronomy_Rotation_EQD_HOR(time, observer);
- return Astronomy_InverseRotation(rot);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from horizontal (HOR) to J2000 equatorial (EQJ).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: HOR = horizontal system (x=North, y=West, z=Zenith).
- * Target: EQJ = equatorial system, using equator at the J2000 epoch.
- *
- * @param time
- * The date and time of the observation.
- *
- * @param observer
- * A location near the Earth's mean sea level that defines the observer's horizon.
- *
- * @return
- * A rotation matrix that converts HOR to EQJ at `time` and for `observer`.
- */
-astro_rotation_t Astronomy_Rotation_HOR_EQJ(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t hor_eqd, eqd_eqj;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- hor_eqd = Astronomy_Rotation_HOR_EQD(time, observer);
- eqd_eqj = Astronomy_Rotation_EQD_EQJ(time);
- return Astronomy_CombineRotation(hor_eqd, eqd_eqj);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean equator (EQJ) to horizontal (HOR).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQJ = equatorial system, using the equator at the J2000 epoch.
- * Target: HOR = horizontal system.
- *
- * @param time
- * The date and time of the desired horizontal orientation.
- *
- * @param observer
- * A location near the Earth's mean sea level that defines the observer's horizon.
- *
- * @return
- * A rotation matrix that converts EQJ to HOR at `time` and for `observer`.
- * The components of the horizontal vector are:
- * x = north, y = west, z = zenith (straight up from the observer).
- * These components are chosen so that the "right-hand rule" works for the vector
- * and so that north represents the direction where azimuth = 0.
- */
-astro_rotation_t Astronomy_Rotation_EQJ_HOR(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t rot = Astronomy_Rotation_HOR_EQJ(time, observer);
- return Astronomy_InverseRotation(rot);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from equatorial of-date (EQD) to J2000 mean ecliptic (ECL).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQD = equatorial system, using equator of date.
- * Target: ECL = ecliptic system, using equator at J2000 epoch.
- *
- * @param time
- * The date and time of the source equator.
- *
- * @return
- * A rotation matrix that converts EQD to ECL.
- */
-astro_rotation_t Astronomy_Rotation_EQD_ECL(astro_time_t *time)
-{
- astro_rotation_t eqd_eqj;
- astro_rotation_t eqj_ecl;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- eqd_eqj = Astronomy_Rotation_EQD_EQJ(time);
- eqj_ecl = Astronomy_Rotation_EQJ_ECL();
- return Astronomy_CombineRotation(eqd_eqj, eqj_ecl);
-}
-
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean ecliptic (ECL) to equatorial of-date (EQD).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: ECL = ecliptic system, using equator at J2000 epoch.
- * Target: EQD = equatorial system, using equator of date.
- *
- * @param time
- * The date and time of the desired equator.
- *
- * @return
- * A rotation matrix that converts ECL to EQD.
- */
-astro_rotation_t Astronomy_Rotation_ECL_EQD(astro_time_t *time)
-{
- astro_rotation_t rot = Astronomy_Rotation_EQD_ECL(time);
- return Astronomy_InverseRotation(rot);
-}
-
-/**
- * @brief
- * Calculates a rotation matrix from J2000 mean ecliptic (ECL) to horizontal (HOR).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: ECL = ecliptic system, using equator at J2000 epoch.
- * Target: HOR = horizontal system.
- *
- * @param time
- * The date and time of the desired horizontal orientation.
- *
- * @param observer
- * A location near the Earth's mean sea level that defines the observer's horizon.
- *
- * @return
- * A rotation matrix that converts ECL to HOR at `time` and for `observer`.
- * The components of the horizontal vector are:
- * x = north, y = west, z = zenith (straight up from the observer).
- * These components are chosen so that the "right-hand rule" works for the vector
- * and so that north represents the direction where azimuth = 0.
- */
-astro_rotation_t Astronomy_Rotation_ECL_HOR(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t ecl_eqd;
- astro_rotation_t eqd_hor;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- ecl_eqd = Astronomy_Rotation_ECL_EQD(time);
- eqd_hor = Astronomy_Rotation_EQD_HOR(time, observer);
- return Astronomy_CombineRotation(ecl_eqd, eqd_hor);
-}
-
-/**
- * @brief
- * Calculates a rotation matrix from horizontal (HOR) to J2000 mean ecliptic (ECL).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: HOR = horizontal system.
- * Target: ECL = ecliptic system, using equator at J2000 epoch.
- *
- * @param time
- * The date and time of the horizontal observation.
- *
- * @param observer
- * The location of the horizontal observer.
- *
- * @return
- * A rotation matrix that converts HOR to ECL.
- */
-astro_rotation_t Astronomy_Rotation_HOR_ECL(astro_time_t *time, astro_observer_t observer)
-{
- astro_rotation_t rot = Astronomy_Rotation_ECL_HOR(time, observer);
- return Astronomy_InverseRotation(rot);
-}
-
-/**
- * @brief
- * Returns a rotation matrix from J2000 mean ecliptic (EQJ) to galactic (GAL).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQJ = equatorial system, using the equator at the J2000 epoch.
- * Target: GAL = galactic system (IAU 1958 definition).
- *
- * @return
- * A rotation matrix that converts EQJ to GAL.
- */
-astro_rotation_t Astronomy_Rotation_EQJ_GAL(void)
-{
- astro_rotation_t rot;
-
- /*
- This rotation matrix was calculated by the following script
- in this same source code repository:
- demo/python/galeqj_matrix.py
- */
-
- rot.rot[0][0] = -0.0548624779711344;
- rot.rot[0][1] = +0.4941095946388765;
- rot.rot[0][2] = -0.8676668813529025;
-
- rot.rot[1][0] = -0.8734572784246782;
- rot.rot[1][1] = -0.4447938112296831;
- rot.rot[1][2] = -0.1980677870294097;
-
- rot.rot[2][0] = -0.4838000529948520;
- rot.rot[2][1] = +0.7470034631630423;
- rot.rot[2][2] = +0.4559861124470794;
-
- rot.status = ASTRO_SUCCESS;
-
- return rot;
-}
-
-/**
- * @brief
- * Returns a rotation matrix from ecliptic galactic (GAL) to J2000 (EQJ).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: GAL = galactic system (IAU 1958 definition).
- * Target: EQJ = equatorial system, using the equator at the J2000 epoch.
- *
- * @return
- * A rotation matrix that converts GAL to EQJ.
- */
-astro_rotation_t Astronomy_Rotation_GAL_EQJ(void)
-{
- astro_rotation_t rot;
-
- /*
- This rotation matrix was calculated by the following script
- in this same source code repository:
- demo/python/galeqj_matrix.py
- */
-
- rot.rot[0][0] = -0.0548624779711344;
- rot.rot[0][1] = -0.8734572784246782;
- rot.rot[0][2] = -0.4838000529948520;
-
- rot.rot[1][0] = +0.4941095946388765;
- rot.rot[1][1] = -0.4447938112296831;
- rot.rot[1][2] = +0.7470034631630423;
-
- rot.rot[2][0] = -0.8676668813529025;
- rot.rot[2][1] = -0.1980677870294097;
- rot.rot[2][2] = +0.4559861124470794;
-
- rot.status = ASTRO_SUCCESS;
-
- return rot;
-}
-
-
-/**
- * @brief
- * Returns a rotation matrix from true ecliptic of date (ECT) to equator of date (EQD).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: ECT = true ecliptic of date.
- * Target: EQD = equator of date.
- *
- * @param time
- * The date and time of the ecliptic/equator conversion.
- *
- * @return
- * A rotation matrix that converts ECT to EQD.
- */
-astro_rotation_t Astronomy_Rotation_ECT_EQD(astro_time_t *time)
-{
- astro_rotation_t m;
- earth_tilt_t et;
- double tobl, cos_tobl, sin_tobl;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- /* Find true ecliptic obliquity for this time. */
- et = e_tilt(time);
- tobl = et.tobl * DEG2RAD;
- cos_tobl = cos(tobl);
- sin_tobl = sin(tobl);
-
- /* EQD.x = ECT.x */
- m.rot[0][0] = 1.0;
- m.rot[1][0] = 0.0;
- m.rot[2][0] = 0.0;
-
- /* EQD.y = +cos*ECT.y - sin*ECT.z */
- m.rot[0][1] = 0.0;
- m.rot[1][1] = +cos_tobl;
- m.rot[2][1] = -sin_tobl;
-
- /* EQD.z = +sin*ECT.y + cos*ECT.z */
- m.rot[0][2] = 0.0;
- m.rot[1][2] = +sin_tobl;
- m.rot[2][2] = +cos_tobl;
-
- m.status = ASTRO_SUCCESS;
- return m;
-}
-
-
-/**
- * @brief
- * Returns a rotation matrix from equator of date (EQD) to true ecliptic of date (ECT).
- *
- * This is one of the family of functions that returns a rotation matrix
- * for converting from one orientation to another.
- * Source: EQD = equator of date.
- * Target: ECT = true ecliptic of date.
- *
- * @param time
- * The date and time of the equator/ecliptic conversion.
- *
- * @return
- * A rotation matrix that converts EQD to ECT.
- */
-astro_rotation_t Astronomy_Rotation_EQD_ECT(astro_time_t *time)
-{
- astro_rotation_t m;
- earth_tilt_t et;
- double tobl, cos_tobl, sin_tobl;
-
- if (time == NULL)
- return RotationErr(ASTRO_INVALID_PARAMETER);
-
- /* Find true ecliptic obliquity for this time. */
- et = e_tilt(time);
- tobl = et.tobl * DEG2RAD;
- cos_tobl = cos(tobl);
- sin_tobl = sin(tobl);
-
- /* ECT.x = EQD.x */
- m.rot[0][0] = 1.0;
- m.rot[1][0] = 0.0;
- m.rot[2][0] = 0.0;
-
- /* ECT.y = +cos*EQJ.y + sin*EQJ.z */
- m.rot[0][1] = 0.0;
- m.rot[1][1] = +cos_tobl;
- m.rot[2][1] = +sin_tobl;
-
- /* ECT.z = -sin*EQJ.y + cos*EQJ.z */
- m.rot[0][2] = 0.0;
- m.rot[1][2] = -sin_tobl;
- m.rot[2][2] = +cos_tobl;
-
- m.status = ASTRO_SUCCESS;
- return m;
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- const char *symbol;
- const char *name;
-}
-constel_info_t;
-
-
-typedef struct
-{
- int index;
- double ra_lo;
- double ra_hi;
- double dec_lo;
-}
-constel_boundary_t;
-/** @endcond */
-
-#define NUM_CONSTELLATIONS 88
-
-static const constel_info_t ConstelInfo[] = {
- /* 0 */ { "And", "Andromeda" }
-, /* 1 */ { "Ant", "Antila" }
-, /* 2 */ { "Aps", "Apus" }
-, /* 3 */ { "Aql", "Aquila" }
-, /* 4 */ { "Aqr", "Aquarius" }
-, /* 5 */ { "Ara", "Ara" }
-, /* 6 */ { "Ari", "Aries" }
-, /* 7 */ { "Aur", "Auriga" }
-, /* 8 */ { "Boo", "Bootes" }
-, /* 9 */ { "Cae", "Caelum" }
-, /* 10 */ { "Cam", "Camelopardis" }
-, /* 11 */ { "Cap", "Capricornus" }
-, /* 12 */ { "Car", "Carina" }
-, /* 13 */ { "Cas", "Cassiopeia" }
-, /* 14 */ { "Cen", "Centaurus" }
-, /* 15 */ { "Cep", "Cepheus" }
-, /* 16 */ { "Cet", "Cetus" }
-, /* 17 */ { "Cha", "Chamaeleon" }
-, /* 18 */ { "Cir", "Circinus" }
-, /* 19 */ { "CMa", "Canis Major" }
-, /* 20 */ { "CMi", "Canis Minor" }
-, /* 21 */ { "Cnc", "Cancer" }
-, /* 22 */ { "Col", "Columba" }
-, /* 23 */ { "Com", "Coma Berenices" }
-, /* 24 */ { "CrA", "Corona Australis" }
-, /* 25 */ { "CrB", "Corona Borealis" }
-, /* 26 */ { "Crt", "Crater" }
-, /* 27 */ { "Cru", "Crux" }
-, /* 28 */ { "Crv", "Corvus" }
-, /* 29 */ { "CVn", "Canes Venatici" }
-, /* 30 */ { "Cyg", "Cygnus" }
-, /* 31 */ { "Del", "Delphinus" }
-, /* 32 */ { "Dor", "Dorado" }
-, /* 33 */ { "Dra", "Draco" }
-, /* 34 */ { "Equ", "Equuleus" }
-, /* 35 */ { "Eri", "Eridanus" }
-, /* 36 */ { "For", "Fornax" }
-, /* 37 */ { "Gem", "Gemini" }
-, /* 38 */ { "Gru", "Grus" }
-, /* 39 */ { "Her", "Hercules" }
-, /* 40 */ { "Hor", "Horologium" }
-, /* 41 */ { "Hya", "Hydra" }
-, /* 42 */ { "Hyi", "Hydrus" }
-, /* 43 */ { "Ind", "Indus" }
-, /* 44 */ { "Lac", "Lacerta" }
-, /* 45 */ { "Leo", "Leo" }
-, /* 46 */ { "Lep", "Lepus" }
-, /* 47 */ { "Lib", "Libra" }
-, /* 48 */ { "LMi", "Leo Minor" }
-, /* 49 */ { "Lup", "Lupus" }
-, /* 50 */ { "Lyn", "Lynx" }
-, /* 51 */ { "Lyr", "Lyra" }
-, /* 52 */ { "Men", "Mensa" }
-, /* 53 */ { "Mic", "Microscopium" }
-, /* 54 */ { "Mon", "Monoceros" }
-, /* 55 */ { "Mus", "Musca" }
-, /* 56 */ { "Nor", "Norma" }
-, /* 57 */ { "Oct", "Octans" }
-, /* 58 */ { "Oph", "Ophiuchus" }
-, /* 59 */ { "Ori", "Orion" }
-, /* 60 */ { "Pav", "Pavo" }
-, /* 61 */ { "Peg", "Pegasus" }
-, /* 62 */ { "Per", "Perseus" }
-, /* 63 */ { "Phe", "Phoenix" }
-, /* 64 */ { "Pic", "Pictor" }
-, /* 65 */ { "PsA", "Pisces Austrinus" }
-, /* 66 */ { "Psc", "Pisces" }
-, /* 67 */ { "Pup", "Puppis" }
-, /* 68 */ { "Pyx", "Pyxis" }
-, /* 69 */ { "Ret", "Reticulum" }
-, /* 70 */ { "Scl", "Sculptor" }
-, /* 71 */ { "Sco", "Scorpius" }
-, /* 72 */ { "Sct", "Scutum" }
-, /* 73 */ { "Ser", "Serpens" }
-, /* 74 */ { "Sex", "Sextans" }
-, /* 75 */ { "Sge", "Sagitta" }
-, /* 76 */ { "Sgr", "Sagittarius" }
-, /* 77 */ { "Tau", "Taurus" }
-, /* 78 */ { "Tel", "Telescopium" }
-, /* 79 */ { "TrA", "Triangulum Australe" }
-, /* 80 */ { "Tri", "Triangulum" }
-, /* 81 */ { "Tuc", "Tucana" }
-, /* 82 */ { "UMa", "Ursa Major" }
-, /* 83 */ { "UMi", "Ursa Minor" }
-, /* 84 */ { "Vel", "Vela" }
-, /* 85 */ { "Vir", "Virgo" }
-, /* 86 */ { "Vol", "Volans" }
-, /* 87 */ { "Vul", "Vulpecula" }
-};
-
-static const constel_boundary_t ConstelBounds[] = {
- { 83, 0, 8640, 2112 } /* UMi */
-, { 83, 2880, 5220, 2076 } /* UMi */
-, { 83, 7560, 8280, 2068 } /* UMi */
-, { 83, 6480, 7560, 2064 } /* UMi */
-, { 15, 0, 2880, 2040 } /* Cep */
-, { 10, 3300, 3840, 1968 } /* Cam */
-, { 15, 0, 1800, 1920 } /* Cep */
-, { 10, 3840, 5220, 1920 } /* Cam */
-, { 83, 6300, 6480, 1920 } /* UMi */
-, { 33, 7260, 7560, 1920 } /* Dra */
-, { 15, 0, 1263, 1848 } /* Cep */
-, { 10, 4140, 4890, 1848 } /* Cam */
-, { 83, 5952, 6300, 1800 } /* UMi */
-, { 15, 7260, 7440, 1800 } /* Cep */
-, { 10, 2868, 3300, 1764 } /* Cam */
-, { 33, 3300, 4080, 1764 } /* Dra */
-, { 83, 4680, 5952, 1680 } /* UMi */
-, { 13, 1116, 1230, 1632 } /* Cas */
-, { 33, 7350, 7440, 1608 } /* Dra */
-, { 33, 4080, 4320, 1596 } /* Dra */
-, { 15, 0, 120, 1584 } /* Cep */
-, { 83, 5040, 5640, 1584 } /* UMi */
-, { 15, 8490, 8640, 1584 } /* Cep */
-, { 33, 4320, 4860, 1536 } /* Dra */
-, { 33, 4860, 5190, 1512 } /* Dra */
-, { 15, 8340, 8490, 1512 } /* Cep */
-, { 10, 2196, 2520, 1488 } /* Cam */
-, { 33, 7200, 7350, 1476 } /* Dra */
-, { 15, 7393.2, 7416, 1462 } /* Cep */
-, { 10, 2520, 2868, 1440 } /* Cam */
-, { 82, 2868, 3030, 1440 } /* UMa */
-, { 33, 7116, 7200, 1428 } /* Dra */
-, { 15, 7200, 7393.2, 1428 } /* Cep */
-, { 15, 8232, 8340, 1418 } /* Cep */
-, { 13, 0, 876, 1404 } /* Cas */
-, { 33, 6990, 7116, 1392 } /* Dra */
-, { 13, 612, 687, 1380 } /* Cas */
-, { 13, 876, 1116, 1368 } /* Cas */
-, { 10, 1116, 1140, 1368 } /* Cam */
-, { 15, 8034, 8232, 1350 } /* Cep */
-, { 10, 1800, 2196, 1344 } /* Cam */
-, { 82, 5052, 5190, 1332 } /* UMa */
-, { 33, 5190, 6990, 1332 } /* Dra */
-, { 10, 1140, 1200, 1320 } /* Cam */
-, { 15, 7968, 8034, 1320 } /* Cep */
-, { 15, 7416, 7908, 1316 } /* Cep */
-, { 13, 0, 612, 1296 } /* Cas */
-, { 50, 2196, 2340, 1296 } /* Lyn */
-, { 82, 4350, 4860, 1272 } /* UMa */
-, { 33, 5490, 5670, 1272 } /* Dra */
-, { 15, 7908, 7968, 1266 } /* Cep */
-, { 10, 1200, 1800, 1260 } /* Cam */
-, { 13, 8232, 8400, 1260 } /* Cas */
-, { 33, 5670, 6120, 1236 } /* Dra */
-, { 62, 735, 906, 1212 } /* Per */
-, { 33, 6120, 6564, 1212 } /* Dra */
-, { 13, 0, 492, 1200 } /* Cas */
-, { 62, 492, 600, 1200 } /* Per */
-, { 50, 2340, 2448, 1200 } /* Lyn */
-, { 13, 8400, 8640, 1200 } /* Cas */
-, { 82, 4860, 5052, 1164 } /* UMa */
-, { 13, 0, 402, 1152 } /* Cas */
-, { 13, 8490, 8640, 1152 } /* Cas */
-, { 39, 6543, 6564, 1140 } /* Her */
-, { 33, 6564, 6870, 1140 } /* Dra */
-, { 30, 6870, 6900, 1140 } /* Cyg */
-, { 62, 600, 735, 1128 } /* Per */
-, { 82, 3030, 3300, 1128 } /* UMa */
-, { 13, 60, 312, 1104 } /* Cas */
-, { 82, 4320, 4350, 1080 } /* UMa */
-, { 50, 2448, 2652, 1068 } /* Lyn */
-, { 30, 7887, 7908, 1056 } /* Cyg */
-, { 30, 7875, 7887, 1050 } /* Cyg */
-, { 30, 6900, 6984, 1044 } /* Cyg */
-, { 82, 3300, 3660, 1008 } /* UMa */
-, { 82, 3660, 3882, 960 } /* UMa */
-, { 8, 5556, 5670, 960 } /* Boo */
-, { 39, 5670, 5880, 960 } /* Her */
-, { 50, 3330, 3450, 954 } /* Lyn */
-, { 0, 0, 906, 882 } /* And */
-, { 62, 906, 924, 882 } /* Per */
-, { 51, 6969, 6984, 876 } /* Lyr */
-, { 62, 1620, 1689, 864 } /* Per */
-, { 30, 7824, 7875, 864 } /* Cyg */
-, { 44, 7875, 7920, 864 } /* Lac */
-, { 7, 2352, 2652, 852 } /* Aur */
-, { 50, 2652, 2790, 852 } /* Lyn */
-, { 0, 0, 720, 840 } /* And */
-, { 44, 7920, 8214, 840 } /* Lac */
-, { 44, 8214, 8232, 828 } /* Lac */
-, { 0, 8232, 8460, 828 } /* And */
-, { 62, 924, 978, 816 } /* Per */
-, { 82, 3882, 3960, 816 } /* UMa */
-, { 29, 4320, 4440, 816 } /* CVn */
-, { 50, 2790, 3330, 804 } /* Lyn */
-, { 48, 3330, 3558, 804 } /* LMi */
-, { 0, 258, 507, 792 } /* And */
-, { 8, 5466, 5556, 792 } /* Boo */
-, { 0, 8460, 8550, 770 } /* And */
-, { 29, 4440, 4770, 768 } /* CVn */
-, { 0, 8550, 8640, 752 } /* And */
-, { 29, 5025, 5052, 738 } /* CVn */
-, { 80, 870, 978, 736 } /* Tri */
-, { 62, 978, 1620, 736 } /* Per */
-, { 7, 1620, 1710, 720 } /* Aur */
-, { 51, 6543, 6969, 720 } /* Lyr */
-, { 82, 3960, 4320, 696 } /* UMa */
-, { 30, 7080, 7530, 696 } /* Cyg */
-, { 7, 1710, 2118, 684 } /* Aur */
-, { 48, 3558, 3780, 684 } /* LMi */
-, { 29, 4770, 5025, 684 } /* CVn */
-, { 0, 0, 24, 672 } /* And */
-, { 80, 507, 600, 672 } /* Tri */
-, { 7, 2118, 2352, 672 } /* Aur */
-, { 37, 2838, 2880, 672 } /* Gem */
-, { 30, 7530, 7824, 672 } /* Cyg */
-, { 30, 6933, 7080, 660 } /* Cyg */
-, { 80, 690, 870, 654 } /* Tri */
-, { 25, 5820, 5880, 648 } /* CrB */
-, { 8, 5430, 5466, 624 } /* Boo */
-, { 25, 5466, 5820, 624 } /* CrB */
-, { 51, 6612, 6792, 624 } /* Lyr */
-, { 48, 3870, 3960, 612 } /* LMi */
-, { 51, 6792, 6933, 612 } /* Lyr */
-, { 80, 600, 690, 600 } /* Tri */
-, { 66, 258, 306, 570 } /* Psc */
-, { 48, 3780, 3870, 564 } /* LMi */
-, { 87, 7650, 7710, 564 } /* Vul */
-, { 77, 2052, 2118, 548 } /* Tau */
-, { 0, 24, 51, 528 } /* And */
-, { 73, 5730, 5772, 528 } /* Ser */
-, { 37, 2118, 2238, 516 } /* Gem */
-, { 87, 7140, 7290, 510 } /* Vul */
-, { 87, 6792, 6930, 506 } /* Vul */
-, { 0, 51, 306, 504 } /* And */
-, { 87, 7290, 7404, 492 } /* Vul */
-, { 37, 2811, 2838, 480 } /* Gem */
-, { 87, 7404, 7650, 468 } /* Vul */
-, { 87, 6930, 7140, 460 } /* Vul */
-, { 6, 1182, 1212, 456 } /* Ari */
-, { 75, 6792, 6840, 444 } /* Sge */
-, { 59, 2052, 2076, 432 } /* Ori */
-, { 37, 2238, 2271, 420 } /* Gem */
-, { 75, 6840, 7140, 388 } /* Sge */
-, { 77, 1788, 1920, 384 } /* Tau */
-, { 39, 5730, 5790, 384 } /* Her */
-, { 75, 7140, 7290, 378 } /* Sge */
-, { 77, 1662, 1788, 372 } /* Tau */
-, { 77, 1920, 2016, 372 } /* Tau */
-, { 23, 4620, 4860, 360 } /* Com */
-, { 39, 6210, 6570, 344 } /* Her */
-, { 23, 4272, 4620, 336 } /* Com */
-, { 37, 2700, 2811, 324 } /* Gem */
-, { 39, 6030, 6210, 308 } /* Her */
-, { 61, 0, 51, 300 } /* Peg */
-, { 77, 2016, 2076, 300 } /* Tau */
-, { 37, 2520, 2700, 300 } /* Gem */
-, { 61, 7602, 7680, 300 } /* Peg */
-, { 37, 2271, 2496, 288 } /* Gem */
-, { 39, 6570, 6792, 288 } /* Her */
-, { 31, 7515, 7578, 284 } /* Del */
-, { 61, 7578, 7602, 284 } /* Peg */
-, { 45, 4146, 4272, 264 } /* Leo */
-, { 59, 2247, 2271, 240 } /* Ori */
-, { 37, 2496, 2520, 240 } /* Gem */
-, { 21, 2811, 2853, 240 } /* Cnc */
-, { 61, 8580, 8640, 240 } /* Peg */
-, { 6, 600, 1182, 238 } /* Ari */
-, { 31, 7251, 7308, 204 } /* Del */
-, { 8, 4860, 5430, 192 } /* Boo */
-, { 61, 8190, 8580, 180 } /* Peg */
-, { 21, 2853, 3330, 168 } /* Cnc */
-, { 45, 3330, 3870, 168 } /* Leo */
-, { 58, 6570, 6718.4, 150 } /* Oph */
-, { 3, 6718.4, 6792, 150 } /* Aql */
-, { 31, 7500, 7515, 144 } /* Del */
-, { 20, 2520, 2526, 132 } /* CMi */
-, { 73, 6570, 6633, 108 } /* Ser */
-, { 39, 5790, 6030, 96 } /* Her */
-, { 58, 6570, 6633, 72 } /* Oph */
-, { 61, 7728, 7800, 66 } /* Peg */
-, { 66, 0, 720, 48 } /* Psc */
-, { 73, 6690, 6792, 48 } /* Ser */
-, { 31, 7308, 7500, 48 } /* Del */
-, { 34, 7500, 7680, 48 } /* Equ */
-, { 61, 7680, 7728, 48 } /* Peg */
-, { 61, 7920, 8190, 48 } /* Peg */
-, { 61, 7800, 7920, 42 } /* Peg */
-, { 20, 2526, 2592, 36 } /* CMi */
-, { 77, 1290, 1662, 0 } /* Tau */
-, { 59, 1662, 1680, 0 } /* Ori */
-, { 20, 2592, 2910, 0 } /* CMi */
-, { 85, 5280, 5430, 0 } /* Vir */
-, { 58, 6420, 6570, 0 } /* Oph */
-, { 16, 954, 1182, -42 } /* Cet */
-, { 77, 1182, 1290, -42 } /* Tau */
-, { 73, 5430, 5856, -78 } /* Ser */
-, { 59, 1680, 1830, -96 } /* Ori */
-, { 59, 2100, 2247, -96 } /* Ori */
-, { 73, 6420, 6468, -96 } /* Ser */
-, { 73, 6570, 6690, -96 } /* Ser */
-, { 3, 6690, 6792, -96 } /* Aql */
-, { 66, 8190, 8580, -96 } /* Psc */
-, { 45, 3870, 4146, -144 } /* Leo */
-, { 85, 4146, 4260, -144 } /* Vir */
-, { 66, 0, 120, -168 } /* Psc */
-, { 66, 8580, 8640, -168 } /* Psc */
-, { 85, 5130, 5280, -192 } /* Vir */
-, { 58, 5730, 5856, -192 } /* Oph */
-, { 3, 7200, 7392, -216 } /* Aql */
-, { 4, 7680, 7872, -216 } /* Aqr */
-, { 58, 6180, 6468, -240 } /* Oph */
-, { 54, 2100, 2910, -264 } /* Mon */
-, { 35, 1770, 1830, -264 } /* Eri */
-, { 59, 1830, 2100, -264 } /* Ori */
-, { 41, 2910, 3012, -264 } /* Hya */
-, { 74, 3450, 3870, -264 } /* Sex */
-, { 85, 4260, 4620, -264 } /* Vir */
-, { 58, 6330, 6360, -280 } /* Oph */
-, { 3, 6792, 7200, -288.8 } /* Aql */
-, { 35, 1740, 1770, -348 } /* Eri */
-, { 4, 7392, 7680, -360 } /* Aqr */
-, { 73, 6180, 6570, -384 } /* Ser */
-, { 72, 6570, 6792, -384 } /* Sct */
-, { 41, 3012, 3090, -408 } /* Hya */
-, { 58, 5856, 5895, -438 } /* Oph */
-, { 41, 3090, 3270, -456 } /* Hya */
-, { 26, 3870, 3900, -456 } /* Crt */
-, { 71, 5856, 5895, -462 } /* Sco */
-, { 47, 5640, 5730, -480 } /* Lib */
-, { 28, 4530, 4620, -528 } /* Crv */
-, { 85, 4620, 5130, -528 } /* Vir */
-, { 41, 3270, 3510, -576 } /* Hya */
-, { 16, 600, 954, -585.2 } /* Cet */
-, { 35, 954, 1350, -585.2 } /* Eri */
-, { 26, 3900, 4260, -588 } /* Crt */
-, { 28, 4260, 4530, -588 } /* Crv */
-, { 47, 5130, 5370, -588 } /* Lib */
-, { 58, 5856, 6030, -590 } /* Oph */
-, { 16, 0, 600, -612 } /* Cet */
-, { 11, 7680, 7872, -612 } /* Cap */
-, { 4, 7872, 8580, -612 } /* Aqr */
-, { 16, 8580, 8640, -612 } /* Cet */
-, { 41, 3510, 3690, -636 } /* Hya */
-, { 35, 1692, 1740, -654 } /* Eri */
-, { 46, 1740, 2202, -654 } /* Lep */
-, { 11, 7200, 7680, -672 } /* Cap */
-, { 41, 3690, 3810, -700 } /* Hya */
-, { 41, 4530, 5370, -708 } /* Hya */
-, { 47, 5370, 5640, -708 } /* Lib */
-, { 71, 5640, 5760, -708 } /* Sco */
-, { 35, 1650, 1692, -720 } /* Eri */
-, { 58, 6030, 6336, -720 } /* Oph */
-, { 76, 6336, 6420, -720 } /* Sgr */
-, { 41, 3810, 3900, -748 } /* Hya */
-, { 19, 2202, 2652, -792 } /* CMa */
-, { 41, 4410, 4530, -792 } /* Hya */
-, { 41, 3900, 4410, -840 } /* Hya */
-, { 36, 1260, 1350, -864 } /* For */
-, { 68, 3012, 3372, -882 } /* Pyx */
-, { 35, 1536, 1650, -888 } /* Eri */
-, { 76, 6420, 6900, -888 } /* Sgr */
-, { 65, 7680, 8280, -888 } /* PsA */
-, { 70, 8280, 8400, -888 } /* Scl */
-, { 36, 1080, 1260, -950 } /* For */
-, { 1, 3372, 3960, -954 } /* Ant */
-, { 70, 0, 600, -960 } /* Scl */
-, { 36, 600, 1080, -960 } /* For */
-, { 35, 1392, 1536, -960 } /* Eri */
-, { 70, 8400, 8640, -960 } /* Scl */
-, { 14, 5100, 5370, -1008 } /* Cen */
-, { 49, 5640, 5760, -1008 } /* Lup */
-, { 71, 5760, 5911.5, -1008 } /* Sco */
-, { 9, 1740, 1800, -1032 } /* Cae */
-, { 22, 1800, 2370, -1032 } /* Col */
-, { 67, 2880, 3012, -1032 } /* Pup */
-, { 35, 1230, 1392, -1056 } /* Eri */
-, { 71, 5911.5, 6420, -1092 } /* Sco */
-, { 24, 6420, 6900, -1092 } /* CrA */
-, { 76, 6900, 7320, -1092 } /* Sgr */
-, { 53, 7320, 7680, -1092 } /* Mic */
-, { 35, 1080, 1230, -1104 } /* Eri */
-, { 9, 1620, 1740, -1116 } /* Cae */
-, { 49, 5520, 5640, -1152 } /* Lup */
-, { 63, 0, 840, -1156 } /* Phe */
-, { 35, 960, 1080, -1176 } /* Eri */
-, { 40, 1470, 1536, -1176 } /* Hor */
-, { 9, 1536, 1620, -1176 } /* Cae */
-, { 38, 7680, 7920, -1200 } /* Gru */
-, { 67, 2160, 2880, -1218 } /* Pup */
-, { 84, 2880, 2940, -1218 } /* Vel */
-, { 35, 870, 960, -1224 } /* Eri */
-, { 40, 1380, 1470, -1224 } /* Hor */
-, { 63, 0, 660, -1236 } /* Phe */
-, { 12, 2160, 2220, -1260 } /* Car */
-, { 84, 2940, 3042, -1272 } /* Vel */
-, { 40, 1260, 1380, -1276 } /* Hor */
-, { 32, 1380, 1440, -1276 } /* Dor */
-, { 63, 0, 570, -1284 } /* Phe */
-, { 35, 780, 870, -1296 } /* Eri */
-, { 64, 1620, 1800, -1296 } /* Pic */
-, { 49, 5418, 5520, -1296 } /* Lup */
-, { 84, 3042, 3180, -1308 } /* Vel */
-, { 12, 2220, 2340, -1320 } /* Car */
-, { 14, 4260, 4620, -1320 } /* Cen */
-, { 49, 5100, 5418, -1320 } /* Lup */
-, { 56, 5418, 5520, -1320 } /* Nor */
-, { 32, 1440, 1560, -1356 } /* Dor */
-, { 84, 3180, 3960, -1356 } /* Vel */
-, { 14, 3960, 4050, -1356 } /* Cen */
-, { 5, 6300, 6480, -1368 } /* Ara */
-, { 78, 6480, 7320, -1368 } /* Tel */
-, { 38, 7920, 8400, -1368 } /* Gru */
-, { 40, 1152, 1260, -1380 } /* Hor */
-, { 64, 1800, 1980, -1380 } /* Pic */
-, { 12, 2340, 2460, -1392 } /* Car */
-, { 63, 0, 480, -1404 } /* Phe */
-, { 35, 480, 780, -1404 } /* Eri */
-, { 63, 8400, 8640, -1404 } /* Phe */
-, { 32, 1560, 1650, -1416 } /* Dor */
-, { 56, 5520, 5911.5, -1440 } /* Nor */
-, { 43, 7320, 7680, -1440 } /* Ind */
-, { 64, 1980, 2160, -1464 } /* Pic */
-, { 18, 5460, 5520, -1464 } /* Cir */
-, { 5, 5911.5, 5970, -1464 } /* Ara */
-, { 18, 5370, 5460, -1526 } /* Cir */
-, { 5, 5970, 6030, -1526 } /* Ara */
-, { 64, 2160, 2460, -1536 } /* Pic */
-, { 12, 2460, 3252, -1536 } /* Car */
-, { 14, 4050, 4260, -1536 } /* Cen */
-, { 27, 4260, 4620, -1536 } /* Cru */
-, { 14, 4620, 5232, -1536 } /* Cen */
-, { 18, 4860, 4920, -1560 } /* Cir */
-, { 5, 6030, 6060, -1560 } /* Ara */
-, { 40, 780, 1152, -1620 } /* Hor */
-, { 69, 1152, 1650, -1620 } /* Ret */
-, { 18, 5310, 5370, -1620 } /* Cir */
-, { 5, 6060, 6300, -1620 } /* Ara */
-, { 60, 6300, 6480, -1620 } /* Pav */
-, { 81, 7920, 8400, -1620 } /* Tuc */
-, { 32, 1650, 2370, -1680 } /* Dor */
-, { 18, 4920, 5310, -1680 } /* Cir */
-, { 79, 5310, 6120, -1680 } /* TrA */
-, { 81, 0, 480, -1800 } /* Tuc */
-, { 42, 1260, 1650, -1800 } /* Hyi */
-, { 86, 2370, 3252, -1800 } /* Vol */
-, { 12, 3252, 4050, -1800 } /* Car */
-, { 55, 4050, 4920, -1800 } /* Mus */
-, { 60, 6480, 7680, -1800 } /* Pav */
-, { 43, 7680, 8400, -1800 } /* Ind */
-, { 81, 8400, 8640, -1800 } /* Tuc */
-, { 81, 270, 480, -1824 } /* Tuc */
-, { 42, 0, 1260, -1980 } /* Hyi */
-, { 17, 2760, 4920, -1980 } /* Cha */
-, { 2, 4920, 6480, -1980 } /* Aps */
-, { 52, 1260, 2760, -2040 } /* Men */
-, { 57, 0, 8640, -2160 } /* Oct */
-};
-
-#define NUM_CONSTEL_BOUNDARIES 357
-
-
-
-/**
- * @brief
- * Determines the constellation that contains the given point in the sky.
- *
- * Given J2000 equatorial (EQJ) coordinates of a point in the sky, determines the
- * constellation that contains that point.
- *
- * @param ra
- * The right ascension (RA) of a point in the sky, using the J2000 equatorial system.
- *
- * @param dec
- * The declination (DEC) of a point in the sky, using the J2000 equatorial system.
- *
- * @return
- * If successful, `status` holds `ASTRO_SUCCESS`,
- * `symbol` holds a pointer to a 3-character string like "Ori", and
- * `name` holds a pointer to the full constellation name like "Orion".
- */
-astro_constellation_t Astronomy_Constellation(double ra, double dec)
-{
- static astro_time_t epoch2000;
- static astro_rotation_t rot = { ASTRO_NOT_INITIALIZED, {{0}} };
- astro_constellation_t constel;
- astro_spherical_t s2000;
- astro_equatorial_t b1875;
- astro_vector_t vec2000, vec1875;
- double x_ra, x_dec;
- int i, c;
-
- if (dec < -90.0 || dec > +90.0)
- return ConstelErr(ASTRO_INVALID_PARAMETER);
-
- /* Allow right ascension to "wrap around". Clamp to [0, 24) sidereal hours. */
- ra = fmod(ra, 24.0);
- if (ra < 0.0)
- ra += 24.0;
-
- /* Lazy-initialize the rotation matrix for converting J2000 to B1875. */
- if (rot.status != ASTRO_SUCCESS)
- {
- /*
- Need to calculate the B1875 epoch. Based on this:
- https://en.wikipedia.org/wiki/Epoch_(astronomy)#Besselian_years
- B = 1900 + (JD - 2415020.31352) / 365.242198781
- I'm interested in using TT instead of JD, giving:
- B = 1900 + ((TT+2451545) - 2415020.31352) / 365.242198781
- B = 1900 + (TT + 36524.68648) / 365.242198781
- TT = 365.242198781*(B - 1900) - 36524.68648 = -45655.741449525
- But Astronomy_TimeFromDays() wants UT, not TT.
- Near that date, I get a historical correction of ut-tt = 3.2 seconds.
- That gives UT = -45655.74141261017 for the B1875 epoch,
- or 1874-12-31T18:12:21.950Z.
- */
- astro_time_t time = Astronomy_TimeFromDays(-45655.74141261017);
- rot = Astronomy_Rotation_EQJ_EQD(&time);
- if (rot.status != ASTRO_SUCCESS)
- return ConstelErr(rot.status);
-
- epoch2000 = Astronomy_TimeFromDays(0.0);
- }
-
- /* Convert coordinates from J2000 to year 1875. */
- s2000.status = ASTRO_SUCCESS;
- s2000.lon = ra * 15.0;
- s2000.lat = dec;
- s2000.dist = 1.0;
- vec2000 = Astronomy_VectorFromSphere(s2000, epoch2000);
- if (vec2000.status != ASTRO_SUCCESS)
- return ConstelErr(vec2000.status);
-
- vec1875 = Astronomy_RotateVector(rot, vec2000);
- if (vec1875.status != ASTRO_SUCCESS)
- return ConstelErr(vec1875.status);
-
- b1875 = Astronomy_EquatorFromVector(vec1875);
- if (b1875.status != ASTRO_SUCCESS)
- return ConstelErr(b1875.status);
-
- /* Convert DEC from degrees, and RA from hours, to compact angle units used in the ContelBounds table. */
- x_ra = (24.0 * 15.0) * b1875.ra;
- x_dec = 24.0 * b1875.dec;
-
- /* Search for the constellation using the B1875 coordinates. */
- c = -1; /* constellation not (yet) found */
- for (i=0; i < NUM_CONSTEL_BOUNDARIES; ++i)
- {
- const constel_boundary_t *b = &ConstelBounds[i];
- if ((b->dec_lo <= x_dec) && (b->ra_hi > x_ra) && (b->ra_lo <= x_ra))
- {
- c = b->index;
- break;
- }
- }
-
- if (c < 0 || c >= NUM_CONSTELLATIONS)
- return ConstelErr(ASTRO_INTERNAL_ERROR); /* should have been able to find the constellation */
-
- constel.status = ASTRO_SUCCESS;
- constel.symbol = ConstelInfo[c].symbol;
- constel.name = ConstelInfo[c].name;
- constel.ra_1875 = b1875.ra;
- constel.dec_1875 = b1875.dec;
- return constel;
-}
-
-
-static astro_lunar_eclipse_t LunarEclipseError(astro_status_t status)
-{
- astro_lunar_eclipse_t eclipse;
- eclipse.status = status;
- eclipse.kind = ECLIPSE_NONE;
- eclipse.peak = TimeError();
- eclipse.obscuration = eclipse.sd_penum = eclipse.sd_partial = eclipse.sd_total = NAN;
- return eclipse;
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- astro_status_t status;
- astro_time_t time;
- double u; /* dot product of (heliocentric earth) and (geocentric moon): defines the shadow plane where the Moon is */
- double r; /* km distance between center of Moon/Earth (shaded body) and the line passing through the centers of the Sun and Earth/Moon (casting body). */
- double k; /* umbra radius in km, at the shadow plane */
- double p; /* penumbra radius in km, at the shadow plane */
- astro_vector_t target; /* coordinates of target body relative to shadow-casting body at 'time' */
- astro_vector_t dir; /* heliocentric coordinates of shadow-casting body at 'time' */
-}
-shadow_t; /* Represents alignment of the Moon/Earth with the Earth's/Moon's shadow, for finding eclipses. */
-
-typedef struct
-{
- double radius_limit;
- double direction;
-}
-shadow_context_t;
-/** @endcond */
-
-
-static double Obscuration( /* returns area of intersection of the two discs, divided by area of first disc. */
- double a, /* radius of first disc */
- double b, /* radius of second disc */
- double c) /* distance between the centers of the discs */
-{
- double x; /* Horizontal location of intersection point on both circumferences */
- double y; /* Positive vertical location of intersection point on both circumferences */
- double radicand, lens1, lens2, obs;
-
- if (a <= 0.0 || b <= 0.0)
- return 0.0; /* invalid radius */
-
- if (c < 0.0)
- return 0.0; /* invalid distance between centers */
-
- if (c >= a + b)
- return 0.0; /* the discs are too far apart to have any overlapping area */
-
- if (c == 0.0)
- {
- /* The discs have a common center. Therefore, one disc is inside the other. */
- return (a <= b) ? 1.0 : (b*b)/(a*a);
- }
-
- x = (a*a - b*b + c*c) / (2 * c);
-
- radicand = a*a - x*x;
- if (radicand <= 0.0)
- {
- /* The circumferences do not intersect, or are tangent. */
- /* We already ruled out the case of non-overlapping discs. */
- /* Therefore, one disc is inside the other. */
- return (a <= b) ? 1.0 : (b*b)/(a*a);
- }
-
- /* The discs overlap fractionally in a pair of lens-shaped areas. */
-
- y = sqrt(radicand);
-
- /* Return the overlapping fractional area. */
- /* There are two lens-shaped areas, one to the left of x, the other to the right of x. */
- /* Each part is calculated by subtracting a triangular area from a sector's area. */
- lens1 = a*a*acos(x/a) - x*y;
- lens2 = b*b*acos((c-x)/b) - (c-x)*y;
-
- /* Find the fractional area with respect to the first disc. */
- obs = (lens1 + lens2) / (PI*a*a);
- return obs;
-}
-
-
-static shadow_t ShadowError(astro_status_t status)
-{
- shadow_t shadow;
- memset(&shadow, 0, sizeof(shadow));
- shadow.status = status;
- return shadow;
-}
-
-
-static shadow_t CalcShadow(
- double body_radius_km,
- astro_time_t time,
- astro_vector_t target,
- astro_vector_t dir)
-{
- double dx, dy, dz;
- shadow_t shadow;
-
- shadow.target = target;
- shadow.dir = dir;
-
- shadow.u = (dir.x*target.x + dir.y*target.y + dir.z*target.z) / (dir.x*dir.x + dir.y*dir.y + dir.z*dir.z);
-
- dx = (shadow.u * dir.x) - target.x;
- dy = (shadow.u * dir.y) - target.y;
- dz = (shadow.u * dir.z) - target.z;
- shadow.r = KM_PER_AU * sqrt(dx*dx + dy*dy + dz*dz);
-
- shadow.k = +SUN_RADIUS_KM - (1.0 + shadow.u)*(SUN_RADIUS_KM - body_radius_km);
- shadow.p = -SUN_RADIUS_KM + (1.0 + shadow.u)*(SUN_RADIUS_KM + body_radius_km);
- shadow.status = ASTRO_SUCCESS;
- shadow.time = time;
-
- return shadow;
-}
-
-
-static shadow_t PlanetShadow(astro_body_t body, double planet_radius_km, astro_time_t time)
-{
- astro_vector_t e, p, g;
-
- /* Calculate light-travel-corrected vector from Earth to planet. */
- g = Astronomy_GeoVector(body, time, ABERRATION);
- if (g.status != ASTRO_SUCCESS)
- return ShadowError(g.status);
-
- /* Calculate light-travel-corrected vector from Earth to Sun. */
- e = Astronomy_GeoVector(BODY_SUN, time, ABERRATION);
- if (e.status != ASTRO_SUCCESS)
- return ShadowError(e.status);
-
- /* Deduce light-travel-corrected vector from Sun to planet. */
- p.status = ASTRO_SUCCESS;
- p.t = time;
- p.x = g.x - e.x;
- p.y = g.y - e.y;
- p.z = g.z - e.z;
-
- /* Calcluate Earth's position from the planet's point of view. */
- e.x = -g.x;
- e.y = -g.y;
- e.z = -g.z;
-
- return CalcShadow(planet_radius_km, time, e, p);
-}
-
-
-static shadow_t EarthShadow(astro_time_t time)
-{
- /* This function helps find when the Earth's shadow falls upon the Moon. */
- astro_vector_t e, m;
-
- /* Find geocentric Sun with aberration correction. */
- e = Astronomy_GeoVector(BODY_SUN, time, ABERRATION);
- if (e.status != ASTRO_SUCCESS)
- return ShadowError(e.status);
-
- /* Convert geocentric Sun to heliocentric Earth. */
- /* Thus `e` points in the direction of sunlight heading toward the Earth's center. */
- e.x = -e.x;
- e.y = -e.y;
- e.z = -e.z;
-
- /* Find geocentric Moon. */
- m = Astronomy_GeoMoon(time); /* This function never fails; no need to check return value */
-
- return CalcShadow(EARTH_ECLIPSE_RADIUS_KM, time, m, e);
-}
-
-
-static shadow_t MoonShadow(astro_time_t time)
-{
- /* This function helps find when the Moon's shadow falls upon the Earth. */
-
- astro_vector_t s, e, m;
-
- /* Calculate geocentric Sun with aberration correction. */
- s = Astronomy_GeoVector(BODY_SUN, time, ABERRATION);
- if (s.status != ASTRO_SUCCESS)
- return ShadowError(s.status);
-
- m = Astronomy_GeoMoon(time); /* geocentric Moon */
-
- /* Calculate lunacentric Earth. */
- e.status = m.status;
- e.x = -m.x;
- e.y = -m.y;
- e.z = -m.z;
- e.t = m.t;
-
- /* Convert geocentric moon to heliocentric Moon. */
- m.x -= s.x;
- m.y -= s.y;
- m.z -= s.z;
-
- return CalcShadow(MOON_MEAN_RADIUS_KM, time, e, m);
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef shadow_t (* shadow_func_t) (astro_time_t time);
-/** @endcond */
-
-
-static astro_func_result_t shadow_distance_slope(void *context, astro_time_t time)
-{
- const double dt = 1.0 / 86400.0;
- astro_time_t t1, t2;
- astro_func_result_t result;
- shadow_t shadow1, shadow2;
- shadow_func_t shadowfunc = (shadow_func_t) context;
-
- t1 = Astronomy_AddDays(time, -dt);
- t2 = Astronomy_AddDays(time, +dt);
-
- shadow1 = shadowfunc(t1);
- if (shadow1.status != ASTRO_SUCCESS)
- return FuncError(shadow1.status);
-
- shadow2 = shadowfunc(t2);
- if (shadow2.status != ASTRO_SUCCESS)
- return FuncError(shadow2.status);
-
- result.value = (shadow2.r - shadow1.r) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static shadow_t PeakEarthShadow(astro_time_t search_center_time)
-{
- /* Search for when the Earth's shadow axis is closest to the center of the Moon. */
-
- astro_time_t t1, t2;
- astro_search_result_t result;
- const double window = 0.03; /* days before/after full moon to search for minimum shadow distance */
-
- t1 = Astronomy_AddDays(search_center_time, -window);
- t2 = Astronomy_AddDays(search_center_time, +window);
-
- result = Astronomy_Search(shadow_distance_slope, (void *)EarthShadow, t1, t2, 1.0);
- if (result.status != ASTRO_SUCCESS)
- return ShadowError(result.status);
-
- return EarthShadow(result.time);
-}
-
-
-static shadow_t PeakMoonShadow(astro_time_t search_center_time)
-{
- /* Search for when the Moon's shadow axis is closest to the center of the Earth. */
-
- astro_time_t t1, t2;
- astro_search_result_t result;
- const double window = 0.03; /* days before/after new moon to search for minimum shadow distance */
-
- t1 = Astronomy_AddDays(search_center_time, -window);
- t2 = Astronomy_AddDays(search_center_time, +window);
-
- result = Astronomy_Search(shadow_distance_slope, (void *)MoonShadow, t1, t2, 1.0);
- if (result.status != ASTRO_SUCCESS)
- return ShadowError(result.status);
-
- return MoonShadow(result.time);
-}
-
-
-/** @cond DOXYGEN_SKIP */
-typedef struct
-{
- astro_body_t body;
- double planet_radius_km;
- double direction; /* used for transit start/finish search only */
-}
-planet_shadow_context_t;
-/** @endcond */
-
-
-static astro_func_result_t planet_shadow_distance_slope(void *context, astro_time_t time)
-{
- const double dt = 1.0 / 86400.0;
- astro_time_t t1, t2;
- astro_func_result_t result;
- shadow_t shadow1, shadow2;
- const planet_shadow_context_t *p = (const planet_shadow_context_t *) context;
-
- t1 = Astronomy_AddDays(time, -dt);
- t2 = Astronomy_AddDays(time, +dt);
-
- shadow1 = PlanetShadow(p->body, p->planet_radius_km, t1);
- if (shadow1.status != ASTRO_SUCCESS)
- return FuncError(shadow1.status);
-
- shadow2 = PlanetShadow(p->body, p->planet_radius_km, t2);
- if (shadow2.status != ASTRO_SUCCESS)
- return FuncError(shadow2.status);
-
- result.value = (shadow2.r - shadow1.r) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static shadow_t PeakPlanetShadow(astro_body_t body, double planet_radius_km, astro_time_t search_center_time)
-{
- /* Search for when the body's shadow is closest to the center of the Earth. */
-
- astro_time_t t1, t2;
- astro_search_result_t result;
- planet_shadow_context_t context;
- const double window = 1.0; /* days before/after inferior conjunction to search for minimum shadow distance */
-
- t1 = Astronomy_AddDays(search_center_time, -window);
- t2 = Astronomy_AddDays(search_center_time, +window);
-
- context.body = body;
- context.planet_radius_km = planet_radius_km;
- context.direction = 0.0; /* not used in this search */
-
- result = Astronomy_Search(planet_shadow_distance_slope, &context, t1, t2, 1.0);
- if (result.status != ASTRO_SUCCESS)
- return ShadowError(result.status);
-
- return PlanetShadow(body, planet_radius_km, result.time);
-}
-
-
-static astro_func_result_t shadow_distance(void *context, astro_time_t time)
-{
- astro_func_result_t result;
- const shadow_context_t *p = (const shadow_context_t *) context;
- shadow_t shadow = EarthShadow(time);
- if (shadow.status != ASTRO_SUCCESS)
- return FuncError(shadow.status);
-
- result.value = p->direction * (shadow.r - p->radius_limit);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static double ShadowSemiDurationMinutes(astro_time_t center_time, double radius_limit, double window_minutes)
-{
- /* Search backwards and forwards from the center time until shadow axis distance crosses radius limit. */
- double window = window_minutes / (24.0 * 60.0);
- shadow_context_t context;
- astro_search_result_t s1, s2;
- astro_time_t before, after;
-
- before = Astronomy_AddDays(center_time, -window);
- after = Astronomy_AddDays(center_time, +window);
-
- context.radius_limit = radius_limit;
- context.direction = -1.0;
- s1 = Astronomy_Search(shadow_distance, &context, before, center_time, 1.0);
-
- context.direction = +1.0;
- s2 = Astronomy_Search(shadow_distance, &context, center_time, after, 1.0);
-
- if (s1.status != ASTRO_SUCCESS || s2.status != ASTRO_SUCCESS)
- return -1.0; /* something went wrong! */
-
- return (s2.time.ut - s1.time.ut) * ((24.0 * 60.0) / 2.0); /* convert days to minutes and average the semi-durations. */
-}
-
-
-/**
- * @brief Searches for a lunar eclipse.
- *
- * This function finds the first lunar eclipse that occurs after `startTime`.
- * A lunar eclipse may be penumbral, partial, or total.
- * See #astro_lunar_eclipse_t for more information.
- * To find a series of lunar eclipses, call this function once,
- * then keep calling #Astronomy_NextLunarEclipse as many times as desired,
- * passing in the `peak` value returned from the previous call.
- *
- * @param startTime
- * The date and time for starting the search for a lunar eclipse.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields will be valid.
- * Any other value indicates an error.
- */
-astro_lunar_eclipse_t Astronomy_SearchLunarEclipse(astro_time_t startTime)
-{
- const double PruneLatitude = 1.8; /* full Moon's ecliptic latitude above which eclipse is impossible */
- astro_time_t fmtime;
- astro_lunar_eclipse_t eclipse;
- astro_search_result_t fullmoon;
- shadow_t shadow;
- int fmcount;
- double eclip_lat, eclip_lon, distance;
-
- /* Iterate through consecutive full moons until we find any kind of lunar eclipse. */
- fmtime = startTime;
- for (fmcount=0; fmcount < 12; ++fmcount)
- {
- /* Search for the next full moon. Any eclipse will be near it. */
- fullmoon = Astronomy_SearchMoonPhase(180.0, fmtime, 40.0);
- if (fullmoon.status != ASTRO_SUCCESS)
- return LunarEclipseError(fullmoon.status);
-
- /* Pruning: if the full Moon's ecliptic latitude is too large, a lunar eclipse is not possible. */
- CalcMoon(fullmoon.time.tt / 36525.0, &eclip_lon, &eclip_lat, &distance);
- if (RAD2DEG * fabs(eclip_lat) < PruneLatitude)
- {
- /* Search near the full moon for the time when the center of the Moon */
- /* is closest to the line passing through the centers of the Sun and Earth. */
- shadow = PeakEarthShadow(fullmoon.time);
- if (shadow.status != ASTRO_SUCCESS)
- return LunarEclipseError(shadow.status);
-
- if (shadow.r < shadow.p + MOON_MEAN_RADIUS_KM)
- {
- /* This is at least a penumbral eclipse. We will return a result. */
- eclipse.status = ASTRO_SUCCESS;
- eclipse.kind = ECLIPSE_PENUMBRAL;
- eclipse.obscuration = 0.0;
- eclipse.peak = shadow.time;
- eclipse.sd_total = 0.0;
- eclipse.sd_partial = 0.0;
- eclipse.sd_penum = ShadowSemiDurationMinutes(shadow.time, shadow.p + MOON_MEAN_RADIUS_KM, 200.0);
- if (eclipse.sd_penum <= 0.0)
- return LunarEclipseError(ASTRO_SEARCH_FAILURE);
-
- if (shadow.r < shadow.k + MOON_MEAN_RADIUS_KM)
- {
- /* This is at least a partial eclipse. */
- eclipse.kind = ECLIPSE_PARTIAL;
- eclipse.sd_partial = ShadowSemiDurationMinutes(shadow.time, shadow.k + MOON_MEAN_RADIUS_KM, eclipse.sd_penum);
- if (eclipse.sd_partial <= 0.0)
- return LunarEclipseError(ASTRO_SEARCH_FAILURE);
-
- if (shadow.r + MOON_MEAN_RADIUS_KM < shadow.k)
- {
- /* This is a total eclipse. */
- eclipse.kind = ECLIPSE_TOTAL;
- eclipse.obscuration = 1.0;
- eclipse.sd_total = ShadowSemiDurationMinutes(shadow.time, shadow.k - MOON_MEAN_RADIUS_KM, eclipse.sd_partial);
- if (eclipse.sd_total <= 0.0)
- return LunarEclipseError(ASTRO_SEARCH_FAILURE);
- }
- else
- {
- /* For lunar eclipses, we calculate the fraction of the Moon's disc covered by the Earth's umbra. */
- eclipse.obscuration = Obscuration(MOON_MEAN_RADIUS_KM, shadow.k, shadow.r);
- }
- }
- return eclipse;
- }
- }
-
- /* We didn't find an eclipse on this full moon, so search for the next one. */
- fmtime = Astronomy_AddDays(fullmoon.time, 10.0);
- }
-
- /* Safety valve to prevent infinite loop. */
- /* This should never happen, because at least 2 lunar eclipses happen per year. */
- return LunarEclipseError(ASTRO_INTERNAL_ERROR);
-}
-
-/**
- * @brief Searches for the next lunar eclipse in a series.
- *
- * After using #Astronomy_SearchLunarEclipse to find the first lunar eclipse
- * in a series, you can call this function to find the next consecutive lunar eclipse.
- * Pass in the `peak` value from the #astro_lunar_eclipse_t returned by the
- * previous call to `Astronomy_SearchLunarEclipse` or `Astronomy_NextLunarEclipse`
- * to find the next lunar eclipse.
- *
- * @param prevEclipseTime
- * A date and time near a full moon. Lunar eclipse search will start at the next full moon.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields will be valid.
- * Any other value indicates an error.
- */
-astro_lunar_eclipse_t Astronomy_NextLunarEclipse(astro_time_t prevEclipseTime)
-{
- astro_time_t startTime = Astronomy_AddDays(prevEclipseTime, 10.0);
- return Astronomy_SearchLunarEclipse(startTime);
-}
-
-
-static astro_global_solar_eclipse_t GlobalSolarEclipseError(astro_status_t status)
-{
- astro_global_solar_eclipse_t eclipse;
-
- eclipse.status = status;
- eclipse.kind = ECLIPSE_NONE;
- eclipse.peak = TimeError();
- eclipse.obscuration = eclipse.distance = eclipse.latitude = eclipse.longitude = NAN;
-
- return eclipse;
-}
-
-/* The umbra radius tells us what kind of eclipse the observer sees. */
-/* If the umbra radius is positive, this is a total eclipse. Otherwise, it's annular. */
-/* HACK: I added a tiny bias (14 meters) to match Espenak test data. */
-#define EclipseKindFromUmbra(k) (((k) > 0.014) ? ECLIPSE_TOTAL : ECLIPSE_ANNULAR)
-
-static double SolarEclipseObscuration(
- astro_vector_t hm, /* heliocentric Moon */
- astro_vector_t lo) /* lunacentric observer */
-{
- astro_vector_t ho; /* heliocentric observer */
- astro_angle_result_t sun_moon_separation;
- double obscuration, sun_au, sun_radius, moon_radius;
-
- /* Find heliocentric observer. */
- ho.status = ASTRO_SUCCESS;
- ho.t = lo.t;
- ho.x = hm.x + lo.x;
- ho.y = hm.y + lo.y;
- ho.z = hm.z + lo.z;
-
- /* Find the distance from the Sun's center to the observer. */
- sun_au = Astronomy_VectorLength(ho);
-
- /* Calculate the apparent angular radius of the Sun for the observer. */
- sun_radius = asin(SUN_RADIUS_AU / sun_au);
-
- /* Calculate the apparent angular radius of the Moon for the observer. */
- moon_radius = asin(MOON_POLAR_RADIUS_AU / Astronomy_VectorLength(lo));
-
- /* Calculate the apparent angular separation between the Sun's center and the Moon's center. */
- sun_moon_separation = Astronomy_AngleBetween(lo, ho);
-
- if (sun_moon_separation.status != ASTRO_SUCCESS)
- return -1.0; /* internal error! should never happen. */
-
- obscuration = Obscuration(sun_radius, moon_radius, sun_moon_separation.angle * DEG2RAD);
-
- /* HACK: In marginal cases, we need to clamp obscuration to less than 1.0. */
- if (obscuration > 0.9999)
- obscuration = 0.9999;
-
- return obscuration;
-}
-
-static astro_global_solar_eclipse_t GeoidIntersect(shadow_t shadow)
-{
- astro_global_solar_eclipse_t eclipse;
- astro_rotation_t rot, inv;
- astro_vector_t v, e, o;
- shadow_t surface;
- double A, B, C, radic, u, R;
- double px, py, pz, proj;
- double gast;
-
- eclipse.status = ASTRO_SUCCESS;
- eclipse.kind = ECLIPSE_PARTIAL;
- eclipse.peak = shadow.time;
- eclipse.distance = shadow.r;
- eclipse.latitude = eclipse.longitude = NAN;
-
- /*
- We want to calculate the intersection of the shadow axis with the Earth's geoid.
- First we must convert EQJ (equator of J2000) coordinates to EQD (equator of date)
- coordinates that are perfectly aligned with the Earth's equator at this
- moment in time.
- */
- rot = Astronomy_Rotation_EQJ_EQD(&shadow.time);
- if (rot.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(rot.status);
-
- v = Astronomy_RotateVector(rot, shadow.dir); /* shadow-axis vector in equator-of-date coordinates */
- if (v.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(v.status);
-
- e = Astronomy_RotateVector(rot, shadow.target); /* lunacentric Earth in equator-of-date coordinates */
- if (e.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(e.status);
-
- /*
- Convert all distances from AU to km.
- But dilate the z-coordinates so that the Earth becomes a perfect sphere.
- Then find the intersection of the vector with the sphere.
- See p 184 in Montenbruck & Pfleger's "Astronomy on the Personal Computer", second edition.
- */
- v.x *= KM_PER_AU;
- v.y *= KM_PER_AU;
- v.z *= KM_PER_AU / EARTH_FLATTENING;
-
- e.x *= KM_PER_AU;
- e.y *= KM_PER_AU;
- e.z *= KM_PER_AU / EARTH_FLATTENING;
-
- /*
- Solve the quadratic equation that finds whether and where
- the shadow axis intersects with the Earth in the dilated coordinate system.
- */
- R = EARTH_EQUATORIAL_RADIUS_KM;
- A = v.x*v.x + v.y*v.y + v.z*v.z;
- B = -2.0 * (v.x*e.x + v.y*e.y + v.z*e.z);
- C = (e.x*e.x + e.y*e.y + e.z*e.z) - R*R;
- radic = B*B - 4*A*C;
-
- if (radic > 0.0)
- {
- /* Calculate the closer of the two intersection points. */
- /* This will be on the day side of the Earth. */
- u = (-B - sqrt(radic)) / (2 * A);
-
- /* Convert lunacentric dilated coordinates to geocentric coordinates. */
- px = u*v.x - e.x;
- py = u*v.y - e.y;
- pz = (u*v.z - e.z) * EARTH_FLATTENING;
-
- /* Convert cartesian coordinates into geodetic latitude/longitude. */
- proj = hypot(px, py) * (EARTH_FLATTENING * EARTH_FLATTENING);
- if (proj == 0.0)
- eclipse.latitude = (pz > 0.0) ? +90.0 : -90.0;
- else
- eclipse.latitude = RAD2DEG * atan(pz / proj);
-
- /* Adjust longitude for Earth's rotation at the given UT. */
- gast = Astronomy_SiderealTime(&eclipse.peak);
- eclipse.longitude = fmod((RAD2DEG*atan2(py, px)) - (15*gast), 360.0);
- if (eclipse.longitude <= -180.0)
- eclipse.longitude += 360.0;
- else if (eclipse.longitude > +180.0)
- eclipse.longitude -= 360.0;
-
- /* We want to determine whether the observer sees a total eclipse or an annular eclipse. */
- /* We need to perform a series of vector calculations... */
- /* Calculate the inverse rotation matrix, so we can convert EQD to EQJ. */
- inv = Astronomy_InverseRotation(rot);
- if (inv.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(inv.status);
-
- /* Put the EQD geocentric coordinates of the observer into the vector 'o'. */
- /* Also convert back from kilometers to astronomical units. */
- o.status = ASTRO_SUCCESS;
- o.t = shadow.time;
- o.x = px / KM_PER_AU;
- o.y = py / KM_PER_AU;
- o.z = pz / KM_PER_AU;
-
- /* Rotate the observer's geocentric EQD back to the EQJ system. */
- o = Astronomy_RotateVector(inv, o);
-
- /* Convert geocentric vector to lunacentric vector. */
- o.x += shadow.target.x;
- o.y += shadow.target.y;
- o.z += shadow.target.z;
-
- /* Recalculate the shadow using a vector from the Moon's center toward the observer. */
- surface = CalcShadow(MOON_POLAR_RADIUS_KM, shadow.time, o, shadow.dir);
-
- /* If we did everything right, the shadow distance should be very close to zero. */
- /* That's because we already determined the observer 'o' is on the shadow axis! */
- if (surface.r > 1.0e-9 || surface.r < 0.0)
- return GlobalSolarEclipseError(ASTRO_INTERNAL_ERROR);
-
- eclipse.kind = EclipseKindFromUmbra(surface.k);
- if (eclipse.kind == ECLIPSE_TOTAL)
- eclipse.obscuration = 1.0;
- else
- eclipse.obscuration = SolarEclipseObscuration(shadow.dir, o);
- }
- else
- {
- /* This is a partial solar eclipse. It does not make practical sense to calculate obscuration. */
- /* Anyone who wants obscuration should use Astronomy_SearchLocalSolarEclipse for a specific location on the Earth. */
- eclipse.obscuration = NAN;
- }
-
- return eclipse;
-}
-
-
-/**
- * @brief Searches for a solar eclipse visible anywhere on the Earth's surface.
- *
- * This function finds the first solar eclipse that occurs after `startTime`.
- * A solar eclipse may be partial, annular, or total.
- * See #astro_global_solar_eclipse_t for more information.
- * To find a series of solar eclipses, call this function once,
- * then keep calling #Astronomy_NextGlobalSolarEclipse as many times as desired,
- * passing in the `peak` value returned from the previous call.
- *
- * @param startTime
- * The date and time for starting the search for a solar eclipse.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields are as described in #astro_global_solar_eclipse_t.
- * Any other value indicates an error.
- */
-astro_global_solar_eclipse_t Astronomy_SearchGlobalSolarEclipse(astro_time_t startTime)
-{
- const double PruneLatitude = 1.8; /* Moon's ecliptic latitude beyond which eclipse is impossible */
- astro_time_t nmtime;
- astro_search_result_t newmoon;
- shadow_t shadow;
- int nmcount;
- double eclip_lat, eclip_lon, distance;
-
- /* Iterate through consecutive new moons until we find a solar eclipse visible somewhere on Earth. */
- nmtime = startTime;
- for (nmcount=0; nmcount < 12; ++nmcount)
- {
- /* Search for the next new moon. Any eclipse will be near it. */
- newmoon = Astronomy_SearchMoonPhase(0.0, nmtime, 40.0);
- if (newmoon.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(newmoon.status);
-
- /* Pruning: if the new moon's ecliptic latitude is too large, a solar eclipse is not possible. */
- CalcMoon(newmoon.time.tt / 36525.0, &eclip_lon, &eclip_lat, &distance);
- if (RAD2DEG * fabs(eclip_lat) < PruneLatitude)
- {
- /* Search near the new moon for the time when the center of the Earth */
- /* is closest to the line passing through the centers of the Sun and Moon. */
- shadow = PeakMoonShadow(newmoon.time);
- if (shadow.status != ASTRO_SUCCESS)
- return GlobalSolarEclipseError(shadow.status);
-
- if (shadow.r < shadow.p + EARTH_MEAN_RADIUS_KM)
- {
- /* This is at least a partial solar eclipse visible somewhere on Earth. */
- /* Try to find an intersection between the shadow axis and the Earth's oblate geoid. */
- return GeoidIntersect(shadow);
- }
- }
-
- /* We didn't find an eclipse on this new moon, so search for the next one. */
- nmtime = Astronomy_AddDays(newmoon.time, 10.0);
- }
-
- /* Safety valve to prevent infinite loop. */
- /* This should never happen, because at least 2 solar eclipses happen per year. */
- return GlobalSolarEclipseError(ASTRO_INTERNAL_ERROR);
-}
-
-
-/**
- * @brief Searches for the next global solar eclipse in a series.
- *
- * After using #Astronomy_SearchGlobalSolarEclipse to find the first solar eclipse
- * in a series, you can call this function to find the next consecutive solar eclipse.
- * Pass in the `peak` value from the #astro_global_solar_eclipse_t returned by the
- * previous call to `Astronomy_SearchGlobalSolarEclipse` or `Astronomy_NextGlobalSolarEclipse`
- * to find the next solar eclipse.
- *
- * @param prevEclipseTime
- * A date and time near a new moon. Solar eclipse search will start at the next new moon.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields are as described in #astro_global_solar_eclipse_t.
- * Any other value indicates an error.
- */
-astro_global_solar_eclipse_t Astronomy_NextGlobalSolarEclipse(astro_time_t prevEclipseTime)
-{
- astro_time_t startTime = Astronomy_AddDays(prevEclipseTime, 10.0);
- return Astronomy_SearchGlobalSolarEclipse(startTime);
-}
-
-
-static astro_eclipse_event_t EclipseEventError(void)
-{
- astro_eclipse_event_t evt;
- evt.time = TimeError();
- evt.altitude = NAN;
- return evt;
-}
-
-
-static astro_local_solar_eclipse_t LocalSolarEclipseError(astro_status_t status)
-{
- astro_local_solar_eclipse_t eclipse;
-
- eclipse.status = status;
- eclipse.kind = ECLIPSE_NONE;
- eclipse.obscuration = NAN;
-
- eclipse.partial_begin = EclipseEventError();
- eclipse.total_begin = EclipseEventError();
- eclipse.peak = EclipseEventError();
- eclipse.total_end = EclipseEventError();
- eclipse.partial_end = EclipseEventError();
-
- return eclipse;
-}
-
-
-static shadow_t LocalMoonShadow(astro_time_t time, astro_observer_t observer)
-{
- astro_vector_t s, o, m;
- double pos[3];
-
- /* Calculate observer's geocentric position. */
- /* For efficiency, do this first, to populate the earth rotation parameters in 'time'. */
- /* That way they can be recycled instead of recalculated. */
- geo_pos(&time, observer, pos);
-
- /* Calculate geocentric Sun with aberration correction. */
- s = Astronomy_GeoVector(BODY_SUN, time, ABERRATION);
- if (s.status != ASTRO_SUCCESS)
- return ShadowError(s.status);
-
- m = Astronomy_GeoMoon(time); /* geocentric Moon */
-
- /* Calculate lunacentric location of an observer on the Earth's surface. */
- o.status = m.status;
- o.x = pos[0] - m.x;
- o.y = pos[1] - m.y;
- o.z = pos[2] - m.z;
- o.t = m.t;
-
- /* Convert geocentric moon to heliocentric Moon. */
- m.x -= s.x;
- m.y -= s.y;
- m.z -= s.z;
-
- return CalcShadow(MOON_MEAN_RADIUS_KM, time, o, m);
-}
-
-
-static astro_func_result_t local_shadow_distance_slope(void *context, astro_time_t time)
-{
- const double dt = 1.0 / 86400.0;
- astro_time_t t1, t2;
- astro_func_result_t result;
- shadow_t shadow1, shadow2;
- const astro_observer_t *observer = (const astro_observer_t *) context;
-
- t1 = Astronomy_AddDays(time, -dt);
- t2 = Astronomy_AddDays(time, +dt);
-
- shadow1 = LocalMoonShadow(t1, *observer);
- if (shadow1.status != ASTRO_SUCCESS)
- return FuncError(shadow1.status);
-
- shadow2 = LocalMoonShadow(t2, *observer);
- if (shadow2.status != ASTRO_SUCCESS)
- return FuncError(shadow2.status);
-
- result.value = (shadow2.r - shadow1.r) / dt;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static shadow_t PeakLocalMoonShadow(astro_time_t search_center_time, astro_observer_t observer)
-{
- astro_time_t t1, t2;
- astro_search_result_t result;
- const double window = 0.2;
-
- /*
- Search for the time near search_center_time that the Moon's shadow comes
- closest to the given observer.
- */
-
- t1 = Astronomy_AddDays(search_center_time, -window);
- t2 = Astronomy_AddDays(search_center_time, +window);
-
- result = Astronomy_Search(local_shadow_distance_slope, &observer, t1, t2, 1.0);
- if (result.status != ASTRO_SUCCESS)
- return ShadowError(result.status);
-
- return LocalMoonShadow(result.time, observer);
-}
-
-
-static double local_partial_distance(const shadow_t *shadow)
-{
- return shadow->p - shadow->r;
-}
-
-static double local_total_distance(const shadow_t *shadow)
-{
- /* Must take the absolute value of the umbra radius 'k' */
- /* because it can be negative for an annular eclipse. */
- return fabs(shadow->k) - shadow->r;
-}
-
-/** @cond DOXYGEN_SKIP */
-typedef double (* local_distance_func) (const shadow_t *shadow);
-
-typedef struct
-{
- local_distance_func func;
- double direction;
- astro_observer_t observer;
-}
-eclipse_transition_t;
-/* @endcond */
-
-
-static astro_func_result_t local_eclipse_func(void *context, astro_time_t time)
-{
- const eclipse_transition_t *trans = (const eclipse_transition_t *) context;
- shadow_t shadow;
- astro_func_result_t result;
-
- shadow = LocalMoonShadow(time, trans->observer);
- if (shadow.status != ASTRO_SUCCESS)
- return FuncError(shadow.status);
-
- result.value = trans->direction * trans->func(&shadow);
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-astro_func_result_t SunAltitude(
- astro_time_t time,
- astro_observer_t observer)
-{
- astro_equatorial_t equ;
- astro_horizon_t hor;
- astro_func_result_t result;
-
- equ = Astronomy_Equator(BODY_SUN, &time, observer, EQUATOR_OF_DATE, ABERRATION);
- if (equ.status != ASTRO_SUCCESS)
- return FuncError(equ.status);
-
- hor = Astronomy_Horizon(&time, observer, equ.ra, equ.dec, REFRACTION_NORMAL);
- result.value = hor.altitude;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-
-static astro_status_t CalcEvent(
- astro_observer_t observer,
- astro_time_t time,
- astro_eclipse_event_t *evt)
-{
- astro_func_result_t result;
-
- result = SunAltitude(time, observer);
- if (result.status != ASTRO_SUCCESS)
- {
- evt->time = TimeError();
- evt->altitude = NAN;
- return result.status;
- }
-
- evt->time = time;
- evt->altitude = result.value;
- return ASTRO_SUCCESS;
-}
-
-
-static astro_status_t LocalEclipseTransition(
- astro_observer_t observer,
- double direction,
- local_distance_func func,
- astro_time_t t1,
- astro_time_t t2,
- astro_eclipse_event_t *evt)
-{
- eclipse_transition_t trans;
- astro_search_result_t search;
-
- trans.func = func;
- trans.direction = direction;
- trans.observer = observer;
-
- search = Astronomy_Search(local_eclipse_func, &trans, t1, t2, 1.0);
- if (search.status != ASTRO_SUCCESS)
- {
- evt->time = TimeError();
- evt->altitude = NAN;
- return search.status;
- }
-
- return CalcEvent(observer, search.time, evt);
-}
-
-
-static astro_local_solar_eclipse_t LocalEclipse(
- shadow_t shadow,
- astro_observer_t observer)
-{
- const double PARTIAL_WINDOW = 0.2;
- const double TOTAL_WINDOW = 0.01;
- astro_local_solar_eclipse_t eclipse;
- astro_time_t t1, t2;
- astro_status_t status;
-
- status = CalcEvent(observer, shadow.time, &eclipse.peak);
- if (status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(status);
-
- t1 = Astronomy_AddDays(shadow.time, -PARTIAL_WINDOW);
- t2 = Astronomy_AddDays(shadow.time, +PARTIAL_WINDOW);
-
- status = LocalEclipseTransition(observer, +1.0, local_partial_distance, t1, shadow.time, &eclipse.partial_begin);
- if (status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(status);
-
- status = LocalEclipseTransition(observer, -1.0, local_partial_distance, shadow.time, t2, &eclipse.partial_end);
- if (status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(status);
-
- if (shadow.r < fabs(shadow.k)) /* take absolute value of 'k' to handle annular eclipses too. */
- {
- t1 = Astronomy_AddDays(shadow.time, -TOTAL_WINDOW);
- t2 = Astronomy_AddDays(shadow.time, +TOTAL_WINDOW);
-
- status = LocalEclipseTransition(observer, +1.0, local_total_distance, t1, shadow.time, &eclipse.total_begin);
- if (status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(status);
-
- status = LocalEclipseTransition(observer, -1.0, local_total_distance, shadow.time, t2, &eclipse.total_end);
- if (status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(status);
-
- eclipse.kind = EclipseKindFromUmbra(shadow.k);
- if (eclipse.kind == ECLIPSE_TOTAL)
- eclipse.obscuration = 1.0;
- else
- eclipse.obscuration = SolarEclipseObscuration(shadow.dir, shadow.target);
- }
- else
- {
- eclipse.total_begin = eclipse.total_end = EclipseEventError();
- eclipse.kind = ECLIPSE_PARTIAL;
- eclipse.obscuration = SolarEclipseObscuration(shadow.dir, shadow.target);
- }
-
- eclipse.status = ASTRO_SUCCESS;
- return eclipse;
-}
-
-
-/**
- * @brief Searches for a solar eclipse visible at a specific location on the Earth's surface.
- *
- * This function finds the first solar eclipse that occurs after `startTime`.
- * A solar eclipse may be partial, annular, or total.
- * See #astro_local_solar_eclipse_t for more information.
- * To find a series of solar eclipses, call this function once,
- * then keep calling #Astronomy_NextLocalSolarEclipse as many times as desired,
- * passing in the `peak` value returned from the previous call.
- *
- * IMPORTANT: An eclipse reported by this function might be partly or
- * completely invisible to the observer due to the time of day.
- *
- * @param startTime
- * The date and time for starting the search for a solar eclipse.
- *
- * @param observer
- * The geographic location of the observer.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields are as described in #astro_local_solar_eclipse_t.
- * Any other value indicates an error.
- */
-astro_local_solar_eclipse_t Astronomy_SearchLocalSolarEclipse(
- astro_time_t startTime,
- astro_observer_t observer)
-{
- const double PruneLatitude = 1.8; /* Moon's ecliptic latitude beyond which eclipse is impossible */
- astro_time_t nmtime;
- astro_search_result_t newmoon;
- shadow_t shadow;
- double eclip_lat, eclip_lon, distance;
- astro_local_solar_eclipse_t eclipse;
-
- /* Iterate through consecutive new moons until we find a solar eclipse visible somewhere on Earth. */
- nmtime = startTime;
- for(;;)
- {
- /* Search for the next new moon. Any eclipse will be near it. */
- newmoon = Astronomy_SearchMoonPhase(0.0, nmtime, 40.0);
- if (newmoon.status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(newmoon.status);
-
- /* Pruning: if the new moon's ecliptic latitude is too large, a solar eclipse is not possible. */
- CalcMoon(newmoon.time.tt / 36525.0, &eclip_lon, &eclip_lat, &distance);
- if (RAD2DEG * fabs(eclip_lat) < PruneLatitude)
- {
- /* Search near the new moon for the time when the observer */
- /* is closest to the line passing through the centers of the Sun and Moon. */
- shadow = PeakLocalMoonShadow(newmoon.time, observer);
- if (shadow.status != ASTRO_SUCCESS)
- return LocalSolarEclipseError(shadow.status);
-
- if (shadow.r < shadow.p)
- {
- /* This is at least a partial solar eclipse for the observer. */
- eclipse = LocalEclipse(shadow, observer);
-
- /* If any error occurs, something is really wrong and we should bail out. */
- if (eclipse.status != ASTRO_SUCCESS)
- return eclipse;
-
- /* Ignore any eclipse that happens completely at night. */
- /* More precisely, the center of the Sun must be above the horizon */
- /* at the beginning or the end of the eclipse, or we skip the event. */
- if (eclipse.partial_begin.altitude > 0.0 || eclipse.partial_end.altitude > 0.0)
- return eclipse;
- }
- }
-
- /* We didn't find an eclipse on this new moon, so search for the next one. */
- nmtime = Astronomy_AddDays(newmoon.time, 10.0);
- }
-}
-
-
-/**
- * @brief Searches for the next local solar eclipse in a series.
- *
- * After using #Astronomy_SearchLocalSolarEclipse to find the first solar eclipse
- * in a series, you can call this function to find the next consecutive solar eclipse.
- * Pass in the `peak` value from the #astro_local_solar_eclipse_t returned by the
- * previous call to `Astronomy_SearchLocalSolarEclipse` or `Astronomy_NextLocalSolarEclipse`
- * to find the next solar eclipse.
- *
- * @param prevEclipseTime
- * A date and time near a new moon. Solar eclipse search will start at the next new moon.
- *
- * @param observer
- * The geographic location of the observer.
- *
- * @return
- * If successful, the `status` field in the returned structure will contain `ASTRO_SUCCESS`
- * and the remaining structure fields are as described in #astro_local_solar_eclipse_t.
- * Any other value indicates an error.
- */
-astro_local_solar_eclipse_t Astronomy_NextLocalSolarEclipse(
- astro_time_t prevEclipseTime,
- astro_observer_t observer)
-{
- astro_time_t startTime = Astronomy_AddDays(prevEclipseTime, 10.0);
- return Astronomy_SearchLocalSolarEclipse(startTime, observer);
-}
-
-
-static astro_func_result_t planet_transit_bound(void *context, astro_time_t time)
-{
- shadow_t shadow;
- astro_func_result_t result;
- const planet_shadow_context_t *p = (const planet_shadow_context_t *) context;
-
- shadow = PlanetShadow(p->body, p->planet_radius_km, time);
- if (shadow.status != ASTRO_SUCCESS)
- return FuncError(shadow.status);
-
- result.status = ASTRO_SUCCESS;
- result.value = p->direction * (shadow.r - shadow.p);
- return result;
-}
-
-
-static astro_search_result_t PlanetTransitBoundary(
- astro_body_t body,
- double planet_radius_km,
- astro_time_t t1,
- astro_time_t t2,
- double direction)
-{
- /* Search for the time the planet's penumbra begins/ends making contact with the center of the Earth. */
- planet_shadow_context_t context;
-
- context.body = body;
- context.planet_radius_km = planet_radius_km;
- context.direction = direction;
-
- return Astronomy_Search(planet_transit_bound, &context, t1, t2, 1.0);
-}
-
-
-/**
- * @brief Searches for the first transit of Mercury or Venus after a given date.
- *
- * Finds the first transit of Mercury or Venus after a specified date.
- * A transit is when an inferior planet passes between the Sun and the Earth
- * so that the silhouette of the planet is visible against the Sun in the background.
- * To continue the search, pass the `finish` time in the returned structure to
- * #Astronomy_NextTransit.
- *
- * @param body
- * The planet whose transit is to be found. Must be `BODY_MERCURY` or `BODY_VENUS`.
- *
- * @param startTime
- * The date and time for starting the search for a transit.
- *
- * @return
- * If successful, the `status` field in the returned structure hold `ASTRO_SUCCESS`
- * and the other fields are as documented in #astro_transit_t.
- * Otherwise, `status` holds an error code and the other structure members are undefined.
- */
-astro_transit_t Astronomy_SearchTransit(astro_body_t body, astro_time_t startTime)
-{
- astro_time_t search_time;
- astro_transit_t transit;
- astro_search_result_t conj, search;
- astro_angle_result_t conj_separation, min_separation;
- shadow_t shadow;
- double planet_radius_km;
- astro_time_t tx;
- const double threshold_angle = 0.4; /* maximum angular separation to attempt transit calculation */
- const double dt_days = 1.0;
-
- /* Validate the planet and find its mean radius. */
- switch (body)
- {
- case BODY_MERCURY: planet_radius_km = 2439.7; break;
- case BODY_VENUS: planet_radius_km = 6051.8; break;
- default:
- return TransitErr(ASTRO_INVALID_BODY);
- }
-
- search_time = startTime;
- for(;;)
- {
- /*
- Search for the next inferior conjunction of the given planet.
- This is the next time the Earth and the other planet have the same
- ecliptic longitude as seen from the Sun.
- */
- conj = Astronomy_SearchRelativeLongitude(body, 0.0, search_time);
- if (conj.status != ASTRO_SUCCESS)
- return TransitErr(conj.status);
-
- /* Calculate the angular separation between the body and the Sun at this time. */
- conj_separation = Astronomy_AngleFromSun(body, conj.time);
- if (conj_separation.status != ASTRO_SUCCESS)
- return TransitErr(conj_separation.status);
-
- if (conj_separation.angle < threshold_angle)
- {
- /*
- The planet's angular separation from the Sun is small enough
- to consider it a transit candidate.
- Search for the moment when the line passing through the Sun
- and planet are closest to the Earth's center.
- */
- shadow = PeakPlanetShadow(body, planet_radius_km, conj.time);
- if (shadow.status != ASTRO_SUCCESS)
- return TransitErr(shadow.status);
-
- if (shadow.r < shadow.p) /* does the planet's penumbra touch the Earth's center? */
- {
- /* Find the beginning and end of the penumbral contact. */
- tx = Astronomy_AddDays(shadow.time, -dt_days);
- search = PlanetTransitBoundary(body, planet_radius_km, tx, shadow.time, -1.0);
- if (search.status != ASTRO_SUCCESS)
- return TransitErr(search.status);
- transit.start = search.time;
-
- tx = Astronomy_AddDays(shadow.time, +dt_days);
- search = PlanetTransitBoundary(body, planet_radius_km, shadow.time, tx, +1.0);
- if (search.status != ASTRO_SUCCESS)
- return TransitErr(search.status);
- transit.finish = search.time;
- transit.status = ASTRO_SUCCESS;
- transit.peak = shadow.time;
-
- min_separation = Astronomy_AngleFromSun(body, shadow.time);
- if (min_separation.status != ASTRO_SUCCESS)
- return TransitErr(min_separation.status);
-
- transit.separation = 60.0 * min_separation.angle; /* convert degrees to arcminutes */
- return transit;
- }
- }
-
- /* This inferior conjunction was not a transit. Try the next inferior conjunction. */
- search_time = Astronomy_AddDays(conj.time, 10.0);
- }
-}
-
-
-/**
- * @brief Searches for another transit of Mercury or Venus.
- *
- * After calling #Astronomy_SearchTransit to find a transit of Mercury or Venus,
- * this function finds the next transit after that.
- * Keep calling this function as many times as you want to keep finding more transits.
- *
- * @param body
- * The planet whose transit is to be found. Must be `BODY_MERCURY` or `BODY_VENUS`.
- *
- * @param prevTransitTime
- * A date and time near the previous transit.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`
- * and the other fields are as documented in #astro_transit_t.
- * Otherwise, `status` holds an error code and the other structure members are undefined.
- */
-astro_transit_t Astronomy_NextTransit(astro_body_t body, astro_time_t prevTransitTime)
-{
- astro_time_t startTime;
-
- startTime = Astronomy_AddDays(prevTransitTime, 100.0);
- return Astronomy_SearchTransit(body, startTime);
-}
-
-
-static astro_node_event_t NodeError(astro_status_t status)
-{
- astro_node_event_t node;
-
- node.status = status;
- node.time = TimeError();
- node.kind = INVALID_NODE;
-
- return node;
-}
-
-static astro_func_result_t MoonNodeSearchFunc(void *context, astro_time_t time)
-{
- astro_func_result_t result;
- astro_spherical_t eclip;
- astro_node_kind_t kind = *((astro_node_kind_t *)context);
-
- eclip = Astronomy_EclipticGeoMoon(time);
-
- result.value = eclip.lat * (double)kind;
- result.status = ASTRO_SUCCESS;
- return result;
-}
-
-static const double MOON_NODE_STEP_DAYS = +10.0; /* a safe number of days to step without missing a Moon node */
-
-/**
- * @brief Searches for a time when the Moon's center crosses through the ecliptic plane.
- *
- * Searches for the first ascending or descending node of the Moon after `startTime`.
- * An ascending node is when the Moon's center passes through the ecliptic plane
- * (the plane of the Earth's orbit around the Sun) from south to north.
- * A descending node is when the Moon's center passes through the ecliptic plane
- * from north to south. Nodes indicate possible times of solar or lunar eclipses,
- * if the Moon also happens to be in the correct phase (new or full, respectively).
- *
- * Call `Astronomy_SearchMoonNode` to find the first of a series of nodes.
- * Then call #Astronomy_NextMoonNode to find as many more consecutive nodes as desired.
- *
- * @param startTime
- * The date and time for starting the search for an ascending or descending node of the Moon.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`
- * and the other fields are as documented in #astro_node_event_t.
- * Otherwise, `status` holds an error code and the other structure members are undefined.
- */
-astro_node_event_t Astronomy_SearchMoonNode(astro_time_t startTime)
-{
- astro_node_event_t node;
- astro_time_t time1, time2;
- astro_spherical_t eclip1, eclip2;
- astro_node_kind_t kind;
- astro_search_result_t result;
-
- /* Start at the given moment in time and sample the Moon's ecliptic latitude. */
- /* Step 10 days at a time, searching for an interval where that latitude crosses zero. */
- time1 = startTime;
- eclip1 = Astronomy_EclipticGeoMoon(time1); /* never returns a failure code */
-
- for(;;)
- {
- time2 = Astronomy_AddDays(time1, MOON_NODE_STEP_DAYS);
- eclip2 = Astronomy_EclipticGeoMoon(time2); /* never returns a failure code */
- if (eclip1.lat * eclip2.lat <= 0.0)
- {
- /* There is a node somewhere inside this closed time interval. */
- /* Figure out whether it is an ascending node or a descending node. */
- kind = (eclip2.lat > eclip1.lat) ? ASCENDING_NODE : DESCENDING_NODE;
- result = Astronomy_Search(MoonNodeSearchFunc, &kind, time1, time2, 1.0);
- if (result.status != ASTRO_SUCCESS)
- return NodeError(result.status);
-
- node.status = ASTRO_SUCCESS;
- node.time = result.time;
- node.kind = kind;
- return node;
- }
- time1 = time2;
- eclip1 = eclip2;
- }
-}
-
-
-/**
- * @brief Searches for the next time when the Moon's center crosses through the ecliptic plane.
- *
- * Call #Astronomy_SearchMoonNode to find the first of a series of nodes.
- * Then call `Astronomy_NextMoonNode` to find as many more consecutive nodes as desired.
- *
- * @param prevNode
- * The previous node found from calling #Astronomy_SearchMoonNode or `Astronomy_NextMoonNode`.
- *
- * @return
- * If successful, the `status` field in the returned structure holds `ASTRO_SUCCESS`
- * and the other fields are as documented in #astro_node_event_t.
- * Otherwise, `status` holds an error code and the other structure members are undefined.
- */
-astro_node_event_t Astronomy_NextMoonNode(astro_node_event_t prevNode)
-{
- astro_time_t time;
- astro_node_event_t node;
-
- if (prevNode.status != ASTRO_SUCCESS)
- return NodeError(ASTRO_INVALID_PARAMETER);
-
- if (prevNode.kind != ASCENDING_NODE && prevNode.kind != DESCENDING_NODE)
- return NodeError(ASTRO_INVALID_PARAMETER);
-
- time = Astronomy_AddDays(prevNode.time, MOON_NODE_STEP_DAYS);
- node = Astronomy_SearchMoonNode(time);
- if (node.status == ASTRO_SUCCESS)
- {
- /* Verify nodes are alternating as expected. */
- if (prevNode.kind == ASCENDING_NODE)
- {
- if (node.kind != DESCENDING_NODE)
- return NodeError(ASTRO_INTERNAL_ERROR);
- }
- else
- {
- if (node.kind != ASCENDING_NODE)
- return NodeError(ASTRO_INTERNAL_ERROR);
- }
- }
- return node;
-}
-
-
-/**
- * @brief Frees up all dynamic memory allocated by Astronomy Engine.
- *
- * Astronomy Engine uses dynamic memory allocation in only one place:
- * it makes calculation of Pluto's orbit more efficient by caching 11 KB
- * segments and recycling them. To force purging this cache and
- * freeing all the dynamic memory, you can call this function at any time.
- * It is always safe to call, although it will slow down the very next
- * calculation of Pluto's position for a nearby time value.
- * Calling this function before your program exits is optional, but
- * it will be helpful for leak-checkers like valgrind.
- */
-void Astronomy_Reset(void)
-{
- int i;
- for (i=0; i < PLUTO_NUM_STATES-1; ++i)
- {
- free(pluto_cache[i]);
- pluto_cache[i] = NULL;
- }
-}
-
-
-static astro_axis_t EarthRotationAxis(astro_time_t *time)
-{
- astro_axis_t axis;
- double pos1[3];
- double pos2[3];
- astro_equatorial_t equ;
-
- if (time == NULL)
- return AxisErr(ASTRO_INVALID_PARAMETER, TimeError());
-
- /*
- Unlike the other planets, we have a model of precession and nutation
- for the Earth's axis that provides a north pole vector.
- So calculate the vector first, then derive the (RA,DEC) angles from the vector.
- */
-
- /* Start with a north pole vector in equator-of-date coordinates: (0,0,1). */
- pos1[0] = 0.0;
- pos1[1] = 0.0;
- pos1[2] = 1.0;
-
- /* Convert the vector into J2000 coordinates. */
- nutation(pos1, time, INTO_2000, pos2);
- precession(pos2, *time, INTO_2000, pos1);
- axis.north.x = pos1[0];
- axis.north.y = pos1[1];
- axis.north.z = pos1[2];
- axis.north.t = *time;
- axis.north.status = ASTRO_SUCCESS;
-
- /* Derive angular values: right ascension and declination. */
- equ = Astronomy_EquatorFromVector(axis.north);
- if (equ.status != ASTRO_SUCCESS)
- return AxisErr(equ.status, *time);
- axis.ra = equ.ra;
- axis.dec = equ.dec;
-
- /* Use a modified version of the era() function that does not trim to 0..360 degrees. */
- /* This expression is also corrected to give the correct angle at the J2000 epoch. */
- axis.spin = 190.41375788700253 + (360.9856122880876 * time->ut);
-
- axis.status = ASTRO_SUCCESS;
-
- return axis;
-}
-
-
-/**
- * @brief Calculates information about a body's rotation axis at a given time.
- *
- * Calculates the orientation of a body's rotation axis, along with
- * the rotation angle of its prime meridian, at a given moment in time.
- *
- * This function uses formulas standardized by the IAU Working Group
- * on Cartographics and Rotational Elements 2015 report, as described
- * in the following document:
- *
- * https://astropedia.astrogeology.usgs.gov/download/Docs/WGCCRE/WGCCRE2015reprint.pdf
- *
- * See #astro_axis_t for more detailed information.
- *
- * @param body
- * The body whose rotation axis is to be found. The supported bodies are:
- * `BODY_SUN`, `BODY_MOON`, `BODY_MERCURY`, `BODY_VENUS`, `BODY_EARTH`, `BODY_MARS`,
- * `BODY_JUPITER`, `BODY_SATURN`, `BODY_URANUS`, `BODY_NEPTUNE`, `BODY_PLUTO`.
- *
- * @param time
- * The time for which the body's rotation axis is to be found.
- *
- * @return astro_axis_t
- */
-astro_axis_t Astronomy_RotationAxis(astro_body_t body, astro_time_t *time)
-{
- astro_axis_t axis;
- double ra, dec, w;
- double radlat, radlon, rcoslat;
- double Ja, Jb, Jc, Jd, Je, N;
- double E1, E2, E3, E4, E5, E6, E7, E8, E9, E10, E11, E12, E13;
- double d, T;
-
- if (time == NULL)
- return AxisErr(ASTRO_INVALID_PARAMETER, TimeError());
-
- d = time->tt;
- T = d / 36525.0;
-
- switch (body)
- {
- case BODY_SUN:
- ra = 286.13;
- dec = 63.87;
- w = 84.176 + (14.1844 * d);
- break;
-
- case BODY_MERCURY:
- ra = 281.0103 - (0.0328 * T);
- dec = 61.4155 - (0.0049 * T);
- w = (
- 329.5988
- + (6.1385108 * d)
- + (0.01067257 * sin(DEG2RAD*(174.7910857 + 4.092335*d)))
- - (0.00112309 * sin(DEG2RAD*(349.5821714 + 8.184670*d)))
- - (0.00011040 * sin(DEG2RAD*(164.3732571 + 12.277005*d)))
- - (0.00002539 * sin(DEG2RAD*(339.1643429 + 16.369340*d)))
- - (0.00000571 * sin(DEG2RAD*(153.9554286 + 20.461675*d)))
- );
- break;
-
- case BODY_VENUS:
- ra = 272.76;
- dec = 67.16;
- w = 160.20 - (1.4813688 * d);
- break;
-
- case BODY_EARTH:
- return EarthRotationAxis(time);
-
- case BODY_MOON:
- /*
- https://astropedia.astrogeology.usgs.gov/alfresco/d/d/workspace/SpacesStore/28fd9e81-1964-44d6-a58b-fbbf61e64e15/WGCCRE2009reprint.pdf
- Page 8, Table 2.
- */
- E1 = DEG2RAD * (125.045 - 0.0529921*d);
- E2 = DEG2RAD * (250.089 - 0.1059842*d);
- E3 = DEG2RAD * (260.008 + 13.0120009*d);
- E4 = DEG2RAD * (176.625 + 13.3407154*d);
- E5 = DEG2RAD * (357.529 + 0.9856003*d);
- E6 = DEG2RAD * (311.589 + 26.4057084*d);
- E7 = DEG2RAD * (134.963 + 13.0649930*d);
- E8 = DEG2RAD * (276.617 + 0.3287146*d);
- E9 = DEG2RAD * (34.226 + 1.7484877*d);
- E10 = DEG2RAD * (15.134 - 0.1589763*d);
- E11 = DEG2RAD * (119.743 + 0.0036096*d);
- E12 = DEG2RAD * (239.961 + 0.1643573*d);
- E13 = DEG2RAD * (25.053 + 12.9590088*d);
-
- ra = (
- 269.9949 + 0.0031*T
- - 3.8787*sin(E1)
- - 0.1204*sin(E2)
- + 0.0700*sin(E3)
- - 0.0172*sin(E4)
- + 0.0072*sin(E6)
- - 0.0052*sin(E10)
- + 0.0043*sin(E13)
- );
-
- dec = (
- 66.5392 + 0.0130*T
- + 1.5419*cos(E1)
- + 0.0239*cos(E2)
- - 0.0278*cos(E3)
- + 0.0068*cos(E4)
- - 0.0029*cos(E6)
- + 0.0009*cos(E7)
- + 0.0008*cos(E10)
- - 0.0009*cos(E13)
- );
-
- w = (
- 38.3213 + (13.17635815 - 1.4e-12*d)*d
- + 3.5610*sin(E1)
- + 0.1208*sin(E2)
- - 0.0642*sin(E3)
- + 0.0158*sin(E4)
- + 0.0252*sin(E5)
- - 0.0066*sin(E6)
- - 0.0047*sin(E7)
- - 0.0046*sin(E8)
- + 0.0028*sin(E9)
- + 0.0052*sin(E10)
- + 0.0040*sin(E11)
- + 0.0019*sin(E12)
- - 0.0044*sin(E13)
- );
- break;
-
- case BODY_MARS:
- ra = (
- 317.269202 - 0.10927547*T
- + 0.000068 * sin(DEG2RAD*(198.991226 + 19139.4819985*T))
- + 0.000238 * sin(DEG2RAD*(226.292679 + 38280.8511281*T))
- + 0.000052 * sin(DEG2RAD*(249.663391 + 57420.7251593*T))
- + 0.000009 * sin(DEG2RAD*(266.183510 + 76560.6367950*T))
- + 0.419057 * sin(DEG2RAD*(79.398797 + 0.5042615*T))
- );
-
- dec = (
- 54.432516 - 0.05827105*T
- + 0.000051*cos(DEG2RAD*(122.433576 + 19139.9407476*T))
- + 0.000141*cos(DEG2RAD*(43.058401 + 38280.8753272*T))
- + 0.000031*cos(DEG2RAD*(57.663379 + 57420.7517205*T))
- + 0.000005*cos(DEG2RAD*(79.476401 + 76560.6495004*T))
- + 1.591274*cos(DEG2RAD*(166.325722 + 0.5042615*T))
- );
-
- w = (
- 176.049863 + 350.891982443297*d
- + 0.000145*sin(DEG2RAD*(129.071773 + 19140.0328244*T))
- + 0.000157*sin(DEG2RAD*(36.352167 + 38281.0473591*T))
- + 0.000040*sin(DEG2RAD*(56.668646 + 57420.9295360*T))
- + 0.000001*sin(DEG2RAD*(67.364003 + 76560.2552215*T))
- + 0.000001*sin(DEG2RAD*(104.792680 + 95700.4387578*T))
- + 0.584542*sin(DEG2RAD*(95.391654 + 0.5042615*T))
- );
- break;
-
- case BODY_JUPITER:
- Ja = DEG2RAD*(99.360714 + 4850.4046*T);
- Jb = DEG2RAD*(175.895369 + 1191.9605*T);
- Jc = DEG2RAD*(300.323162 + 262.5475*T);
- Jd = DEG2RAD*(114.012305 + 6070.2476*T);
- Je = DEG2RAD*(49.511251 + 64.3000*T);
-
- ra = (
- 268.056595 - 0.006499*T
- + 0.000117*sin(Ja)
- + 0.000938*sin(Jb)
- + 0.001432*sin(Jc)
- + 0.000030*sin(Jd)
- + 0.002150*sin(Je)
- );
-
- dec = (
- 64.495303 + 0.002413*T
- + 0.000050*cos(Ja)
- + 0.000404*cos(Jb)
- + 0.000617*cos(Jc)
- - 0.000013*cos(Jd)
- + 0.000926*cos(Je)
- );
-
- w = 284.95 + 870.536*d;
- break;
-
- case BODY_SATURN:
- ra = 40.589 - 0.036*T;
- dec = 83.537 - 0.004*T;
- w = 38.90 + 810.7939024*d;
- break;
-
- case BODY_URANUS:
- ra = 257.311;
- dec = -15.175;
- w = 203.81 - 501.1600928*d;
- break;
-
- case BODY_NEPTUNE:
- N = DEG2RAD*(357.85 + 52.316*T);
- ra = 299.36 + 0.70*sin(N);
- dec = 43.46 - 0.51*cos(N);
- w = 249.978 + 541.1397757*d - 0.48*sin(N);
- break;
-
- case BODY_PLUTO:
- ra = 132.993;
- dec = -6.163;
- w = 302.695 + 56.3625225*d;
- break;
-
- default:
- return AxisErr(ASTRO_INVALID_BODY, *time);
- }
-
- axis.ra = ra / 15.0; /* convert degrees to sidereal hours */
- axis.dec = dec;
- axis.spin = w;
-
- /* calculate the north pole vector using the given angles. */
- radlat = dec * DEG2RAD;
- radlon = ra * DEG2RAD;
- rcoslat = cos(radlat);
- axis.north.x = rcoslat * cos(radlon);
- axis.north.y = rcoslat * sin(radlon);
- axis.north.z = sin(radlat);
- axis.north.t = *time;
- axis.north.status = ASTRO_SUCCESS;
-
- axis.status = ASTRO_SUCCESS;
- return axis;
-}
-
-#ifdef __cplusplus
-}
-#endif
diff --git a/deps/astronomy/astronomy.h b/deps/astronomy/astronomy.h
deleted file mode 100644
index 9c73a19670..0000000000
--- a/deps/astronomy/astronomy.h
+++ /dev/null
@@ -1,1431 +0,0 @@
-/*
- Astronomy Engine for C/C++.
- https://github.com/cosinekitty/astronomy
-
- MIT License
-
- Copyright (c) 2019-2024 Don Cross
-
- Permission is hereby granted, free of charge, to any person obtaining a copy
- of this software and associated documentation files (the "Software"), to deal
- in the Software without restriction, including without limitation the rights
- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
- copies of the Software, and to permit persons to whom the Software is
- furnished to do so, subject to the following conditions:
-
- The above copyright notice and this permission notice shall be included in all
- copies or substantial portions of the Software.
-
- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
- SOFTWARE.
-*/
-
-#ifndef __ASTRONOMY_H
-#define __ASTRONOMY_H
-
-#include /* for size_t */
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-/*---------- numeric constants ----------*/
-
-/**
- * \def C_AUDAY
- * @brief The speed of light in AU/day.
- */
-#define C_AUDAY 173.1446326846693
-
-/**
- * \def KM_PER_AU
- * @brief The number of kilometers in one astronomical unit (AU).
- */
-#define KM_PER_AU 1.4959787069098932e+8
-
-/**
- * \def AU_PER_LY
- * @brief The number of astronomical units per light-year.
- */
-#define AU_PER_LY 63241.07708807546
-
-/**
- * \def DEG2RAD
- * @brief The factor to convert degrees to radians = pi/180.
- */
-#define DEG2RAD 0.017453292519943296
-
-/**
- * \def HOUR2RAD
- * @brief The factor to convert sidereal hours to radians = pi/12.
- */
-#define HOUR2RAD 0.2617993877991494365
-
-/**
- * \def RAD2DEG
- * @brief The factor to convert radians to degrees = 180/pi.
- */
-#define RAD2DEG 57.295779513082321
-
-/**
- * \def RAD2HOUR
- * @brief The factor to convert radians to sidereal hours = 12/pi.
- */
-#define RAD2HOUR 3.819718634205488
-
-/**
- * \def SUN_RADIUS_KM
- * @brief The mean radius of the Sun's photosphere, expressed in kilometers. The Sun is nearly spherical.
- */
-#define SUN_RADIUS_KM 695700.0
-
-/**
- * \def MERCURY_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Mercury, expressed in kilometers.
- */
-#define MERCURY_EQUATORIAL_RADIUS_KM 2440.5
-
-/**
- * \def MERCURY_POLAR_RADIUS_KM
- * @brief The polar radius of Mercury, expressed in kilometers.
- */
-#define MERCURY_POLAR_RADIUS_KM 2438.3
-
-/**
- * \def VENUS_RADIUS_KM
- * @brief The mean radius of Venus, expressed in kilometers. Venus is nearly spherical.
- */
-#define VENUS_RADIUS_KM 6051.8
-
-/**
- * \def EARTH_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of the Earth, expressed in kilometers.
- */
-#define EARTH_EQUATORIAL_RADIUS_KM 6378.1366
-
-/**
- * \def EARTH_FLATTENING
- * @brief The Earth's polar radius divided by its equatorial radius.
- */
-#define EARTH_FLATTENING 0.996647180302104
-
-/**
- * \def EARTH_POLAR_RADIUS_KM
- * @brief The polar radius of the Earth, expressed in kilometers.
- */
-#define EARTH_POLAR_RADIUS_KM (EARTH_EQUATORIAL_RADIUS_KM * EARTH_FLATTENING)
-
-/**
- * \def MOON_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of the Moon, expressed in kilometers.
- */
-#define MOON_EQUATORIAL_RADIUS_KM 1738.1
-
-/**
- * \def MOON_POLAR_RADIUS_KM
- * @brief The polar radius of the Moon, expressed in kilometers.
- */
-#define MOON_POLAR_RADIUS_KM 1736.0
-
-/**
- * \def MARS_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Mars, expressed in kilometers.
- */
-#define MARS_EQUATORIAL_RADIUS_KM 3396.2
-
-/**
- * \def MARS_POLAR_RADIUS_KM
- * @brief The polar radius of Mars, expressed in kilometers.
- */
-#define MARS_POLAR_RADIUS_KM 3376.2
-
-/*
- Jupiter radius data are nominal values obtained from:
- https://www.iau.org/static/resolutions/IAU2015_English.pdf
- https://nssdc.gsfc.nasa.gov/planetary/factsheet/jupiterfact.html
-*/
-
-/**
- * \def JUPITER_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Jupiter, expressed in kilometers.
- */
-#define JUPITER_EQUATORIAL_RADIUS_KM 71492.0
-
-/**
- * \def JUPITER_POLAR_RADIUS_KM
- * @brief The polar radius of Jupiter, expressed in kilometers.
- */
-#define JUPITER_POLAR_RADIUS_KM 66854.0
-
-/**
- * \def JUPITER_MEAN_RADIUS_KM
- * @brief The volumetric mean radius of Jupiter, expressed in kilometers.
- */
-#define JUPITER_MEAN_RADIUS_KM 69911.0
-
-/*
- The radii of Jupiter's four major moons are obtained from:
- https://ssd.jpl.nasa.gov/?sat_phys_par
-*/
-
-/**
- * \def IO_RADIUS_KM
- * @brief The mean radius of Jupiter's moon Io, expressed in kilometers.
- */
-#define IO_RADIUS_KM 1821.6
-
-/**
- * \def EUROPA_RADIUS_KM
- * @brief The mean radius of Jupiter's moon Europa, expressed in kilometers.
- */
-#define EUROPA_RADIUS_KM 1560.8
-
-/**
- * \def GANYMEDE_RADIUS_KM
- * @brief The mean radius of Jupiter's moon Ganymede, expressed in kilometers.
- */
-#define GANYMEDE_RADIUS_KM 2631.2
-
-/**
- * \def CALLISTO_RADIUS_KM
- * @brief The mean radius of Jupiter's moon Callisto, expressed in kilometers.
- */
-#define CALLISTO_RADIUS_KM 2410.3
-
-/**
- * \def SATURN_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Saturn, expressed in kilometers.
- */
-#define SATURN_EQUATORIAL_RADIUS_KM 60268.0
-
-/**
- * \def SATURN_POLAR_RADIUS_KM
- * @brief The polar radius of Saturn, expressed in kilometers.
- */
-#define SATURN_POLAR_RADIUS_KM 54364.0
-
-/**
- * \def URANUS_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Uranus, expressed in kilometers.
- */
-#define URANUS_EQUATORIAL_RADIUS_KM 25559.0
-
-/**
- * \def URANUS_POLAR_RADIUS_KM
- * @brief The polar radius of Uranus, expressed in kilometers.
- */
-#define URANUS_POLAR_RADIUS_KM 24973.0
-
-/**
- * \def NEPTUNE_EQUATORIAL_RADIUS_KM
- * @brief The equatorial radius of Neptune, expressed in kilometers.
- */
-#define NEPTUNE_EQUATORIAL_RADIUS_KM 24764.0
-
-/**
- * \def NEPTUNE_POLAR_RADIUS_KM
- * @brief The polar radius of Neptune, expressed in kilometers.
- */
-#define NEPTUNE_POLAR_RADIUS_KM 24341.0
-
-/**
- * \def PLUTO_RADIUS_KM
- * @brief The mean radius of Pluto, expressed in kilometers. Pluto is nearly spherical.
- */
-#define PLUTO_RADIUS_KM 1188.3
-
-
-/*---------- types ----------*/
-
-/**
- * @brief Indicates success/failure of an Astronomy Engine function call.
- */
-typedef enum
-{
- ASTRO_SUCCESS, /**< The operation was successful. */
- ASTRO_NOT_INITIALIZED, /**< A placeholder that can be used for data that is not yet initialized. */
- ASTRO_INVALID_BODY, /**< The celestial body was not valid. Different sets of bodies are supported depending on the function. */
- ASTRO_NO_CONVERGE, /**< A numeric solver failed to converge. This should not happen unless there is a bug in Astronomy Engine. */
- ASTRO_BAD_TIME, /**< The provided date/time is outside the range allowed by this function. */
- ASTRO_BAD_VECTOR, /**< Vector magnitude is too small to be normalized into a unit vector. */
- ASTRO_SEARCH_FAILURE, /**< Search was not able to find an ascending root crossing of the function in the specified time interval. */
- ASTRO_EARTH_NOT_ALLOWED, /**< The Earth cannot be treated as a celestial body seen from an observer on the Earth itself. */
- ASTRO_NO_MOON_QUARTER, /**< No lunar quarter occurs inside the specified time range. */
- ASTRO_WRONG_MOON_QUARTER, /**< Internal error: Astronomy_NextMoonQuarter found the wrong moon quarter. */
- ASTRO_INTERNAL_ERROR, /**< A self-check failed inside the code somewhere, indicating a bug needs to be fixed. */
- ASTRO_INVALID_PARAMETER, /**< A parameter value passed to a function was not valid. */
- ASTRO_FAIL_APSIS, /**< Special-case logic for finding Neptune/Pluto apsis failed. */
- ASTRO_BUFFER_TOO_SMALL, /**< A provided buffer's size is too small to receive the requested data. */
- ASTRO_OUT_OF_MEMORY, /**< An attempt to allocate memory failed. */
- ASTRO_INCONSISTENT_TIMES /**< The provided initial state vectors did not have matching times. */
-}
-astro_status_t;
-
-/**
- * @brief A date and time used for astronomical calculations.
- *
- * This type is of fundamental importance to Astronomy Engine.
- * It is used to represent dates and times for all astronomical calculations.
- * It is also included in the values returned by many Astronomy Engine functions.
- *
- * To create a valid astro_time_t value from scratch, call #Astronomy_MakeTime
- * (for a given calendar date and time) or #Astronomy_CurrentTime (for the system's
- * current date and time).
- *
- * To adjust an existing astro_time_t by a certain real number of days,
- * call #Astronomy_AddDays.
- *
- * The astro_time_t type contains `ut` to represent Universal Time (UT1/UTC) and
- * `tt` to represent Terrestrial Time (TT, also known as *ephemeris time*).
- * The difference `tt-ut` is known as *ΔT*, using a best-fit piecewise model devised by
- * [Espenak and Meeus](https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html).
- *
- * Both `tt` and `ut` are necessary for performing different astronomical calculations.
- * Indeed, certain calculations (such as rise/set times) require both time scales.
- * See the documentation for the `ut` and `tt` fields for more detailed information.
- *
- * In cases where `astro_time_t` is included in a structure returned by
- * a function that can fail, the `astro_status_t` field `status` will contain a value
- * other than `ASTRO_SUCCESS`; in that case the `ut` and `tt` will hold `NAN` (not a number).
- * In general, when there is an error code stored in a struct field `status`, the
- * caller should ignore all other values in that structure, including the `ut` and `tt`
- * inside `astro_time_t`.
- */
-typedef struct
-{
- /**
- * @brief UT1/UTC number of days since noon on January 1, 2000.
- *
- * The floating point number of days of Universal Time since noon UTC January 1, 2000.
- * Astronomy Engine approximates UTC and UT1 as being the same thing, although they are
- * not exactly equivalent; UTC and UT1 can disagree by up to ±0.9 seconds.
- * This approximation is sufficient for the accuracy requirements of Astronomy Engine.
- *
- * Universal Time Coordinate (UTC) is the international standard for legal and civil
- * timekeeping and replaces the older Greenwich Mean Time (GMT) standard.
- * UTC is kept in sync with unpredictable observed changes in the Earth's rotation
- * by occasionally adding leap seconds as needed.
- *
- * UT1 is an idealized time scale based on observed rotation of the Earth, which
- * gradually slows down in an unpredictable way over time, due to tidal drag by the Moon and Sun,
- * large scale weather events like hurricanes, and internal seismic and convection effects.
- * Conceptually, UT1 drifts from atomic time continuously and erratically, whereas UTC
- * is adjusted by a scheduled whole number of leap seconds as needed.
- *
- * The value in `ut` is appropriate for any calculation involving the Earth's rotation,
- * such as calculating rise/set times, culumination, and anything involving apparent
- * sidereal time.
- *
- * Before the era of atomic timekeeping, days based on the Earth's rotation
- * were often known as *mean solar days*.
- */
- double ut;
-
- /**
- * @brief Terrestrial Time days since noon on January 1, 2000.
- *
- * Terrestrial Time is an atomic time scale defined as a number of days since noon on January 1, 2000.
- * In this system, days are not based on Earth rotations, but instead by
- * the number of elapsed [SI seconds](https://physics.nist.gov/cuu/Units/second.html)
- * divided by 86400. Unlike `ut`, `tt` increases uniformly without adjustments
- * for changes in the Earth's rotation.
- *
- * The value in `tt` is used for calculations of movements not involving the Earth's rotation,
- * such as the orbits of planets around the Sun, or the Moon around the Earth.
- *
- * Historically, Terrestrial Time has also been known by the term *Ephemeris Time* (ET).
- */
- double tt;
-
- /**
- * @brief For internal use only. Used to optimize Earth tilt calculations.
- */
- double psi;
-
- /**
- * @brief For internal use only. Used to optimize Earth tilt calculations.
- */
- double eps;
-
- /**
- * @brief For internal use only. Lazy-caches sidereal time (Earth rotation).
- */
- double st;
-}
-astro_time_t;
-
-/**
- * @brief A calendar date and time expressed in UTC.
- */
-typedef struct
-{
- int year; /**< The year value, e.g. 2019. */
- int month; /**< The month value: 1=January, 2=February, ..., 12=December. */
- int day; /**< The day of the month in the range 1..31. */
- int hour; /**< The hour of the day in the range 0..23. */
- int minute; /**< The minute of the hour in the range 0..59. */
- double second; /**< The floating point number of seconds in the range [0,60). */
-}
-astro_utc_t;
-
-/**
- * @brief A 3D Cartesian vector whose components are expressed in Astronomical Units (AU).
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double x; /**< The Cartesian x-coordinate of the vector in AU. */
- double y; /**< The Cartesian y-coordinate of the vector in AU. */
- double z; /**< The Cartesian z-coordinate of the vector in AU. */
- astro_time_t t; /**< The date and time at which this vector is valid. */
-}
-astro_vector_t;
-
-/**
- * @brief A state vector that contains a position (AU) and velocity (AU/day).
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double x; /**< The Cartesian position x-coordinate of the vector in AU. */
- double y; /**< The Cartesian position y-coordinate of the vector in AU. */
- double z; /**< The Cartesian position z-coordinate of the vector in AU. */
- double vx; /**< The Cartesian velocity x-coordinate of the vector in AU/day. */
- double vy; /**< The Cartesian velocity y-coordinate of the vector in AU/day. */
- double vz; /**< The Cartesian velocity z-coordinate of the vector in AU/day. */
- astro_time_t t; /**< The date and time at which this state vector is valid. */
-}
-astro_state_vector_t;
-
-/**
- * @brief Spherical coordinates: latitude, longitude, distance.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double lat; /**< The latitude angle: -90..+90 degrees. */
- double lon; /**< The longitude angle: 0..360 degrees. */
- double dist; /**< Distance in AU. */
-}
-astro_spherical_t;
-
-/**
- * @brief An angular value expressed in degrees.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double angle; /**< An angle expressed in degrees. */
-}
-astro_angle_result_t;
-
-/**
- * @brief A celestial body.
- */
-typedef enum
-{
- BODY_INVALID = -1, /**< An invalid or undefined celestial body. */
- BODY_MERCURY, /**< Mercury */
- BODY_VENUS, /**< Venus */
- BODY_EARTH, /**< Earth */
- BODY_MARS, /**< Mars */
- BODY_JUPITER, /**< Jupiter */
- BODY_SATURN, /**< Saturn */
- BODY_URANUS, /**< Uranus */
- BODY_NEPTUNE, /**< Neptune */
- BODY_PLUTO, /**< Pluto */
- BODY_SUN, /**< Sun */
- BODY_MOON, /**< Moon */
- BODY_EMB, /**< Earth/Moon Barycenter */
- BODY_SSB, /**< Solar System Barycenter */
- BODY_STAR1 = 101, /**< user-defined star #1 */
- BODY_STAR2, /**< user-defined star #2 */
- BODY_STAR3, /**< user-defined star #3 */
- BODY_STAR4, /**< user-defined star #4 */
- BODY_STAR5, /**< user-defined star #5 */
- BODY_STAR6, /**< user-defined star #6 */
- BODY_STAR7, /**< user-defined star #7 */
- BODY_STAR8, /**< user-defined star #8 */
-}
-astro_body_t;
-
-/**
- * @brief The location of an observer on (or near) the surface of the Earth.
- *
- * This structure is passed to functions that calculate phenomena as observed
- * from a particular place on the Earth.
- *
- * You can create this structure directly, or you can call the convenience function
- * #Astronomy_MakeObserver to create one for you.
- */
-typedef struct
-{
- double latitude; /**< Geographic latitude in degrees north (positive) or south (negative) of the equator. */
- double longitude; /**< Geographic longitude in degrees east (positive) or west (negative) of the prime meridian at Greenwich, England. */
- double height; /**< The height above (positive) or below (negative) sea level, expressed in meters. */
-}
-astro_observer_t;
-
-/**
- * @brief Equatorial angular and cartesian coordinates.
- *
- * Coordinates of a celestial body as seen from the Earth (geocentric or topocentric, depending on context),
- * oriented with respect to the projection of the Earth's equator onto the sky.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double ra; /**< right ascension in sidereal hours. */
- double dec; /**< declination in degrees */
- double dist; /**< distance to the celestial body in AU. */
- astro_vector_t vec; /**< equatorial coordinates in cartesian vector form: x = March equinox, y = June solstice, z = north. */
-}
-astro_equatorial_t;
-
-/**
- * @brief Ecliptic angular and Cartesian coordinates.
- *
- * Coordinates of a celestial body as seen from the center of the Sun (heliocentric),
- * oriented with respect to the plane of the Earth's orbit around the Sun (the ecliptic).
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_vector_t vec; /**< Cartesian ecliptic vector: x=equinox, y=90 degrees prograde in ecliptic plane, z=northward perpendicular to ecliptic. */
- double elat; /**< Latitude in degrees north (positive) or south (negative) of the ecliptic plane. */
- double elon; /**< Longitude in degrees around the ecliptic plane prograde from the equinox. */
-}
-astro_ecliptic_t;
-
-/**
- * @brief Coordinates of a celestial body as seen by a topocentric observer.
- *
- * Contains horizontal and equatorial coordinates seen by an observer on or near
- * the surface of the Earth (a topocentric observer).
- * Optionally corrected for atmospheric refraction.
- */
-typedef struct
-{
- double azimuth; /**< Compass direction around the horizon in degrees. 0=North, 90=East, 180=South, 270=West. */
- double altitude; /**< Angle in degrees above (positive) or below (negative) the observer's horizon. */
- double ra; /**< Right ascension in sidereal hours. */
- double dec; /**< Declination in degrees. */
-}
-astro_horizon_t;
-
-/**
- * @brief Contains a rotation matrix that can be used to transform one coordinate system to another.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double rot[3][3]; /**< A normalized 3x3 rotation matrix. */
-}
-astro_rotation_t;
-
-/**
- * @brief Selects whether to correct for atmospheric refraction, and if so, how.
- */
-typedef enum
-{
- REFRACTION_NONE, /**< No atmospheric refraction correction (airless). */
- REFRACTION_NORMAL, /**< Recommended correction for standard atmospheric refraction. */
- REFRACTION_JPLHOR /**< Used only for compatibility testing with JPL Horizons online tool. */
-}
-astro_refraction_t;
-
-/**
- * @brief Information about idealized atmospheric variables at a given elevation.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double pressure; /**< Atmospheric pressure in pascals */
- double temperature; /**< Atmospheric temperature in kelvins */
- double density; /**< Atmospheric density relative to sea level */
-}
-astro_atmosphere_t;
-
-/**
- * @brief The result of a search for an astronomical event.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The time at which a searched-for event occurs. */
-}
-astro_search_result_t;
-
-/**
- * @brief
- * The dates and times of changes of season for a given calendar year.
- * Call #Astronomy_Seasons to calculate this data structure for a given year.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t mar_equinox; /**< The date and time of the March equinox for the specified year. */
- astro_time_t jun_solstice; /**< The date and time of the June soltice for the specified year. */
- astro_time_t sep_equinox; /**< The date and time of the September equinox for the specified year. */
- astro_time_t dec_solstice; /**< The date and time of the December solstice for the specified year. */
-}
-astro_seasons_t;
-
-/**
- * @brief A lunar quarter event (new moon, first quarter, full moon, or third quarter) along with its date and time.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- int quarter; /**< 0=new moon, 1=first quarter, 2=full moon, 3=third quarter. */
- astro_time_t time; /**< The date and time of the lunar quarter. */
-}
-astro_moon_quarter_t;
-
-/**
- * @brief A real value returned by a function whose ascending root is to be found.
- *
- * When calling #Astronomy_Search, the caller must pass in a callback function
- * compatible with the function-pointer type #astro_search_func_t
- * whose ascending root is to be found. That callback function must return astro_func_result_t.
- * If the function call is successful, it will set `status` to `ASTRO_SUCCESS` and `value`
- * to the numeric value appropriate for the given date and time.
- * If the call fails for some reason, it should set `status` to an appropriate error value
- * other than `ASTRO_SUCCESS`; in the error case, to guard against any possible misuse of `value`,
- * it is recommended to set `value` to `NAN`, though this is not strictly necessary.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double value; /**< The value returned by a function whose ascending root is to be found. */
-}
-astro_func_result_t;
-
-/**
- * @brief A pointer to a function that is to be passed as a callback to #Astronomy_Search.
- *
- * The function #Astronomy_Search numerically solves for the time that a given event occurs.
- * An event is defined as the time when an arbitrary function transitions between having
- * a negative value and a non-negative value. This transition is called an *ascending root*.
- *
- * The type astro_search_func_t represents such a callback function that accepts a
- * custom `context` pointer and an astro_time_t representing the time to probe.
- * The function returns an astro_func_result_t that contains either a real
- * number in `value` or an error code in `status` that aborts the search.
- *
- * The `context` points to some data whose type varies depending on the callback function.
- * It can contain any auxiliary parameters (other than time) needed to evaluate the function.
- * For example, a function may pertain to a specific celestial body, in which case `context`
- * may point to a value of type astro_body_t. The `context` parameter is supplied by
- * the caller of #Astronomy_Search, which passes it along to every call to the callback function.
- * If the caller of `Astronomy_Search` knows that the callback function does not need a context,
- * it is safe to pass `NULL` as the context pointer.
- */
-typedef astro_func_result_t (* astro_search_func_t) (void *context, astro_time_t time);
-
-/**
- * @brief A pointer to a function that calculates Delta T.
- *
- * Delta T is the discrepancy between times measured using an atomic clock
- * and times based on observations of the Earth's rotation, which is gradually
- * slowing down over time. Delta T = TT - UT, where
- * TT = Terrestrial Time, based on atomic time, and
- * UT = Universal Time, civil time based on the Earth's rotation.
- * Astronomy Engine defaults to using a Delta T function defined by
- * Espenak and Meeus in their "Five Millennium Canon of Solar Eclipses".
- * See: https://eclipse.gsfc.nasa.gov/SEhelp/deltatpoly2004.html
- */
-typedef double (* astro_deltat_func) (double ut);
-
-double Astronomy_DeltaT_EspenakMeeus(double ut);
-double Astronomy_DeltaT_JplHorizons(double ut);
-
-void Astronomy_SetDeltaTFunction(astro_deltat_func func);
-
-/**
- * @brief Indicates whether a body (especially Mercury or Venus) is best seen in the morning or evening.
- */
-typedef enum
-{
- VISIBLE_MORNING, /**< The body is best visible in the morning, before sunrise. */
- VISIBLE_EVENING /**< The body is best visible in the evening, after sunset. */
-}
-astro_visibility_t;
-
-/**
- * @brief
- * Contains information about the visibility of a celestial body at a given date and time.
- * See #Astronomy_Elongation for more detailed information about the members of this structure.
- * See also #Astronomy_SearchMaxElongation for how to search for maximum elongation events.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The date and time of the observation. */
- astro_visibility_t visibility; /**< Whether the body is best seen in the morning or the evening. */
- double elongation; /**< The angle in degrees between the body and the Sun, as seen from the Earth. */
- double ecliptic_separation; /**< The difference between the ecliptic longitudes of the body and the Sun, as seen from the Earth. */
-}
-astro_elongation_t;
-
-/**
- * @brief Information about a celestial body crossing a specific hour angle.
- *
- * Returned by the function #Astronomy_SearchHourAngleEx to report information about
- * a celestial body crossing a certain hour angle as seen by a specified topocentric observer.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The date and time when the body crosses the specified hour angle. */
- astro_horizon_t hor; /**< Apparent coordinates of the body at the time it crosses the specified hour angle. */
-}
-astro_hour_angle_t;
-
-/**
- * @brief Information about the brightness and illuminated shape of a celestial body.
- *
- * Returned by the functions #Astronomy_Illumination and #Astronomy_SearchPeakMagnitude
- * to report the visual magnitude and illuminated fraction of a celestial body at a given date and time.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The date and time of the observation. */
- double mag; /**< The visual magnitude of the body. Smaller values are brighter. */
- double phase_angle; /**< The angle in degrees between the Sun and the Earth, as seen from the body. Indicates the body's phase as seen from the Earth. */
- double phase_fraction; /**< A value in the range [0.0, 1.0] indicating what fraction of the body's apparent disc is illuminated, as seen from the Earth. */
- double helio_dist; /**< The distance between the Sun and the body at the observation time. */
- double ring_tilt; /**< For Saturn, the tilt angle in degrees of its rings as seen from Earth. For all other bodies, 0. */
-}
-astro_illum_t;
-
-/**
- * @brief The type of apsis: pericenter (closest approach) or apocenter (farthest distance).
- */
-typedef enum
-{
- APSIS_PERICENTER, /**< The body is at its closest approach to the object it orbits. */
- APSIS_APOCENTER, /**< The body is at its farthest distance from the object it orbits. */
- APSIS_INVALID /**< Undefined or invalid apsis. */
-}
-astro_apsis_kind_t;
-
-/**
- * @brief An apsis event: pericenter (closest approach) or apocenter (farthest distance).
- *
- * For the Moon orbiting the Earth, or a planet orbiting the Sun, an *apsis* is an
- * event where the orbiting body reaches its closest or farthest point from the primary body.
- * The closest approach is called *pericenter* and the farthest point is *apocenter*.
- *
- * More specific terminology is common for particular orbiting bodies.
- * The Moon's closest approach to the Earth is called *perigee* and its farthest
- * point is called *apogee*. The closest approach of a planet to the Sun is called
- * *perihelion* and the furthest point is called *aphelion*.
- *
- * This data structure is returned by #Astronomy_SearchLunarApsis and #Astronomy_NextLunarApsis
- * to iterate through consecutive alternating perigees and apogees.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The date and time of the apsis. */
- astro_apsis_kind_t kind; /**< Whether this is a pericenter or apocenter event. */
- double dist_au; /**< The distance between the centers of the bodies in astronomical units. */
- double dist_km; /**< The distance between the centers of the bodies in kilometers. */
-}
-astro_apsis_t;
-
-/**
- * @brief The different kinds of lunar/solar eclipses.
- */
-typedef enum
-{
- ECLIPSE_NONE, /**< No eclipse found. */
- ECLIPSE_PENUMBRAL, /**< A penumbral lunar eclipse. (Never used for a solar eclipse.) */
- ECLIPSE_PARTIAL, /**< A partial lunar/solar eclipse. */
- ECLIPSE_ANNULAR, /**< An annular solar eclipse. (Never used for a lunar eclipse.) */
- ECLIPSE_TOTAL /**< A total lunar/solar eclipse. */
-}
-astro_eclipse_kind_t;
-
-/**
- * @brief Information about a lunar eclipse.
- *
- * Returned by #Astronomy_SearchLunarEclipse or #Astronomy_NextLunarEclipse
- * to report information about a lunar eclipse event.
- * If a lunar eclipse is found, `status` holds `ASTRO_SUCCESS` and the other fields are set.
- * If `status` holds any other value, it is an error code and the other fields are undefined.
- *
- * When a lunar eclipse is found, it is classified as penumbral, partial, or total.
- * Penumbral eclipses are difficult to observe, because the Moon is only slightly dimmed
- * by the Earth's penumbra; no part of the Moon touches the Earth's umbra.
- * Partial eclipses occur when part, but not all, of the Moon touches the Earth's umbra.
- * Total eclipses occur when the entire Moon passes into the Earth's umbra.
- *
- * The `kind` field thus holds `ECLIPSE_PENUMBRAL`, `ECLIPSE_PARTIAL`, or `ECLIPSE_TOTAL`,
- * depending on the kind of lunar eclipse found.
- *
- * The `obscuration` field holds a value in the range [0, 1] that indicates what fraction
- * of the Moon's apparent disc area is covered by the Earth's umbra at the eclipse's peak.
- * This indicates how dark the peak eclipse appears. For penumbral eclipses, the obscuration
- * is 0, because the Moon does not pass through the Earth's umbra. For partial eclipses,
- * the obscuration is somewhere between 0 and 1. For total lunar eclipses, the obscuration is 1.
- *
- * Field `peak` holds the date and time of the center of the eclipse, when it is at its peak.
- *
- * Fields `sd_penum`, `sd_partial`, and `sd_total` hold the semi-duration of each phase
- * of the eclipse, which is half of the amount of time the eclipse spends in each
- * phase (expressed in minutes), or 0 if the eclipse never reaches that phase.
- * By converting from minutes to days, and subtracting/adding with `center`, the caller
- * may determine the date and time of the beginning/end of each eclipse phase.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_eclipse_kind_t kind; /**< The type of lunar eclipse found. */
- double obscuration; /**< The peak fraction of the Moon's apparent disc that is covered by the Earth's umbra. */
- astro_time_t peak; /**< The time of the eclipse at its peak. */
- double sd_penum; /**< The semi-duration of the penumbral phase in minutes. */
- double sd_partial; /**< The semi-duration of the partial phase in minutes, or 0.0 if none. */
- double sd_total; /**< The semi-duration of the total phase in minutes, or 0.0 if none. */
-}
-astro_lunar_eclipse_t;
-
-
-/**
- * @brief Reports the time and geographic location of the peak of a solar eclipse.
- *
- * Returned by #Astronomy_SearchGlobalSolarEclipse or #Astronomy_NextGlobalSolarEclipse
- * to report information about a solar eclipse event.
- * If a solar eclipse is found, `status` holds `ASTRO_SUCCESS` and `kind`, `peak`, and `distance`
- * have valid values. The `latitude` and `longitude` are set only for total and annular eclipses
- * (see more below).
- * If `status` holds any value other than `ASTRO_SUCCESS`, it is an error code;
- * in that case, `kind` holds `ECLIPSE_NONE` and all the other fields are undefined.
- *
- * The eclipse is classified as partial, annular, or total, depending on the
- * maximum amount of the Sun's disc obscured, as seen at the peak location
- * on the surface of the Earth.
- *
- * The `kind` field thus holds `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`.
- * A total eclipse is when the peak observer sees the Sun completely blocked by the Moon.
- * An annular eclipse is like a total eclipse, but the Moon is too far from the Earth's surface
- * to completely block the Sun; instead, the Sun takes on a ring-shaped appearance.
- * A partial eclipse is when the Moon blocks part of the Sun's disc, but nobody on the Earth
- * observes either a total or annular eclipse.
- *
- * If `kind` is `ECLIPSE_TOTAL` or `ECLIPSE_ANNULAR`, the `latitude` and `longitude`
- * fields give the geographic coordinates of the center of the Moon's shadow projected
- * onto the daytime side of the Earth at the instant of the eclipse's peak.
- * If `kind` has any other value, `latitude` and `longitude` are undefined and should
- * not be used.
- *
- * For total or annular eclipses, the `obscuration` field holds the fraction (0, 1]
- * of the Sun's apparent disc area that is blocked from view by the Moon's silhouette,
- * as seen by an observer located at the geographic coordinates `latitude`, `longitude`
- * at the darkest time `peak`. The value will always be 1 for total eclipses, and less than
- * 1 for annular eclipses.
- * For partial eclipses, `obscuration` is undefined and should not be used.
- * This is because there is little practical use for an obscuration value of
- * a partial eclipse without supplying a particular observation location.
- * Developers who wish to find an obscuration value for partial solar eclipses should therefore use
- * #Astronomy_SearchLocalSolarEclipse and provide the geographic coordinates of an observer.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_eclipse_kind_t kind; /**< The type of solar eclipse found. */
- double obscuration; /**< The peak fraction of the Sun's apparent disc area obscured by the Moon (total and annular eclipses only). */
- astro_time_t peak; /**< The date and time when the solar eclipse is darkest. This is the instant when the axis of the Moon's shadow cone passes closest to the Earth's center. */
- double distance; /**< The distance between the Sun/Moon shadow axis and the center of the Earth, in kilometers. */
- double latitude; /**< The geographic latitude at the center of the peak eclipse shadow. */
- double longitude; /**< The geographic longitude at the center of the peak eclipse shadow. */
-}
-astro_global_solar_eclipse_t;
-
-
-/**
- * @brief Holds a time and the observed altitude of the Sun at that time.
- *
- * When reporting a solar eclipse observed at a specific location on the Earth
- * (a "local" solar eclipse), a series of events occur. In addition
- * to the time of each event, it is important to know the altitude of the Sun,
- * because each event may be invisible to the observer if the Sun is below
- * the horizon.
- *
- * If `altitude` is negative, the event is theoretical only; it would be
- * visible if the Earth were transparent, but the observer cannot actually see it.
- * If `altitude` is positive but less than a few degrees, visibility will be impaired by
- * atmospheric interference (sunrise or sunset conditions).
- */
-typedef struct
-{
- astro_time_t time; /**< The date and time of the event. */
- double altitude; /**< The angular altitude of the center of the Sun above/below the horizon, at `time`, corrected for atmospheric refraction and expressed in degrees. */
-}
-astro_eclipse_event_t;
-
-
-/**
- * @brief Information about a solar eclipse as seen by an observer at a given time and geographic location.
- *
- * Returned by #Astronomy_SearchLocalSolarEclipse or #Astronomy_NextLocalSolarEclipse
- * to report information about a solar eclipse as seen at a given geographic location.
- * If a solar eclipse is found, `status` holds `ASTRO_SUCCESS` and the other fields are set.
- * If `status` holds any other value, it is an error code and the other fields are undefined.
- *
- * When a solar eclipse is found, it is classified as partial, annular, or total.
- * The `kind` field thus holds `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`.
- * A partial solar eclipse is when the Moon does not line up directly enough with the Sun
- * to completely block the Sun's light from reaching the observer.
- * An annular eclipse occurs when the Moon's disc is completely visible against the Sun
- * but the Moon is too far away to completely block the Sun's light; this leaves the
- * Sun with a ring-like appearance.
- * A total eclipse occurs when the Moon is close enough to the Earth and aligned with the
- * Sun just right to completely block all sunlight from reaching the observer.
- *
- * The `obscuration` field reports what fraction of the Sun's disc appears blocked
- * by the Moon when viewed by the observer at the peak eclipse time.
- * This is a value that ranges from 0 (no blockage) to 1 (total eclipse).
- * The obscuration value will be between 0 and 1 for partial eclipses and annular eclipses.
- * The value will be exactly 1 for total eclipses. Obscuration gives an indication
- * of how dark the eclipse appears.
- *
- * There are 5 "event" fields, each of which contains a time and a solar altitude.
- * Field `peak` holds the date and time of the center of the eclipse, when it is at its peak.
- * The fields `partial_begin` and `partial_end` are always set, and indicate when
- * the eclipse begins/ends. If the eclipse reaches totality or becomes annular,
- * `total_begin` and `total_end` indicate when the total/annular phase begins/ends.
- * When an event field is valid, the caller must also check its `altitude` field to
- * see whether the Sun is above the horizon at that time. See #astro_eclipse_kind_t
- * for more information.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_eclipse_kind_t kind; /**< The type of solar eclipse found: `ECLIPSE_PARTIAL`, `ECLIPSE_ANNULAR`, or `ECLIPSE_TOTAL`. */
- double obscuration; /**< The fraction of the Sun's apparent disc area obscured by the Moon at the eclipse peak. */
- astro_eclipse_event_t partial_begin; /**< The time and Sun altitude at the beginning of the eclipse. */
- astro_eclipse_event_t total_begin; /**< If this is an annular or a total eclipse, the time and Sun altitude when annular/total phase begins; otherwise invalid. */
- astro_eclipse_event_t peak; /**< The time and Sun altitude when the eclipse reaches its peak. */
- astro_eclipse_event_t total_end; /**< If this is an annular or a total eclipse, the time and Sun altitude when annular/total phase ends; otherwise invalid. */
- astro_eclipse_event_t partial_end; /**< The time and Sun altitude at the end of the eclipse. */
-}
-astro_local_solar_eclipse_t;
-
-
-/**
- * @brief Information about a transit of Mercury or Venus, as seen from the Earth.
- *
- * Returned by #Astronomy_SearchTransit or #Astronomy_NextTransit to report
- * information about a transit of Mercury or Venus.
- * A transit is when Mercury or Venus passes between the Sun and Earth so that
- * the other planet is seen in silhouette against the Sun.
- *
- * The `start` field reports the moment in time when the planet first becomes
- * visible against the Sun in its background.
- * The `peak` field reports when the planet is most aligned with the Sun,
- * as seen from the Earth.
- * The `finish` field reports the last moment when the planet is visible
- * against the Sun in its background.
- *
- * The calculations are performed from the point of view of a geocentric observer.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t start; /**< Date and time at the beginning of the transit. */
- astro_time_t peak; /**< Date and time of the peak of the transit. */
- astro_time_t finish; /**< Date and time at the end of the transit. */
- double separation; /**< Angular separation in arcminutes between the centers of the Sun and the planet at time `peak`. */
-}
-astro_transit_t;
-
-
-/**
- * @brief Aberration calculation options.
- *
- * [Aberration](https://en.wikipedia.org/wiki/Aberration_of_light) is an effect
- * causing the apparent direction of an observed body to be shifted due to transverse
- * movement of the Earth with respect to the rays of light coming from that body.
- * This angular correction can be anywhere from 0 to about 20 arcseconds,
- * depending on the position of the observed body relative to the instantaneous
- * velocity vector of the Earth.
- *
- * Some Astronomy Engine functions allow optional correction for aberration by
- * passing in a value of this enumerated type.
- *
- * Aberration correction is useful to improve accuracy of coordinates of
- * apparent locations of bodies seen from the Earth.
- * However, because aberration affects not only the observed body (such as a planet)
- * but the surrounding stars, aberration may be unhelpful (for example)
- * for determining exactly when a planet crosses from one constellation to another.
- */
-typedef enum
-{
- ABERRATION, /**< Request correction for aberration. */
- NO_ABERRATION /**< Do not correct for aberration. */
-}
-astro_aberration_t;
-
-/**
- * @brief Selects the date for which the Earth's equator is to be used for representing equatorial coordinates.
- *
- * The Earth's equator is not always in the same plane due to precession and nutation.
- *
- * Sometimes it is useful to have a fixed plane of reference for equatorial coordinates
- * across different calendar dates. In these cases, a fixed *epoch*, or reference time,
- * is helpful. Astronomy Engine provides the J2000 epoch for such cases. This refers
- * to the plane of the Earth's orbit as it was on noon UTC on 1 January 2000.
- *
- * For some other purposes, it is more helpful to represent coordinates using the Earth's
- * equator exactly as it is on that date. For example, when calculating rise/set times
- * or horizontal coordinates, it is most accurate to use the orientation of the Earth's
- * equator at that same date and time. For these uses, Astronomy Engine allows *of-date*
- * calculations.
- */
-typedef enum
-{
- EQUATOR_J2000, /**< Represent equatorial coordinates in the J2000 epoch. */
- EQUATOR_OF_DATE /**< Represent equatorial coordinates using the Earth's equator at the given date and time. */
-}
-astro_equator_date_t;
-
-/**
- * @brief Selects whether to search for a rise time or a set time.
- *
- * The #Astronomy_SearchRiseSetEx function finds the rise or set time of a body
- * depending on the value of its `direction` parameter.
- */
-typedef enum
-{
- DIRECTION_RISE = +1, /**< Search for the time a body begins to rise above the horizon. */
- DIRECTION_SET = -1, /**< Search for the time a body finishes sinking below the horizon. */
-}
-astro_direction_t;
-
-
-/**
- * @brief Reports the constellation that a given celestial point lies within.
- *
- * The #Astronomy_Constellation function returns this struct
- * to report which constellation corresponds with a given point in the sky.
- * Constellations are defined with respect to the B1875 equatorial system
- * per IAU standard. Although `Astronomy.Constellation` requires J2000 equatorial
- * coordinates, the struct contains converted B1875 coordinates for reference.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- const char *symbol; /**< 3-character mnemonic symbol for the constellation, e.g. "Ori". */
- const char *name; /**< Full name of constellation, e.g. "Orion". */
- double ra_1875; /**< Right ascension expressed in B1875 coordinates. */
- double dec_1875; /**< Declination expressed in B1875 coordinates. */
-}
-astro_constellation_t;
-
-
-/**
- * @brief Selects the output format of the function #Astronomy_FormatTime.
- */
-typedef enum
-{
- TIME_FORMAT_DAY, /**< Truncate to UTC calendar date only, e.g. `2020-12-31`. Buffer size must be at least 11 characters. */
- TIME_FORMAT_MINUTE, /**< Round to nearest UTC minute, e.g. `2020-12-31T15:47Z`. Buffer size must be at least 18 characters. */
- TIME_FORMAT_SECOND, /**< Round to nearest UTC second, e.g. `2020-12-31T15:47:32Z`. Buffer size must be at least 21 characters. */
- TIME_FORMAT_MILLI /**< Round to nearest UTC millisecond, e.g. `2020-12-31T15:47:32.397Z`. Buffer size must be at least 25 characters. */
-}
-astro_time_format_t;
-
-/**
- * @brief Lunar libration angles, returned by #Astronomy_Libration.
- */
-typedef struct
-{
- double elat; /**< Sub-Earth libration ecliptic latitude angle, in degrees. */
- double elon; /**< Sub-Earth libration ecliptic longitude angle, in degrees. */
- double mlat; /**< Moon's geocentric ecliptic latitude, in degrees. */
- double mlon; /**< Moon's geocentric ecliptic longitude, in degrees. */
- double dist_km; /**< Distance between the centers of the Earth and Moon in kilometers. */
- double diam_deg; /**< The apparent angular diameter of the Moon, in degrees, as seen from the center of the Earth. */
-}
-astro_libration_t;
-
-/**
- * @brief Information about a body's rotation axis at a given time.
- *
- * This structure is returned by #Astronomy_RotationAxis to report
- * the orientation of a body's rotation axis at a given moment in time.
- * The axis is specified by the direction in space that the body's north pole
- * points, using angular equatorial coordinates in the J2000 system (EQJ).
- *
- * Thus `ra` is the right ascension, and `dec` is the declination, of the
- * body's north pole vector at the given moment in time. The north pole
- * of a body is defined as the pole that lies on the north side of the
- * [Solar System's invariable plane](https://en.wikipedia.org/wiki/Invariable_plane),
- * regardless of the body's direction of rotation.
- *
- * The `spin` field indicates the angular position of a prime meridian
- * arbitrarily recommended for the body by the International Astronomical
- * Union (IAU).
- *
- * The fields `ra`, `dec`, and `spin` correspond to the variables
- * α0, δ0, and W, respectively, from
- * [Report of the IAU Working Group on Cartographic Coordinates and Rotational Elements: 2015](https://astropedia.astrogeology.usgs.gov/download/Docs/WGCCRE/WGCCRE2015reprint.pdf).
- *
- * The field `north` is a unit vector pointing in the direction of the body's north pole.
- * It is expressed in the equatorial J2000 system (EQJ).
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- double ra; /**< The J2000 right ascension of the body's north pole direction, in sidereal hours. */
- double dec; /**< The J2000 declination of the body's north pole direction, in degrees. */
- double spin; /**< Rotation angle of the body's prime meridian, in degrees. */
- astro_vector_t north; /**< A J2000 dimensionless unit vector pointing in the direction of the body's north pole. */
-}
-astro_axis_t;
-
-
-/**
- * \def TIME_TEXT_BYTES
- * @brief The smallest number of characters that is always large enough for #Astronomy_FormatTime.
- */
-#define TIME_TEXT_BYTES 28
-
-/**
- * @brief Holds the positions and velocities of Jupiter's major 4 moons.
- *
- * The #Astronomy_JupiterMoons function returns this struct
- * to report position and velocity vectors for Jupiter's largest 4 moons
- * Io, Europa, Ganymede, and Callisto. Each position vector is relative
- * to the center of Jupiter. Both position and velocity are oriented in
- * the EQJ system (that is, using Earth's equator at the J2000 epoch.)
- * The positions are expressed in astronomical units (AU),
- * and the velocities in AU/day.
- */
-typedef struct
-{
- astro_state_vector_t io; /**< Jovicentric position and velocity of Io. */
- astro_state_vector_t europa; /**< Jovicentric position and velocity of Europa. */
- astro_state_vector_t ganymede; /**< Jovicentric position and velocity of Ganymede. */
- astro_state_vector_t callisto; /**< Jovicentric position and velocity of Callisto. */
-}
-astro_jupiter_moons_t;
-
-
-/**
- * @brief Indicates whether a crossing through the ecliptic plane is ascending or descending.
- */
-typedef enum
-{
- INVALID_NODE = 0, /**< Placeholder value for a missing or invalid node. */
- ASCENDING_NODE = +1, /**< The body passes through the ecliptic plane from south to north. */
- DESCENDING_NODE = -1 /**< The body passes through the ecliptic plane from north to south. */
-}
-astro_node_kind_t;
-
-/**
- * @brief Information about an ascending or descending node of a body.
- *
- * This structure is returned by #Astronomy_SearchMoonNode and #Astronomy_NextMoonNode
- * to report information about the center of the Moon passing through the ecliptic plane.
- */
-typedef struct
-{
- astro_status_t status; /**< `ASTRO_SUCCESS` if this struct is valid; otherwise an error code. */
- astro_time_t time; /**< The time when the body passes through the ecliptic plane. */
- astro_node_kind_t kind; /**< Either `ASCENDING_NODE` or `DESCENDING_NODE`, depending on the direction of the ecliptic plane crossing. */
-}
-astro_node_event_t;
-
-
-/**
- * @brief A data type used for managing simulation of the gravitational forces on a small body.
- *
- * This is an opaque data type used to hold the internal state of
- * a numeric integrator used to calculate the trajectory of a small
- * body moving through the Solar System.
- */
-typedef struct astro_grav_sim_s astro_grav_sim_t;
-
-
-/*---------- functions ----------*/
-
-void Astronomy_Reset(void);
-double Astronomy_VectorLength(astro_vector_t vector);
-astro_angle_result_t Astronomy_AngleBetween(astro_vector_t a, astro_vector_t b);
-const char *Astronomy_BodyName(astro_body_t body);
-astro_body_t Astronomy_BodyCode(const char *name);
-astro_observer_t Astronomy_MakeObserver(double latitude, double longitude, double height);
-#if !defined(ASTRONOMY_ENGINE_NO_CURRENT_TIME)
-astro_time_t Astronomy_CurrentTime(void);
-#endif
-astro_time_t Astronomy_MakeTime(int year, int month, int day, int hour, int minute, double second);
-astro_time_t Astronomy_TimeFromUtc(astro_utc_t utc);
-astro_utc_t Astronomy_UtcFromTime(astro_time_t time);
-astro_status_t Astronomy_FormatTime(astro_time_t time, astro_time_format_t format, char *text, size_t size);
-astro_time_t Astronomy_TimeFromDays(double ut);
-astro_time_t Astronomy_TerrestrialTime(double tt);
-astro_time_t Astronomy_AddDays(astro_time_t time, double days);
-double Astronomy_SiderealTime(astro_time_t *time);
-astro_func_result_t Astronomy_HelioDistance(astro_body_t body, astro_time_t time);
-astro_vector_t Astronomy_HelioVector(astro_body_t body, astro_time_t time);
-astro_vector_t Astronomy_GeoVector(astro_body_t body, astro_time_t time, astro_aberration_t aberration);
-astro_vector_t Astronomy_GeoMoon(astro_time_t time);
-astro_spherical_t Astronomy_EclipticGeoMoon(astro_time_t time);
-astro_state_vector_t Astronomy_GeoMoonState(astro_time_t time);
-astro_state_vector_t Astronomy_GeoEmbState(astro_time_t time);
-astro_libration_t Astronomy_Libration(astro_time_t time);
-astro_state_vector_t Astronomy_BaryState(astro_body_t body, astro_time_t time);
-astro_state_vector_t Astronomy_HelioState(astro_body_t body, astro_time_t time);
-
-double Astronomy_MassProduct(astro_body_t body);
-double Astronomy_PlanetOrbitalPeriod(astro_body_t body);
-
-astro_state_vector_t Astronomy_LagrangePoint(
- int point,
- astro_time_t time,
- astro_body_t major_body,
- astro_body_t minor_body
-);
-
-astro_state_vector_t Astronomy_LagrangePointFast(
- int point,
- astro_state_vector_t major_state,
- double major_mass,
- astro_state_vector_t minor_state,
- double minor_mass
-);
-
-astro_jupiter_moons_t Astronomy_JupiterMoons(astro_time_t time);
-
-astro_equatorial_t Astronomy_Equator(
- astro_body_t body,
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate,
- astro_aberration_t aberration
-);
-
-astro_vector_t Astronomy_ObserverVector(
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate
-);
-
-astro_state_vector_t Astronomy_ObserverState(
- astro_time_t *time,
- astro_observer_t observer,
- astro_equator_date_t equdate
-);
-
-astro_observer_t Astronomy_VectorObserver(astro_vector_t *vector, astro_equator_date_t equdate);
-
-double Astronomy_ObserverGravity(double latitude, double height);
-
-astro_ecliptic_t Astronomy_SunPosition(astro_time_t time);
-astro_ecliptic_t Astronomy_Ecliptic(astro_vector_t eqj);
-astro_angle_result_t Astronomy_EclipticLongitude(astro_body_t body, astro_time_t time);
-
-astro_horizon_t Astronomy_Horizon(
- astro_time_t *time,
- astro_observer_t observer,
- double ra,
- double dec,
- astro_refraction_t refraction);
-
-astro_angle_result_t Astronomy_AngleFromSun(astro_body_t body, astro_time_t time);
-astro_elongation_t Astronomy_Elongation(astro_body_t body, astro_time_t time);
-astro_elongation_t Astronomy_SearchMaxElongation(astro_body_t body, astro_time_t startTime);
-astro_angle_result_t Astronomy_PairLongitude(astro_body_t body1, astro_body_t body2, astro_time_t time);
-
-/** @cond DOXYGEN_SKIP */
-/* Provided for backward compatibility. Newer code can use Astronomy_PairLongitude. */
-#define Astronomy_LongitudeFromSun(body,time) (Astronomy_PairLongitude((body), BODY_SUN, (time)))
-/** @endcond */
-
-astro_search_result_t Astronomy_SearchRelativeLongitude(astro_body_t body, double targetRelLon, astro_time_t startTime);
-astro_angle_result_t Astronomy_MoonPhase(astro_time_t time);
-astro_search_result_t Astronomy_SearchMoonPhase(double targetLon, astro_time_t startTime, double limitDays);
-astro_moon_quarter_t Astronomy_SearchMoonQuarter(astro_time_t startTime);
-astro_moon_quarter_t Astronomy_NextMoonQuarter(astro_moon_quarter_t mq);
-astro_lunar_eclipse_t Astronomy_SearchLunarEclipse(astro_time_t startTime);
-astro_lunar_eclipse_t Astronomy_NextLunarEclipse(astro_time_t prevEclipseTime);
-astro_global_solar_eclipse_t Astronomy_SearchGlobalSolarEclipse(astro_time_t startTime);
-astro_global_solar_eclipse_t Astronomy_NextGlobalSolarEclipse(astro_time_t prevEclipseTime);
-astro_local_solar_eclipse_t Astronomy_SearchLocalSolarEclipse(astro_time_t startTime, astro_observer_t observer);
-astro_local_solar_eclipse_t Astronomy_NextLocalSolarEclipse(astro_time_t prevEclipseTime, astro_observer_t observer);
-astro_transit_t Astronomy_SearchTransit(astro_body_t body, astro_time_t startTime);
-astro_transit_t Astronomy_NextTransit(astro_body_t body, astro_time_t prevTransitTime);
-astro_node_event_t Astronomy_SearchMoonNode(astro_time_t startTime);
-astro_node_event_t Astronomy_NextMoonNode(astro_node_event_t prevNode);
-
-astro_search_result_t Astronomy_Search(
- astro_search_func_t func,
- void *context,
- astro_time_t t1,
- astro_time_t t2,
- double dt_tolerance_seconds);
-
-astro_search_result_t Astronomy_SearchSunLongitude(
- double targetLon,
- astro_time_t startTime,
- double limitDays);
-
-astro_hour_angle_t Astronomy_SearchHourAngleEx(
- astro_body_t body,
- astro_observer_t observer,
- double hourAngle,
- astro_time_t startTime,
- int direction);
-
-astro_func_result_t Astronomy_HourAngle(
- astro_body_t body,
- astro_time_t *time,
- astro_observer_t observer);
-
-/** @cond DOXYGEN_SKIP */
-
-/* The following are provided for backward compatibility. */
-#define Astronomy_SearchHourAngle(body,observer,hourAngle,startTime) \
- Astronomy_SearchHourAngleEx((body), (observer), (hourAngle), (startTime), +1)
-
-#define Astronomy_SearchRiseSet(body,observer,direction,startTime,limitDays) \
- Astronomy_SearchRiseSetEx((body), (observer), (direction), (startTime), (limitDays), 0.0)
-
-/** @endcond */
-
-astro_search_result_t Astronomy_SearchRiseSetEx(
- astro_body_t body,
- astro_observer_t observer,
- astro_direction_t direction,
- astro_time_t startTime,
- double limitDays,
- double metersAboveGround);
-
-astro_search_result_t Astronomy_SearchAltitude(
- astro_body_t body,
- astro_observer_t observer,
- astro_direction_t direction,
- astro_time_t startTime,
- double limitDays,
- double altitude);
-
-astro_atmosphere_t Astronomy_Atmosphere(double elevationMeters);
-
-astro_axis_t Astronomy_RotationAxis(astro_body_t body, astro_time_t *time);
-
-astro_seasons_t Astronomy_Seasons(int year);
-astro_illum_t Astronomy_Illumination(astro_body_t body, astro_time_t time);
-astro_illum_t Astronomy_SearchPeakMagnitude(astro_body_t body, astro_time_t startTime);
-astro_apsis_t Astronomy_SearchLunarApsis(astro_time_t startTime);
-astro_apsis_t Astronomy_NextLunarApsis(astro_apsis_t apsis);
-astro_apsis_t Astronomy_SearchPlanetApsis(astro_body_t body, astro_time_t startTime);
-astro_apsis_t Astronomy_NextPlanetApsis(astro_body_t body, astro_apsis_t apsis);
-
-astro_rotation_t Astronomy_IdentityMatrix(void);
-astro_rotation_t Astronomy_InverseRotation(astro_rotation_t rotation);
-astro_rotation_t Astronomy_CombineRotation(astro_rotation_t a, astro_rotation_t b);
-astro_rotation_t Astronomy_Pivot(astro_rotation_t rotation, int axis, double angle);
-astro_vector_t Astronomy_VectorFromSphere(astro_spherical_t sphere, astro_time_t time);
-astro_spherical_t Astronomy_SphereFromVector(astro_vector_t vector);
-astro_equatorial_t Astronomy_EquatorFromVector(astro_vector_t vector);
-astro_vector_t Astronomy_VectorFromHorizon(astro_spherical_t sphere, astro_time_t time, astro_refraction_t refraction);
-astro_spherical_t Astronomy_HorizonFromVector(astro_vector_t vector, astro_refraction_t refraction);
-astro_vector_t Astronomy_RotateVector(astro_rotation_t rotation, astro_vector_t vector);
-astro_state_vector_t Astronomy_RotateState(astro_rotation_t rotation, astro_state_vector_t state);
-
-astro_rotation_t Astronomy_Rotation_EQD_EQJ(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_EQD_ECL(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_EQD_ECT(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_EQD_HOR(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_EQJ_EQD(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_EQJ_ECT(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_EQJ_ECL(void);
-astro_rotation_t Astronomy_Rotation_EQJ_HOR(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_ECL_EQD(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_ECL_EQJ(void);
-astro_rotation_t Astronomy_Rotation_ECL_HOR(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_ECT_EQJ(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_ECT_EQD(astro_time_t *time);
-astro_rotation_t Astronomy_Rotation_HOR_EQD(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_HOR_EQJ(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_HOR_ECL(astro_time_t *time, astro_observer_t observer);
-astro_rotation_t Astronomy_Rotation_EQJ_GAL(void);
-astro_rotation_t Astronomy_Rotation_GAL_EQJ(void);
-
-double Astronomy_Refraction(astro_refraction_t refraction, double altitude);
-double Astronomy_InverseRefraction(astro_refraction_t refraction, double bent_altitude);
-
-astro_constellation_t Astronomy_Constellation(double ra, double dec);
-
-astro_status_t Astronomy_GravSimInit(
- astro_grav_sim_t **simOut,
- astro_body_t originBody,
- astro_time_t time,
- int numBodies,
- const astro_state_vector_t *bodyStateArray
-);
-
-astro_status_t Astronomy_GravSimUpdate(
- astro_grav_sim_t *sim,
- astro_time_t time,
- int numBodies,
- astro_state_vector_t *bodyStateArray
-);
-
-astro_state_vector_t Astronomy_GravSimBodyState(
- astro_grav_sim_t *sim,
- astro_body_t body
-);
-
-astro_time_t Astronomy_GravSimTime(const astro_grav_sim_t *sim);
-int Astronomy_GravSimNumBodies(const astro_grav_sim_t *sim);
-astro_body_t Astronomy_GravSimOrigin(const astro_grav_sim_t *sim);
-void Astronomy_GravSimSwap(astro_grav_sim_t *sim);
-void Astronomy_GravSimFree(astro_grav_sim_t *sim);
-
-/**
- * @brief A function for which to solve a light-travel time problem.
- *
- * The function #Astronomy_CorrectLightTravel solves a generalized
- * problem of deducing how far in the past light must have left
- * a target object to be seen by an observer at a specified time.
- * This function pointer type expresses an arbitrary position vector
- * as function of time. Such a function must be passed to
- * `Astronomy_CorrectLightTravel`.
- */
-typedef astro_vector_t (* astro_position_func_t) (void *context, astro_time_t time);
-
-astro_vector_t Astronomy_CorrectLightTravel(
- void *context,
- astro_position_func_t func,
- astro_time_t time
-);
-
-astro_vector_t Astronomy_BackdatePosition(
- astro_time_t time,
- astro_body_t observerBody,
- astro_body_t targetBody,
- astro_aberration_t aberration
-);
-
-astro_status_t Astronomy_DefineStar(
- astro_body_t body,
- double ra,
- double dec,
- double distanceLightYears
-);
-
-#ifdef __cplusplus
-}
-#endif
-
-#endif /* ifndef __ASTRONOMY_H */
diff --git a/deps/astronomy/c_language.svg b/deps/astronomy/c_language.svg
deleted file mode 100644
index bb6aefbf1a..0000000000
--- a/deps/astronomy/c_language.svg
+++ /dev/null
@@ -1,3 +0,0 @@
-
-
-
\ No newline at end of file
diff --git a/deps/astronomy/cpp_language.svg b/deps/astronomy/cpp_language.svg
deleted file mode 100644
index 5e117077e1..0000000000
--- a/deps/astronomy/cpp_language.svg
+++ /dev/null
@@ -1,25 +0,0 @@
-
-
-
-
diff --git a/deps/centijson b/deps/centijson
deleted file mode 160000
index a2af6be6f9..0000000000
--- a/deps/centijson
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit a2af6be6f9d855f485136aaaa0f70a6e9c89a934
diff --git a/deps/centitoml/toml_conv.c b/deps/centitoml/toml_conv.c
index c22efbd37c..1640ceadb4 100644
--- a/deps/centitoml/toml_conv.c
+++ b/deps/centitoml/toml_conv.c
@@ -1,7 +1,7 @@
/* This file (toml_conv.c) is included into toml_api.c */
#include
-#include "json.h"
+#include
typedef const char *toml_raw_t;
@@ -239,4 +239,4 @@ init_number(VALUE* v, const char* data, size_t data_size)
return err;
return value_init_double(v, d);
}
-}
\ No newline at end of file
+}
diff --git a/deps/enet b/deps/enet
deleted file mode 160000
index 311360dbdd..0000000000
--- a/deps/enet
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit 311360dbddc350722da00a3026077c47327e932d
diff --git a/deps/libspng b/deps/libspng
deleted file mode 160000
index 7e7c6e44b0..0000000000
--- a/deps/libspng
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit 7e7c6e44b000ff2576850a86939255e106f3a162
diff --git a/deps/zlib b/deps/zlib
deleted file mode 160000
index 04f42ceca4..0000000000
--- a/deps/zlib
+++ /dev/null
@@ -1 +0,0 @@
-Subproject commit 04f42ceca40f73e2978b50e93806c2a18c1281fc
diff --git a/enet.mk b/enet.mk
deleted file mode 100644
index 1049a39159..0000000000
--- a/enet.mk
+++ /dev/null
@@ -1,17 +0,0 @@
-CC = $(PREFIX)gcc
-AR = $(PREFIX)ar
-INCS = -Ideps/enet/include
-CFLAGS = -g -Og -std=gnu11 -fmessage-length=0 $(WARNFLAGS) -Werror=implicit $(INCS)
-ARFLAGS = rcs
-
-ENET_FILES = callbacks.c compress.c host.c list.c packet.c peer.c protocol.c win32.c
-OBJS = $(ENET_FILES:%.c=obj/enet/%.o)
-
-obj/enet/%.o: deps/enet/%.c
- $(CC) $(CFLAGS) -c -o $@ $<
-
-obj/enet.a: $(OBJS)
- $(AR) $(ARFLAGS) $@ $(OBJS)
-
-clean:
- @$(RM) $(OBJS) obj/enet.a
diff --git a/levels/legacy_cfgs/magic.cfg b/levels/legacy_cfgs/magic.cfg
index ef49f83f8b..c637122a82 100644
--- a/levels/legacy_cfgs/magic.cfg
+++ b/levels/legacy_cfgs/magic.cfg
@@ -11,6 +11,10 @@ Name = SHOT_LIGHTNING
BaseExperienceGain = 256
Properties = REBOUND_IMMUNE WIND_IMMUNE FIXED_DAMAGE
+[shot11]
+Name = SHOT_GRENADE
+WithstandHitAgainst = WALL DOOR LAVA WATER
+
[shot12]
Name = SHOT_DRAIN
BaseExperienceGain = 256
@@ -25,6 +29,10 @@ Properties =
Name = SHOT_BOULDER
Health = 210
+[shot30]
+Name = SHOT_WORD_OF_POWER
+AreaDamage = 5 150 150
+
[spell21]
Name = SPELL_SIGHT
SpellPower = POWER_SIGHT
diff --git a/levels/legacy_cfgs/rules.cfg b/levels/legacy_cfgs/rules.cfg
index 7f72ce27bd..460d37db5e 100644
--- a/levels/legacy_cfgs/rules.cfg
+++ b/levels/legacy_cfgs/rules.cfg
@@ -3,6 +3,7 @@
; Note that it is partial config file - do not replace global config with this file.
[game]
+GoldPerHoard = 2250
DungeonHeartHealHealth = 1
PreserveClassicBugs = RESURRECT_FOREVER OVERFLOW_8BIT CLAIM_ROOM_ALL_THINGS RESURRECT_REMOVED NO_HAND_PURGE_ON_DEFEAT MUST_OBEY_KEEPS_NOT_DO_JOBS BREAK_NEUTRAL_WALLS ALWAYS_TUNNEL_TO_RED FULLY_HAPPY_WITH_GOLD FAINTED_IMMUNE_TO_BOULDER REBIRTH_KEEPS_SPELLS STUN_FRIENDLY_UNITS PASSIVE_NEUTRALS NEUTRAL_TORTURE_CONVERTS
MapCreatureLimit = 255
diff --git a/levels/legacy_crtr/ghost.cfg b/levels/legacy_crtr/ghost.cfg
index dc8250fc8b..1367e64348 100644
--- a/levels/legacy_crtr/ghost.cfg
+++ b/levels/legacy_crtr/ghost.cfg
@@ -7,6 +7,8 @@ Name = GHOST
FearStronger = 10000
Defence = 60
Luck = 4
+; In the original game, you could force-feed creatures even if they did not have any needs for eating. Setting HungerFill to 1 while HungerRate is set to 0 enables this mechanic.
+HungerFill = 1
Properties = IMMUNE_TO_GAS FLYING SEE_INVISIBLE EVIL
[experience]
diff --git a/levels/legacy_crtr/skeleton.cfg b/levels/legacy_crtr/skeleton.cfg
index 32ca6e4ba5..400844198c 100644
--- a/levels/legacy_crtr/skeleton.cfg
+++ b/levels/legacy_crtr/skeleton.cfg
@@ -6,6 +6,8 @@
Name = SKELETON
Defence = 50
Luck = 1
+; In the original game, you could force-feed creatures even if they did not have any needs for eating. Setting HungerFill to 1 while HungerRate is set to 0 enables this mechanic.
+HungerFill = 1
[jobs]
PrimaryJobs = TRAIN
diff --git a/prebuilds.mk b/prebuilds.mk
index f2b8d28e43..4391520f59 100644
--- a/prebuilds.mk
+++ b/prebuilds.mk
@@ -1,7 +1,7 @@
# Tools and libraries to be used on the host system, not on target
ifneq (,$(findstring Windows,$(OS)))
PERESEC_DOWNLOAD=https://github.com/dkfans/peresec/releases/download/1.1.0/peresec-1_1_0_16-devel-win.zip
- PNGTOICO_DOWNLOAD=https://github.com/dkfans/png2ico/releases/download/2003-01-14/png2ico-win-2003-01-14.zip
+ PNGTOICO_DOWNLOAD=https://github.com/dkfans/png2ico/releases/download/2024-10-28/png2ico-win-2024-10-28.zip
PNGTORAW_DOWNLOAD=https://github.com/dkfans/pngpal2raw/releases/download/v1.0.2/pngpal2raw-1_0_2_35-devel-win.zip
PNGTOBSPAL_DOWNLOAD=https://github.com/dkfans/png2bestpal/releases/download/v1.0.3/png2bestpal-1_0_3_21-devel-win.zip
POTONGDAT_DOWNLOAD=https://github.com/dkfans/po2ngdat/releases/download/v1.0.2.31/po2ngdat-1_0_2_31-devel-win.zip
@@ -12,7 +12,7 @@ else
UNAME_S := $(shell uname -s)
ifeq ($(UNAME_S),Linux)
PERESEC_DOWNLOAD=https://github.com/dkfans/peresec/releases/download/1.1.0/peresec-1_1_0_16-devel-lin.tar.gz
- PNGTOICO_DOWNLOAD=https://github.com/dkfans/png2ico/releases/download/2003-01-14/png2ico-lin-2003-01-14.tar.gz
+ PNGTOICO_DOWNLOAD=https://github.com/dkfans/png2ico/releases/download/2024-10-28/png2ico-lin-2024-10-28.tar.gz
PNGTORAW_DOWNLOAD=https://github.com/dkfans/pngpal2raw/releases/download/v1.0.2/pngpal2raw-1_0_2_35-devel-lin.tar.gz
PNGTOBSPAL_DOWNLOAD=https://github.com/dkfans/png2bestpal/releases/download/v1.0.3/png2bestpal-1_0_3_21-devel-lin.tar.gz
POTONGDAT_DOWNLOAD=https://github.com/dkfans/po2ngdat/releases/download/v1.0.2.31/po2ngdat-1_0_2_31-devel-lin.tar.gz
diff --git a/src/config_magic.c b/src/config_magic.c
index 503991eca3..5cc11d6c71 100644
--- a/src/config_magic.c
+++ b/src/config_magic.c
@@ -21,27 +21,27 @@
#include "globals.h"
#include "bflib_basics.h"
-#include "bflib_memory.h"
#include "bflib_dernc.h"
-
+#include "bflib_memory.h"
#include "config.h"
-#include "config_effects.h"
-#include "config_objects.h"
-#include "config_players.h"
-#include "config_cubes.h"
#include "config_creature.h"
#include "config_crtrmodel.h"
+#include "config_cubes.h"
#include "config_effects.h"
+#include "config_effects.h"
+#include "config_objects.h"
#include "config_objects.h"
+#include "config_players.h"
#include "config_rules.h"
+#include "console_cmd.h"
#include "custom_sprites.h"
-#include "thing_physics.h"
-#include "thing_effects.h"
-#include "power_process.h"
#include "game_legacy.h"
-#include "console_cmd.h"
-
#include "keeperfx.hpp"
+#include "power_process.h"
+#include "thing_creature.h"
+#include "thing_effects.h"
+#include "thing_physics.h"
+
#include "post_inc.h"
#ifdef __cplusplus
@@ -152,6 +152,7 @@ const struct NamedCommand magic_power_commands[] = {
{"SPELL", 20},
{"EFFECT", 21},
{"USEFUNCTION", 22},
+ {"CREATURETYPE", 23},
{NULL, 0},
};
@@ -2206,6 +2207,22 @@ TbBool parse_magic_power_blocks(char *buf, long len, const char *config_textname
COMMAND_TEXT(cmd_num), blocknamelen, blockname, config_textname);
}
break;
+ case 23: //CREATURETYPE
+ if (get_conf_parameter_single(buf, &pos, len, word_buf, sizeof(word_buf)) > 0)
+ {
+ k = get_id(creature_desc,word_buf);
+ if (k >= 0)
+ {
+ powerst->creature_model = k;
+ n++;
+ }
+ }
+ if (n < 1)
+ {
+ CONFWRNLOG("Incorrect value of \"%s\" parameter in [%.*s] block of %s file.",
+ COMMAND_TEXT(cmd_num), blocknamelen, blockname, config_textname);
+ }
+ break;
case ccr_comment:
break;
case ccr_endOfFile:
@@ -2547,6 +2564,8 @@ TbBool add_power_to_player(PowerKind pwkind, PlayerNumber plyr_idx)
void remove_power_from_player(PowerKind pwkind, PlayerNumber plyr_idx)
{
struct Dungeon* dungeon = get_dungeon(plyr_idx);
+ struct PlayerInfo* player;
+ struct Thing* thing;
if (dungeon_invalid(dungeon))
{
ERRORLOG("Cannot remove spell %s from invalid dungeon %d!",power_code_name(pwkind),(int)plyr_idx);
@@ -2574,6 +2593,14 @@ void remove_power_from_player(PowerKind pwkind, PlayerNumber plyr_idx)
if (player_uses_power_call_to_arms(plyr_idx))
turn_off_power_call_to_arms(plyr_idx);
break;
+ case PwrK_POSSESS:
+ player = get_player(plyr_idx);
+ if (player->view_type == PVT_CreatureContrl)
+ {
+ thing = thing_get(player->controlled_thing_idx);
+ prepare_to_controlled_creature_death(thing);
+ }
+ break;
}
if (game.chosen_spell_type == pwkind)
{
diff --git a/src/config_magic.h b/src/config_magic.h
index 8bc3dd3322..55e89684c5 100644
--- a/src/config_magic.h
+++ b/src/config_magic.h
@@ -362,6 +362,7 @@ struct PowerConfigStats {
SpellKind spell_idx;
EffectOrEffElModel effect_id;
short magic_use_func_idx;
+ ThingModel creature_model;
};
/**
diff --git a/src/config_rules.h b/src/config_rules.h
index e8c97e74d1..c4e0c17782 100644
--- a/src/config_rules.h
+++ b/src/config_rules.h
@@ -24,7 +24,7 @@
#include "config.h"
-#define MAX_SACRIFICE_VICTIMS 20
+#define MAX_SACRIFICE_VICTIMS 6
#define MAX_SACRIFICE_RECIPES 100
#ifdef __cplusplus
diff --git a/src/config_strings.c b/src/config_strings.c
index eeefe76852..b6c65bd632 100644
--- a/src/config_strings.c
+++ b/src/config_strings.c
@@ -29,6 +29,7 @@
#include "config.h"
#include "config_campaigns.h"
#include "game_merge.h"
+#include "lvl_filesdk1.h"
#include "post_inc.h"
#ifdef __cplusplus
@@ -37,7 +38,6 @@ extern "C" {
/******************************************************************************/
char *gui_strings_data;
char *gui_strings[GUI_STRINGS_COUNT];
-TbBool reload_campaign_strings;
/******************************************************************************/
TbBool reset_strings(char **strings, int max)
{
@@ -153,10 +153,6 @@ TbBool setup_campaign_strings_data(struct GameCampaign *campgn)
reset_strings(campgn->strings, STRINGS_MAX);
// Analyzing strings data and filling correct values
TbBool result = create_strings_list(campgn->strings, campgn->strings_data, strings_data_end, STRINGS_MAX);
- if (result)
- {
- reload_campaign_strings = false;
- }
SYNCDBG(19,"Finished");
return result;
}
@@ -172,6 +168,7 @@ const char * gui_string(unsigned int index)
}
return gui_strings[index];
}
+
const char * cmpgn_string(unsigned int index)
{
if (index >= STRINGS_MAX)
@@ -188,10 +185,35 @@ const char * cmpgn_string(unsigned int index)
const char * get_string(TextStringId stridx)
{
if (stridx <= STRINGS_MAX)
+ {
+ if (level_strings[stridx] != NULL)
+ {
+ if (*level_strings[stridx] != '\0')
+ {
+ return level_strings[stridx];
+ }
+ }
return cmpgn_string(stridx);
+ }
else
return gui_string(stridx-STRINGS_MAX);
}
+
+unsigned long count_strings(char *strings, int size)
+{
+ unsigned long result = 0;
+ char *s = strings;
+ char *end = strings + size;
+ while (s <= end)
+ {
+ if (*s == '\0')
+ {
+ result++;
+ }
+ s++;
+ }
+ return result;
+}
/******************************************************************************/
#ifdef __cplusplus
}
diff --git a/src/config_strings.h b/src/config_strings.h
index 4595114c8d..045735e05d 100644
--- a/src/config_strings.h
+++ b/src/config_strings.h
@@ -486,7 +486,6 @@ enum CampaignStrings {
};
/******************************************************************************/
-extern TbBool reload_campaign_strings;
/******************************************************************************/
TbBool setup_gui_strings_data(void);
TbBool free_gui_strings_data(void);
@@ -494,6 +493,8 @@ TbBool reset_strings(char **strings, int max);
const char * get_string(TextStringId stridx);
TbBool setup_campaign_strings_data(struct GameCampaign *campgn);
TbBool create_strings_list(char **strings,char *strings_data,char *strings_data_end, int max);
+unsigned long count_strings(char *strings, int size);
+const char * cmpgn_string(unsigned int index);
/******************************************************************************/
#ifdef __cplusplus
}
diff --git a/src/creature_instances.c b/src/creature_instances.c
index 4ddb7e79e1..5c27af8a2d 100644
--- a/src/creature_instances.c
+++ b/src/creature_instances.c
@@ -1475,8 +1475,10 @@ TbBool validate_target_benefits_from_higher_altitude
{
return false;
}
- // Water or lava. Flying on water is beneficial because the target can go on a Guard Post.
- if (subtile_is_liquid(target->mappos.x.stl.num, target->mappos.y.stl.num))
+ long state_type = get_creature_state_type(target);
+ if (state_type != CrStTyp_Idle ||
+ // Water or lava. Flying on water is beneficial because the target can go on a Guard Post.
+ subtile_is_liquid(target->mappos.x.stl.num, target->mappos.y.stl.num))
{
return true;
}
diff --git a/src/creature_instances.h b/src/creature_instances.h
index 7f1d32f2f7..3db3c3b09e 100644
--- a/src/creature_instances.h
+++ b/src/creature_instances.h
@@ -81,6 +81,9 @@ enum CreatureInstances {
CrInst_FAMILIAR,
CrInst_SUMMON,
CrInst_RANGED_HEAL, // 50
+ CrInst_RANGED_SPEED,
+ CrInst_RANGED_ARMOUR,
+ CrInst_RANGED_REBOUND,
CrInst_LISTEND,
};
diff --git a/src/creature_states_gardn.c b/src/creature_states_gardn.c
index 5db7d095e6..ab44523705 100644
--- a/src/creature_states_gardn.c
+++ b/src/creature_states_gardn.c
@@ -61,7 +61,7 @@ TbBool creature_able_to_eat(const struct Thing *creatng)
struct CreatureStats* crstat = creature_stats_get_from_thing(creatng);
if (creature_stats_invalid(crstat))
return false;
- return ((crstat->hunger_rate > 0) && (crstat->hunger_fill > 0));
+ return ((crstat->hunger_rate > 0) || (crstat->hunger_fill > 0));
}
TbBool hunger_is_creature_hungry(const struct Thing *creatng)
diff --git a/src/creature_states_spdig.c b/src/creature_states_spdig.c
index b46d7e6666..6a66f22c4b 100644
--- a/src/creature_states_spdig.c
+++ b/src/creature_states_spdig.c
@@ -1020,9 +1020,16 @@ short imp_birth(struct Thing *thing)
{
// If the creature has flight ability, make sure it returns to flying state
restore_creature_flight_flag(thing);
- if (!check_out_available_spdigger_drop_tasks(thing)) {
- set_start_state(thing);
+ if (thing_is_creature_special_digger(thing))
+ {
+ if (!check_out_available_spdigger_drop_tasks(thing)) {
+ set_start_state(thing);
+ }
}
+ else
+ {
+ set_start_state(thing);
+ }
return 1;
}
long i = game.play_gameturn - thing->creation_turn;
diff --git a/src/custom_sprites.c b/src/custom_sprites.c
index f9f2955366..6e7dd5e62e 100644
--- a/src/custom_sprites.c
+++ b/src/custom_sprites.c
@@ -21,7 +21,6 @@
#include "creature_graphics.h"
#include "front_simple.h"
#include "engine_render.h"
-#include "../deps/zlib/contrib/minizip/unzip.h"
#include "bflib_fileio.h"
#include "gui_draw.h"
#include "frontend.h"
@@ -32,6 +31,7 @@
#include
#include
#include
+#include
#include "post_inc.h"
// Performance tests
diff --git a/src/dungeon_data.h b/src/dungeon_data.h
index 35c08c9e61..26ec7d435c 100644
--- a/src/dungeon_data.h
+++ b/src/dungeon_data.h
@@ -50,7 +50,7 @@ extern "C" {
#define MAX_THINGS_IN_HAND 64
#define TURN_TIMERS_COUNT 8
#define SCRIPT_FLAGS_COUNT 8
-#define MAX_SOE_RADIUS 26
+#define MAX_SOE_RADIUS 13
#define CREATURE_GUI_JOBS_COUNT 3
#define CUSTOM_BOX_COUNT 256
#define FX_LINES_COUNT 32
diff --git a/src/game_saves.c b/src/game_saves.c
index e68824aff4..a541c8dd30 100644
--- a/src/game_saves.c
+++ b/src/game_saves.c
@@ -209,11 +209,8 @@ int load_game_chunks(TbFileHandle fhandle,struct CatalogueEntry *centry)
ERRORLOG("Unable to load campaign");
return GLoad_Failed;
}
+ free_level_strings_data();
struct GameCampaign *campgn = &campaign;
- if (reload_campaign_strings)
- {
- setup_campaign_strings_data(campgn);
- }
load_map_string_data(campgn, centry->level_num, get_level_fgroup(centry->level_num));
// Load configs which may have per-campaign part, and even be modified within a level
init_custom_sprites(centry->level_num);
diff --git a/src/lvl_filesdk1.c b/src/lvl_filesdk1.c
index c522c268c9..7bcb98e904 100644
--- a/src/lvl_filesdk1.c
+++ b/src/lvl_filesdk1.c
@@ -56,6 +56,8 @@ extern "C" {
* or any other function used beyond first initialization of a level.
*/
long level_file_version = 0;
+char *level_strings[STRINGS_MAX+1];
+char *level_strings_data;
/******************************************************************************/
#pragma pack(1)
@@ -1367,10 +1369,6 @@ static void load_ext_slabs(LevelNumber lvnum)
void load_map_string_data(struct GameCampaign *campgn, LevelNumber lvnum, short fgroup)
{
- if (campgn->strings_data == NULL)
- {
- return;
- }
char* fname = prepare_file_fmtpath(fgroup, "map%05lu.%s.dat", (unsigned long)lvnum, get_language_lwrstr(install_info.lang_id));
if (!LbFileExists(fname))
{
@@ -1394,27 +1392,27 @@ void load_map_string_data(struct GameCampaign *campgn, LevelNumber lvnum, short
ERRORLOG("Map Strings file %s does not exist or can't be opened", fname);
return;
}
- campgn->strings_data = (char*)LbMemoryAlloc(filelen + 256);
- if (campgn->strings_data == NULL)
+ level_strings_data = malloc(filelen + 256);
+ if (level_strings_data == NULL)
{
ERRORLOG("Can't allocate memory for Map Strings data");
return;
}
- char* strings_data_end = campgn->strings_data + filelen + 255;
- long loaded_size = LbFileLoadAt(fname, campgn->strings_data);
+ long loaded_size = LbFileLoadAt(fname, level_strings_data);
if (loaded_size < 16)
{
ERRORLOG("Map Strings file couldn't be loaded or is too small");
return;
}
+ unsigned long loaded_strings_count = count_strings(level_strings_data, loaded_size);
+ char* strings_data_end = level_strings_data + filelen + 255;
// Resetting all values to empty strings
- reset_strings(campgn->strings, STRINGS_MAX);
+ reset_strings(level_strings, STRINGS_MAX);
// Analyzing strings data and filling correct values
- TbBool result = create_strings_list(campgn->strings, campgn->strings_data, strings_data_end, STRINGS_MAX);
+ TbBool result = create_strings_list(level_strings, level_strings_data, strings_data_end, STRINGS_MAX);
if (result)
{
- SYNCMSG("Loaded strings from %s", fname);
- reload_campaign_strings = true;
+ SYNCMSG("Loaded %lu strings from %s", loaded_strings_count, fname);
}
SYNCDBG(19, "Finished");
}
@@ -1429,10 +1427,6 @@ static TbBool load_level_file(LevelNumber lvnum)
{
result = true;
struct GameCampaign *campgn = &campaign;
- if (reload_campaign_strings)
- {
- setup_campaign_strings_data(campgn);
- }
load_map_string_data(campgn, lvnum, fgroup);
load_map_data_file(lvnum);
load_map_flag_file(lvnum);
@@ -1498,6 +1492,15 @@ TbBool load_map_file(LevelNumber lvnum)
set_loaded_level_number(SINGLEPLAYER_NOTSTARTED);
return result;
}
+
+void free_level_strings_data()
+{
+ // Resetting all values to empty strings
+ reset_strings(level_strings, STRINGS_MAX);
+ // Freeing memory
+ LbMemoryFree(level_strings_data);
+ level_strings_data = NULL;
+}
/******************************************************************************/
#ifdef __cplusplus
}
diff --git a/src/lvl_filesdk1.h b/src/lvl_filesdk1.h
index b2459018a8..6c83aa7930 100644
--- a/src/lvl_filesdk1.h
+++ b/src/lvl_filesdk1.h
@@ -23,6 +23,7 @@
#include "bflib_basics.h"
#include "globals.h"
#include "config_campaigns.h"
+#include "config_strings.h"
#ifdef __cplusplus
extern "C" {
@@ -37,6 +38,7 @@ enum LoadMapFileFlags {
};
/******************************************************************************/
extern long level_file_version;
+extern char *level_strings[];
/******************************************************************************/
unsigned char *load_single_map_file_to_buffer(LevelNumber lvnum,const char *fext,long *ldsize,unsigned short flags);
TbBool find_and_load_lif_files(void);
@@ -46,6 +48,7 @@ long convert_old_column_file(LevelNumber lv_num);
TbBool load_map_file(LevelNumber lvnum);
void load_map_string_data(struct GameCampaign *campgn, LevelNumber lvnum, short fgroup);
+void free_level_strings_data();
/******************************************************************************/
#ifdef __cplusplus
}
diff --git a/src/lvl_script_commands.c b/src/lvl_script_commands.c
index 94c9b022a9..9dd57e0fcc 100644
--- a/src/lvl_script_commands.c
+++ b/src/lvl_script_commands.c
@@ -944,7 +944,7 @@ static int script_transfer_creature(PlayerNumber plyr_idx, ThingModel crmodel, l
dungeon = get_dungeon(plyr_idx);
dungeon->creatures_transferred++;
remove_thing_from_power_hand_list(thing, plyr_idx);
- struct SpecialConfigStats* specst = get_special_model_stats(SpcKind_Resurrect);
+ struct SpecialConfigStats* specst = get_special_model_stats(SpcKind_TrnsfrCrtr);
create_used_effect_or_element(&thing->mappos, specst->effect_id, plyr_idx);
kill_creature(thing, INVALID_THING, -1, CrDed_NoEffects | CrDed_NotReallyDying);
}
@@ -2113,7 +2113,10 @@ static void move_creature_process(struct ScriptContext* context)
}
move_thing_in_map(thing, &pos);
reset_interpolation_of_thing(thing);
- initialise_thing_state(thing, CrSt_CreatureDoingNothing);
+ if (!is_thing_some_way_controlled(thing))
+ {
+ initialise_thing_state(thing, CrSt_CreatureDoingNothing);
+ }
cctrl->turns_at_job = -1;
check_map_explored(thing, thing->mappos.x.stl.num, thing->mappos.y.stl.num);
}
diff --git a/src/lvl_script_value.c b/src/lvl_script_value.c
index b0bccdf572..655ba55638 100644
--- a/src/lvl_script_value.c
+++ b/src/lvl_script_value.c
@@ -95,6 +95,11 @@ TbBool script_change_creature_owner_with_criteria(PlayerNumber origin_plyr_idx,
SYNCDBG(5,"No matching player %d creature of model %d (%s) found to kill",(int)origin_plyr_idx,(int)crmodel, creature_code_name(crmodel));
return false;
}
+ if (is_thing_some_way_controlled(thing))
+ {
+ //does not kill the creature, but does the preparations needed for when it is possessed
+ prepare_to_controlled_creature_death(thing);
+ }
change_creature_owner(thing, dest_plyr_idx);
return true;
}
diff --git a/src/magic.c b/src/magic.c
index 176fce228c..1a97e4909f 100644
--- a/src/magic.c
+++ b/src/magic.c
@@ -1295,7 +1295,7 @@ static TbResult magic_use_power_imp(PowerKind power_kind, PlayerNumber plyr_idx,
pos.x.val = subtile_coord_center(stl_x);
pos.y.val = subtile_coord_center(stl_y);
pos.z.val = get_floor_height_at(&pos) + (heartng->clipbox_size_z >> 1);
- thing = create_creature(&pos, get_players_special_digger_model(plyr_idx), plyr_idx);
+ thing = create_creature(&pos, powerst->creature_model, plyr_idx);
if (thing_is_invalid(thing))
{
ERRORLOG("There was place to create new creature, but creation failed");
diff --git a/src/main.cpp b/src/main.cpp
index 392e6dee99..cac1e16484 100644
--- a/src/main.cpp
+++ b/src/main.cpp
@@ -62,6 +62,7 @@
#include "config_compp.h"
#include "config_effects.h"
#include "lvl_script.h"
+#include "lvl_filesdk1.h"
#include "thing_list.h"
#include "player_instances.h"
#include "player_utils.h"
@@ -3882,6 +3883,7 @@ void game_loop(void)
free_custom_music();
free_sound_chunks();
memset(&game.loaded_sound,0,DISKPATH_SIZE * EXTERNAL_SOUNDS_COUNT+1);
+ free_level_strings_data();
turn_off_all_menus();
delete_all_structures();
clear_mapwho();
@@ -3918,6 +3920,7 @@ short reset_game(void)
LbScreenReset(false);
LbDataFreeAllV2(game_load_files);
free_gui_strings_data();
+ free_level_strings_data();
FreeAudio();
return LbMemoryReset();
}
@@ -4378,7 +4381,11 @@ LONG __stdcall Vex_handler(
return 0;
}
+#ifdef _WIN32
+int WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nShowCmd)
+#else
int main(int argc, char *argv[])
+#endif
{
char *text;
diff --git a/src/moonphase.c b/src/moonphase.c
index c317a78269..f73d8b9204 100644
--- a/src/moonphase.c
+++ b/src/moonphase.c
@@ -1,5 +1,6 @@
#include "pre_inc.h"
#include "moonphase.h"
+#include
#include "post_inc.h"
/**
@@ -25,4 +26,4 @@ double moonphase_calculate()
}
return phase.angle / 360;
-}
\ No newline at end of file
+}
diff --git a/src/moonphase.h b/src/moonphase.h
index a6789d6224..1c07cf8d98 100644
--- a/src/moonphase.h
+++ b/src/moonphase.h
@@ -1,8 +1,6 @@
#ifndef MOONPHASE_H
#define MOONPHASE_H
-#include "../deps/astronomy/astronomy.h"
-
#ifdef __cplusplus
extern "C"
{
diff --git a/src/thing_creature.c b/src/thing_creature.c
index c9ef7bca2d..2439760293 100644
--- a/src/thing_creature.c
+++ b/src/thing_creature.c
@@ -3012,12 +3012,17 @@ void process_creature_standing_on_corpses_at(struct Thing *creatng, struct Coord
* Calculates damage made by a creature by hand (using strength).
* @param thing The creature which will be inflicting the damage.
*/
-long calculate_melee_damage(struct Thing *creatng)
+long calculate_melee_damage(struct Thing *creatng, short damage_percent)
{
const struct CreatureControl* cctrl = creature_control_get_from_thing(creatng);
const struct CreatureStats* crstat = creature_stats_get_from_thing(creatng);
long strength = compute_creature_max_strength(crstat->strength, cctrl->explevel);
- return compute_creature_attack_melee_damage(strength, crstat->luck, cctrl->explevel, creatng);
+ long damage = compute_creature_attack_melee_damage(strength, crstat->luck, cctrl->explevel, creatng);
+ if (damage_percent != 0)
+ {
+ damage = (damage * damage_percent) / 100;
+ }
+ return damage;
}
/**
@@ -3030,7 +3035,7 @@ long project_melee_damage(const struct Thing *creatng)
const struct CreatureControl* cctrl = creature_control_get_from_thing(creatng);
const struct CreatureStats* crstat = creature_stats_get_from_thing(creatng);
long strength = compute_creature_max_strength(crstat->strength, cctrl->explevel);
- return project_creature_attack_melee_damage(strength, crstat->luck, cctrl->explevel, creatng);
+ return project_creature_attack_melee_damage(strength, 0, crstat->luck, cctrl->explevel, creatng);
}
/**
@@ -3062,7 +3067,7 @@ long project_creature_shot_damage(const struct Thing *thing, ThingModel shot_mod
{
// Project melee damage
long strength = compute_creature_max_strength(crstat->strength, cctrl->explevel);
- damage = project_creature_attack_melee_damage(strength, crstat->luck, cctrl->explevel, thing);
+ damage = project_creature_attack_melee_damage(strength, shotst->damage, crstat->luck, cctrl->explevel, thing);
} else
{
// Project shot damage
@@ -3200,7 +3205,7 @@ void thing_fire_shot(struct Thing *firing, struct Thing *target, ThingModel shot
{
if ((shotst->model_flags & ShMF_StrengthBased) != 0)
{
- damage = calculate_melee_damage(firing);
+ damage = calculate_melee_damage(firing,shotst->damage);
}
else
{
diff --git a/src/thing_creature.h b/src/thing_creature.h
index 2ee917f633..64094e345f 100644
--- a/src/thing_creature.h
+++ b/src/thing_creature.h
@@ -101,6 +101,7 @@ long get_creature_speed(const struct Thing *thing);
TbBool control_creature_as_controller(struct PlayerInfo *player, struct Thing *thing);
TbBool control_creature_as_passenger(struct PlayerInfo *player, struct Thing *thing);
void leave_creature_as_controller(struct PlayerInfo *player, struct Thing *thing);
+void prepare_to_controlled_creature_death(struct Thing* thing);
ThingIndex process_player_use_instance(struct Thing *thing, CrInstance inst_id, struct Packet *packet);
ThingIndex get_human_controlled_creature_target(struct Thing *thing, CrInstance inst_id, struct Packet *packet);
struct Thing *get_creature_near_for_controlling(PlayerNumber plyr_idx, MapCoord x, MapCoord y);
@@ -174,7 +175,7 @@ void init_creature_scores(void);
long get_creature_thing_score(const struct Thing *thing);
TbBool add_creature_score_to_owner(struct Thing *thing);
TbBool remove_creature_score_from_owner(struct Thing *thing);
-long calculate_melee_damage(struct Thing *thing);
+long calculate_melee_damage(struct Thing *thing, short damage_percent);
long project_melee_damage(const struct Thing *thing);
long calculate_shot_damage(struct Thing *thing, ThingModel shot_model);
long project_creature_shot_damage(const struct Thing *thing, ThingModel shot_model);
diff --git a/src/thing_shots.c b/src/thing_shots.c
index 80475f7fd3..2175303fd0 100644
--- a/src/thing_shots.c
+++ b/src/thing_shots.c
@@ -1055,10 +1055,6 @@ long melee_shot_hit_creature_at(struct Thing *shotng, struct Thing *trgtng, stru
long damage = get_damage_of_melee_shot(shotng, trgtng, flag_is_set(shotst->model_flags, ShMF_NeverBlock));
if (damage > 0)
{
- if (shotst->damage != 0)
- {
- damage = (damage * shotst->damage) / 100;
- }
if (shotst->hit_creature.sndsample_idx > 0)
{
play_creature_sound(trgtng, CrSnd_Hurt, 3, 0);
diff --git a/src/thing_stats.c b/src/thing_stats.c
index 63c9f52ac0..2e4f98cb15 100644
--- a/src/thing_stats.c
+++ b/src/thing_stats.c
@@ -469,7 +469,7 @@ GoldAmount compute_creature_max_scavenging_cost(GoldAmount base_param,unsigned s
* @param luck Creature luck, scaled 0..100.
* @param crlevel Creature level, 0..9.
*/
-long project_creature_attack_melee_damage(long base_param,long luck,unsigned short crlevel, const struct Thing* thing)
+long project_creature_attack_melee_damage(long base_param, short damage_percent, long luck,unsigned short crlevel, const struct Thing* thing)
{
struct Dungeon* dungeon;
if (base_param < -60000)
@@ -477,6 +477,10 @@ long project_creature_attack_melee_damage(long base_param,long luck,unsigned sho
if (base_param > 60000)
base_param = 60000;
long max_param = base_param;
+ if (damage_percent != 0)
+ {
+ max_param = (max_param * damage_percent) / 100;
+ }
if (!is_neutral_thing(thing)) {
dungeon = get_dungeon(thing->owner);
unsigned short modifier = dungeon->modifier.strength;
diff --git a/src/thing_stats.h b/src/thing_stats.h
index 234ca21dc3..6fe7f1654a 100644
--- a/src/thing_stats.h
+++ b/src/thing_stats.h
@@ -86,7 +86,7 @@ GoldAmount compute_creature_max_scavenging_cost(GoldAmount base_scavenging_cost,
long compute_creature_max_health(HitPoints base_health,unsigned short crlevel, PlayerNumber plyr_idx);
long compute_creature_attack_melee_damage(long base_param,long luck,unsigned short crlevel, struct Thing* thing);
long compute_creature_attack_spell_damage(long base_param,long luck,unsigned short crlevel, struct Thing* thing);
-long project_creature_attack_melee_damage(long base_param,long luck,unsigned short crlevel, const struct Thing* thing);
+long project_creature_attack_melee_damage(long base_param,short damage_percent,long luck,unsigned short crlevel, const struct Thing* thing);
long project_creature_attack_spell_damage(long base_param,long luck,unsigned short crlevel, const struct Thing* thing);
long compute_creature_attack_range(long base_param,long luck,unsigned short crlevel);
long compute_creature_work_value(long base_param,long efficiency,unsigned short crlevel);
diff --git a/src/thing_traps.c b/src/thing_traps.c
index b348c4d177..023570d56a 100644
--- a/src/thing_traps.c
+++ b/src/thing_traps.c
@@ -1230,7 +1230,7 @@ void trap_fire_shot_without_target(struct Thing *firing, ThingModel shot_model,
{
if (flag_is_set(shotst->model_flags,ShMF_StrengthBased))
{
- damage = calculate_melee_damage(firing);
+ damage = calculate_melee_damage(firing, shotst->damage);
}
else
{
diff --git a/version.mk b/version.mk
index 8b300180b1..79b208ceae 100644
--- a/version.mk
+++ b/version.mk
@@ -1,5 +1,5 @@
VER_MAJOR=1
-VER_MINOR=1
+VER_MINOR=2
VER_RELEASE=0
VER_BUILD=0