+ // Compile the tally shader.
+ shader_src = ::read_file("tally.shader");
+ shader_num = compile_shader(shader_src, GL_COMPUTE_SHADER);
+ GLuint glsl_tally_program_num = glCreateProgram();
+ glAttachShader(glsl_tally_program_num, shader_num);
+ glLinkProgram(glsl_tally_program_num);
+
+ glGetProgramiv(glsl_tally_program_num, GL_LINK_STATUS, &success);
+ if (success == GL_FALSE) {
+ GLchar error_log[1024] = {0};
+ glGetProgramInfoLog(glsl_tally_program_num, 1024, nullptr, error_log);
+ fprintf(stderr, "Error linking program: %s\n", error_log);
+ exit(1);
+ }
+