/*
**?Astrolog?（Version?5.41）?File:?astrolog.c
**
**?IMPORTANT?NOTICE:?The?graphics?database?and?chart?display?routines
**?used?in?this?program?are?Copyright?（C）?1991-1998?by?Walter?D.?Pullen
**?（Astara@msn.com?http://www.magitech.com/~cruiser1/astrolog.htm）.
**?Permission?is?granted?to?freely?use?and?distribute?these?routines
**?provided?one?doesn‘t?sell?restrict?or?profit?from?them?in?any?way.
**?Modification?is?allowed?provided?these?notices?remain?with?any
**?altered?or?edited?versions?of?the?program.
**
**?The?main?planetary?calculation?routines?used?in?this?program?have
**?been?Copyrighted?and?the?core?of?this?program?is?basically?a
**?conversion?to?C?of?the?routines?created?by?James?Neely?as?listed?in
**?Michael?Erlewine‘s?‘Manual?of?Computer?Programming?for?Astrologers‘
**?available?from?Matrix?Software.?The?copyright?gives?us?permission?to
**?use?the?routines?for?personal?use?but?not?to?sell?them?or?profit?from
**?them?in?any?way.
**
**?The?Postscript?code?within?the?core?graphics?routines?are?programmed
**?and?Copyright?（C）?1992-1993?by?Brian?D.?Willoughby
**?（brianw@sounds.wa.com）.?Conditions?are?identical?to?those?above.
**
**?The?extended?accurate?ephemeris?databases?and?formulas?are?from?the
**?calculation?routines?in?the?library?SWISS?EPHEMERIS?and?are?programmed?and
**?copyright?1998?by?Astrodienst?AG.
**?The?use?of?that?source?code?is?subject?to
**?the?Swiss?Ephemeris?Public?License?available?at?
**?http://www.astro.ch/swisseph.?This?copyright?notice?must?not?be?
**?changed?or?removed?by?any?user?of?this?program.
**
**?Initial?programming?8/2830?9/1013162023?10/367?11/71021/1991.
**?X?Window?graphics?initially?programmed?10/23-29/1991.
**?Postscript?graphics?initially?programmed?11/29-30/1992.
**?Last?code?change?made?12/20/1998.
**?Modifications?from?version?5.40?to?5.41?are?by?Alois?Treindl.
*/

#include?“astrolog.h“


/*
******************************************************************************
**?Program?Dispatch?Procedures.
******************************************************************************
*/

/*?Initialize?the?Ansi?color?arrays?with?the?color?to?print?each?object?in.?*/

void?InitColors（）
{
??int?i;

??kObjA[0]?=?kElemA[eEar];
??for?（i?=?1;?i?<=?10;?i++）
????kObjA[i]?=?kSignA（ruler1[i]）;
??for?（i?=?11;?i?<=?15;?i++）
????kObjA[i]?=?kMainA[8];
??for?（i?=?16;?i?<=?20;?i++）
????kObjA[i]?=?kMainA[6];
??for?（i?=?1;?i?<=?cSign;?i++）
????kObjA[cuspLo+i-1]?=?kSignA（i）;
??for?（i?=?uranLo;?i?<=?uranHi;?i++）
????kObjA[i]?=?kRainbowA[7];
??for?（i?=?starLo;?i?<=?starHi;?i++）
????kObjA[i]?=?rStarBright[i-oNorm]?}


/*?This?is?the?dispatch?procedure?for?the?entire?program.?After?all?the???*/
/*?command?switches?have?been?processed?this?routine?is?called?to????????*/
/*?actually?call?the?various?routines?to?generate?and?display?the?charts.?*/

void?Action（）
{
??char?sz[cchSzDef];
??int?i;

#ifdef?

?屬性????????????大小?????日期????時(shí)間???名稱
-----------?---------??----------?-----??----
?????文件?????????766??1998-12-21?22:47??astrlog1.ico
?????文件?????????766??1998-12-21?22:47??astrlog2.ico
?????文件??????????62??1998-12-21?22:47??astrlog2.url
?????文件?????????766??1998-12-21?22:47??astrlog3.ico
?????文件?????????766??1998-12-21?22:47??astrlog4.ico
?????文件???????50283??1998-12-25?11:23??astrolog.c
?????文件????????4299??1998-12-25?16:03??astrolog.dat
?????文件????????2139??1998-12-21?22:47??astrolog.def
?????文件???????51512??1998-12-25?16:00??astrolog.h
?????文件????????5568??1998-12-25?11:22??astrolog.mak
?????文件???????92923??1998-12-25?11:56??astrolog.rc
?????文件??????????72??1998-12-21?22:47??astrolog.url
?????文件???????31105??1998-12-25?11:23??calc.c
?????文件???????47266??1998-12-25?11:33??charts0.c
?????文件???????50233??1998-12-25?11:23??charts1.c
?????文件???????30526??1998-12-25?11:23??charts2.c
?????文件???????26101??1998-12-25?11:23??charts3.c
?????文件???????21347??1998-12-25?11:34??data.c
?????文件???????16815??1998-12-25?11:23??data2.c
?????文件???????24258??1998-12-25?11:43??extern.h
?????文件?????????798??1998-12-21?22:47??file_id.diz
?????文件???????28909??1998-12-25?11:23??general.c
?????文件???????23316??1998-12-25?11:23??intrpret.c
?????文件???????23697??1998-12-25?11:23??io.c
?????文件????????1624??1998-12-25?11:22??makefile
?????文件????????1284??1998-12-25?11:23??makefile.bgi
?????文件????????1100??1998-12-25?11:23??makefile.cfg
?????文件????????1499??1998-12-25?11:23??makefile.com
?????文件????????1456??1998-12-25?11:23??makefile.unx
?????文件???????22448??1998-12-25?11:23??matrix.c
?????文件????????6165??1998-12-25?11:51??LICENSE.TXT
............此處省略31個(gè)文件信息