blob: 22aded97fdd7612b3e8540ce12af8db5e187fc6f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
|
;;; Chickadee Game Toolkit
;;; Copyright © 2019, 2021 David Thompson <dthompson2@worcester.edu>
;;;
;;; Chickadee 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 3 of the License,
;;; or (at your option) any later version.
;;;
;;; Chickadee 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, see
;;; <http://www.gnu.org/licenses/>.
;;; Commentary:
;;
;; Physically based lighting model.
;;
;;; Code:
(define-module (chickadee graphics pbr)
#:use-module (chickadee config)
#:use-module (chickadee math vector)
#:use-module (chickadee graphics blend)
#:use-module (chickadee graphics buffer)
#:use-module (chickadee graphics color)
#:use-module (chickadee graphics depth)
#:use-module (chickadee graphics engine)
#:use-module (chickadee graphics mesh)
#:use-module (chickadee graphics polygon)
#:use-module (chickadee graphics shader)
#:use-module (chickadee graphics stencil)
#:use-module (chickadee graphics texture)
#:use-module (srfi srfi-9)
#:export (make-pbr-properties
pbr-properties?
pbr-properties-base-color-factor
pbr-properties-base-color-texcoord
pbr-properties-metallic-factor
pbr-properties-roughness-factor
pbr-properties-metallic-roughness-texcoord
pbr-properties-normal-texcoord
pbr-properties-occlusion-texcoord
pbr-properties-emissive-factor
pbr-properties-emissive-texcoord
pbr-properties-alpha-mode
pbr-properties-alpha-cutoff
pbr-shader
make-pbr-material))
(define-shader-type <pbr-properties>
make-pbr-properties
pbr-properties?
(float-vec3 base-color-factor pbr-properties-base-color-factor)
(int base-color-texcoord pbr-properties-base-color-texcoord)
(float metallic-factor pbr-properties-metallic-factor)
(float roughness-factor pbr-properties-roughness-factor)
(int metallic-roughness-texcoord pbr-properties-metallic-roughness-texcoord)
(int normal-texcoord pbr-properties-normal-texcoord)
(int occlusion-texcoord pbr-properties-occlusion-texcoord)
(float-vec3 emissive-factor pbr-properties-emissive-factor)
(int emissive-texcoord pbr-properties-emissive-texcoord)
(int alpha-mode pbr-properties-alpha-mode)
(float alpha-cutoff pbr-properties-alpha-cutoff))
(define %pbr-shader
(delay (load-shader (scope-datadir "shaders/pbr-vert.glsl")
(scope-datadir "shaders/pbr-frag.glsl"))))
(define (pbr-shader)
(force %pbr-shader))
(define* (make-pbr-material #:key (name "anonymous")
(blend-mode blend:replace)
(polygon-mode fill-polygon-mode)
(cull-face-mode back-cull-face-mode)
(depth-test basic-depth-test)
(stencil-test default-stencil-test)
multisample?
(base-color-factor (vec3 1.0 1.0 1.0))
(base-color-texcoord 0)
(metallic-factor 1.0)
(roughness-factor 1.0)
(metallic-roughness-texcoord 0)
(normal-texcoord 0)
(occlusion-texcoord 0)
(emissive-factor (vec3 1.0 1.0 1.0))
(emissive-texcoord 0)
(alpha-mode 'opaque)
(alpha-cutoff 0.5)
(base-color-texture (white-texture))
(metallic-roughness-texture (white-texture))
(normal-texture (flat-texture))
(occlusion-texture (white-texture))
(emissive-texture (black-texture)))
(let ((properties (make-pbr-properties
#:base-color-factor base-color-factor
#:base-color-texcoord base-color-texcoord
#:metallic-factor metallic-factor
#:roughness-factor roughness-factor
#:metallic-roughness-texcoord metallic-roughness-texcoord
#:normal-texcoord normal-texcoord
#:occlusion-texcoord occlusion-texcoord
#:emissive-factor emissive-factor
#:emissive-texcoord emissive-texcoord
#:alpha-mode (case alpha-mode
((opaque) 0)
((mask) 1)
((blend) 2)
(else
(error "unsupport PBR alpha mode:"
alpha-mode)))
#:alpha-cutoff 0.5)))
(make-material #:name name
#:shader (pbr-shader)
#:texture-0 base-color-texture
#:texture-1 metallic-roughness-texture
#:texture-2 normal-texture
#:texture-3 occlusion-texture
#:texture-4 emissive-texture
#:properties properties)))
;; TODO: Handle vertex colors
;; (buffer-view?
;; (assv-ref vattrs
;; (attribute-location
;; (hash-ref sattrs "color0"))))
|
