/* map.c --- 蝨ｰ蝗ｳ縺ｮ陦ｨ遉ｺ
  cc map.c -g -O2 -Wall -Wno-unused-result -o map -I/usr/include/freetype2 -lftgl -lglfw -lGLU -lGL -lX11 -lXrandr -lm 
 */

#include <stdio.h>
#include <math.h>
#include <unistd.h>
#include <GL/glfw.h>
#include <FTGL/ftgl.h>

#define CROSSING_SIZE 100  /* 莠､蟾ｮ轤ｹ謨ｰ=100 */
#define MAX_NAME_SIZE  50  /* 譛€螟ｧ譁�ｭ玲焚50譁�ｭ�(蜊願ｧ�) */

/* 蠎ｧ讓吝､画鋤繝槭け繝ｭ縺ｮ螳夂ｾｩ */
#define ORIGIN_X     -3.0
#define ORIGIN_Y      0.0
#define REAL_SIZE_X   8.0
#define REAL_SIZE_Y   8.0

#ifndef FONT_FILENAME
/* 繝輔か繝ｳ繝医�繝輔ぃ繧､繝ｫ蜷� */
#define FONT_FILENAME "/usr/share/fonts/truetype/takao-gothic/TakaoGothic.ttf"
#endif
static FTGLfont *font; /* 隱ｭ縺ｿ霎ｼ繧薙□繝輔か繝ｳ繝医ｒ蟾ｮ縺吶�繧､繝ｳ繧ｿ */

/* 繝��繧ｿ讒矩€�縺ｮ螳夂ｾｩ */
typedef struct {
    double x, y;           /* 菴咲ｽｮ x, y */
} Position;              /* 菴咲ｽｮ繧定｡ｨ縺呎ｧ矩€�菴� */

typedef struct {
    int id;                /* 莠､蟾ｮ轤ｹ逡ｪ蜿ｷ */
    Position pos;          /* 菴咲ｽｮ繧定｡ｨ縺呎ｧ矩€�菴� */
    double wait;           /* 蟷ｳ蝮�ｾ�■譎る俣 */
    char jname[MAX_NAME_SIZE];   /* 莠､蟾ｮ轤ｹ蜷�(譌･譛ｬ隱�) */
    char ename[MAX_NAME_SIZE];   /* 莠､蟾ｮ轤ｹ蜷�(繝ｭ繝ｼ繝槫ｭ�) */
    int points;            /* 莠､蟾ｮ驕楢ｷｯ謨ｰ */
    int next[5];           /* 髫｣謗･縺吶ｋ莠､蟾ｮ轤ｹ逡ｪ蜿ｷ */
} Crossing;

/* 繝��繧ｿ繧呈�ｼ邏阪☆繧句､画焚縺ｮ螳夂ｾｩ */
static Crossing cross[CROSSING_SIZE];

/* 蜀�ｒ謠冗判 */
static void draw_circle(double x, double y, double r) {
    int const N = 12;  /* 蜀�捉繧� 12蛻�牡縺励※邱壼�縺ｧ謠冗判縺吶ｋ縺薙→縺ｫ縺吶ｋ */
    int i;

    glBegin(GL_LINE_LOOP);
    for (i = 0; i < N; i++) {
        glVertex2d(x + cos(2 * M_PI * i / N) * r,
                   y + sin(2 * M_PI * i / N) * r);
    }
    glEnd();
}

/* 譁�ｭ怜�繧呈緒逕ｻ */
static void draw_outtextxy(double x, double y, char const *text) {
    double const scale = 0.01;
    glPushMatrix();
    glTranslated(x, y, 0.0);
    glScaled(scale, scale, scale);
    ftglRenderFont(font, text, FTGL_RENDER_ALL);
    glPopMatrix();
}

/* 繝輔ぃ繧､繝ｫ縺ｮ隱ｭ縺ｿ霎ｼ縺ｿ */
static int map_read(char *filename) {
    FILE *fp;
    int i, j;
    int crossing_number;          /* 莠､蟾ｮ轤ｹ謨ｰ */

    fp = fopen(filename, "r");
    if (fp == NULL) {
        perror(filename);
        return -1;
    }

    /* 縺ｯ縺倥ａ縺ｫ莠､蟾ｮ轤ｹ謨ｰ繧定ｪｭ縺ｿ霎ｼ繧€ */
    fscanf(fp, "%d", &crossing_number);

    for (i = 0; i < crossing_number; i++) {
        /* 髢｢謨ｰfprintf繧剃ｽｿ縺｣縺ｦ縲∵ｧ矩€�菴薙�繝��繧ｿ繧�
             繝輔ぃ繧､繝ｫ縺ｸ譖ｸ縺榊�縺吶�繝ｭ繧ｰ繝ｩ繝�繧定ｨ伜�縺励↑縺輔＞ */

        fscanf(fp, "%d,%lf,%lf,%lf,%[^,],%[^,],%d",
                     &(cross[i].id), &(cross[i].pos.x), &(cross[i].pos.y),
                     &(cross[i].wait), cross[i].jname,
                     cross[i].ename, &(cross[i].points));

        for (j = 0; j < cross[i].points; j++) {
            fscanf(fp, ",%d", &(cross[i].next[j]));
        }

    }
    fclose(fp);

    /* 繝輔ぃ繧､繝ｫ縺九ｉ隱ｭ縺ｿ霎ｼ繧薙□莠､蟾ｮ轤ｹ謨ｰ繧定ｿ斐☆ */
    return crossing_number;
}

/* 驕楢ｷｯ邯ｲ縺ｮ陦ｨ遉ｺ */
static void map_show(int crossing_number) {
    int i, j;
    double x0, y0, x1, y1;

    /* 莠､蟾ｮ轤ｹ豈弱�繝ｫ繝ｼ繝� */
    for (i = 0; i < crossing_number; i++) {
        x0 = cross[i].pos.x;
        y0 = cross[i].pos.y;

        /* 莠､蟾ｮ轤ｹ繧定｡ｨ縺吝�繧呈緒縺� */
        glColor3d(1.0, 0.5, 0.5);
        draw_circle(x0, y0, 0.1);

        /* 莠､蟾ｮ轤ｹ縺ｮ蜷榊燕繧呈緒縺� */
        glColor3d(1.0, 1.0, 0.0);
        draw_outtextxy(x0, y0, cross[i].jname);

        /* 莠､蟾ｮ轤ｹ縺九ｉ莨ｸ縺ｳ繧矩％霍ｯ繧呈緒縺� */
        glColor3d(1.0, 1.0, 1.0);
        glBegin(GL_LINES);
        for (j = 0; j < cross[i].points; j++) {
            x1 = cross[ cross[i].next[j] ].pos.x;
            y1 = cross[ cross[i].next[j] ].pos.y;
            glVertex2d(x0, y0);
            glVertex2d(x1, y1);
        }
        glEnd();
    }
}

int main(void) {
    int crossing_number;          /* 莠､蟾ｮ轤ｹ謨ｰ */

    /* 繧ｰ繝ｩ繝輔ぅ繝�け迺ｰ蠅�ｒ蛻晄悄蛹悶＠縺ｦ縲√え繧｣繝ｳ繝峨え繧帝幕縺� */
    glfwInit();
    glfwOpenWindow(640, 640, 0, 0, 0, 0, 0, 0, GLFW_WINDOW);

    /* (ORIGIN_X, ORIGIN_Y) 繧剃ｸｭ蠢�↓縲ヽEAL_SIZE_X * REAL_SIZE_Y 縺ｮ遽�峇縺ｮ
         遨ｺ髢薙ｒ繝薙Η繝ｼ繝昴�繝医↓謚募ｽｱ縺吶ｋ */
    glMatrixMode(GL_PROJECTION);
    glLoadIdentity();
    glOrtho(ORIGIN_X + REAL_SIZE_X * -0.5, ORIGIN_X + REAL_SIZE_X * 0.5,
            ORIGIN_Y + REAL_SIZE_Y * -0.5, ORIGIN_Y + REAL_SIZE_Y * 0.5,
            -1.0, 1.0);

    glMatrixMode(GL_MODELVIEW);
    glLoadIdentity();             /* 縺昴ｌ莉･螟悶�蠎ｧ讓吝､画鋤縺ｯ陦後ｏ縺ｪ縺� */

    /* 譁�ｭ怜�謠冗判縺ｮ縺溘ａ縺ｮ繝輔か繝ｳ繝医�隱ｭ縺ｿ霎ｼ縺ｿ縺ｨ險ｭ螳� */
    font = ftglCreateExtrudeFont(FONT_FILENAME);
    if (font == NULL) {
        perror(FONT_FILENAME);
        fprintf(stderr, "could not load font\n");
        exit(1);
    }
    ftglSetFontFaceSize(font, 24, 24);
    ftglSetFontDepth(font, 0.01);
    ftglSetFontOutset(font, 0, 0.1);
    ftglSetFontCharMap(font, ft_encoding_unicode);

    /* 繝槭ャ繝励ヵ繧｡繧､繝ｫ縺ｮ隱ｭ縺ｿ霎ｼ縺ｿ */
    crossing_number = map_read("map2.dat");
    if (crossing_number < 0) {
        fprintf(stderr, "couldn't read map file\n");
        exit(1);
    }

    while (1) {
        int width, height;

        /* Esc 縺梧款縺輔ｌ繧九°繧ｦ繧｣繝ｳ繝峨え縺碁哩縺倥ｉ繧後◆繧峨♀縺励∪縺� */
        //glfwWaitEvents();
        if (glfwGetKey(GLFW_KEY_ESC) || !glfwGetWindowParam(GLFW_OPENED))
            break;

        glfwGetWindowSize(&width, &height);  /* 迴ｾ蝨ｨ縺ｮ繧ｦ繧｣繝ｳ繝峨え繧ｵ繧､繧ｺ繧貞叙蠕励☆繧� */
        glViewport(0, 0, width, height);  /* 繧ｦ繧｣繝ｳ繝峨え蜈ｨ髱｢繧偵ン繝･繝ｼ繝昴�繝医↓縺吶ｋ */

        glClearColor(0.0f, 0.0f, 0.0f, 0.0f);
        glClear(GL_COLOR_BUFFER_BIT);  /* 繝舌ャ繧ｯ繝舌ャ繝輔ぃ繧帝ｻ偵〒蝪励ｊ貎ｰ縺� */

        map_show(crossing_number);  /* 驕楢ｷｯ邯ｲ縺ｮ陦ｨ遉ｺ */
        glfwSwapBuffers();  /* 繝輔Ο繝ｳ繝医ヰ繝�ヵ繧｡縺ｨ繝舌ャ繧ｯ繝舌ャ繝輔ぃ繧貞�繧梧崛縺医ｋ */
    }

    glfwTerminate();

    return 0;
}