astrognome/src/gradix.c

#include <stdlib.h>
#include <math.h>
#include <cairo.h>
#include <clutter/clutter.h>

#include "../swe/src/swephexp.h"

#define IMAGEDIR "/home/polesz/Projektek/c/gradix/images"
#define EPHEDIR "/home/polesz/Projektek/c/gradix/swe/data"

typedef enum {
	SIGN_ARIES = 1,
	SIGN_TAURUS,
	SIGN_GEMINI,
	SIGN_CANCER,
	SIGN_LEO,
	SIGN_VIRGO,
	SIGN_LIBRA,
	SIGN_SCORPIO,
	SIGN_SAGGITARIUS,
	SIGN_CAPRICORN,
	SIGN_AQUARIUS,
	SIGN_PISCES
} zodiacSign;

//RsvgHandle *svgHandle[SE_CHIRON + SIGN_PISCES + 1];

gboolean
init_graphics(void)
{
	GError *err = NULL;
	char *svgFile[SE_CHIRON + SIGN_PISCES + 1];
	int i;

	memset(&svgFile, 0, sizeof(char *) * SE_CHIRON + SIGN_PISCES + 1);

	svgFile[SE_SUN]       = IMAGEDIR "/planet_sun.svg";
	svgFile[SE_MERCURY]   = IMAGEDIR "/planet_mercury.svg";
	svgFile[SE_VENUS]     = IMAGEDIR "/planet_venus.svg";
	svgFile[SE_MOON]      = IMAGEDIR "/planet_moon.svg";
	svgFile[SE_MARS]      = IMAGEDIR "/planet_mars.svg";
	svgFile[SE_JUPITER]   = IMAGEDIR "/planet_jupiter.svg";
	svgFile[SE_SATURN]    = IMAGEDIR "/planet_saturn.svg";
	svgFile[SE_NEPTUNE]   = IMAGEDIR "/planet_neptune.svg";
	svgFile[SE_URANUS]    = IMAGEDIR "/planet_uranus.svg";
	svgFile[SE_PLUTO]     = IMAGEDIR "/planet_pluto.svg";
	// mean node is used for descending moon node
	svgFile[SE_MEAN_NODE] = IMAGEDIR "/planet_desc_node.svg";
	// true node is used for ascending moon node
	svgFile[SE_TRUE_NODE] = IMAGEDIR "/planet_asc_node.svg";
	svgFile[SE_CHIRON]    = IMAGEDIR "/planet_chiron.svg";

	svgFile[SE_CHIRON + SIGN_ARIES]       = IMAGEDIR "/sign_aries.svg";
	svgFile[SE_CHIRON + SIGN_TAURUS]      = IMAGEDIR "/sign_taurus.svg";
	svgFile[SE_CHIRON + SIGN_GEMINI]      = IMAGEDIR "/sign_gemini.svg";
	svgFile[SE_CHIRON + SIGN_CANCER]      = IMAGEDIR "/sign_cancer.svg";
	svgFile[SE_CHIRON + SIGN_LEO]         = IMAGEDIR "/sign_leo.svg";
	svgFile[SE_CHIRON + SIGN_VIRGO]       = IMAGEDIR "/sign_virgo.svg";
	svgFile[SE_CHIRON + SIGN_LIBRA]       = IMAGEDIR "/sign_libra.svg";
	svgFile[SE_CHIRON + SIGN_SCORPIO]     = IMAGEDIR "/sign_scorpio.svg";
	svgFile[SE_CHIRON + SIGN_SAGGITARIUS] = IMAGEDIR "/sign_saggitarius.svg";
	svgFile[SE_CHIRON + SIGN_CAPRICORN]   = IMAGEDIR "/sign_capricorn.svg";
	svgFile[SE_CHIRON + SIGN_AQUARIUS]    = IMAGEDIR "/sign_aquarius.svg";
	svgFile[SE_CHIRON + SIGN_PISCES]      = IMAGEDIR "/sign_pisces.svg";

	for (i = SE_SUN; i <= SE_CHIRON + SIGN_PISCES; i++) {
		if (svgFile[i] != NULL) {
			g_clear_error(&err);
			//if ((svgHandle[i] = rsvg_handle_new_from_file(svgFile[i], &err)) == NULL) {
			//	printf("Unable to load %s: %s\n", svgFile[i], err->message);
			//}
		}
	}

	return TRUE;
}

double
get_planet_position(int32 planet_no, double date)
{
	int32 iflgret,
	      iflag = SEFLG_SPEED | SEFLG_TOPOCTR;
	double x2[6];
	char serr[AS_MAXCH];  

	iflgret = swe_calc(date, planet_no, iflag, x2, serr);

	if (iflgret < 0) {
		printf("error: %s\n", serr);

		return -1;
	} else if (iflgret != iflag) {
		printf("warning: iflgret != iflag. %s\n", serr);
	}

	return x2[0];
}

int
set_location_and_time(double lon, double lat, double alt, int year, int month, int day, int hour, int min, double sec, double d_timezone, double *jd)
{
	int utc_year,
	    utc_month,
	    utc_day,
	    utc_hour,
	    utc_min;
	double utc_sec,
	       retval,
	       dret[2];
	char serr[AS_MAXCH];  

	swe_set_topo(lon, lat, alt);
	swe_utc_time_zone(year, month, day, hour, min, sec, d_timezone, &utc_year, &utc_month, &utc_day, &utc_hour, &utc_min, &utc_sec);
	if ((retval = swe_utc_to_jd(utc_year, utc_month, utc_day, utc_hour, utc_min, utc_sec, SE_GREG_CAL, dret, serr)) == ERR) {
		printf("error: %s\n", serr);

		return 0;
	}

	*jd = dret[0];

	return 1;
}

int
main(int argc, char *argv[])
{
#if !CLUTTER_CHECK_VERSION(1, 3, 6)
#error "You need Clutter >= 1.3.6 to compile this software"
#endif

	int year = 1983,
	    month = 3,
	    day = 7,
	    hour = 11,
	    min = 54,
	    sec = 45;
	double timezone = 1.0,
	       lon = 19.081599,
	       lat = 47.462485,
	       alt = 200,
	       te,
	       pos,
	       cusps[13],
	       ascmc[10];
	int p;

	swe_set_ephe_path(EPHEDIR);

	if (set_location_and_time(lon, lat, alt, year, month, day, hour, min, sec, timezone, &te) == 0) {
		return 1;
	}

	printf("date: %02d.%02d.%d at %02d:%02d:%02d, at %f, %f\n", year, month, day, hour, min, sec, lon, lat);

	swe_houses(te, lat, lon, 'P', cusps, ascmc);

	for (p = 1; p < 13; p++) {
		printf("House %2d..: %2.0f (%f)\n", p, ceilf(cusps[p] / 30.0), cusps[p]);
	}

	printf("Asc.......: %.0f\n", ceilf(ascmc[0] / 30.0));
	printf("MC........: %.0f\n", ceilf(ascmc[1] / 30.0));

	pos = get_planet_position(SE_SUN, te);
	printf("Sun.......: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_MOON, te);
	printf("Moon......: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_MERCURY, te);
	printf("Mercury...: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_VENUS, te);
	printf("Venus.....: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_MARS, te);
	printf("Mars......: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_JUPITER, te);
	printf("Jupiter...: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_SATURN, te);
	printf("Saturn....: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_URANUS, te);
	printf("Uranus....: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_NEPTUNE, te);
	printf("Neptune...: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_PLUTO, te);
	printf("Pluto.....: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_CHIRON, te);
	printf("Chiron....: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	pos = get_planet_position(SE_MEAN_NODE, te);
	printf("North Node: %2.0f (%f)\n", ceilf(pos / 30.0), pos);

	return OK;
}

static gboolean
draw_clock (ClutterCanvas *canvas, cairo_t *cr, int width, int height)
{
	GDateTime *now;
	float hours, minutes, seconds;
	ClutterColor color;

	int smaller = (width < height) ? width : height;

	/* get the current time and compute the angles */
	now = g_date_time_new_now_local();
	seconds = g_date_time_get_second(now) * G_PI / 30;
	minutes = g_date_time_get_minute(now) * G_PI / 30;
	hours = g_date_time_get_hour(now) * G_PI / 6;

	cairo_save(cr);

	/* clear the contents of the canvas, to avoid painting
	 * over the previous frame
	 */
	cairo_set_operator(cr, CAIRO_OPERATOR_CLEAR);
	cairo_paint(cr);

	cairo_restore(cr);

	cairo_set_operator(cr, CAIRO_OPERATOR_OVER);

	/* scale the modelview to the size of the surface */
	cairo_scale(cr, smaller, smaller);

	cairo_set_line_cap(cr, CAIRO_LINE_CAP_ROUND);
	cairo_set_line_width(cr, 0.01);

	/* the black rail that holds the seconds indicator */
	clutter_cairo_set_source_color(cr, CLUTTER_COLOR_Black);
	cairo_translate(cr, 0.5, 0.5);
	cairo_arc(cr, 0, 0, 0.4, 0, G_PI * 2);
	cairo_stroke(cr);

	/* the seconds indicator */
	color = *CLUTTER_COLOR_White;
	color.alpha = 128;
	clutter_cairo_set_source_color(cr, &color);
	cairo_move_to(cr, 0, 0);
	cairo_arc(cr, sinf(seconds) * 0.4, - cosf(seconds) * 0.4, 0.02, 0, G_PI * 2);
	cairo_fill(cr);

	/* the minutes hand */
	color = *CLUTTER_COLOR_DarkChameleon;
	color.alpha = 196;
	clutter_cairo_set_source_color(cr, &color);
	cairo_move_to(cr, 0, 0);
	cairo_line_to(cr, sinf(minutes) * 0.4, - cosf(minutes) * 0.4);
	cairo_stroke(cr);

	/* the hours hand */
	cairo_move_to(cr, 0, 0);
	cairo_line_to(cr, sinf(hours) * 0.2, - cosf(hours) * 0.2);
	cairo_stroke(cr);

	g_date_time_unref(now);

	/* we're done drawing */
	return TRUE;
}

static guint idle_resize_id;

static gboolean
idle_resize(gpointer data)
{
	ClutterActor *actor = data;
	float width, height;

	/* match the canvas size to the actor's */
	clutter_actor_get_size(actor, &width, &height);
	clutter_canvas_set_size(CLUTTER_CANVAS(clutter_actor_get_content(actor)), ceilf(width), ceilf(height));

	/* unset the guard */
	idle_resize_id = 0;

	/* remove the timeout */
	return G_SOURCE_REMOVE;
}

static void
on_actor_resize(ClutterActor *actor, const ClutterActorBox *allocation, ClutterAllocationFlags flags, gpointer user_data)
{
	/* throttle multiple actor allocations to one canvas resize; we use a guard
	 * variable to avoid queueing multiple resize operations
	 */
	if (idle_resize_id == 0) {
		idle_resize_id = clutter_threads_add_timeout(1000, idle_resize, actor);
	}
}

int
gradix_clutter_main(int argc, char *argv[])
{
	ClutterActor *stage,
		     *sign_aries,
		     *sign_taurus,
		     *sign_gemini,
		     *sign_cancer,
		     *sign_leo,
		     *sign_virgo,
		     *sign_libra,
		     *sign_scorpio,
		     *sign_saggitarius,
		     *sign_capricorn,
		     *sign_aquarius,
		     *sign_pisces,
		     *actor;
	ClutterContent *canvas;
	GError *err = NULL;

	init_graphics();

	/* initialize Clutter */
	if (clutter_init(&argc, &argv) != CLUTTER_INIT_SUCCESS) {
		return EXIT_FAILURE;
	}

	/* create a resizable stage */
	stage = clutter_stage_new();
	clutter_stage_set_title(CLUTTER_STAGE (stage), "GRadix");
	clutter_stage_set_user_resizable(CLUTTER_STAGE (stage), TRUE);
	clutter_actor_set_background_color(stage, CLUTTER_COLOR_LightSkyBlue);
	clutter_actor_set_size(stage, 300, 300);
	clutter_actor_show(stage);

	g_clear_error(&err);
	if ((sign_aries = clutter_texture_new_from_file(IMAGEDIR "/sign_aries.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_aries);
	}

	g_clear_error(&err);
	if ((sign_taurus = clutter_texture_new_from_file(IMAGEDIR "/sign_taurus.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_taurus);
	}

	g_clear_error(&err);
	if ((sign_gemini = clutter_texture_new_from_file(IMAGEDIR "/sign_gemini.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_gemini);
	}

	g_clear_error(&err);
	if ((sign_cancer = clutter_texture_new_from_file(IMAGEDIR "/sign_cancer.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_cancer);
	}

	g_clear_error(&err);
	if ((sign_leo = clutter_texture_new_from_file(IMAGEDIR "/sign_leo.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_leo);
	}

	g_clear_error(&err);
	if ((sign_virgo = clutter_texture_new_from_file(IMAGEDIR "/sign_virgo.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_virgo);
	}

	g_clear_error(&err);
	if ((sign_libra = clutter_texture_new_from_file(IMAGEDIR "/sign_libra.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_libra);
	}

	g_clear_error(&err);
	if ((sign_scorpio = clutter_texture_new_from_file(IMAGEDIR "/sign_scorpio.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_scorpio);
	}

	g_clear_error(&err);
	if ((sign_saggitarius = clutter_texture_new_from_file(IMAGEDIR "/sign_saggitarius.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_saggitarius);
	}

	g_clear_error(&err);
	if ((sign_capricorn = clutter_texture_new_from_file(IMAGEDIR "/sign_capricorn.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_capricorn);
	}

	g_clear_error(&err);
	if ((sign_aquarius = clutter_texture_new_from_file(IMAGEDIR "/sign_aquarius.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_aquarius);
	}

	g_clear_error(&err);
	if ((sign_pisces = clutter_texture_new_from_file(IMAGEDIR "/sign_pisces.svg", &err)) == NULL) {
		printf("%s\n", err->message);
	} else {
		clutter_actor_add_child(stage, sign_pisces);
	}

	/* our 2D canvas, courtesy of Cairo */
	//canvas = clutter_canvas_new();
	//clutter_canvas_set_size(CLUTTER_CANVAS (canvas), 300, 300);

	//actor = clutter_actor_new();
	//clutter_actor_set_content(actor, canvas);
	//clutter_actor_set_content_scaling_filters(actor, CLUTTER_SCALING_FILTER_TRILINEAR, CLUTTER_SCALING_FILTER_LINEAR);
	//clutter_actor_add_child(stage, actor);

	/* the actor now owns the canvas */
	//g_object_unref(canvas);

	/* bind the size of the actor to that of the stage */
	//clutter_actor_add_constraint(actor, clutter_bind_constraint_new(stage, CLUTTER_BIND_SIZE, 0));

	/* resize the canvas whenever the actor changes size */
	//g_signal_connect(actor, "allocation-changed", G_CALLBACK(on_actor_resize), NULL);

	/* quit on destroy */
	g_signal_connect(stage, "destroy", G_CALLBACK(clutter_main_quit), NULL);

	/* connect our drawing code */
	//g_signal_connect(canvas, "draw", G_CALLBACK(draw_clock), NULL);

	/* invalidate the canvas, so that we can draw before the main loop starts */
	//clutter_content_invalidate(canvas);

	/* set up a timer that invalidates the canvas every second */
	//clutter_threads_add_timeout(1000, invalidate_clock, canvas);

	clutter_main();

	return EXIT_SUCCESS;
}