diff options
Diffstat (limited to 'hacks/glx/dymaxionmap.c')
| -rw-r--r-- | hacks/glx/dymaxionmap.c | 1652 |
1 files changed, 0 insertions, 1652 deletions
diff --git a/hacks/glx/dymaxionmap.c b/hacks/glx/dymaxionmap.c deleted file mode 100644 index 1527daa..0000000 --- a/hacks/glx/dymaxionmap.c +++ /dev/null @@ -1,1652 +0,0 @@ -/* dymaxionmap --- Buckminster Fuller's unwrapped icosahedral globe. - * Copyright (c) 2016-2018 Jamie Zawinski. - * - * Permission to use, copy, modify, and distribute this software and its - * documentation for any purpose and without fee is hereby granted, - * provided that the above copyright notice appear in all copies and that - * both that copyright notice and this permission notice appear in - * supporting documentation. - * - * This file is provided AS IS with no warranties of any kind. The author - * shall have no liability with respect to the infringement of copyrights, - * trade secrets or any patents by this file or any part thereof. In no - * event will the author be liable for any lost revenue or profits or - * other special, indirect and consequential damages. - */ - -#define LABEL_FONT "sans-serif bold 24" - -#ifdef STANDALONE -#define DEFAULTS "*delay: 20000 \n" \ - "*showFPS: False \n" \ - "*wireframe: False \n" \ - "*labelFont: " LABEL_FONT "\n" -# define release_planet 0 -# include "xlockmore.h" /* from the xscreensaver distribution */ -#else /* !STANDALONE */ -# include "xlock.h" /* from the xlockmore distribution */ -#endif /* !STANDALONE */ - -#ifdef USE_GL /* whole file */ - -#include "sphere.h" -#include "normals.h" -#include "texfont.h" -#include "dymaxionmap-coords.h" - -#define DEF_ROTATE "True" -#define DEF_ROLL "True" -#define DEF_WANDER "True" -#define DEF_TEXTURE "True" -#define DEF_STARS "True" -#define DEF_GRID "True" -#define DEF_SPEED "1.0" -#define DEF_IMAGE "BUILTIN_FLAT" -#define DEF_IMAGE2 "NONE" -#define DEF_FRAMES "720" - -#undef BELLRAND -#define BELLRAND(n) ((frand((n)) + frand((n)) + frand((n))) / 3) -#undef RANDSIGN -#define RANDSIGN() ((random() & 1) ? 1 : -1) - -static int do_roll; -static int do_wander; -static int do_texture; -static int do_stars; -static int do_grid; -static int frames; -static GLfloat speed; -static char *which_image; -static char *which_image2; - -static XrmOptionDescRec opts[] = { - {"-speed", ".speed", XrmoptionSepArg, 0 }, - {"-roll", ".roll", XrmoptionNoArg, "true" }, - {"+roll", ".roll", XrmoptionNoArg, "false" }, - {"-wander", ".wander", XrmoptionNoArg, "true" }, - {"+wander", ".wander", XrmoptionNoArg, "false" }, - {"-texture", ".texture", XrmoptionNoArg, "true" }, - {"+texture", ".texture", XrmoptionNoArg, "false" }, - {"-stars", ".stars", XrmoptionNoArg, "true" }, - {"+stars", ".stars", XrmoptionNoArg, "false" }, - {"-grid", ".grid", XrmoptionNoArg, "true" }, - {"+grid", ".grid", XrmoptionNoArg, "false" }, - {"-flat", ".image", XrmoptionNoArg, "BUILTIN_FLAT" }, - {"-satellite",".image", XrmoptionNoArg, "BUILTIN_SAT" }, - {"-image", ".image", XrmoptionSepArg, 0 }, - {"-image2", ".image2", XrmoptionSepArg, 0 }, - {"-frames", ".frames", XrmoptionSepArg, 0 }, -}; - -static argtype vars[] = { - {&speed, "speed", "Speed", DEF_SPEED, t_Float}, - {&do_roll, "roll", "Roll", DEF_ROLL, t_Bool}, - {&do_wander, "wander", "Wander", DEF_WANDER, t_Bool}, - {&do_texture, "texture", "Texture", DEF_TEXTURE, t_Bool}, - {&do_stars, "stars", "Stars", DEF_STARS, t_Bool}, - {&do_grid, "grid", "Grid", DEF_GRID, t_Bool}, - {&which_image, "image", "Image", DEF_IMAGE, t_String}, - {&which_image2,"image2", "Image2", DEF_IMAGE2, t_String}, - {&frames, "frames", "Frames", DEF_FRAMES, t_Int}, -}; - -ENTRYPOINT ModeSpecOpt planet_opts = {countof(opts), opts, countof(vars), vars, NULL}; - -#ifdef USE_MODULES -ModStruct planet_description = -{"planet", "init_planet", "draw_planet", NULL, - "draw_planet", "init_planet", "free_planet", &planet_opts, - 1000, 1, 2, 1, 4, 1.0, "", - "Buckminster Fuller's unwrapped icosahedral globe", 0, NULL}; -#endif - -# ifdef __GNUC__ - __extension__ /* don't warn about "string length is greater than the length - ISO C89 compilers are required to support" when including - the following XPM file... */ -# endif - -#include "images/gen/earth_flat_png.h" -#include "images/gen/earth_png.h" -#include "images/gen/earth_night_png.h" -#include "images/gen/ground_png.h" - -#include "ximage-loader.h" -#include "rotator.h" -#include "gltrackball.h" - - -typedef struct { - GLXContext *glx_context; - GLuint starlist; - int starcount; - rotator *rot, *rot2; - trackball_state *trackball; - Bool button_down_p; - enum { STARTUP, FLAT, FOLD, - ICO, STEL_IN, AXIS, SPIN, STEL, STEL_OUT, - ICO2, UNFOLD } state; - GLfloat ratio; - GLuint tex1, tex2; - texture_font_data *font_data; - int loading_sw, loading_sh; - - XImage *day, *night, *dusk, *cvt; - XImage **images; /* One image for each frame of time-of-day. */ - int nimages; - - double current_frame; - Bool cache_p; - long delay; - -} planetstruct; - - -static planetstruct *planets = NULL; - - -static double -double_time (void) -{ - struct timeval now; -# ifdef GETTIMEOFDAY_TWO_ARGS - struct timezone tzp; - gettimeofday(&now, &tzp); -# else - gettimeofday(&now); -# endif - - return (now.tv_sec + ((double) now.tv_usec * 0.000001)); -} - - -/* Draw faint latitude and longitude lines into the RGBA XImage. - */ -static void -add_grid_lines (XImage *image) -{ - int i; - int off = 24; - for (i = 0; i < 24; i++) - { - int x = (i + 0.5) * image->width / (double) 24; - int y; - for (y = 0; y < image->height; y++) - { - unsigned long rgba = XGetPixel (image, x, y); - int r = (rgba >> 24) & 0xFF; - int g = (rgba >> 16) & 0xFF; - int b = (rgba >> 8) & 0xFF; - int a = (rgba >> 0) & 0xFF; - int off2 = (((r + g + b) / 3) < 0x7F ? off : -off); - r = MAX (0, MIN (0xFF, r + off2)); - g = MAX (0, MIN (0xFF, g + off2)); - b = MAX (0, MIN (0xFF, b + off2)); - XPutPixel (image, x, y, (r << 24) | (g << 16) | (b << 8) | a); - } - } - - for (i = 1; i < 11; i++) - { - int y = i * image->height / (double) 12; - int x; - for (x = 0; x < image->width; x++) - { - unsigned long rgba = XGetPixel (image, x, y); - int r = (rgba >> 24) & 0xFF; - int g = (rgba >> 16) & 0xFF; - int b = (rgba >> 8) & 0xFF; - int a = (rgba >> 0) & 0xFF; - int off2 = (((r + g + b) / 3) < 0x7F ? off : -off); - r = MAX (0, MIN (0xFF, r + off2)); - g = MAX (0, MIN (0xFF, g + off2)); - b = MAX (0, MIN (0xFF, b + off2)); - XPutPixel (image, x, y, (r << 24) | (g << 16) | (b << 8) | a); - } - } -} - - -static void -adjust_brightness (XImage *image, double amount) -{ - uint32_t *in = (uint32_t *) image->data; - int i; - int end = image->height * image->bytes_per_line / 4; - for (i = 0; i < end; i++) - { - uint32_t p = *in; - /* #### Why is this ABGR instead of RGBA? */ - uint32_t a = (p >> 24) & 0xFF; - uint32_t g = (p >> 16) & 0xFF; - uint32_t b = (p >> 8) & 0xFF; - uint32_t r = (p >> 0) & 0xFF; - r = MAX(0, MIN(0xFF, (long) (r * amount))); - g = MAX(0, MIN(0xFF, (long) (g * amount))); - b = MAX(0, MIN(0xFF, (long) (b * amount))); - p = (a << 24) | (g << 16) | (b << 8) | r; - *in++ = p; - } -} - - -static GLfloat -vector_angle (XYZ a, XYZ b) -{ - double La = sqrt (a.x*a.x + a.y*a.y + a.z*a.z); - double Lb = sqrt (b.x*b.x + b.y*b.y + b.z*b.z); - double cc, angle; - - if (La == 0 || Lb == 0) return 0; - if (a.x == b.x && a.y == b.y && a.z == b.z) return 0; - - /* dot product of two vectors is defined as: - La * Lb * cos(angle between vectors) - and is also defined as: - ax*bx + ay*by + az*bz - so: - La * Lb * cos(angle) = ax*bx + ay*by + az*bz - cos(angle) = (ax*bx + ay*by + az*bz) / (La * Lb) - angle = acos ((ax*bx + ay*by + az*bz) / (La * Lb)); - */ - cc = (a.x*b.x + a.y*b.y + a.z*b.z) / (La * Lb); - if (cc > 1) cc = 1; /* avoid fp rounding error (1.000001 => sqrt error) */ - angle = acos (cc); - - return (angle); -} - - -/* Creates a grayscale image encoding the day/night terminator for a random - axial tilt. - */ -static XImage * -create_daylight_mask (Display *dpy, Visual *v, int w, int h) -{ - XImage *image = XCreateImage (dpy, v, 8, ZPixmap, 0, 0, w, h, 8, 0); - int x, y; -# undef sun /* Doh */ - XYZ sun; - double axial_tilt = frand(23.4) / (180/M_PI) * RANDSIGN(); - double dusk = M_PI * 0.035; - sun.x = 0; - sun.y = cos (axial_tilt); - sun.z = sin (axial_tilt); - - image->data = (char *) malloc (image->height * image->bytes_per_line); - - for (y = 0; y < image->height; y++) - { - double lat = -M_PI_2 + (M_PI * (y / (double) image->height)); - double cosL = cos(lat); - double sinL = sin(lat); - for (x = 0; x < image->width; x++) - { - double lon = -M_PI_2 + (M_PI * 2 * (x / (double) image->width)); - XYZ v; - double a; - unsigned long p; - v.x = cos(lon) * cosL; - v.y = sin(lon) * cosL; - v.z = sinL; - a = vector_angle (sun, v); - a -= M_PI_2; - a = (a < -dusk ? 1 : a >= dusk ? 0 : (dusk - a) / (dusk * 2)); - p = 0xFF & (unsigned long) (a * 0xFF); - XPutPixel (image, x, y, p); - } - } - return image; -} - - -static void -load_images (ModeInfo *mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - int i; - - if (which_image && !strcmp (which_image, "BUILTIN_FLAT")) - { - which_image = strdup("BUILTIN_FLAT"); - which_image2 = strdup("BUILTIN_FLAT"); - } - else if (which_image && !strcmp (which_image, "BUILTIN_SAT")) - { - which_image = strdup("BUILTIN_DAY"); - which_image2 = strdup("BUILTIN_NIGHT"); - } - - if (!which_image) which_image = strdup(""); - if (!which_image2) which_image2 = strdup(""); - - for (i = 0; i < 2; i++) - { - char *s = (i == 0 ? which_image : which_image2); - XImage *image; - if (!strcmp (s, "BUILTIN_DAY")) - image = image_data_to_ximage (MI_DISPLAY (mi), MI_VISUAL (mi), - earth_png, sizeof(earth_png)); - else if (!strcmp (s, "BUILTIN_NIGHT")) - image = image_data_to_ximage (MI_DISPLAY (mi), MI_VISUAL (mi), - earth_night_png,sizeof(earth_night_png)); - else if (!strcmp (s, "BUILTIN") || - !strcmp (s, "BUILTIN_FLAT") || - (i == 0 && !strcmp (s, ""))) - image = image_data_to_ximage (MI_DISPLAY (mi), MI_VISUAL (mi), - earth_flat_png, sizeof(earth_flat_png)); - else if (!strcmp (s, "NONE")) - image = 0; - else if (*s) - image = file_to_ximage (MI_DISPLAY (mi), MI_VISUAL (mi), s); - else - image = 0; - - /* if (image) fprintf (stderr, "%s: %d: loaded %s\n", progname, i, s); */ - - if (i == 0) - gp->day = image; - else - gp->night = image; - } - - if (gp->night && !gp->day) - gp->day = gp->night, gp->night = 0; - - gp->nimages = frames; - gp->current_frame = random() % gp->nimages; - - if (gp->nimages < 1) - gp->nimages = 1; - - if (gp->nimages < 2 && gp->night) - { - XDestroyImage (gp->night); - gp->night = 0; - gp->nimages = 1; - } - - if (! gp->night) - gp->nimages = 1; - - if (do_grid) - { - if (gp->day) add_grid_lines (gp->day); - if (gp->night) add_grid_lines (gp->night); - } - - if (gp->day && gp->night && !gp->dusk) - { - if (gp->day->width != gp->night->width || - gp->day->height != gp->night->height) - { - fprintf (stderr, "%s: day and night images must be the same size" - " (%dx%d vs %dx%d)\n", progname, - gp->day->width, gp->day->height, - gp->night->width, gp->night->height); - exit (1); - } - gp->dusk = create_daylight_mask (MI_DISPLAY (mi), MI_VISUAL (mi), - gp->day->width, gp->day->height); - } - - /* Make the day image brighter, because that's easier than doing it - with GL lights. */ - adjust_brightness (gp->day, 1.4); - - if (!strcmp (which_image, which_image2)) - /* If day and night are the same image, make night way darker. */ - adjust_brightness (gp->night, 0.2); - else if (gp->night) - /* Otherwise make it just a little darker. */ - adjust_brightness (gp->night, 0.7); - - - gp->images = (XImage **) calloc (gp->nimages, sizeof(*gp->images)); - - /* Create 'cvt', a map that projects each pixel from Equirectangular to - Dymaxion. It is 2x the width/height of the source images. We iterate - by half pixel to make sure we hit every pixel in 'out'. It would be - cleaner to iterate over 'out' instead of over 'in' but - dymaxionmap-coords.c only goes forward. This is... not super fast. - */ - { - double W = 5.5; - double H = 3 * sqrt(3)/2; - int x2, y2; - int w = gp->day->width; - int h = gp->day->height; - uint32_t *out; - - gp->cvt = XCreateImage (MI_DISPLAY(mi), MI_VISUAL(mi), 32, ZPixmap, 0, 0, - gp->day->width*2, gp->day->height*2, 32, 0); - gp->cvt->data = (char *) - malloc (gp->cvt->height * gp->cvt->bytes_per_line); - out = (uint32_t *) gp->cvt->data; - - for (y2 = 0; y2 < h*2; y2++) - { - double y = (double) y2/2; - double lat = -90 + (180 * (y / (double) h)); - for (x2 = 0; x2 < w*2; x2++) - { - double x = (double) x2/2; - double lon = -180 + (360 * x / w); - double ox, oy; - dymaxion_convert (lon, lat, &ox, &oy); - ox = w - (w * ox / W); - oy = (h * oy / H); - - *out++ = (((((uint32_t) ox) & 0xFFFF) << 16) | - ((((uint32_t) oy) & 0xFFFF))); - } - } - } - - /* A 128 GB iPhone 6s dies at around 540 frames, ~1 GB of XImages. - A 16 GB iPad Air 2 dies at around 320 frames, ~640 MB. - Caching on mobile doesn't matter much: we can just run at 100% CPU. - - On some systems it would be more efficient to cache the images inside - a texture on the GPU instead of moving it from RAM to GPU every few - frames; but on other systems, we'd just run out of GPU memory instead. */ - { - unsigned long cache_size = (gp->day->width * gp->day->height * 4 * - gp->nimages); -# ifdef HAVE_MOBILE - unsigned long max = 320 * 1024 * 1024L; /* 320 MB */ -# else - /*unsigned long max = 2 * 1024 * 1024 * 1024L;*/ /* 2 GB */ - unsigned long max = 0x80000000L; /* 2 GB */ -# endif - gp->cache_p = (cache_size < max); - } -} - - -static void -cache_current_frame (ModeInfo *mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - XImage *blended, *dymaxion; - int i, x, y, w, h, end, xoff; - uint32_t *day, *night, *cvt, *out; - uint8_t *dusk; - - if (gp->images[(int) gp->current_frame]) - return; - - xoff = (gp->dusk - ? gp->dusk->width * ((double) gp->current_frame / gp->nimages) - : 0); - - w = gp->day->width; - h = gp->day->height; - - if (!gp->night) - blended = gp->day; - else - { - /* Blend the foreground and background images through the dusk map. - */ - blended = XCreateImage (MI_DISPLAY(mi), MI_VISUAL(mi), - gp->day->depth, ZPixmap, 0, 0, w, h, 32, 0); - if (!blended) abort(); - blended->data = (char *) malloc (h * blended->bytes_per_line); - if (!blended->data) abort(); - - end = blended->height * blended->bytes_per_line / 4; - day = (uint32_t *) gp->day->data; - night = (uint32_t *) gp->night->data; - dusk = (uint8_t *) gp->dusk->data; - out = (uint32_t *) blended->data; - - for (i = 0; i < end; i++) - { - uint32_t d = *day++; - uint32_t n = *night++; - uint32_t x = i % w; - uint32_t y = i / w; - double r = dusk[y * w + ((x + xoff) % w)] / 256.0; - double r2 = 1-r; -# define ADD(M) (((unsigned long) \ - ((((d >> M) & 0xFF) * r) + \ - (((n >> M) & 0xFF) * r2))) \ - << M) - /* #### Why is this ABGR instead of RGBA? */ - *out++ = (0xFF << 24) | ADD(16) | ADD(8) | ADD(0); -# undef ADD - } - } - - /* Convert blended Equirectangular to Dymaxion through the 'cvt' map. - */ - dymaxion = XCreateImage (MI_DISPLAY(mi), MI_VISUAL(mi), - gp->day->depth, ZPixmap, 0, 0, w, h, 32, 0); - dymaxion->data = (char *) calloc (h, dymaxion->bytes_per_line); - - day = (uint32_t *) blended->data; - out = (uint32_t *) dymaxion->data; - cvt = (uint32_t *) gp->cvt->data; - - for (y = 0; y < h*2; y++) - for (x = 0; x < w*2; x++) - { - unsigned long m = *cvt++; - unsigned long dx = (m >> 16) & 0xFFFF; - unsigned long dy = m & 0xFFFF; - unsigned long p = day[(y>>1) * w + (x>>1)]; - unsigned long p2 = out[dy * w + dx]; - if (p2 & 0xFF000000) - /* RGBA nonzero alpha: initialized. Average with existing, - otherwise the grid lines look terrible. */ - p = (((((p>>24) & 0xFF) + ((p2>>24) & 0xFF)) >> 1) << 24 | - ((((p>>16) & 0xFF) + ((p2>>16) & 0xFF)) >> 1) << 16 | - ((((p>> 8) & 0xFF) + ((p2>> 8) & 0xFF)) >> 1) << 8 | - ((((p>> 0) & 0xFF) + ((p2>> 0) & 0xFF)) >> 1) << 0); - out[dy * w + dx] = p; - } - - /* Fill in the triangles that are not a part of The World with the - color of the ocean to avoid texture-tearing on the folded edges. - */ - out = (uint32_t *) dymaxion->data; - end = dymaxion->height * dymaxion->bytes_per_line / 4; - { - double lat = -48.44, lon = -123.39; /* R'Lyeh */ - int x = (lon + 180) * blended->width / 360.0; - int y = (lat + 90) * blended->height / 180.0; - unsigned long ocean = XGetPixel (gp->day, x, y); - for (i = 0; i < end; i++) - { - uint32_t p = *out; - if (! (p & 0xFF000000)) /* AGBR */ - *out = ocean; - out++; - } - } - - if (blended != gp->day) - XDestroyImage (blended); - - gp->images[(int) gp->current_frame] = dymaxion; - - if (!gp->cache_p) /* Keep only one image around; recompute every time. */ - { - i = ((int) gp->current_frame) - 1; - if (i < 0) i = gp->nimages - 1; - if (gp->images[i]) - { - XDestroyImage (gp->images[i]); - gp->images[i] = 0; - } - } -} - - -static void -setup_texture (ModeInfo * mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - XImage *ground; - - glGenTextures (1, &gp->tex1); - glBindTexture (GL_TEXTURE_2D, gp->tex1); - - /* Must be after glBindTexture */ - glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); - - load_images (mi); - - glGenTextures (1, &gp->tex2); - glBindTexture (GL_TEXTURE_2D, gp->tex2); - - /* Must be after glBindTexture */ - glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); - - /* The underground image can go on flat, without the dymaxion transform. */ - ground = image_data_to_ximage (MI_DISPLAY (mi), MI_VISUAL (mi), - ground_png, sizeof(ground_png)); - clear_gl_error(); - glPixelStorei(GL_UNPACK_ALIGNMENT, 1); - /* glPixelStorei(GL_UNPACK_ROW_LENGTH, ground->width); */ - glTexImage2D (GL_TEXTURE_2D, 0, GL_RGBA, - ground->width, ground->height, 0, - GL_RGBA, GL_UNSIGNED_BYTE, ground->data); - check_gl_error ("ground texture"); - XDestroyImage (ground); -} - - -static void -init_stars (ModeInfo *mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - int i, j; - int width = MI_WIDTH(mi); - int height = MI_HEIGHT(mi); - int size = (width > height ? width : height); - int nstars = size * size / 80; - int max_size = 3; - GLfloat inc = 0.5; - int steps = max_size / inc; - GLfloat scale = 1; - - if (MI_WIDTH(mi) > 2560) { /* Retina displays */ - scale *= 2; - nstars /= 2; - } - - gp->starlist = glGenLists(1); - glNewList(gp->starlist, GL_COMPILE); - for (j = 1; j <= steps; j++) - { - glPointSize(inc * j * scale); - glBegin (GL_POINTS); - for (i = 0; i < nstars / steps; i++) - { - GLfloat d = 0.1; - GLfloat r = 0.15 + frand(0.3); - GLfloat g = r + frand(d) - d; - GLfloat b = r + frand(d) - d; - - GLfloat x = frand(1)-0.5; - GLfloat y = frand(1)-0.5; - GLfloat z = ((random() & 1) - ? frand(1)-0.5 - : (BELLRAND(1)-0.5)/12); /* milky way */ - d = sqrt (x*x + y*y + z*z); - x /= d; - y /= d; - z /= d; - glColor3f (r, g, b); - glVertex3f (x, y, z); - gp->starcount++; - } - glEnd (); - } - glEndList (); - - check_gl_error("stars initialization"); -} - - -ENTRYPOINT void -reshape_planet (ModeInfo *mi, int width, int height) -{ - GLfloat h = (GLfloat) height / (GLfloat) width; - - glViewport(0, 0, (GLint) width, (GLint) height); - glMatrixMode(GL_PROJECTION); - glLoadIdentity(); - glFrustum(-1.0, 1.0, -h, h, 5.0, 200.0); - glMatrixMode(GL_MODELVIEW); - glLoadIdentity(); - glTranslatef(0.0, 0.0, -40); - -# ifdef HAVE_MOBILE /* Keep it the same relative size when rotated. */ - { - int o = (int) current_device_rotation(); - if (o != 0 && o != 180 && o != -180) - glScalef (h, h, h); - } -# endif - - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); -} - - -static void -do_normal2 (ModeInfo *mi, Bool frontp, XYZ a, XYZ b, XYZ c) -{ - XYZ n = (frontp - ? calc_normal (a, b, c) - : calc_normal (b, a, c)); - glNormal3f (n.x, n.y, n.z); - -# if 0 - if (frontp && MI_IS_WIREFRAME(mi)) - { - glBegin (GL_LINES); - glVertex3f ((a.x + b.x + c.x) / 3, - (a.y + b.y + c.y) / 3, - (a.z + b.z + c.z) / 3); - glVertex3f ((a.x + b.x + c.x) / 3 + n.x, - (a.y + b.y + c.y) / 3 + n.y, - (a.z + b.z + c.z) / 3 + n.z); - glEnd(); - } -# endif -} - - -static void -triangle0 (ModeInfo *mi, Bool frontp, GLfloat stel_ratio, int facemask, - XYZ *corners_ret) -{ - /* Render a triangle as six sub-triangles. - Facemask bits 0-5 indicate which sub-triangle to draw. - - A - / \ - / | \ - / | \ - / 0 | 1 \ - E /_ | _\ F - / \_ | _/ \ - / 5 \D/ 2 \ - / / | \ \ - / / 4 | 3 \ \ - / / | \ \ - B ----------------------- C - G - */ - - Bool wire = MI_IS_WIREFRAME(mi); - GLfloat h = sqrt(3) / 2; - GLfloat h2 = sqrt(h*h - (h/2)*(h/2)) - 0.5; - XYZ A, B, C, D, E, F, G; - XYZ tA, tB, tC, tD, tE, tF, tG; - XYZ a, b, c; - XYZ ta, tb, tc; - A.x = 0; A.y = h; A.z = 0; - B.x = -0.5, B.y = 0; B.z = 0; - C.x = 0.5, C.y = 0; C.z = 0; - D.x = 0; D.y = h/3; D.z = 0; - E.x = -h2; E.y = h/2; E.z = 0; - F.x = h2; F.y = h/2; F.z = 0; - G.x = 0; G.y = 0; G.z = 0; - - /* When tweaking object XY to stellate, don't change texture coordinates. */ - tA = A; tB = B; tC = C; tD = D; tE = E; tF = F; tG = G; - - /* Eyeballed this to find the depth of stellation that seems to most - approximate a sphere. - */ - D.z = 0.193 * stel_ratio; - - /* We want to raise E, F and G as well but we can't just shift Z: - we need to keep them on the same vector from the center of the sphere, - which means also changing F and G's X and Y. - */ - E.z = F.z = G.z = 0.132 * stel_ratio; - { - double magic_x = 0.044; - double magic_y = 0.028; - /* G.x stays 0 */ - G.y -= sqrt (magic_x*magic_x + magic_y*magic_y) * stel_ratio; - E.x -= magic_x * stel_ratio; - E.y += magic_y * stel_ratio; - F.x += magic_x * stel_ratio; - F.y += magic_y * stel_ratio; - } - - - if (facemask & 1<<0) - { - a = E; b = D; c = A; - ta = tE; tb = tD; tc = tA; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<1) - { - a = D; b = F; c = A; - ta = tD; tb = tF; tc = tA; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<2) - { - a = D; b = C; c = F; - ta = tD; tb = tC; tc = tF; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<3) - { - a = G; b = C; c = D; - ta = tG; tb = tC; tc = tD; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<4) - { - a = B; b = G; c = D; - ta = tB; tb = tG; tc = tD; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<5) - { - a = B; b = D; c = E; - ta = tB; tb = tD; tc = tE; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - if (facemask & 1<<6) - { - a = E; b = D; c = A; - ta = tE; tb = tD; tc = tA; - do_normal2 (mi, frontp, a, b, c); - glBegin (wire ? GL_LINE_LOOP : GL_TRIANGLES); - glTexCoord2f (ta.x, ta.y); glVertex3f (a.x, a.y, a.z); - glTexCoord2f (tb.x, tb.y); glVertex3f (b.x, b.y, b.z); - glTexCoord2f (tc.x, tc.y); glVertex3f (c.x, c.y, c.z); - glEnd(); - mi->polygon_count++; - } - - if (corners_ret) - { - corners_ret[0] = A; - corners_ret[1] = B; - corners_ret[2] = C; - corners_ret[3] = D; - corners_ret[4] = E; - corners_ret[5] = F; - corners_ret[6] = G; - } -} - - -/* The segments, numbered arbitrarily from the top left: - ________ _ ________ - \ /\ /\ \ |\ / - \ 0 / \ / \3> | \ 5 / - \ / 1 \ / 2 \| ..|4 \ /-6-.. - ___________\/______\/______\/______\/______\ - | /\ /\ /\ /\ /\ - |7 / \ 9 / \ 11 / \ 13 / \ 15 / \ - | / 8 \ / 10 \ / 12 \ / 14 \ / 16 \ - |/______\/______\/______\/______\/______\ - \ /\ / /\ /\ - \ 17 / \ 18 / / \ 20 / \ - \ / \ / / 19 \ / 21 \ - \/ \/ /______\/______\ - - Each triangle can be connected to at most two other triangles. - We start from the middle, #12, and work our way to the edges. - Its centroid is 0,0. - - (Note that dymaxionmap-coords.c uses a different numbering system.) - */ -static void -triangle (ModeInfo *mi, int which, Bool frontp, - GLfloat fold_ratio, GLfloat stel_ratio) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - const GLfloat fg[] = { 1, 1, 1, 1 }; - const GLfloat bg[] = { 0.3, 0.3, 0.3, 1 }; - int a = -1, b = -1; - GLfloat max = acos (sqrt(5)/3); - GLfloat rot = -max * fold_ratio / (M_PI/180); - Bool wire = MI_IS_WIREFRAME(mi); - XYZ corners[7]; - - glColor3fv (fg); - if (!wire) - glMaterialfv (GL_FRONT_AND_BACK, GL_AMBIENT_AND_DIFFUSE, fg); - - switch (which) { - case 3: /* One third of the face. */ - triangle0 (mi, frontp, stel_ratio, 1<<3 | 1<<4, corners); - break; - case 4: /* Two thirds of the face: convex. */ - triangle0 (mi, frontp, stel_ratio, 1<<1 | 1<<2 | 1<<3 | 1<<4, corners); - break; - case 6: /* One half of the face. */ - triangle0 (mi, frontp, stel_ratio, 1<<1 | 1<<2 | 1<<3, corners); - break; - case 7: /* One half of the face. */ - triangle0 (mi, frontp, stel_ratio, 1<<2 | 1<<3 | 1<<4, corners); - break; - default: /* Full face. */ - triangle0 (mi, frontp, stel_ratio, 0x3F, corners); - break; - } - - if (wire) - { - char tag[20]; - glColor3fv (bg); - sprintf (tag, "%d", which); - glPushMatrix(); - glTranslatef (-0.1, 0.2, 0); - glScalef (0.005, 0.005, 0.005); - print_texture_string (gp->font_data, tag); - glPopMatrix(); - mi->polygon_count++; - } - - - /* The connection hierarchy of the faces starting at the middle, #12. */ - switch (which) { - case 0: break; - case 1: a = 0; b = -1; break; - case 2: a = -1; b = 3; break; - case 3: break; - case 4: a = -1; b = 5; break; - case 5: a = -1; b = 6; break; - case 7: break; - case 6: break; - case 8: a = 17; b = 7; break; - case 9: a = 8; b = -1; break; - case 10: a = 18; b = 9; break; - case 11: a = 10; b = 1; break; - case 12: a = 11; b = 13; break; - case 13: a = 2; b = 14; break; - case 14: a = 15; b = 20; break; - case 15: a = 4; b = 16; break; - case 16: break; - case 17: break; - case 18: break; - case 19: break; - case 20: a = 21; b = 19; break; - case 21: break; - default: abort(); break; - } - - if (a != -1) - { - glPushMatrix(); - glTranslatef (-0.5, 0, 0); /* Move model matrix to upper left */ - glRotatef (60, 0, 0, 1); - glTranslatef ( 0.5, 0, 0); - - glMatrixMode(GL_TEXTURE); - /* glPushMatrix(); */ - glTranslatef (-0.5, 0, 0); /* Move texture matrix the same way */ - glRotatef (60, 0, 0, 1); - glTranslatef ( 0.5, 0, 0); - - glMatrixMode(GL_MODELVIEW); - - glRotatef (rot, 1, 0, 0); - triangle (mi, a, frontp, fold_ratio, stel_ratio); - - /* This should just be a PopMatrix on the TEXTURE stack, but - fucking iOS has GL_MAX_TEXTURE_STACK_DEPTH == 4! WTF! - So we have to undo our rotations and translations manually. - */ - glMatrixMode(GL_TEXTURE); - /* glPopMatrix(); */ - glTranslatef (-0.5, 0, 0); - glRotatef (-60, 0, 0, 1); - glTranslatef (0.5, 0, 0); - - glMatrixMode(GL_MODELVIEW); - glPopMatrix(); - } - - if (b != -1) - { - glPushMatrix(); - glTranslatef (0.5, 0, 0); /* Move model matrix to upper right */ - glRotatef (-60, 0, 0, 1); - glTranslatef (-0.5, 0, 0); - - glMatrixMode(GL_TEXTURE); - /* glPushMatrix(); */ - glTranslatef (0.5, 0, 0); /* Move texture matrix the same way */ - glRotatef (-60, 0, 0, 1); - glTranslatef (-0.5, 0, 0); - - glMatrixMode(GL_MODELVIEW); - - glRotatef (rot, 1, 0, 0); - triangle (mi, b, frontp, fold_ratio, stel_ratio); - - /* See above. Grr. */ - glMatrixMode(GL_TEXTURE); - /* glPopMatrix(); */ - glTranslatef (0.5, 0, 0); - glRotatef (60, 0, 0, 1); - glTranslatef (-0.5, 0, 0); - - glMatrixMode(GL_MODELVIEW); - glPopMatrix(); - } - - - /* Draw a border around the edge of the world. - */ - if (!wire && frontp && stel_ratio == 0 && fold_ratio < 0.95) - { - int edges = 0; - GLfloat c[] = { 0, 0.2, 0.5, 1 }; - c[3] = 1-fold_ratio; - - switch (which) - { - case 0: edges = 1<<0 | 1<<2; break; - case 1: edges = 1<<2; break; - case 2: edges = 1<<0; break; - case 3: edges = 1<<3 | 1<<4; break; - case 4: edges = 1<<3 | 1<<5; break; - case 5: edges = 1<<0 | 1<<6; break; - case 6: edges = 1<<2 | 1<<7; break; - case 16: edges = 1<<0 | 1<<2; break; - case 21: edges = 1<<0 | 1<<2; break; - case 19: edges = 1<<0 | 1<<2; break; - case 12: edges = 1<<1; break; - case 18: edges = 1<<0 | 1<<2; break; - case 17: edges = 1<<0 | 1<<2; break; - case 7: edges = 1<<8 | 1<<9; break; - case 9: edges = 1<<2; break; - default: break; - } - - glDisable (GL_TEXTURE_2D); - glDisable (GL_LIGHTING); - glLineWidth (2); - glColor4fv (c); - glBegin (GL_LINES); - if (edges & 1<<0) - { - glVertex3f (corners[0].x, corners[0].y, corners[0].z); - glVertex3f (corners[1].x, corners[1].y, corners[1].z); - } - if (edges & 1<<1) - { - glVertex3f (corners[1].x, corners[1].y, corners[1].z); - glVertex3f (corners[2].x, corners[2].y, corners[2].z); - } - if (edges & 1<<2) - { - glVertex3f (corners[2].x, corners[2].y, corners[2].z); - glVertex3f (corners[0].x, corners[0].y, corners[0].z); - } - if (edges & 1<<3) - { - glVertex3f (corners[1].x, corners[1].y, corners[1].z); - glVertex3f (corners[3].x, corners[3].y, corners[3].z); - } - if (edges & 1<<4) - { - glVertex3f (corners[3].x, corners[3].y, corners[3].z); - glVertex3f (corners[2].x, corners[2].y, corners[2].z); - } - if (edges & 1<<5) - { - glVertex3f (corners[3].x, corners[3].y, corners[3].z); - glVertex3f (corners[0].x, corners[0].y, corners[0].z); - } - if (edges & 1<<6) - { - glVertex3f (corners[0].x, corners[0].y, corners[0].z); - glVertex3f (corners[5].x, corners[5].y, corners[5].z); - } - if (edges & 1<<7) - { - glVertex3f (corners[0].x, corners[0].y, corners[0].z); - glVertex3f (corners[6].x, corners[6].y, corners[6].z); - } - if (edges & 1<<8) - { - glVertex3f (corners[1].x, corners[1].y, corners[1].z); - glVertex3f (corners[5].x, corners[5].y, corners[5].z); - } - if (edges & 1<<9) - { - glVertex3f (corners[5].x, corners[5].y, corners[5].z); - glVertex3f (corners[2].x, corners[2].y, corners[2].z); - } - glEnd(); - glEnable (GL_TEXTURE_2D); - glEnable (GL_LIGHTING); - } -} - - -static void -draw_triangles (ModeInfo *mi, GLfloat fold_ratio, GLfloat stel_ratio) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - Bool wire = MI_IS_WIREFRAME(mi); - GLfloat h = sqrt(3) / 2; - GLfloat c = h / 3; - - glTranslatef (0, -h/3, 0); /* Center on face 12 */ - - /* When closed, center on midpoint of icosahedron. Eyeballed this. */ - glTranslatef (0, 0, fold_ratio * 0.754); - - glFrontFace (GL_CCW); - - /* Adjust the texture matrix so that it has the same coordinate space - as the model. */ - - glMatrixMode(GL_TEXTURE); - glPushMatrix(); - { - GLfloat texw = 5.5; - GLfloat texh = 3 * h; - GLfloat midx = 2.5; - GLfloat midy = 3 * c; - glScalef (1/texw, -1/texh, 1); - glTranslatef (midx, midy, 0); - } - glMatrixMode(GL_MODELVIEW); - - - - /* Front faces */ - - if (wire) - glDisable (GL_TEXTURE_2D); - else if (do_texture) - { - glEnable (GL_TEXTURE_2D); - glBindTexture (GL_TEXTURE_2D, gp->tex1); - } - else - glDisable (GL_TEXTURE_2D); - - triangle (mi, 12, True, fold_ratio, stel_ratio); - - /* Back faces */ - - if (wire) - glDisable (GL_TEXTURE_2D); - else if (do_texture) - { - glEnable (GL_TEXTURE_2D); - glBindTexture (GL_TEXTURE_2D, gp->tex2); - } - else - glDisable (GL_TEXTURE_2D); - - glFrontFace (GL_CW); - - triangle (mi, 12, False, fold_ratio, 0); - - glMatrixMode(GL_TEXTURE); - glPopMatrix(); - glMatrixMode(GL_MODELVIEW); -} - - -static void -align_axis (ModeInfo *mi, int undo) -{ - /* Rotate so that an axis is lined up with the north and south poles - on the map, which are not in the center of their faces, or any - other easily computable spot. */ - - GLfloat r1 = 20.5; - GLfloat r2 = 28.5; - - if (undo) - { - glRotatef (-r2, 0, 1, 0); - glRotatef ( r2, 1, 0, 0); - glRotatef (-r1, 1, 0, 0); - } - else - { - glRotatef (r1, 1, 0, 0); - glRotatef (-r2, 1, 0, 0); - glRotatef ( r2, 0, 1, 0); - } -} - - -static void -draw_axis (ModeInfo *mi) -{ - GLfloat s; - glDisable (GL_TEXTURE_2D); - glDisable (GL_LIGHTING); - glPushMatrix(); - - align_axis (mi, 0); - glTranslatef (0.34, 0.39, -0.61); - - s = 0.96; - glScalef (s, s, s); /* tighten up the enclosing sphere */ - - glLineWidth (1); - glColor3f (0.5, 0.5, 0); - - glRotatef (90, 1, 0, 0); /* unit_sphere is off by 90 */ - glRotatef (9.5, 0, 1, 0); /* line up the time zones */ - glFrontFace (GL_CCW); - unit_sphere (12, 24, True); - glBegin(GL_LINES); - glVertex3f(0, -2, 0); - glVertex3f(0, 2, 0); - glEnd(); - - glPopMatrix(); -} - - - - -ENTRYPOINT Bool -planet_handle_event (ModeInfo *mi, XEvent *event) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - - if (gltrackball_event_handler (event, gp->trackball, - MI_WIDTH (mi), MI_HEIGHT (mi), - &gp->button_down_p)) - return True; - else if (event->xany.type == KeyPress) - { - KeySym keysym; - char c = 0; - XLookupString (&event->xkey, &c, 1, &keysym, 0); - if (c == ' ' || c == '\t' || c == '\r' || c == '\n') - { - int i; - double cf = gp->current_frame; - - /* Switch between the satellite and flat map, preserving position. */ - if (gp->day) XDestroyImage (gp->day); - if (gp->night) XDestroyImage (gp->night); - if (gp->cvt) XDestroyImage (gp->cvt); - gp->day = 0; - gp->night = 0; - gp->cvt = 0; - - for (i = 0; i < gp->nimages; i++) - if (gp->images[i]) XDestroyImage (gp->images[i]); - free (gp->images); - gp->images = 0; - - which_image = strdup (!strcmp (which_image, "BUILTIN_DAY") - ? "BUILTIN_FLAT" : "BUILTIN_DAY"); - which_image2 = strdup (!strcmp (which_image2, "BUILTIN_NIGHT") - ? "BUILTIN_FLAT" : "BUILTIN_NIGHT"); - load_images (mi); - gp->current_frame = cf; -# if 0 - switch (gp->state) { - case FLAT: case ICO: case STEL: case AXIS: case ICO2: - gp->ratio = 1; - break; - default: - break; - } -# endif - return True; - } - } - - return False; -} - - -ENTRYPOINT void -init_planet (ModeInfo * mi) -{ - planetstruct *gp; - int screen = MI_SCREEN(mi); - Bool wire = MI_IS_WIREFRAME(mi); - - MI_INIT (mi, planets); - gp = &planets[screen]; - - if ((gp->glx_context = init_GL(mi)) != NULL) { - reshape_planet(mi, MI_WIDTH(mi), MI_HEIGHT(mi)); - } - - gp->state = STARTUP; - gp->ratio = 0; - gp->font_data = load_texture_font (mi->dpy, "labelFont"); - gp->delay = MI_DELAY(mi); - - { - double spin_speed = 0.1; - double wander_speed = 0.002; - gp->rot = make_rotator (do_roll ? spin_speed : 0, - do_roll ? spin_speed : 0, - 0, 1, - do_wander ? wander_speed : 0, - False); - gp->rot2 = make_rotator (0, 0, 0, 0, wander_speed, False); - gp->trackball = gltrackball_init (True); - } - - if (wire) - do_texture = False; - - if (do_texture) - setup_texture (mi); - - if (do_stars) - init_stars (mi); - - glEnable (GL_DEPTH_TEST); - glEnable (GL_NORMALIZE); - glEnable (GL_CULL_FACE); - - if (!wire) - { - GLfloat pos[4] = {1, 1, 1, 0}; - GLfloat amb[4] = {0, 0, 0, 1}; - GLfloat dif[4] = {1, 1, 1, 1}; - GLfloat spc[4] = {0, 1, 1, 1}; - glEnable(GL_LIGHTING); - glEnable(GL_LIGHT0); - glLightfv(GL_LIGHT0, GL_POSITION, pos); - glLightfv(GL_LIGHT0, GL_AMBIENT, amb); - glLightfv(GL_LIGHT0, GL_DIFFUSE, dif); - glLightfv(GL_LIGHT0, GL_SPECULAR, spc); - } -} - - -static GLfloat -ease_fn (GLfloat r) -{ - return cos ((r/2 + 1) * M_PI) + 1; /* Smooth curve up, end at slope 1. */ -} - - -static GLfloat -ease_ratio (GLfloat r) -{ - GLfloat ease = 0.35; - if (r <= 0) return 0; - else if (r >= 1) return 1; - else if (r <= ease) return ease * ease_fn (r / ease); - else if (r > 1-ease) return 1 - ease * ease_fn ((1 - r) / ease); - else return r; -} - - -ENTRYPOINT void -draw_planet (ModeInfo * mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - int wire = MI_IS_WIREFRAME(mi); - Display *dpy = MI_DISPLAY(mi); - Window window = MI_WINDOW(mi); - long delay = gp->delay; - double x, y, z; - - if (!gp->glx_context) - return; - - glDrawBuffer(GL_BACK); - glClear(GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT); - - glXMakeCurrent (dpy, window, *gp->glx_context); - - mi->polygon_count = 0; - - if (! gp->button_down_p) - switch (gp->state) { - case STARTUP: gp->ratio += speed * 0.01; break; - case FLAT: gp->ratio += speed * 0.005 * - /* Stay flat longer if animating day and night. */ - (gp->nimages <= 1 ? 1 : 0.3); - break; - case FOLD: gp->ratio += speed * 0.01; break; - case ICO: gp->ratio += speed * 0.01; break; - case STEL_IN: gp->ratio += speed * 0.05; break; - case STEL: gp->ratio += speed * 0.01; break; - case STEL_OUT: gp->ratio += speed * 0.07; break; - case ICO2: gp->ratio += speed * 0.07; break; - case AXIS: gp->ratio += speed * 0.02; break; - case SPIN: gp->ratio += speed * 0.005; break; - case UNFOLD: gp->ratio += speed * 0.01; break; - default: abort(); - } - - if (gp->ratio > 1.0) - { - gp->ratio = 0; - switch (gp->state) { - case STARTUP: gp->state = FLAT; break; - case FLAT: gp->state = FOLD; break; - case FOLD: gp->state = ICO; break; - case ICO: gp->state = STEL_IN; break; - case STEL_IN: gp->state = STEL; break; - case STEL: - { - int i = (random() << 9) % 7; - gp->state = (i < 3 ? STEL_OUT : - i < 6 ? SPIN : AXIS); - } - break; - case AXIS: gp->state = STEL_OUT; break; - case SPIN: gp->state = STEL_OUT; break; - case STEL_OUT: gp->state = ICO2; break; - case ICO2: gp->state = UNFOLD; break; - case UNFOLD: gp->state = FLAT; break; - default: abort(); - } - } - - glEnable(GL_LINE_SMOOTH); - glEnable(GL_POINT_SMOOTH); - glEnable(GL_DEPTH_TEST); - glEnable(GL_CULL_FACE); - glCullFace(GL_BACK); - - glPushMatrix(); - - gltrackball_rotate (gp->trackball); - glRotatef (current_device_rotation(), 0, 0, 1); - -# ifdef HAVE_MOBILE /* Fill more of the screen. */ - { - int size = MI_WIDTH(mi) < MI_HEIGHT(mi) - ? MI_WIDTH(mi) : MI_HEIGHT(mi); - GLfloat s = (size > 768 ? 1.4 : /* iPad */ - 2); /* iPhone */ - glScalef (s, s, s); - if (MI_WIDTH(mi) < MI_HEIGHT(mi)) - glRotatef (90, 0, 0, 1); - } -# endif - - if (gp->state != STARTUP) - { - get_position (gp->rot, &x, &y, &z, !gp->button_down_p); - x = (x - 0.5) * 3; - y = (y - 0.5) * 3; - z = 0; - glTranslatef(x, y, z); - } - - if (do_roll && gp->state != STARTUP) - { - double max = 65; - get_position (gp->rot2, &x, &y, 0, !gp->button_down_p); - glRotatef (max/2 - x*max, 1, 0, 0); - glRotatef (max/2 - y*max, 0, 1, 0); - } - - if (do_stars) - { - glDisable(GL_TEXTURE_2D); - glDisable(GL_LIGHTING); - glPushMatrix(); - glScalef (60, 60, 60); - glRotatef (90, 1, 0, 0); - glRotatef (35, 1, 0, 0); - glCallList (gp->starlist); - mi->polygon_count += gp->starcount; - glPopMatrix(); - glClear(GL_DEPTH_BUFFER_BIT); - } - - if (! wire) - { - glEnable (GL_LIGHTING); - glEnable (GL_BLEND); - glBlendFunc (GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); - } - - if (do_texture) - glEnable(GL_TEXTURE_2D); - - if (do_texture /* && !gp->button_down_p */) - { - int i; - int prev = gp->current_frame; - - /* By default, advance terminator by about an hour every 5 seconds. */ - gp->current_frame += 0.1 * speed * (gp->nimages / 360.0); - while (gp->current_frame >= gp->nimages) - gp->current_frame -= gp->nimages; - i = gp->current_frame; - - /* Load the current image into the texture. - */ - if (i != prev || !gp->images[i]) - { - double start = double_time(); - cache_current_frame (mi); - - glBindTexture (GL_TEXTURE_2D, gp->tex1); - - /* Must be after glBindTexture */ - glTexEnvf(GL_TEXTURE_ENV, GL_TEXTURE_ENV_MODE, GL_MODULATE); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_S, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_WRAP_T, GL_REPEAT); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); - glTexParameterf(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); - - glTexImage2D (GL_TEXTURE_2D, 0, GL_RGBA, - gp->images[i]->width, - gp->images[i]->height, 0, - GL_RGBA, GL_UNSIGNED_BYTE, - gp->images[i]->data); - check_gl_error ("texture"); - - /* If caching the image took a bunch of time, deduct that from - our per-frame delay to keep the timing a little smoother. */ - delay -= 1000000 * (double_time() - start); - if (delay < 0) delay = 0; - } - } - - glTranslatef (-0.5, -0.4, 0); - glScalef (2.6, 2.6, 2.6); - - { - GLfloat fold_ratio = 0; - GLfloat stel_ratio = 0; - switch (gp->state) { - case FOLD: fold_ratio = gp->ratio; break; - case UNFOLD: fold_ratio = 1 - gp->ratio; break; - case ICO: case ICO2: fold_ratio = 1; break; - case STEL: case AXIS: case SPIN: fold_ratio = 1; stel_ratio = 1; break; - case STEL_IN: fold_ratio = 1; stel_ratio = gp->ratio; break; - case STEL_OUT: fold_ratio = 1; stel_ratio = 1 - gp->ratio; break; - case STARTUP: /* Tilt in from flat */ - glRotatef (-90 * ease_ratio (1 - gp->ratio), 1, 0, 0); - break; - - default: break; - } - -# ifdef HAVE_MOBILE /* Enlarge the icosahedron a bit to make it more visible */ - { - GLfloat s = 1 + 1.3 * ease_ratio (fold_ratio); - glScalef (s, s, s); - } -# endif - - if (gp->state == SPIN) - { - align_axis (mi, 0); - glRotatef (ease_ratio (gp->ratio) * 360 * 3, 0, 0, 1); - align_axis (mi, 1); - } - - draw_triangles (mi, ease_ratio (fold_ratio), ease_ratio (stel_ratio)); - - if (gp->state == AXIS) - draw_axis(mi); - } - - glPopMatrix(); - - if (mi->fps_p) do_fps (mi); - glFinish(); - glXSwapBuffers(dpy, window); - - MI_DELAY(mi) = delay; -} - - -ENTRYPOINT void -free_planet (ModeInfo * mi) -{ - planetstruct *gp = &planets[MI_SCREEN(mi)]; - int i; - - if (!gp->glx_context) return; - glXMakeCurrent (MI_DISPLAY(mi), MI_WINDOW(mi), *gp->glx_context); - - if (gp->font_data) free_texture_font (gp->font_data); - if (gp->trackball) gltrackball_free (gp->trackball); - if (gp->rot) free_rotator (gp->rot); - if (gp->rot2) free_rotator (gp->rot2); - - if (gp->day) XDestroyImage (gp->day); - if (gp->night) XDestroyImage (gp->night); - if (gp->dusk) XDestroyImage (gp->dusk); - if (gp->cvt) XDestroyImage (gp->cvt); - - if (gp->images) { - for (i = 0; i < gp->nimages; i++) - if (gp->images[i]) XDestroyImage (gp->images[i]); - free (gp->images); - } - - if (glIsList(gp->starlist)) glDeleteLists(gp->starlist, 1); - if (gp->tex1) glDeleteTextures (1, &gp->tex1); - if (gp->tex2) glDeleteTextures (1, &gp->tex2); -} - - -XSCREENSAVER_MODULE_2 ("DymaxionMap", dymaxionmap, planet) - -#endif |