;; this file:
;;   https://dataswamp.org/~incal/cl/general-base/shader.lisp

(defparameter *vertex-shader* "
varying vec2 texture_coord;
void main () {
  texture_coord = vec2(gl_MultiTexCoord0);
  gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex;
}
")

(defparameter *fragment-shader* "
#version 120

varying vec2 texture_coord;
uniform sampler2D tex;

void main () {
  gl_FragColor = texture2D(tex, texture_coord);
}
")