Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
54 lines (42 sloc) 1.67 KB
This file is a part of trial
(c) 2017 Shirakumo (
Author: Nicolas Hafner <>
(in-package #:org.shirakumo.fraf.trial)
(define-shader-entity skybox ()
((texture :initarg :texture :accessor texture)
(vertex-array :initform (asset 'trial 'empty-vertex-array) :Accessor vertex-array))
(:default-initargs :texture (error "TEXTURE required.")))
(defmethod paint ((skybox skybox) (pass shader-pass))
(let ((shader (shader-program-for-pass pass skybox))
(texture (texture skybox)))
(setf (uniform shader "view_matrix") (view-matrix))
(setf (uniform shader "projection_matrix") (projection-matrix))
(gl:depth-mask NIL)
(gl:active-texture :texture0)
(gl:bind-vertex-array (gl-name (vertex-array skybox)))
(gl:bind-texture (target texture) (gl-name texture))
(gl:draw-arrays :triangle-strip 0 4)
(gl:bind-texture (target texture) 0)
(gl:depth-mask T)))
(define-class-shader (skybox :vertex-shader)
"const vec2 quad_vertices[4] = vec2[4](vec2(-1.0, -1.0), vec2(1.0, -1.0), vec2(-1.0, 1.0), vec2(1.0, 1.0));
uniform mat4 projection_matrix;
uniform mat4 view_matrix;
smooth out vec3 eye;
void main() {
vec4 position = vec4(quad_vertices[gl_VertexID], 0.0, 1.0);
mat4 inverseProjection = inverse(projection_matrix);
mat3 inverseModelview = transpose(mat3(view_matrix));
vec3 unprojected = (inverseProjection * position).xyz;
eye = inverseModelview * unprojected;
gl_Position = position;
(define-class-shader (skybox :fragment-shader)
"uniform samplerCube texture_image;
smooth in vec3 eye;
out vec4 color;
void main() {
color = texture(texture_image, eye);