| 866 | // positions in the sky for fixed stars, etc. |
| 867 | |
| 868 | void PrintObjects(void) |
| 869 | { |
| 870 | char sz[cchSzDef]; |
| 871 | int i, j, k, l; |
| 872 | #ifdef SWISSGRAPH |
| 873 | ES es; |
| 874 | real jt[2], tim; |
| 875 | int mon, day, yea; |
| 876 | #endif |
| 877 | |
| 878 | sprintf(sz, "%s planets and objects:\n", szAppName); PrintSz(sz); |
| 879 | PrintSz("Num. Name Rule Detriment Exalt Fall " |
| 880 | "Esoteric Hierarchical Ray\n\n"); |
| 881 | for (l = 0; l <= oNorm; l++) { |
| 882 | i = rgobjList[l]; |
| 883 | if (ignore[i]) |
| 884 | continue; |
| 885 | AnsiColor(kObjA[i]); |
| 886 | sprintf(sz, "%3d %-12s", i, szObjDisp[i]); PrintSz(sz); |
| 887 | |
| 888 | // Print rulerships and exaltations for the planets. |
| 889 | |
| 890 | j = ruler1[i]; k = ruler2[i]; |
| 891 | if (j) { |
| 892 | sprintf(sz, "%.3s", szSignName[j]); PrintSz(sz); |
| 893 | } else |
| 894 | PrintSz(" "); |
| 895 | PrintSz(" "); |
| 896 | if (k) { |
| 897 | sprintf(sz, "%.3s", szSignName[k]); PrintSz(sz); |
| 898 | } else |
| 899 | PrintSz(" "); |
| 900 | PrintSz(" "); |
| 901 | if (j) { |
| 902 | sprintf(sz, "%.3s", szSignName[Mod12(j+6)]); PrintSz(sz); |
| 903 | } else |
| 904 | PrintSz(" "); |
| 905 | PrintSz(" "); |
| 906 | if (k) { |
| 907 | sprintf(sz, "%.3s", szSignName[Mod12(k+6)]); PrintSz(sz); |
| 908 | } else |
| 909 | PrintSz(" "); |
| 910 | PrintSz(" "); |
| 911 | |
| 912 | j = exalt[i]; |
| 913 | if (j) { |
| 914 | sprintf(sz, "%.3s", szSignName[j]); PrintSz(sz); |
| 915 | } else |
| 916 | PrintSz(" "); |
| 917 | PrintSz(" "); |
| 918 | if (j) { |
| 919 | sprintf(sz, "%.3s", szSignName[Mod12(j+6)]); PrintSz(sz); |
| 920 | } else |
| 921 | PrintSz(" "); |
| 922 | PrintSz(" "); |
| 923 | |
| 924 | j = rgObjEso1[i]; k = rgObjEso2[i]; |
| 925 | if (j) { |
no test coverage detected