SRS-style rotation skeleton

1 files changed, 75 insertions, 0 deletions

diff --git a/core.c b/core.c
new file mode 100644
index 0000000..2a90b16
--- /dev/null
+++ b/core.c
@@ -0,0 +1,75 @@
+#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}))
+}