#include<string.h>
#include<cglm/cglm.h>
#include"mino.h"
#include"graph.h"
#include"input.h"
#include"core.h"

#define GRID_W 10
#define GRID_H 16
_ mat4 proj;
_ S8 grid[GRID_H][GRID_W]={0};/*indexes into tetros,-1 for nothing*/
_ Tetro tetros[]={
  {0,{0,0},{1.5,1.5}, {{0,1},{1,1},{2,1},{3,1}}},
  {1,{0,0},{1,1},     {{0,0},{0,1},{1,1},{2,1}}},
  {2,{0,0},{1,1},     {{2,0},{0,1},{1,1},{2,1}}},
  {3,{0,0},{1,1},     {{1,0},{0,1},{1,1},{2,1}}},
  {4,{0,0},{1,1},     {{1,0},{2,0},{0,1},{1,1}}},
  {5,{0,0},{1,1},     {{0,0},{1,0},{1,1},{2,1}}},
  {6,{0,0},{0.5,0.5}, {{0,0},{1,0},{0,1},{1,1}}}};
_ C tetros_c[]="IJLTSZO";
_ vec3 tetros_col[]={{0,1,1},{0,0,1},{1,0.5,0},{1,0,1},{1,0,0},{0,1,0},{1,1,0}};

_ U32 shader_tetro;
_ IM C shader_tetro_vert[]=GRAPH_GLSL(
  layout (location=0) in vec3 pos;
  uniform mat4 proj;
  uniform mat4 model;
  void main(){gl_Position=proj*model*vec4(pos,1);});
_ IM C shader_tetro_frag[]=GRAPH_GLSL(
  out vec4 Frag;
  uniform vec3 col;
  void main(){Frag=vec4(col,1);});
_ V shader_tetro_init(V){
  shader_tetro=graph_shader_create(shader_tetro_vert,shader_tetro_frag),
  graph_shader_use(shader_tetro),
  graph_shader_setM4("proj",proj),
  graph_shader_setV3("col",(vec3){1,1,1});}

_ V tetro_copy(Tetro*d,Tetro*s){*d=*s;}
_ V tetro_trans(Tetro*t,vec2 m){
  glm_vec2_add(t->pos,m,t->pos);}
_ V tetro_rot(Tetro*t,S8 c){U8 i;vec2 a;
  for(i=0;i<4;++i){
    glm_vec2_sub(t->org,t->v[i],a),
    glm_vec2_rotate(a,GLM_PI_2*(2-c),a),
    glm_vec2_add(a,t->org,a),
    glm_vec2_copy(a,t->v[i]);}}

_ V tetro_draw(Tetro t){U8 i;vec2 a;vec2 z={32,32};
  graph_shader_use(shader_tetro),
  graph_shader_setM4("proj",proj),
  graph_shader_setV3("col",tetros_col[t.i]);
  for(i=0;i<4;++i){
    glm_vec2_mul(t.v[i],z,a),
    glm_vec2_add(t.pos,a,a),
    graph_quad(a,z);}}

_ Tetro held;
V core_init(V){
  glm_ortho(0,graph_win_w,0,graph_win_h,0,4,proj),
  shader_tetro_init(),
  memset(grid,-1,GRID_W*GRID_H);
  held=tetros[3];}

V core_tick(InputPoint p,InputButtons b){
  glm_ortho(0,graph_win_w,0,graph_win_h,0,4,proj);
  tetro_draw(held);
  Q(IB_Z&b.p,tetro_rot(&held, 1))
  Q(IB_X&b.p,tetro_rot(&held,-1))
  Q(IB_C&b.p,held=tetros[(held.i+1)%7])
  Q(IB_L&b.p,tetro_trans(&held,(vec2){-32, 0}))
  Q(IB_R&b.p,tetro_trans(&held,(vec2){ 32, 0}))
  Q(IB_U&b.p,tetro_trans(&held,(vec2){ 0, 32}))
  Q(IB_D&b.p,tetro_trans(&held,(vec2){ 0,-32}))
}