astrology32占星源码

一个非常著名的用c语言开发的astrology32占星软件的源代码。 astrlog1.ico astrlog2.ico astrlog3.ico astrlog4.ico astrolog.c astrolog.dat astrolog.def astrolog.h astrolog.mak astrolog.rc calc.c charts0.c charts1.c charts2.c charts3.c data.c data2.c extern.h file_id.diz general.c intrpret.c io.c makefile makefile.bgi makefile.cfg makefile.unx matrix.c LICENSE.TXT swe_call.c ASTROLOG.VCW ASTROLOG.WSP resource.h wdialog.c wdriver.c xcharts0.c xcharts1.c xcharts2.c xdata.c xdevice.c xgeneral.c xscreen.c swedate.c swedll.h swejpl.c swejpl.h swemmoon.c swemosh.h swemplan.c swemptab.c sweodef.h sweph.c sweph.h swephexp.h swephlib.c swephlib.h ALOIS.DAT readme.541 MAKEFILE.VCW MAKEFILE.WSP

/*
** 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] < 1.0 ? kRainbowA[2] : kMainA[4];
}


/* 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 

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----
     文件         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个文件信息