1 files changed, 505 insertions, 0 deletions
diff --git a/keyboards/clueboard/keymaps/tetris/tetris_text.c b/keyboards/clueboard/keymaps/tetris/tetris_text.c
new file mode 100644
index 0000000000..1376ead005
--- /dev/null
+++ b/keyboards/clueboard/keymaps/tetris/tetris_text.c
@@ -0,0 +1,505 @@
+/* Copyright 2017 Dan Amlund Thomsen
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation, either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program.  If not, see <http://www.gnu.org/licenses/>.
+ */
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <stdint.h>
+
+#include "tetris_text.h"
+
+static char empty_piece[7][7] = { { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 },
+                                  { 0, 0, 0, 0, 0, 0, 0 } };
+
+static char temp_piece[7][7];
+
+static int curx = 0;
+static int cury = 0;
+
+static void clear_piece(char piece[7][7]) {
+  for (int y = 0; y < 7; y++) {
+    for (int x = 0; x < 7; x++) {
+      piece[x][y] = 0;
+    }
+  }
+}
+
+static void copy_piece_from_to(char from[7][7], char to[7][7]) {
+  for (int y = 0; y < 7; y++) {
+    for (int x = 0; x < 7; x++) {
+      to[x][y] = from[x][y];
+    }
+  }
+}
+
+static void rotate_piece(char piece[7][7]) {
+  // transpose
+  for (int y = 0; y < 7; y++) {
+    for (int x = y + 1; x < 7; x++) {
+      char tmp = piece[y][x];
+      piece[y][x] = piece[x][y];
+      piece[x][y] = tmp;
+    }
+  }
+
+  // reverse rows
+  for (int y = 0; y < 7; y++) {
+    for (int x = 0; x < 3; x++) {
+      char tmp = piece[y][6 - x];
+      piece[y][6 - x] = piece[y][x];
+      piece[y][x] = tmp;
+    }
+  }
+}
+
+static char get_shape_char(int shape) {
+  switch (shape) {
+  case 0: return 'I';
+  case 1: return 'J';
+  case 2: return 'L';
+  case 3: return 'O';
+  case 4: return 'S';
+  case 5: return 'T';
+  case 6: return 'Z';
+  }
+  return 'Q';
+}
+
+static void set_piece(char piece[7][7], int shape, int rotation) {
+  clear_piece(piece);
+  switch (shape) {
+  case 0:
+    if (rotation % 2 == 0) {
+      // xxXx
+      piece[3][1] = 1;
+      piece[3][2] = 1;
+      piece[3][3] = 1;
+      piece[3][4] = 1;
+    } else {
+      // x
+      // x
+      // X
+      // x
+      piece[1][3] = 1;
+      piece[2][3] = 1;
+      piece[3][3] = 1;
+      piece[4][3] = 1;
+    }
+    break;
+  case 1:
+    // xXx
+    //   x
+    piece[3][2] = 1;
+    piece[3][3] = 1;
+    piece[3][4] = 1;
+    piece[4][4] = 1;
+    for (int i = 0; i < rotation; i++) {
+      rotate_piece(piece);
+    }
+    break;
+  case 2:
+    // xXx
+    // x
+    piece[3][2] = 1;
+    piece[3][3] = 1;
+    piece[3][4] = 1;
+    piece[4][2] = 1;
+    for (int i = 0; i < rotation; i++) {
+      rotate_piece(piece);
+    }
+    break;
+  case 3:
+    // xX
+    // xx
+    piece[3][2] = 1;
+    piece[3][3] = 1;
+    piece[4][2] = 1;
+    piece[4][3] = 1;
+    break;
+  case 4:
+    if (rotation % 2 == 0) {
+      // xX
+      //  xx
+      piece[3][2] = 1;
+      piece[3][3] = 1;
+      piece[4][3] = 1;
+      piece[4][4] = 1;
+    } else {
+      //  x
+      // xX
+      // x
+      piece[2][3] = 1;
+      piece[3][2] = 1;
+      piece[3][3] = 1;
+      piece[4][2] = 1;
+    }
+    break;
+  case 5:
+    // xXx
+    //  x
+    piece[3][2] = 1;
+    piece[3][3] = 1;
+    piece[3][4] = 1;
+    piece[4][3] = 1;
+    for (int i = 0; i < rotation; i++) {
+      rotate_piece(piece);
+    }
+    break;
+  case 6:
+    if (rotation % 2 == 0) {
+      //  Xx
+      // xx
+      piece[3][3] = 1;
+      piece[3][4] = 1;
+      piece[4][2] = 1;
+      piece[4][3] = 1;
+    } else {
+      // x
+      // Xx
+      //  x
+      piece[2][3] = 1;
+      piece[3][3] = 1;
+      piece[3][4] = 1;
+      piece[4][4] = 1;
+    }
+    break;
+  }
+}
+
+static void send_deletes(int deletes) {
+  for (int i = 0; i < deletes; i++) {
+    tetris_send_delete();
+  }
+}
+
+static void send_backspaces(int backspaces) {
+  for (int i = 0; i < backspaces; i++) {
+    tetris_send_backspace();
+    curx--;
+  }
+}
+
+static void send_goto_xy(int x, int y) {
+  while (curx < x) {
+    tetris_send_right();
+    curx++;
+  }
+  while (curx > x) {
+    tetris_send_left();
+    curx--;
+  }
+  while (cury < y) {
+    tetris_send_down();
+    cury++;
+  }
+  while (cury > y) {
+    tetris_send_up();
+    cury--;
+  }
+}
+
+static void draw_row(char c, const char oldrow[7], const char newrow[7], int x, int y) {
+  char str[2] = { c, 0 };
+  char row_is_del[7] = { 0 };
+  int first = -1;
+  int last = -1;
+  for (int px = 0; px < 7; px++) {
+    if (oldrow[px] && !newrow[px]) {
+      row_is_del[px] = 1;
+    }
+    if (newrow[px] || oldrow[px]) {
+      if (first == -1) first = px;
+      last = px;
+    }
+  }
+
+  if (first >= 0) {
+    if (curx > x + last + 1) {
+      send_goto_xy(x + last + 1, cury);
+    }
+    if (curx < x + first) {
+      send_goto_xy(x + first, cury);
+    }
+    send_goto_xy(curx, y);
+    send_deletes((x + last + 1) - curx);
+    send_backspaces(curx - (x + first));
+    for (int i = first; i <= last; i++) {
+      if (row_is_del[i]) {
+        tetris_send_string(".");
+      } else {
+        tetris_send_string(str);
+      }
+      curx++;
+    }
+  }
+}
+
+static void move_piece_from_to(char from[7][7], char to[7][7], int xadd, int yadd) {
+  for (int y = 0; y < 7; y++) {
+    for (int x = 0; x < 7; x++) {
+      if (x + xadd >= 0 && x + xadd < 7 && y + yadd >= 0 && y + yadd < 7) {
+        to[y][x] = from[y + yadd][x + xadd];
+      } else {
+        to[y][x] = 0;
+      }
+    }
+  }
+}
+
+static void draw_piece(char c, int x, int y, char oldpiece[7][7], char piece[7][7]) {
+  for (int py = 0; py < 7; py++) {
+    draw_row(c, oldpiece[py], piece[py], x, y + py);
+  }
+}
+
+static void draw_piece_moved(char c, int x, int y, char piece[7][7], int oldxadd, int oldyadd) {
+  move_piece_from_to(piece, temp_piece, oldxadd, oldyadd);
+  draw_piece(c, x, y, temp_piece, piece);
+}
+
+static int is_piece_hitting(char board[20][10], char piece[7][7], int x, int y) {
+  for (int py = 0; py < 7; py++) {
+    for (int px = 0; px < 7; px++) {
+      if (piece[py][px] &&
+          (px + x >= 10 || px + x < 0
+           || py + y >= 20 || py + y < 0
+           || board[py + y][px + x])) {
+        return 1;
+      }
+    }
+  }
+  return 0;
+}
+
+static void add_piece_to_board(char piece[7][7], char board[20][10], int x, int y) {
+  for (int py = 0; py < 7; py++) {
+    for (int px = 0; px < 7; px++) {
+      if (piece[py][px]) {
+        board[py + y][px + x] = piece[py][px];
+      }
+    }
+  }
+}
+
+static void draw_board_line(void) {
+  //send_string("l          l");
+  tetris_send_string("l..........l");
+  tetris_send_newline();
+}
+static void init(void) {
+  for (int i = 0; i < 20; i++) {
+    draw_board_line();
+  }
+  tetris_send_string("doooooooooob");
+  curx = 12;
+  cury = 20;
+}
+
+static int get_piece_min_y(char piece[7][7]) {
+  for (int y = 0; y < 7; y++) {
+    for (int x = 0; x < 7; x++) {
+      if (piece[y][x])
+        return y;
+    }
+  }
+  return 0;
+}
+
+static int clear_lines(char board[20][10]) {
+  int cleared_lines = 0;
+  for (int y = 19; y >= 0; y--) {
+    char isfull = 1;
+    for (int x = 0; x < 10; x++) {
+      if (!board[y][x]) {
+        isfull = 0;
+      }
+    }
+    if (isfull) {
+      // delete clear line
+      send_goto_xy(12, y);
+      send_backspaces(12); // delete line contents
+      // delete newline
+      tetris_send_backspace();
+      cury--;
+      curx = 12;
+      cleared_lines++;
+    } else {
+      if (cleared_lines > 0) {
+        // move cleared lines down on board
+        for (int x = 0; x < 10; x++) {
+          board[y + cleared_lines][x] = board[y][x];
+        }
+      }
+    }
+  }
+  // clear cleared top lines
+  for (int y = 0; y < cleared_lines; y++) {
+    for (int x = 0; x < 10; x++) {
+      board[y][x] = 0;
+    }
+  }
+  if (cleared_lines > 0) {
+    send_goto_xy(0, 0);
+    for (int i = 0; i < cleared_lines; i++) {
+      draw_board_line();
+      curx = 0;
+      cury++;
+    }
+  }
+  return cleared_lines;
+}
+
+static uint8_t myrandom(uint8_t seed) {
+  uint8_t out = seed >> 1;
+  if (seed & 1) {
+    out = out ^ 0xB8;
+  }
+  return out;
+}
+
+static char piece[7][7];
+static char board[20][10];
+static uint8_t r;
+static int score;
+static int x;
+static int y;
+static int shape;
+static int rotation;
+static int time;
+static int next_down;
+static int down_delay;
+static int first_run;
+static int game_over;
+
+void tetris_start(uint8_t seed) {
+  for (int y = 0; y < 20; y++) {
+    for (int x = 0; x < 10; x++) {
+      board[y][x] = 0;
+    }
+  }
+
+  clear_piece(piece);
+
+  init();
+
+  game_over = 0;
+  
+  r = seed;
+  score = 0;
+  
+  copy_piece_from_to(empty_piece, piece);
+  x = 0;
+  y = 0;
+  shape = 0;
+  rotation = 0;
+  time = 0;
+  next_down = 0;
+  down_delay = -1;
+  first_run = 1;
+}
+
+int tetris_tick(int ms_since_previous_tick) {
+  if (game_over) {
+    return 0;
+  }
+      
+  time += ms_since_previous_tick;
+  
+  if (first_run || time > next_down) {
+    if (first_run || is_piece_hitting(board, piece, x, y + 1)) {
+      first_run = 0;
+      add_piece_to_board(piece, board, x, y);
+
+      score += clear_lines(board);
+
+      down_delay = 500 - score * 10;
+      if (down_delay < 100) {
+        down_delay = 100;
+      }
+        
+      rotation = 0;
+      shape = r % 7;
+      r = myrandom(r);
+      set_piece(piece, shape, rotation);
+      
+      x = 1;
+      y = - get_piece_min_y(piece);
+      draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 0, 0);
+
+      if (is_piece_hitting(board, piece, x, y)) {
+        game_over = 1;
+        send_goto_xy(12, 10);
+        tetris_send_string(" game over");
+        tetris_send_down();
+        tetris_send_string(" score ");
+        char tmp[10];
+        sprintf(tmp, "%d", score);
+        tetris_send_string(tmp);
+        return 0;
+      }
+    } else {
+      y++;
+      draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 0, +1);
+    }
+    next_down = time + down_delay;
+  } else {
+      
+    switch (tetris_get_keypress()) {
+    case 1: { // up
+      int oldrotation = rotation;
+      rotation = (rotation + 1) % 4;
+      copy_piece_from_to(piece, temp_piece);
+      set_piece(piece, shape, rotation);
+      if (is_piece_hitting(board, piece, x, y)) {
+        rotation = oldrotation;
+        set_piece(piece, shape, rotation);
+      } else {
+        draw_piece(get_shape_char(shape), 1 + x, y, temp_piece, piece);
+      }
+      break;
+    }
+    case 2: // left
+      if (!is_piece_hitting(board, piece, x - 1, y)) {
+        x--;
+        draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, -1, 0);
+      }
+      break;
+    case 3: {// down
+      int starty = y;
+      while (!is_piece_hitting(board, piece, x, y + 1)) {
+        y++;
+      }
+
+      draw_piece(get_shape_char(shape), x + 1, starty, piece, empty_piece);
+      draw_piece(get_shape_char(shape), x + 1, y, empty_piece, piece);
+
+      next_down = time + down_delay;
+      break;
+    }
+    case 4: // right
+      if (!is_piece_hitting(board, piece, x + 1, y)) {
+        x++;
+        draw_piece_moved(get_shape_char(shape), 1 + x, y, piece, 1, 0);
+      }
+      break;
+    }
+  }
+  return 1;
+}