ready for series
[fishladder.git] / fishladder.c
index af6a2a3d68f995dc2dac2e20892fdf00d058d40a..d85cfca77aa2be9d324a9d07d5e2a5f9803025c1 100644 (file)
 //#define VG_STEAM
 #include "vg/vg.h"
 
-SHADER_DEFINE( colour_shader, 
+m3x3f m_projection;
+m3x3f m_view;
+m3x3f m_mdl;
 
-       // VERTEX
-       "layout (location=0) in vec3 a_co;"
-       "uniform mat4 uPv;"
-       "uniform mat4 uMdl;"
-       ""
-       "void main()"
-       "{"
-       "       vec4 vert_pos = uPv * uMdl * vec4( a_co, 1.0 );"
-       "       gl_Position = vert_pos;"
-       "}",
-       
-       // FRAGMENT
-       "out vec4 FragColor;"
-       "uniform vec4 uColour;"
-       ""
-       "void main()"
-       "{"
-       "       FragColor = uColour;"
-       "}"
-       ,
-       UNIFORMS({ "uPv", "uMdl", "uColour" })
-)
-
-mat4 m_projection;
-mat4 m_view;
-mat4 m_mdl;
-
-int main( int argc, char *argv[] )
-{
-       vg_init( argc, argv, "FishLadder" );
-}
-
-#define CELL_FLAG_INPUT 0x1
-#define CELL_FLAG_OUTPUT 0x2
- #define CELL_FLAG_IO (CELL_FLAG_INPUT|CELL_FLAG_OUTPUT)
-#define CELL_FLAG_WALL 0x4
-#define CELL_FLAG_HOVER 0x8
-#define CELL_FLAG_ITER 0x10
-#define CELL_FLAG_CANAL 0x20
-#define CELL_FLAG_SPLIT 0x40 /* Does this cell split and have an incoming vertical connection? */
-#define CELL_FLAG_WALKABLE (CELL_FLAG_IO|CELL_FLAG_CANAL)
-#define CELL_FLAG_VISITED 0x80
-#define CELL_FLAG_UPLVL 0x100
-#define CELL_FLAG_MERGE 0x200
-
-static struct
-{
-       u32 x,y;
-       
-       struct cell
-       {       
-               u32 flags;
-               u32 model_id;
-               
-               char *conditions;
-               
-               int level;
-               int state;
-       }
-       * cells;
-       
-       struct fish
-       {
-               int alive;
-               int co[2];
-               int dir[2];
-               char data;
-       }
-       fishes[ 20 ];
-       int num_fishes;
-       
-       vec3 origin;
-       struct cell *selected;
-       int select_valid;
-       int playing;
-       u32 frame;
-       
-       u32 *io;
-       
-       struct vstack
-       {
-               struct vframe
-               {
-                       int x, y;
-                       int i;
-               }
-               frames[ 64 ];
-               
-               int level;
-               u32 flags;
-       }
-       stack;
-}
-map;
-
-static void map_free(void)
-{
-       for( int i = 0; i < arrlen( map.io ); i ++ )
-       {
-               arrfree( map.cells[ map.io[i] ].conditions );
-       }
-
-       arrfree( map.cells );
-       arrfree( map.io );
-       map.x = 0;
-       map.y = 0;
-       map.cells = NULL;
-       map.io = NULL;
-}
-
-static struct cell *map_tile_at( int pos[2] )
-{
-       if( pos[0] >= 0 && pos[0] < map.x && pos[1] >= 0 && pos[1] < map.y )
-               return map.cells + pos[1]*map.x + pos[0];
-       return NULL;
-}
-
-static struct cell *map_tile_at_cond( int pos[2], u32 flags )
-{
-       struct cell *cell = map_tile_at( pos );
-       if( cell && (cell->flags & flags) )
-               return cell;
-               
-       return NULL;
-}
-
-static void map_tile_coords_from_index( int i, int coords[2] )
-{
-       coords[0] = i % map.x;
-       coords[1] = (i - coords[0])/map.x;
-}
-
-static void map_stack_refresh(void)
-{
-       for( int i = 0; i < map.x*map.y; i ++ )
-               map.cells[i].flags &= ~CELL_FLAG_VISITED;
-}
-
-static void map_stack_init( int coords[2] )
-{
-       map.stack.level = 0;
-       map.stack.frames[0].i = 0;
-       map.stack.frames[0].x = coords[0];
-       map.stack.frames[0].y = coords[1];
-}
-
-static struct cell *map_stack_next(void)
-{
-       struct cell *tile = NULL;
-       
-       while( !tile )
-       {
-               struct vframe *frame = &map.stack.frames[ map.stack.level ];
-               
-               int output_dirs[][2] = { {0,-1}, {-1,0}, {1,0} };
-               
-               if( frame->i < 3 )
-               {
-                       int *dir = output_dirs[ frame->i ];
-                       tile = map_tile_at( (int[2]){frame->x+dir[0], frame->y+dir[1]} );
-                       frame->i ++;
-                       
-                       if( tile && !(tile->flags & CELL_FLAG_VISITED) )
-                       {
-                               map.stack.level ++;
-                               frame[1].i = 0;
-                               frame[1].x = frame[0].x+dir[0];
-                               frame[1].y = frame[0].y+dir[1];
-                       }
-                       else
-                               tile = NULL;
-               }
-               else
-               {
-                       map.stack.level --;
-                       tile = NULL;
-                       
-                       if( map.stack.level < 0 )
-                               return NULL;
-               }
-       }
-       
-       return tile;
-}
-
-static int map_load( const char *str )
-{
-       map_free();
-
-       char *c = str;
-       
-       // Scan for width
-       for(;; map.x ++)
-       {
-               if( str[map.x] == ';' )
-                       break;
-               else if( !str[map.x] )
-               {
-                       vg_error( "Unexpected EOF when parsing level!\n" );
-                       return 0;
-               }
-       }
-       
-       struct cell *row = arraddnptr( map.cells, map.x );
-       int cx = 0;
-       int reg_start = 0, reg_end = 0;
-       
-       for(;;)
-       {
-               if( !*c )
-                       break;
-       
-               if( *c == ';' )
-               {
-                       c ++;
-
-                       // Parse attribs
-                       if( *c != '\n' )
-                       {
-                               while( *c )
-                               {
-                                       if( reg_start < reg_end )
-                                       {
-                                               if( *c >= 'a' && *c <= 'z' )
-                                               {
-                                                       arrpush( map.cells[ map.io[ reg_start ] ].conditions, *c );
-                                               }
-                                               else
-                                               {
-                                                       if( *c == ',' || *c == '\n' )
-                                                       {
-                                                               reg_start ++;
-                                                               
-                                                               if( *c == '\n' )
-                                                                       break;
-                                                       }
-                                                       else
-                                                       {
-                                                               vg_error( "Unkown attrib '%c' (row: %u)\n", *c, map.y );
-                                                               return 0;
-                                                       }
-                                               }
-                                       }
-                                       else
-                                       {
-                                               vg_error( "Over-assigned values (row: %u)\n", map.y );
-                                               return 0;
-                                       }
-                                       
-                                       c ++;
-                               }
-                       }
-                       
-                       if( reg_start != reg_end )
-                       {
-                               vg_error( "Not enough values assigned (row: %u, %u of %u)\n", map.y, reg_start, reg_end );
-                               return 0;
-                       }
-                       
-                       if( cx != map.x )
-                       {
-                               vg_error( "Map row underflow (row: %u, %u<%u)\n", map.y, cx, map.x );
-                               return 0;
-                       }
-                       
-                       row = arraddnptr( map.cells, map.x );
-                       cx = 0;
-                       map.y ++;
-                       reg_end = reg_start = arrlen( map.io );
-               }
-               else
-               {
-                       if( cx == map.x )
-                       {
-                               vg_error( "Map row overflow (row: %u, %u>%u)\n", map.y, cx, map.x );
-                               return 0;
-                       }
-                       
-                       row[ cx ].conditions = NULL;
-               
-                       // Parse the various cell types
-                       if( *c == '+' || *c == '-' )
-                       {
-                               arrpush( map.io, cx + map.y*map.x );
-                               row[ cx ++ ].flags = *c == '+'? CELL_FLAG_INPUT: CELL_FLAG_OUTPUT;
-                               reg_end ++;
-                       }
-                       else if( *c == '#' )
-                       {
-                               row[ cx ++ ].flags = CELL_FLAG_WALL;
-                       }
-                       else
-                       {
-                               row[ cx ++ ].flags = 0x00;
-                       }
-               }
-       
-               c ++;
-       }
-       
-       // Origin top left corner
-       map.origin[0] = -((float)map.x) * 0.5f;
-       map.origin[2] = -((float)map.y) * 0.5f;
-       
-       vg_success( "Map loaded! (%u:%u)\n", map.x, map.y );
-       return 1;
-}
-
-static int map_tile_availible( int co[2] )
-{
-       // Extract 5x5 grid surrounding tile
-       u32 blob = 0x1000;
-       for( int y = vg_max( co[1]-2, 0 ); y < vg_min( map.y, co[1]+3 ); y ++ )
-               for( int x = vg_max( co[0]-2, 0 ); x < vg_min( map.x, co[0]+3 ); x ++ )
-               {                               
-                       struct cell *cell = map_tile_at( (int[2]){ x, y } );
-                       
-                       if( cell && (cell->flags & CELL_FLAG_WALKABLE) )
-                               blob |= 0x1 << ((y-(co[1]-2))*5 + x-(co[0]-2));
-               }
-       
-       // Run filter over center 3x3 grid to check for invalid configurations
-       int kernel[] = { 0, 1, 2, 5, 6, 7, 10, 11, 12 };
-       for( int i = 0; i < vg_list_size(kernel); i ++ )
-       {
-               if( blob & (0x1 << (6+kernel[i])) )
-               {
-                       // (reference window: 0x1CE7) Illegal moves
-                       //  0100011100010 ;
-                       //  0000001100011 ;
-                       //  0000011000110 ;
-                       //  0110001100000 ;
-                       //  1100011000000 ;
-                       //  0100001100010 ;
-                       //  0100011000010 ;
-               
-                       u32 invalid[] = { 0x8E2, 0x63, 0xC6, 0xC60, 0x18C0, 0x862, 0x8C2 };
-                       u32 window = blob >> kernel[i];
-                       
-                       for( int j = 0; j < vg_list_size(invalid); j ++ )
-                               if((window & invalid[j]) == invalid[j])
-                                       return 0;
-               }
-       }
-       
-       return 1;
-}
-
-void vg_update(void)
-{
-       // Update camera
-       float ratio = (float)vg_window_y / (float)vg_window_x;
-       float const size = 7.5f;
-       glm_ortho( -size, size, -size*ratio, size*ratio, 0.1f, 100.f, m_projection );
-
-       glm_mat4_identity( m_view );
-       glm_translate_z( m_view, -10.f );
-       glm_rotate_x( m_view, 1.0f, m_view );
-       
-       glm_mat4_mul( m_projection, m_view, vg_pv );
-       
-       // Compute map update
-       for( int y = 0; y < map.y; y ++ )
-       {
-               for( int x = 0; x < map.x; x ++ )
-               {
-                       struct cell *tile, *upper, *lower, *l, *r;      
-                       tile = map_tile_at( (int [2]){ x, y } );
-                       tile->flags &= ~(CELL_FLAG_SPLIT|CELL_FLAG_MERGE|CELL_FLAG_UPLVL);
-                       
-                       if( tile->flags & CELL_FLAG_WALKABLE )
-                       {
-                               r = map_tile_at_cond( (int[2]){ x+1, y }, CELL_FLAG_WALKABLE );
-                               l = map_tile_at_cond( (int[2]){ x-1, y }, CELL_FLAG_WALKABLE );
-
-                               if( r && l )
-                               {
-                                       upper = map_tile_at_cond( (int[2]){ x, y-1 }, CELL_FLAG_WALKABLE );
-                                       lower = map_tile_at_cond( (int[2]){ x, y+1 }, CELL_FLAG_WALKABLE );
-                                       
-                                       if( upper )
-                                       {
-                                               tile->flags |= CELL_FLAG_MERGE | CELL_FLAG_UPLVL;
-                                       }
-                                       
-                                       if( lower )
-                                       {
-                                               tile->flags |= CELL_FLAG_SPLIT;
-                                               l->flags |= CELL_FLAG_UPLVL;
-                                               r->flags |= CELL_FLAG_UPLVL;
-                                       }
-                               }
-                       }
-               }
-       }
-       
-       // Compute classification
-       /*
-       map_stack_refresh();
-       
-       for( int i = 0; i < arrlen( map.io ); i ++ )
-       {
-               struct *cell cell = &map.cells[ map.io ];
-               int coords[2];
-               
-               if( cell->flags & CELL_FLAG_INPUT )
-               {
-                       map_tile_coords_from_index( map.io, coords );
-                       map_stack_init( coords );
-                       
-                       do
-                       {
-                               if( cell->flags & CELL_FLAG_CONNECTOR )
-                               {
-                                       
-                               }
-                       }
-                       while( (cell = map_stack_next()) );
-               }
-       }*/
-       
-       // Get mouse ray
-       vec3 ray_origin;
-       vec3 ray_dir;
-       
-       mat4 pv_inverse;
-       vec4 vp = { 0.f, 0.f, vg_window_x, vg_window_y };
-       glm_mat4_inv( vg_pv, pv_inverse );
-       glm_unprojecti( (vec3){ vg_mouse_x, vg_window_y-vg_mouse_y, -1.f }, pv_inverse, vp, ray_dir );
-       glm_unprojecti( (vec3){ vg_mouse_x, vg_window_y-vg_mouse_y, 0.f }, pv_inverse, vp, ray_origin );
-       glm_vec3_sub( ray_dir, ray_origin, ray_dir );
-
-       // Get floor tile intersection  
-       float ray_t = -ray_origin[1] / ray_dir[1];
-
-       vec3 tile_pos;
-       glm_vec3_copy( ray_origin, tile_pos );
-       glm_vec3_muladds( ray_dir, ray_t, tile_pos );
-       glm_vec3_sub( tile_pos, map.origin, tile_pos );
-       
-       int tile_x = floorf( tile_pos[0] );
-       int tile_y = floorf( tile_pos[2] );
-       
-       map.selected = map_tile_at( (int [2]){tile_x, tile_y} );
-       
-       if( map.playing )
-       {
-               static int fish_counter = 0;
-               fish_counter ++;
-       
-               if( fish_counter > 20 )
-               {
-                       fish_counter = 0;
-                                               
-                       // Advance characters
-                       for( int i = 0; i < map.num_fishes; i ++ )
-                       {
-                               struct fish *fish = map.fishes + i;
-                               
-                               if( !fish->alive )
-                                       continue;
-                               
-                               struct cell *tile, *next;
-                               tile = map_tile_at( fish->co );
-                               
-                               if( tile->flags & CELL_FLAG_OUTPUT )
-                               {
-                                       vg_info( "Fish got zucced (%d)\n", i );
-                                       fish->alive = 0;
-                                       continue;
-                               }
-                               
-                               int die = 0;
-                               if( tile->flags & CELL_FLAG_SPLIT )
-                               {
-                                       die = 1;
-                                       int new_dir[][2] = { {0,-1},{1,0},{-1,0} };
-                                       int *test_dir;
-                                       
-                                       for( int j = 0; j < 3; j ++ )
-                                       {
-                                               test_dir = new_dir[ tile->state ];
-                                               tile->state = (tile->state+1)%3;
-                                               
-                                               next = map_tile_at( (int[2]){ fish->co[0]+test_dir[0], fish->co[1]+test_dir[1] } );
-                                               if( next && (next->flags & (CELL_FLAG_WALKABLE)) )
-                                               {
-                                                       fish->dir[0] = test_dir[0];
-                                                       fish->dir[1] = test_dir[1];
-                                                       die = 0;
-                                                       break;
-                                               }
-                                       }
-                               }
-                               
-                               next = map_tile_at( (int[2]){ fish->co[0]+fish->dir[0], fish->co[1]+fish->dir[1] } );
-                               if( !next || (next && !(next->flags & CELL_FLAG_WALKABLE)) )
-                               {
-                                       // Try UP
-                                       die = 1;
-                               }
-                               
-                               if( die )
-                               {
-                                       vg_info( "Fish died! (%d)\n", i );
-                                       fish->alive = 0;
-                                       continue;
-                               }
-                               
-                               
-                               fish->co[0] += fish->dir[0];
-                               fish->co[1] += fish->dir[1];
-                       }
-                       
-                       // Try spawn fish
-                       for( int i = 0; i < arrlen( map.io ); i ++ )
-                       {
-                               struct cell *input = &map.cells[ map.io[i] ];
-                               
-                               if( input->flags & CELL_FLAG_INPUT )
-                               {
-                                       if( input->state < arrlen( input->conditions ) )
-                                       {
-                                               struct fish *fish = &map.fishes[ map.num_fishes ];
-                                               map_tile_coords_from_index( map.io[i], fish->co );
-                                               
-                                               int output_dirs[][2] = { {0,-1}, {-1,0}, {1,0} };
-                                               int can_spawn = 0;
-                                               
-                                               for( int i = 0; i < vg_list_size( output_dirs ); i ++ )
-                                               {
-                                                       int *dir = output_dirs[i];
-                                                       struct cell *next = map_tile_at( (int[2]){ fish->co[0]+dir[0], fish->co[1]+dir[1] } );
-                                                       if( next && next->flags & CELL_FLAG_CANAL )
-                                                       {
-                                                               fish->dir[0] = dir[0];
-                                                               fish->dir[1] = dir[1];
-                                                               can_spawn = 1;
-                                                       }
-                                               }
-                                               
-                                               if( can_spawn )
-                                               {
-                                                       fish->alive = 1;
-                                                       input->state ++;
-                                                       map.num_fishes ++;
-                                               }
-                                       }
-                               }
-                       }
-                       
-                       vg_info( "There are now %u active fish\n", map.num_fishes );
-               }
-               
-               if( vg_get_button_down( "go" ) )
-               {
-                       map.playing = 0;
-                       map.num_fishes = 0;
-                       
-                       vg_info( "Ending!\n" );
-               }
-       }
-       else
-       {
-               if( vg_get_button_down( "go" ) )
-               {
-                       map.playing = 1;
-                       
-                       // Reset everything
-                       for( int i = 0; i < map.x*map.y; i ++ )
-                               map.cells[ i ].state = 0;
-                       
-                       vg_info( "Starting!\n" );
-               }
-       
-               if( map.selected )
-               {
-                       map.select_valid = map_tile_availible( (int[2]){ tile_x, tile_y } );
-                       
-                       if( map.select_valid )
-                       {
-                               if( vg_get_button_down("primary") )
-                               {
-                                       if( map.selected->flags & CELL_FLAG_CANAL )
-                                       {
-                                               map.selected->flags &= ~(CELL_FLAG_CANAL);
-                                       }
-                                       else
-                                       {
-                                               map.selected->flags |= CELL_FLAG_CANAL;
-                                       }
-                               }
-                       }
-               }
-       }
-}
+int main( int argc, char *argv[] ) { vg_init( argc, argv, "FishLadder" ); }
 
-GLuint tile_vao;
-GLuint tile_vbo;
+void vg_register(void){}
+void vg_start(void){}
+void vg_update(void){}
 
-void vg_render(void)
+void vg_render(void) 
 {
        glViewport( 0,0, vg_window_x, vg_window_y );
 
-       glEnable( GL_DEPTH_TEST );
-       glClearColor( 0.94f, 0.94f, 0.94f, 1.0f );
+       glDisable( GL_DEPTH_TEST );
+       glClearColor( 0.1f, 0.1f, 0.2f, 1.0f );
        glClear( GL_COLOR_BUFFER_BIT | GL_DEPTH_BUFFER_BIT );
        
-       glBindVertexArray( tile_vao );
-       
-       SHADER_USE( colour_shader );
-       glUniformMatrix4fv( SHADER_UNIFORM( colour_shader, "uPv" ), 1, GL_FALSE, (float *)vg_pv );
-       
-       for( int y = 0; y < map.y; y ++ )
-       {
-               for( int x = 0; x < map.x; x ++ )
-               {
-                       glm_mat4_identity( m_mdl );
-                       glm_translate( m_mdl, 
-                               (vec3){ 
-                                       map.origin[0] + (float)x + 0.5f,
-                                       0.f, 
-                                       map.origin[2] + (float)y + 0.5f
-                               } 
-                       );
-                       glUniformMatrix4fv( SHADER_UNIFORM( colour_shader, "uMdl" ), 1, GL_FALSE, (float *)m_mdl );
-                       
-                       struct cell *cell = &map.cells[ y*map.x+x ];
-                       
-                       vec4 colour = { 0.7f, 0.7f, 0.7f, 1.f };
-                       
-                       if( cell->flags & CELL_FLAG_INPUT ) glm_vec3_copy( (vec3){ 0.9f,0.5f,0.5f }, colour );
-                       else if( cell->flags & CELL_FLAG_OUTPUT ) glm_vec3_copy( (vec3){ 0.5f,0.9f,0.5f }, colour );
-                       else if( cell->flags & CELL_FLAG_WALL ) glm_vec3_copy( (vec3){ 0.1f,0.1f,0.1f }, colour );
-                       else if( cell->flags & CELL_FLAG_CANAL ) glm_vec3_copy( (vec3){ 0.5f,0.5f,0.8f }, colour );
-                       
-                       if( cell->flags & CELL_FLAG_SPLIT )
-                               glm_vec3_copy( (vec3){ 0.6f, 0.f, 0.9f }, colour );
-                       else if( cell->flags & CELL_FLAG_MERGE )
-                               glm_vec3_copy( (vec3){ 0.f, 0.6f, 0.8f }, colour );
-                       
-                       if( map.selected == cell )
-                       {
-                               if( !map.select_valid )
-                                       glm_vec3_copy( (vec3){ 1.f, 0.f, 0.f }, colour );
-                       
-                               float flash = sinf( vg_time*2.5f ) * 0.25f + 0.75f;
-                               glm_vec3_scale( colour, flash, colour );
-                       }
-                                               
-                       glUniform4fv( SHADER_UNIFORM( colour_shader, "uColour" ), 1, colour );
-                       glDrawArrays( GL_TRIANGLES, 0, 6 );
-               }
-       }
-       
-       glUniform4f( SHADER_UNIFORM( colour_shader, "uColour" ), 1.f, 0.f, 1.f, 1.f );
-       
-       for( int i = 0; i < map.num_fishes; i ++ )
-       {
-               struct fish *fish = map.fishes + i;
-               
-               if( fish->alive )
-               {               
-                       glm_mat4_identity( m_mdl );
-                       glm_translate( m_mdl,
-                               (vec3){
-                                       map.origin[0] + (float)fish->co[0] + 0.5f,
-                                       0.1f,
-                                       map.origin[2] + (float)fish->co[1] + 0.5f
-                               }
-                       );
-                       glm_scale_uni( m_mdl, 0.2f );
-                       glUniformMatrix4fv( SHADER_UNIFORM( colour_shader, "uMdl" ), 1, GL_FALSE, (float *)m_mdl );
-                       glDrawArrays( GL_TRIANGLES, 0, 6 );
-               }
-       }
+       // Rest of drawing code...
 }
 
-void vg_start(void)
-{
-       SHADER_INIT( colour_shader );
-       
-       glGenVertexArrays( 1, &tile_vao );
-       glGenBuffers( 1, &tile_vbo );
-       
-       float quad_mesh[] =
-       {
-               -0.5f, 0.f, -0.5f,
-               -0.5f, 0.f, 0.5f,
-                0.5f, 0.f, 0.5f,
-               -0.5f, 0.f, -0.5f,
-                0.5f, 0.f, 0.5f,
-                0.5f, 0.f, -0.5f
-       };
-       
-       glBindVertexArray( tile_vao );
-       glBindBuffer( GL_ARRAY_BUFFER, tile_vbo );
-       glBufferData
-       (
-               GL_ARRAY_BUFFER,
-               sizeof( quad_mesh ),
-               quad_mesh,
-               GL_STATIC_DRAW
-       );
-       
-       glVertexAttribPointer( 0, 3, GL_FLOAT, GL_FALSE, 3 * sizeof(float), (void*)0 );
-       glEnableVertexAttribArray( 0 );
-       
-       VG_CHECK_GL();
-       
-       map_load
-       ( 
-               "#####-#####;aa\n"
-               "#         #;\n"
-               "#         #;\n"
-               "#         -;bb\n"
-               "#         #;\n"
-               "#         #;\n"
-               "#####+#####;abab\n"
-       );
-}
-
-void vg_free(void)
-{
-       map_free();
-}
-
-void vg_ui(void)
-{
-       
-}
+void vg_ui(void){}
+void vg_free(void){}