-/* xscreensaver, Copyright (c) 1999-2012 Jamie Zawinski <jwz@jwz.org>
+/* xscreensaver, Copyright (c) 1999-2018 Jamie Zawinski <jwz@jwz.org>
*
* Permission to use, copy, modify, distribute, and sell this software and its
* documentation for any purpose is hereby granted without fee, provided that
# include "config.h"
#endif /* HAVE_CONFIG_H */
-#ifndef HAVE_COCOA
+#ifndef HAVE_JWXYZ
# include <X11/Intrinsic.h>
#endif
#include "screenhack.h"
#include "textclient.h"
+#include "ximage-loader.h"
+#include "utf8wc.h"
#define FUZZY_BORDER
#define BUILTIN_FONT
#ifdef BUILTIN_FONT
-# include "images/6x10font.xbm"
+# include "images/gen/6x10font_png.h"
#endif /* BUILTIN_FONT */
typedef struct {
const char *program;
int grid_width, grid_height;
int char_width, char_height;
+ int xmargin, ymargin;
int saved_x, saved_y;
int scale;
int ticks;
int mode;
+
int escstate;
int csiparam[NPAR];
int curparam;
+ int unicruds; unsigned char unicrud[7];
+
p_char **chars;
p_cell *cells;
XGCValues gcv;
static void clear (p_state *);
static void set_cursor (p_state *, Bool on);
+static unsigned short scale_color_channel (unsigned short ch1, unsigned short ch2)
+{
+ return (ch1 * 100 + ch2 * 156) >> 8;
+}
+
+#define FONT6x10_WIDTH (256*7)
+#define FONT6x10_HEIGHT 10
+
static void *
phosphor_init (Display *dpy, Window window)
{
{
#ifndef BUILTIN_FONT
fprintf (stderr, "%s: no builtin font\n", progname);
- state->font = XLoadQueryFont (dpy, "fixed");
+ state->font = load_font_retry (dpy, "fixed");
#endif /* !BUILTIN_FONT */
}
else
{
- state->font = XLoadQueryFont (dpy, fontname);
-
- if (!state->font)
- {
- fprintf(stderr, "couldn't load font \"%s\"\n", fontname);
- state->font = XLoadQueryFont (dpy, "fixed");
- }
- if (!state->font)
- {
- fprintf(stderr, "couldn't load font \"fixed\"");
- exit(1);
- }
+ state->font = load_font_retry (dpy, fontname);
+ if (!state->font) abort();
}
font = state->font;
state->ticks = STATE_MAX + get_integer_resource (dpy, "ticks", "Integer");
state->escstate = 0;
+ if (state->xgwa.width > 2560) state->scale *= 2; /* Retina displays */
state->cursor_blink = get_integer_resource (dpy, "cursor", "Time");
# ifdef BUILTIN_FONT
if (! font)
{
- state->char_width = (font6x10_width / 256) - 1;
- state->char_height = font6x10_height;
+ state->char_width = (FONT6x10_WIDTH / 256) - 1;
+ state->char_height = FONT6x10_HEIGHT;
}
else
# endif /* BUILTIN_FONT */
state->char_height = font->max_bounds.ascent + font->max_bounds.descent;
}
- state->grid_width = state->xgwa.width / (state->char_width * state->scale);
- state->grid_height = state->xgwa.height /(state->char_height * state->scale);
+# ifdef USE_IPHONE
+ /* Stupid iPhone X bezel.
+ #### This is the worst of all possible ways to do this! But how else?
+ */
+ if (state->xgwa.width == 2436 || state->xgwa.height == 2436) {
+ state->xmargin = 96;
+ state->ymargin = state->xmargin;
+ }
+# endif
+
+ state->grid_width = ((state->xgwa.width - state->xmargin * 2) /
+ (state->char_width * state->scale));
+ state->grid_height = ((state->xgwa.height - state->ymargin * 2) /
+ (state->char_height * state->scale));
state->cells = (p_cell *) calloc (sizeof(p_cell),
state->grid_width * state->grid_height);
state->chars = (p_char **) calloc (sizeof(p_char *), 256);
state->gcs = (GC *) calloc (sizeof(GC), state->ticks + 1);
{
- int ncolors = MAX (0, state->ticks - 3);
+ int ncolors = MAX (1, state->ticks - 3);
XColor *colors = (XColor *) calloc (ncolors, sizeof(XColor));
int h1, h2;
double s1, s2, v1, v2;
"foreground", "Foreground");
unsigned long bg = get_pixel_resource (state->dpy, state->xgwa.colormap,
"background", "Background");
- unsigned long flare = get_pixel_resource (state->dpy,state->xgwa.colormap,
- "flareForeground", "Foreground");
- unsigned long fade = get_pixel_resource (state->dpy,state->xgwa.colormap,
- "fadeForeground", "Foreground");
+ unsigned long flare = fg;
- XColor start, end;
+ XColor fg_color, bg_color;
- start.pixel = fade;
- XQueryColor (state->dpy, state->xgwa.colormap, &start);
+ fg_color.pixel = fg;
+ XQueryColor (state->dpy, state->xgwa.colormap, &fg_color);
- end.pixel = bg;
- XQueryColor (state->dpy, state->xgwa.colormap, &end);
+ bg_color.pixel = bg;
+ XQueryColor (state->dpy, state->xgwa.colormap, &bg_color);
/* Now allocate a ramp of colors from the main color to the background. */
- rgb_to_hsv (start.red, start.green, start.blue, &h1, &s1, &v1);
- rgb_to_hsv (end.red, end.green, end.blue, &h2, &s2, &v2);
- make_color_ramp (state->dpy, state->xgwa.colormap,
+ rgb_to_hsv (scale_color_channel(fg_color.red, bg_color.red),
+ scale_color_channel(fg_color.green, bg_color.green),
+ scale_color_channel(fg_color.blue, bg_color.blue),
+ &h1, &s1, &v1);
+ rgb_to_hsv (bg_color.red, bg_color.green, bg_color.blue, &h2, &s2, &v2);
+
+ /* Avoid rainbow effects when fading to black/grey/white. */
+ if (s2 < 0.003)
+ h2 = h1;
+ if (s1 < 0.003)
+ h1 = h2;
+
+ make_color_ramp (state->xgwa.screen, state->xgwa.visual,
+ state->xgwa.colormap,
h1, s1, v1,
h2, s2, v2,
colors, &ncolors,
/* Adjust to the number of colors we actually got. */
state->ticks = ncolors + STATE_MAX;
+ /* If the foreground is brighter than the background, the flare is white.
+ * Otherwise, the flare is left at the foreground color (i.e. no flare). */
+ rgb_to_hsv (fg_color.red, fg_color.green, fg_color.blue, &h1, &s1, &v1);
+ if (v2 <= v1)
+ {
+ XColor white;
+ /* WhitePixel is only for the default visual, which can be overridden
+ * on the command line. */
+ white.red = 0xffff;
+ white.green = 0xffff;
+ white.blue = 0xffff;
+ if (XAllocColor(state->dpy, state->xgwa.colormap, &white))
+ flare = white.pixel;
+ }
+
/* Now, GCs all around.
*/
state->gcv.font = (font ? font->fid : 0);
state->tc = textclient_open (dpy);
textclient_reshape (state->tc,
- state->xgwa.width,
- state->xgwa.height,
+ state->xgwa.width - state->xmargin * 2,
+ state->xgwa.height - state->ymargin * 2,
state->grid_width - 1,
- state->grid_height - 1);
+ state->grid_height - 1,
+ 0);
return state;
}
XGetWindowAttributes (state->dpy, state->window, &state->xgwa);
- state->grid_width = state->xgwa.width /(state->char_width * state->scale);
- state->grid_height = state->xgwa.height /(state->char_height * state->scale);
+ /* Would like to ensure here that
+ state->char_height * state->scale <= state->xgwa.height
+ but changing scale requires regenerating the bitmaps. */
+
+ state->grid_width = ((state->xgwa.width - state->xmargin * 2) /
+ (state->char_width * state->scale));
+ state->grid_height = ((state->xgwa.height - state->ymargin * 2) /
+ (state->char_height * state->scale));
+
+ if (state->grid_width < 2) state->grid_width = 2;
+ if (state->grid_height < 2) state->grid_height = 2;
if (ow == state->grid_width &&
oh == state->grid_height)
{
safe_width = state->char_width + 1;
height = state->char_height;
- p2 = XCreatePixmapFromBitmapData (state->dpy, state->window,
- (char *) font6x10_bits,
- font6x10_width,
- font6x10_height,
- 1, 0, 1);
+
+ int pix_w, pix_h;
+ XWindowAttributes xgwa;
+ Pixmap m = 0;
+ Pixmap p = image_data_to_pixmap (state->dpy, state->window,
+ _6x10font_png, sizeof(_6x10font_png),
+ &pix_w, &pix_h, &m);
+ XImage *im = XGetImage (state->dpy, p, 0, 0, pix_w, pix_h, ~0L, ZPixmap);
+ XImage *mm = XGetImage (state->dpy, m, 0, 0, pix_w, pix_h, 1, XYPixmap);
+ XImage *im2;
+ int x, y;
+ XGCValues gcv;
+ GC gc;
+ unsigned long black =
+ BlackPixelOfScreen (DefaultScreenOfDisplay (state->dpy));
+
+ XFreePixmap (state->dpy, p);
+ XFreePixmap (state->dpy, m);
+ if (pix_w != 256*7) abort();
+ if (pix_h != 10) abort();
+ if (pix_w != FONT6x10_WIDTH) abort();
+ if (pix_h != FONT6x10_HEIGHT) abort();
+
+ XGetWindowAttributes (state->dpy, state->window, &xgwa);
+ im2 = XCreateImage (state->dpy, xgwa.visual, 1, XYBitmap, 0, 0,
+ pix_w, pix_h, 8, 0);
+ im2->data = malloc (im2->bytes_per_line * im2->height);
+
+ /* Convert deep image to 1 bit */
+ for (y = 0; y < pix_h; y++)
+ for (x = 0; x < pix_w; x++)
+ XPutPixel (im2, x, y,
+ (XGetPixel (mm, x, y)
+ ? (XGetPixel (im, x, y) == black)
+ : 0));
+
+ XDestroyImage (im);
+ XDestroyImage (mm);
+ im = 0;
+
+ p2 = XCreatePixmap (state->dpy, state->window,
+ im2->width, im2->height, im2->depth);
+ gcv.foreground = 1;
+ gcv.background = 0;
+ gc = XCreateGC (state->dpy, p2, GCForeground|GCBackground, &gcv);
+ XPutImage (state->dpy, p2, gc, im2, 0, 0, 0, 0, im2->width, im2->height);
+ XFreeGC (state->dpy, gc);
+ XDestroyImage (im2);
}
else
# endif /* BUILTIN_FONT */
GCCapStyle | GCLineWidth),
&state->gcv);
-#ifdef HAVE_COCOA
+#ifdef HAVE_JWXYZ
jwxyz_XSetAntiAliasing (state->dpy, state->gc0, False);
jwxyz_XSetAntiAliasing (state->dpy, state->gc1, False);
#endif
if (p2)
{
XCopyPlane (state->dpy, p2, p, state->gc1,
- 0, 0, font6x10_width, font6x10_height,
+ 0, 0, FONT6x10_WIDTH, FONT6x10_HEIGHT,
0, 0, 1);
XFreePixmap (state->dpy, p2);
}
}
+static int
+process_unicrud (p_state *state, int c)
+{
+ if ((c & 0xE0) == 0xC0) { /* 110xxxxx: 11 bits, 2 bytes */
+ state->unicruds = 1;
+ state->unicrud[0] = c;
+ state->escstate = 102;
+ } else if ((c & 0xF0) == 0xE0) { /* 1110xxxx: 16 bits, 3 bytes */
+ state->unicruds = 1;
+ state->unicrud[0] = c;
+ state->escstate = 103;
+ } else if ((c & 0xF8) == 0xF0) { /* 11110xxx: 21 bits, 4 bytes */
+ state->unicruds = 1;
+ state->unicrud[0] = c;
+ state->escstate = 104;
+ } else if ((c & 0xFC) == 0xF8) { /* 111110xx: 26 bits, 5 bytes */
+ state->unicruds = 1;
+ state->unicrud[0] = c;
+ state->escstate = 105;
+ } else if ((c & 0xFE) == 0xFC) { /* 1111110x: 31 bits, 6 bytes */
+ state->unicruds = 1;
+ state->unicrud[0] = c;
+ state->escstate = 106;
+ } else if (state->unicruds == 0) {
+ return c;
+ } else {
+ int total = state->escstate - 100; /* see what I did there */
+ if (state->unicruds < total) {
+ /* Buffer more bytes of the UTF-8 sequence */
+ state->unicrud[state->unicruds++] = c;
+ }
+
+ if (state->unicruds >= total) {
+ /* Done! Convert it to Latin1 and print that. */
+ char *s;
+ state->unicrud[state->unicruds] = 0;
+ s = utf8_to_latin1 ((const char *) state->unicrud, False);
+ state->unicruds = 0;
+ state->escstate = 0;
+ if (s) {
+ c = (unsigned char) s[0];
+ free (s);
+ return c;
+ }
+ }
+ }
+ return 0;
+}
+
+
static void
print_char (p_state *state, int c)
{
+ int cols = state->grid_width;
+ int rows = state->grid_height;
p_cell *cell = &state->cells[state->grid_width * state->cursor_y
+ state->cursor_x];
CRLF line endings instead of bare LF, so that's no good.
*/
{
- int i, start, end;
+ int i;
+ int start, end;
+
+ /* Mostly duplicated in apple2-main.c */
+
switch (state->escstate)
{
case 0:
state->cursor_x--;
break;
case 9: /* HT */
- if (state->cursor_x < state->grid_width - 8)
+ if (state->cursor_x < cols - 8)
{
state->cursor_x = (state->cursor_x & ~7) + 8;
}
else
{
state->cursor_x = 0;
- if (state->cursor_y < state->grid_height - 1)
+ if (state->cursor_y < rows - 1)
state->cursor_y++;
else
scroll (state);
}
break;
case 10: /* LF */
+# ifndef HAVE_FORKPTY
+ state->cursor_x = 0; /* No ptys on iPhone; assume CRLF. */
+# endif
case 11: /* VT */
case 12: /* FF */
if(state->last_c == 13)
cell->p_char = state->chars[state->bk];
cell->changed = True;
}
- if (state->cursor_y < state->grid_height - 1)
+ if (state->cursor_y < rows - 1)
state->cursor_y++;
else
scroll (state);
break;
case 13: /* CR */
state->cursor_x = 0;
- cell = &state->cells[state->grid_width * state->cursor_y];
+ cell = &state->cells[cols * state->cursor_y];
if((cell->p_char == NULL) || (cell->p_char->name == CURSOR_INDEX))
state->bk = ' ';
else
break;
case 14: /* SO */
case 15: /* SI */
- /* Dummy case - I don't want to load several fonts for
- the maybe two programs world-wide that use that */
+ /* Dummy case - there is one and only one font. */
break;
case 24: /* CAN */
case 26: /* SUB */
state->curparam = 0;
break;
default:
+
+ PRINT: /* Come from states 102-106 */
+ c = process_unicrud (state, c);
+ if (! c)
+ break;
+
+ /* If the cursor is in column 39 and we print a character, then
+ that character shows up in column 39, and the cursor is no
+ longer visible on the screen (it's in "column 40".) If
+ another character is printed, then that character shows up in
+ column 0, and the cursor moves to column 1.
+
+ This is empirically what xterm and gnome-terminal do, so that
+ must be the right thing. (In xterm, the cursor vanishes,
+ whereas; in gnome-terminal, the cursor overprints the
+ character in col 39.)
+ */
cell->state = FLARE;
cell->p_char = state->chars[c];
cell->changed = True;
if (c != ' ' && cell->p_char->blank_p)
cell->p_char = state->chars[CURSOR_INDEX];
- if (state->cursor_x >= state->grid_width - 1)
+ if (state->cursor_x >= cols - 1 /*####*/)
{
state->cursor_x = 0;
- if (state->cursor_y >= state->grid_height - 1)
+ if (state->cursor_y >= rows - 1)
scroll (state);
else
state->cursor_y++;
state->escstate = 0;
break;
case 'D': /* Linefeed */
- if (state->cursor_y < state->grid_height - 1)
+ if (state->cursor_y < rows - 1)
state->cursor_y++;
else
scroll (state);
state->csiparam[i] = 0;
state->curparam = 0;
break;
- case '%': /* Select charset */
- /* No, I don't support UTF-8, since the phosphor font
- isn't even Unicode anyway. We must still catch the
- last byte, though. */
+ case '%': /* Select charset */
+ /* @: Select default (ISO 646 / ISO 8859-1)
+ G: Select UTF-8
+ 8: Select UTF-8 (obsolete)
+
+ We can just ignore this and always process UTF-8, I think?
+ We must still catch the last byte, though.
+ */
case '(':
case ')':
/* I don't support different fonts either - see above
case '@':
for (i = 0; i < state->csiparam[0]; i++)
{
- if(++state->cursor_x > state->grid_width)
+ if(++state->cursor_x > cols)
{
state->cursor_x = 0;
- if (state->cursor_y < state->grid_height - 1)
+ if (state->cursor_y < rows - 1)
state->cursor_y++;
else
scroll (state);
}
- cell = &state->cells[state->grid_width * state->cursor_y + state->cursor_x];
+ cell = &state->cells[cols * state->cursor_y + state->cursor_x];
if (cell->state == FLARE || cell->state == NORMAL)
{
cell->state = FADE;
case 'B':
if (state->csiparam[0] == 0)
state->csiparam[0] = 1;
- if ((state->cursor_y += state->csiparam[0]) >= state->grid_height - 1)
- state->cursor_y = state->grid_height - 1;
+ if ((state->cursor_y += state->csiparam[0]) >= rows - 1 /*####*/)
+ state->cursor_y = rows - 1;
state->escstate = 0;
break;
case 'a':
case 'C':
if (state->csiparam[0] == 0)
state->csiparam[0] = 1;
- if ((state->cursor_x += state->csiparam[0]) >= state->grid_width - 1)
- state->cursor_x = state->grid_width - 1;
+ if ((state->cursor_x += state->csiparam[0]) >= cols - 1 /*####*/)
+ state->cursor_x = cols - 1;
state->escstate = 0;
break;
case 'D':
state->escstate = 0;
break;
case 'd':
- if ((state->cursor_y = (state->csiparam[0] - 1)) >= state->grid_height - 1)
- state->cursor_y = state->grid_height - 1;
+ if ((state->cursor_y = (state->csiparam[0] - 1)) >= rows - 1 /*####*/)
+ state->cursor_y = rows - 1;
state->escstate = 0;
break;
case '`':
case 'G':
- if ((state->cursor_x = (state->csiparam[0] - 1)) >= state->grid_width - 1)
- state->cursor_x = state->grid_width - 1;
+ if ((state->cursor_x = (state->csiparam[0] - 1)) >= cols - 1 /*####*/)
+ state->cursor_x = cols - 1;
state->escstate = 0;
break;
case 'f':
case 'H':
- if ((state->cursor_y = (state->csiparam[0] - 1)) >= state->grid_height - 1)
- state->cursor_y = state->grid_height - 1;
- if ((state->cursor_x = (state->csiparam[1] - 1)) >= state->grid_width - 1)
- state->cursor_x = state->grid_width - 1;
+ if ((state->cursor_y = (state->csiparam[0] - 1)) >= rows - 1 /*####*/)
+ state->cursor_y = rows - 1;
+ if ((state->cursor_x = (state->csiparam[1] - 1)) >= cols - 1 /*####*/)
+ state->cursor_x = cols - 1;
if(state->cursor_y < 0)
state->cursor_y = 0;
if(state->cursor_x < 0)
break;
case 'J':
start = 0;
- end = state->grid_height * state->grid_width;
+ end = rows * cols;
if (state->csiparam[0] == 0)
- start = state->grid_width * state->cursor_y + state->cursor_x;
+ start = cols * state->cursor_y + state->cursor_x;
if (state->csiparam[0] == 1)
- end = state->grid_width * state->cursor_y + state->cursor_x;
+ end = cols * state->cursor_y + state->cursor_x;
for (i = start; i < end; i++)
{
cell = &state->cells[i];
break;
case 'K':
start = 0;
- end = state->grid_width;
+ end = cols;
if (state->csiparam[0] == 0)
start = state->cursor_x;
if (state->csiparam[1] == 1)
}
state->escstate = 0;
break;
+ case 'm': /* Set attributes unimplemented (bold, blink, rev) */
+ state->escstate = 0;
+ break;
case 's': /* Save position */
state->saved_x = state->cursor_x;
state->saved_y = state->cursor_y;
case 3:
state->escstate = 0;
break;
+
+ case 102: /* states 102-106 are for UTF-8 decoding */
+ case 103:
+ case 104:
+ case 105:
+ case 106:
+ goto PRINT;
+
+ default:
+ abort();
}
set_cursor (state, True);
}
else
{
state->cursor_x = 0;
- if (state->cursor_y == state->grid_height - 1)
+ if (state->cursor_y == rows - 1)
scroll (state);
else
state->cursor_y++;
}
else
{
+ c = process_unicrud (state, c);
+ if (!c) return;
+
cell->state = FLARE;
cell->p_char = state->chars[c];
cell->changed = True;
if (c != ' ' && cell->p_char->blank_p)
cell->p_char = state->chars[CURSOR_INDEX];
- if (state->cursor_x >= state->grid_width - 1)
+ if (state->cursor_x >= cols - 1)
{
state->cursor_x = 0;
- if (state->cursor_y >= state->grid_height - 1)
+ if (state->cursor_y >= rows - 1)
scroll (state);
else
state->cursor_y++;
if (changed_only && !cell->changed)
continue;
- width = state->char_width * state->scale;
+ width = state->char_width * state->scale;
height = state->char_height * state->scale;
- tx = x * width;
- ty = y * height;
+ tx = x * width + state->xmargin;
+ ty = y * height + state->ymargin;
if (cell->state == BLANK || cell->p_char->blank_p)
{
if (! changed_p) return;
- textclient_reshape (state->tc, w, h,
+ textclient_reshape (state->tc,
+ w - state->xmargin * 2,
+ h - state->ymargin * 2,
state->grid_width - 1,
- state->grid_height - 1);
+ state->grid_height - 1,
+ 0);
}
static const char *phosphor_defaults [] = {
+/* ".lowrez: true",*/
".background: Black",
".foreground: #00FF00",
"*fpsSolid: true",
- "*fadeForeground: #006400",
- "*flareForeground: #FFFFFF",
#if defined(BUILTIN_FONT)
"*font: (builtin)",
#elif defined(HAVE_COCOA)