Fixed widescreen editor video.

[cantaveria.git] / video.c

/*
   Cantaveria - action adventure platform game
   Copyright (C) 2009 2010 Evan Rinehart

   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, write to

   The Free Software Foundation, Inc.
   51 Franklin Street, Fifth Floor
   Boston, MA  02110-1301, USA
*/


/*
video module is the low level interface to video output.
it has several low level functions.
* initialize the video system for a certain video mode
* load graphics data into the abstract graphics pool
* draw a portion of some graphics somewhere on screen
* millisecond time delta generator
* screen clear
* screen flip
* process suspend
*/




#include <math.h>

#include <SDL/SDL.h>
#include <SDL/SDL_opengl.h>

#include <list.h>
#include <root.h>
#include <util.h>
#include <video.h>
#include <loader.h>

SDL_Surface* video;
int gl_flag = 0;
int fullscreen = 0;
int W, H;


static int time_last; /* initialized by backend_init */
int since(){
        int time_now = SDL_GetTicks();
        int diff = time_now - time_last;
        time_last = time_now;
        return diff;
}

void delay(int ms){
        SDL_Delay(ms);
}








struct {
        char* filename;
        SDL_Surface* surf;
        GLuint texture;
        int w;
        int h;
} gfx[MAX_GFX];
int gfx_count = 0;

int screen_w = 320;
int screen_h = 240;
int screen_offset_x = 0;
int screen_offset_y = 0;




/********************/
/* drawing routines */
/********************/

void draw_gfx_raw(int gfxid, int x, int y, int X, int Y, int W, int H){
        if(!gl_flag){
                SDL_Surface* surf = gfx[gfxid].surf;
                SDL_Rect r1 = {X,Y,W,H};
                SDL_Rect r2 = {x,y,W,H};
                SDL_BlitSurface(surf,&r1,video,&r2);
        }
        else{
                double w = gfx[gfxid].w;
                double h = gfx[gfxid].h;
                double X0 = ((double)X)/w;
                double X1 = X0 + ((double)W)/w;
                double Y0 = ((double)Y)/h;
                double Y1 = Y0 + ((double)H)/h;

                glBindTexture( GL_TEXTURE_2D, gfx[gfxid].texture );
                glBegin( GL_QUADS );
                glTexCoord2d(X0,Y0);
                glVertex3f(x,y,0);

                glTexCoord2d(X1,Y0);
                glVertex3f(x+W,y,0);

                glTexCoord2d(X1,Y1);
                glVertex3f(x+W,y+H,0);

                glTexCoord2d(X0,Y1);
                glVertex3f(x,y+H,0);
                glEnd();
        }
}

void draw_test_rect(int x, int y, int w, int h){
        if(!gl_flag){
                SDL_Rect dst = {x, y, w, h};
                SDL_FillRect(video, &dst, 0x00ff00ff);
        }
        else{
                glColor3f(1.0, 0.0, 1.0);
                glBegin( GL_QUADS );
                glVertex3f(x, y, 0);
                glVertex3f(x+w, y, 0);
                glVertex3f(x+w, y+h, 0);
                glVertex3f(x, y+h, 0);
                glEnd();
                glColor3f(1.0,1.0,1.0);
        }
}

void draw_gfx(int gfxid, int x, int y, int X, int Y, int W, int H){
        draw_gfx_raw(gfxid, x+screen_offset_x, y+screen_offset_y, X, Y, W, H);
}

void clear_video(){
        if(!gl_flag){
                SDL_FillRect(video, 0, 0);
        }
        else{
                glClearColor(0.0,0.0,0.0,0.0);
                glClear( GL_COLOR_BUFFER_BIT );
        }
}

void update_video(){
        if(!gl_flag){
                SDL_UpdateRect(video,0,0,0,0);
        }
        else{
                SDL_GL_SwapBuffers();
        }
}


/********************/
/* graphics loading */
/********************/

SDL_Surface* SDL_NewSurface(int w, int h){
        char prefix[32] = "SDL_NewSurface";
        SDL_Surface* tmp = SDL_CreateRGBSurface(SDL_SRCCOLORKEY,w,h,32,0,0,0,0);
        if(!tmp){
                out_of_memory(prefix);
        }

        SDL_Surface* surf = SDL_DisplayFormat(tmp);
        if(!surf){
                out_of_memory(prefix);
        }

        SDL_FreeSurface(tmp);

        SDL_FillRect(surf,0,0x00ffffff);

        return surf;
}

void debug_surf(char* msg, SDL_Surface* surf){
        printf("%s\n", msg);
        int i;
        unsigned char* ptr = surf->pixels;
        int bpp = surf->format->BytesPerPixel;

        for(i=0; i<500; i+=bpp){
                printf("%2x %2x %2x %2x\n", ptr[i], ptr[i+1], ptr[i+2], ptr[i+3]);
        }
}



SDL_Surface* load_tga(char* filename){
        char path[256] = "gfx/";
        unsigned char header[18];
        strmcat(path, filename, 256);
        reader* rd = loader_open(path);
        int w, h, bpp;
        int mask;
        unsigned char parts[4];
        int key = 0;
        int i;
        int npix;
        Uint32* pixels;

        if(!rd){
                error_msg("load_pixmap: error opening file\n");
                return NULL;
        }

        if(loader_read(rd, header, 18) < 0){
                error_msg("load_pixmap: error reading pixmap header\n");
                loader_close(rd);
                return NULL;
        }

        w = header[12] + (header[13]<<8);
        h = header[14] + (header[15]<<8);
        bpp = header[16];

        npix = w*h;

        SDL_Surface* surf = SDL_CreateRGBSurface(0,w,h,32,
                        0x00ff0000,0x0000ff00,0x000000ff,0xff000000);
        if(!surf){
                out_of_memory("load_pixmap");
        }

        pixels = surf->pixels;
        mask = surf->format->Amask;

        for(i=0; i<npix; i++){
                if(loader_read(rd, parts, bpp/8) < 0){
                        error_msg("load_pixmap: error reading pixmap data\n");
                        loader_close(rd);
                        SDL_FreeSurface(surf);
                        return NULL;
                }

                if(bpp == 24){
                        if(parts[0] == 0 && parts[1] == 0 && parts[2] == 0){
                                pixels[i] = 0;
                        }
                        else{
                                pixels[i] = parts[0] | (parts[1]<<8) | (parts[2]<<16);
                                pixels[i] |= mask;
                        }
                }
                else if(bpp == 32){
                        if(parts[1] == 0 && parts[2] == 0 && parts[3] == 0){
                                pixels[i] = 0;
                        }
                        else{
                                pixels[i] = parts[0] | (parts[1]<<8) | (parts[2]<<16);
                                pixels[i] |= mask;
                        }
                }
        }

        loader_close(rd);

        SDL_SetAlpha(surf, 0, 0);
        SDL_SetColorKey(surf, SDL_SRCCOLORKEY, key);
        //debug_surf(filename, surf);

        return surf;
}


int load_gfx(char* filename){
        int i;
        SDL_Surface* src;

        if(gfx_count == MAX_GFX){
                fatal_error(
                        "load_gfx: cannot load any more than %d graphics\n",
                        MAX_GFX
                );
        }

        for(i=0; i<gfx_count; i++){/*check for already loaded gfx*/
                if(strcmp(gfx[i].filename, filename)==0){
                        return i;
                }
        }

        src = load_tga(filename);
        if(!src){
                fatal_error("load_gfx: failed to load %s\n",filename);
        }

        if(!gl_flag){
                gfx[gfx_count].filename = strxcpy(filename);
                gfx[gfx_count].surf = src;
                gfx[gfx_count].w = src->w;
                gfx[gfx_count].h = src->h;
        }
        else {
                GLuint texture;

                glGenTextures( 1, &texture );
                glBindTexture( GL_TEXTURE_2D, texture );

                glTexParameteri(
                                GL_TEXTURE_2D,
                                GL_TEXTURE_MIN_FILTER,
                                GL_NEAREST
                               );

                glTexParameteri(
                                GL_TEXTURE_2D,
                                GL_TEXTURE_MAG_FILTER,
                                GL_NEAREST
                               );

                glTexParameteri(
                                GL_TEXTURE_2D,
                                GL_TEXTURE_WRAP_S,
                                GL_REPEAT
                               );

                glTexParameteri(
                                GL_TEXTURE_2D,
                                GL_TEXTURE_WRAP_T,
                                GL_REPEAT
                               );

                glTexImage2D(
                                GL_TEXTURE_2D,
                                0, 4,
                                src->w, src->h,
                                0,
                                GL_BGRA, GL_UNSIGNED_BYTE,
                                src->pixels
                            );

                gfx[gfx_count].filename = strxcpy(filename);
                gfx[gfx_count].texture = texture;
                gfx[gfx_count].w = src->w;
                gfx[gfx_count].h = src->h;

                SDL_FreeSurface(src);
        }

        return gfx_count++;
}

int gfx_width(int gfxid){
        return gfx[gfxid].w;
}

int gfx_height(int gfxid){
        return gfx[gfxid].h;
}






/******************/
/* initialization */
/******************/

void sdl_init(){
        if(SDL_Init(SDL_INIT_VIDEO | SDL_INIT_AUDIO | SDL_INIT_JOYSTICK)==-1){
                error_msg("sdl: %s\n",SDL_GetError());
                exit(-1);
        }
}




void print_version(){
        char message[] =
"This program is distributed under the terms of the GNU General\n"
"Public License (v2) and comes with ABSOLUTELY NO WARRANTY.\n\n"

"Send questions, comments, and bugs to evanrinehart@gmail.com\n\n"

"Send money to:\n"
"1850 Claiborne St\n"
"Mandeville, LA 70448\n"
"United States of America\n\n"

"Thanks! :)\n"
;

        printf("Cantaveria (v%d.%d)\n", VERSION_MAJOR, VERSION_MINOR);
        printf("Copyright 2009 Evan Rinehart\n\n");
        printf(message);
}

void print_help(){
        printf("options:\n");
        printf("  -gl   use opengl video mode\n");
        printf("  -f    use fullscreen video mode\n");
        printf("  -h    print this help\n");
        printf("  -v    print version info\n");
}

void parse_options(int argc, char* argv[], int* fullscreen, int* gl_flag){
        int i;
        for(i=0; i<argc; i++){
                if(!strcmp(argv[i], "-gl")){
                        *gl_flag = 1;
                        continue;
                }
                if(!strcmp(argv[i], "-f")){
                        *fullscreen = 1;
                }
                if(!strcmp(argv[i], "-h") || !strcmp(argv[i], "--help")){
                        print_help();
                        exit(0);
                }
                if(!strcmp(argv[i], "-v")){
                        print_version();
                        exit(0);
                }
        }
}


void setup_joysticks(){
        int N = SDL_NumJoysticks();
        int i;
        boot_msg("sdl: detected %d joysticks\n", N);
        for(i=0; i<N; i++){
                if(SDL_JoystickOpen(i)){
                        boot_msg(" joy%d: %s\n", i, SDL_JoystickName(i));
                }
                else{
                        boot_msg(" joy%d: %s (failed to open)\n", i, SDL_JoystickName(i));
                }
        }

}

void setup_video(){
        int flags = 0;
        int i;

        SDL_WM_SetCaption("cantaveria","cantaveria");
        SDL_ShowCursor(SDL_DISABLE);
        const SDL_VideoInfo* vinfo = SDL_GetVideoInfo();


        if(fullscreen && gl_flag){
                W = vinfo->current_w;
                H = vinfo->current_h;
        }
        else if(gl_flag){
                //W = 320;
                //H = 240;
                W = 640;
                H = 480;
                //W = 960;
                //H = 720;
        }
        else if(fullscreen){
                W = 320;
                H = 240;
        }
        else{
                W = 320;
                H = 240;
        }

        if(gl_flag){
                SDL_GL_SetAttribute(SDL_GL_DOUBLEBUFFER, 1);
                //SDL_GL_SetAttribute(SDL_GL_ACCELERATED_VISUAL, 1);
                //SDL_GL_SetAttribute(SDL_GL_SWAP_CONTROL, 1);
                flags |= SDL_OPENGL;
        };

        if(fullscreen){
                flags |= SDL_FULLSCREEN;
        }



        video = SDL_SetVideoMode(W,H,32,flags);
        if(video == NULL){
                fatal_error("sdl: %s\n",SDL_GetError());
        }

        if(gl_flag){
                glEnable(GL_BLEND);
                glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

                glEnable( GL_TEXTURE_2D );
                glClearColor( 0.0f, 0.0f, 0.0f, 0.0f );

                glViewport( 0, 0, W, H );

                glClear( GL_COLOR_BUFFER_BIT );

                glMatrixMode( GL_PROJECTION );
                glLoadIdentity();
                if(fullscreen){
                        //glOrtho(0.0f, 240*aspect, 240, 0.0f, -1.0f, 1.0f);
                        //glOrtho(0.0f, 1280.0/3, 800.0/3, 0.0f, -1.0f, 1.0f);
                        int min = 9999;
                        int n = 0;
                        for(i=1; i<10; i++){
                                if(abs(H/i - 240) < min){ min = H/i - 240; n = i; }
                        }
                        double new_w = ((double)W)/n;
                        double new_h = ((double)H)/n;
                        screen_offset_x = (new_w-320)/2;
                        screen_offset_y = (new_h-240)/2;
                        glOrtho(0.0f, new_w, new_h, 0.0f, -1.0f, 1.0f);
                        screen_w = new_w;
                        screen_h = new_h;
                }
                else{
                        glOrtho(0.0f, 320, 240, 0.0f, -1.0f, 1.0f);
                        screen_w = 320;
                        screen_h = 240;
                }

                glMatrixMode( GL_MODELVIEW );
                glLoadIdentity();
        }
        else{
                screen_w = 320;
                screen_h = 240;
        } 

        boot_msg("video:\n");
        boot_msg("  resolution: %d x %d %s\n",W,H,fullscreen?"fullscreen":"windowed");
        boot_msg("  pixel dimensions: %d x %d\n",screen_w,screen_h);
        boot_msg("  aspect ratio: %g\n",((double)W)/H);
        boot_msg("  opengl: %s\n",gl_flag?"yes":"no");
        boot_msg("  x-offset: %d\n",screen_offset_x);
        boot_msg("  y-offset: %d\n",screen_offset_y);
        boot_msg("  video on\n");

}

void map_pixel(int mx, int my, int *x, int *y){
        *x = mx*screen_w/W;
        *y = my*screen_h/H;
}





void video_init(int argc, char* argv[]){
        sdl_init();
        parse_options(argc, argv, &fullscreen, &gl_flag);
        setup_joysticks();
        setup_video();
        time_last = SDL_GetTicks();
}

void video_quit(){
        boot_msg("sdl: quit\n");
        SDL_Quit();
}


/* fps */

int fps = 0;
int update_count = 0;
int draw_count = 0;

void fps_update(){
        update_count++;
        if(update_count == 100){
                fps = draw_count * 100 / update_count;
                update_count = 0;
                draw_count = 0;
        }
}

void fps_draw(){
        draw_count++;
}

int get_fps(){
        return fps;
}