cosmopolitan/examples/acid2.c

#if 0
/*─────────────────────────────────────────────────────────────────╗
│ To the extent possible under law, Justine Tunney has waived      │
│ all copyright and related or neighboring rights to this file,    │
│ as it is written in the following disclaimers:                   │
│   • http://unlicense.org/                                        │
│   • http://creativecommons.org/publicdomain/zero/1.0/            │
╚─────────────────────────────────────────────────────────────────*/
#endif
#include "libc/calls/calls.h"
#include "libc/calls/ioctl.h"
#include "libc/calls/struct/termios.h"
#include "libc/fmt/fmt.h"
#include "libc/stdio/stdio.h"
#include "libc/str/str.h"
#include "libc/sysv/consts/termios.h"

int yn2, xn2;
int yn3, xn3;
char b[128], inbuf[128];
int y, x, yn, xn, my, mx;
struct termios term, oldterm;

int main(int argc, char *argv[]) {
  int i;
  setvbuf(stdout, inbuf, _IONBF, 128); /* make things slower */

  /* raw mode */
  ioctl(1, TCGETS, &oldterm);
  memcpy(&term, &oldterm, sizeof(term));
  term.c_cc[VMIN] = 1;
  term.c_cc[VTIME] = 1;
  term.c_iflag &= ~(INPCK | ISTRIP | PARMRK | INLCR | IGNCR | ICRNL | IXON);
  term.c_lflag &= ~(IEXTEN | ICANON | ECHO | ECHONL);
  term.c_cflag &= ~(CSIZE | PARENB);
  term.c_oflag &= ~OPOST;
  term.c_cflag |= CS8;
  term.c_iflag |= IUTF8;
  ioctl(1, TCSETSF, &term);

  /* get cursor position and display dimensions */
  printf("\e7\e[6n\e[9979;9979H\e[6n\e8");
  read(0, b, sizeof(b));
  sscanf(b, "\e[%d;%dR\e[%d;%dR", &y, &x, &yn, &xn);

  printf("\e[1q"); /* turn on led one */
  printf("\e[2J"); /* clear display */
  printf("\e#8");  /* fill display with E's */
  printf("\e[H");

  /* clear display again */
  printf("\e[2q"); /* turn on led two */
  for (i = 0; i < yn; ++i) {
    if (i) printf("\n");
    printf(" ");
    printf("\e[0K");
  }
  for (i = 0; i < yn - 1; ++i) {
    if (i) printf("\eM");
    printf("\e[1K");
  }

  printf("\e(0");  /* line drawing mode */
  printf("\e[3q"); /* turn on led three */
  printf("\e[H");

  /* move to center */
  my = yn / 2;
  mx = xn / 2 - 7;
  if (y > my) {
    printf("\e[%dA", y - my);
  } else if (y < my) {
    printf("\e[%dB", my - y);
  }
  if (x > mx) {
    printf("\e[%dD", x - mx);
  } else if (x < mx) {
    printf("\e[%dC", mx - x);
  }

  printf("\e[90;103m");                /* black on yellow */
  printf("\e[90;103ma      `      a"); /* draw nose */

  printf("\e[0m"); /* reset style */
  printf("\e(B");  /* ascii mode */

  /* draw corners */
  printf("\e[H"); /* top left */
  printf("A");
  printf("\e[9979C"); /* rightmost */
  printf("B");
  printf("\e[9979;9979H"); /* bottom right corner */
  printf("\e[C");          /* move right gets clamped */
  printf("D");             /* write, set redzone flag */
  printf("\e[2A");         /* move up, unsets redzone */

  /* gnu screen now reports out of bounds position */
  /* kitty hasnt got a redzone reporting next line */
  printf("\e[6n");
  read(0, b, sizeof(b));
  sscanf(b, "\e[%d;%dR", &yn2, &xn2);

  /* writes to (yn-3,xn-1) normally and (yn-2,0) in gnu screen */
  printf("!");

  /* draw ruler on top */
  printf("\e[H");
  for (i = 8; i + 1 < xn; i += 8) {
    printf("\e[%dG%d", i + 1, i); /* set column */
  }

  printf("\e[9979;9979H"); /* bottom right */
  printf("\e[9979D");      /* leftmost */
  printf("C");

  /* let's break gnu screen again with multimonospace redzone */
  printf("\e[%d;9979H", yn / 2); /* right middle */
  printf("\e[D");                /* left */
  printf("Ａ");
  printf("\e[6n");
  read(0, b, sizeof(b));
  sscanf(b, "\e[%d;%dR", &yn2, &xn2);

  printf("\e[%dH", yn / 2);
  printf("%d %d vs. %d %d\r\n", yn, xn, yn2, xn2);
  printf("%d %d vs. %d %d\r\n", yn / 2, xn, yn2, xn2);
  printf("\e#6double width\e#5\r\n");
  printf("\e[3mthis text is so \e[1mitalic\e[0m\r\n");
  printf("\e[1;20mpress any fraktur exit\e[0m");
  printf("\a");

  read(0, b, sizeof(b));
  printf("\r\n");
  ioctl(1, TCSETS, &oldterm);
  return 0;
}