Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

LOD benchmarks #655

Merged
merged 6 commits into from
Sep 24, 2023
Merged

LOD benchmarks #655

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
6 commits
Select commit Hold shift + click to select a range
e4576a6
lod benchmarks
bksaiki Dec 7, 2022
26dda97
update lod benchmarks
bksaiki Sep 20, 2023
a25ace0
Merge branch 'main' into graphics-benchmarks
bksaiki Sep 20, 2023
b996054
fix LOD benchmarks
bksaiki Sep 20, 2023
90a53c3
move pbrt under bench/graphics
bksaiki Sep 20, 2023
6d2e6cd
tweak comment
bksaiki Sep 20, 2023
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
238 changes: 238 additions & 0 deletions bench/graphics/lod.fpcore
View file
Open in desktop
Original file line number Diff line number Diff line change
@@ -0,0 +1,238 @@
; -*- mode: scheme -*-

;
; Level-of-Detail computation
; Direct3D 11.3
; Section 7.8.11
;
; Texture limits from Section 21:
; Textures sizes are integer values between [1, 2^14].
; Maximum ratio of anisotropy will be fixed at 16 since the algorithm
; is only interesting when clamping is kept minimal.
;
; While the section mentions "reasonable" limits for derivatives,
; unreasonable is still allowable, so any good algorithm should
; be able to handle inputs in this space. The limits on derivatives
; are conservative and handle inputs far outside the "reasonable" space
;
;

;
; Anisotropic
;

(FPCore (w h dX.u dX.v dY.u dY.v maxAniso)
:name "Anisotropic x16 LOD (LOD)"
:precision binary32
:pre (and (<= 1 w 16384)
(<= 1 h 16384)
(<= 1e-20 (fabs dX.u) 1e+20)
(<= 1e-20 (fabs dX.v) 1e+20)
(<= 1e-20 (fabs dY.u) 1e+20)
(<= 1e-20 (fabs dY.v) 1e+20)
(== maxAniso 16))

(let* ([w (floor w)]
[h (floor h)]
[maxAniso (floor maxAniso)]

[dX.u (* w dX.u)]
[dX.v (* h dX.v)]
[dY.u (* w dY.u)]
[dY.v (* h dY.v)]

[dX2 (+ (* dX.u dX.u) (* dX.v dX.v))]
[dY2 (+ (* dY.u dY.u) (* dY.v dY.v))]
[det (fabs (- (* dX.u dY.v) (* dX.v dY.u)))]

[major2 (fmax dX2 dY2)]
[major (sqrt major2)]
[normMajor (/ 1 major)]
[ratioAniso0 (/ major2 det)]

; first round of clamping
[minor (if (> ratioAniso0 maxAniso)
(/ major maxAniso)
(/ det major))]
[ratioAniso1 (if (> ratioAniso0 maxAniso)
maxAniso
ratioAniso0)]

; second round of clamping
[ratioAniso (if (< minor 1.0)
(fmax 1.0 (* ratioAniso1 minor))
ratioAniso1)])

(log2 minor)))

(FPCore (w h dX.u dX.v dY.u dY.v maxAniso)
:name "Anisotropic x16 LOD (ratio of anisotropy)"
:precision binary32
:pre (and (<= 1 w 16384)
(<= 1 h 16384)
(<= 1e-20 (fabs dX.u) 1e+20)
(<= 1e-20 (fabs dX.v) 1e+20)
(<= 1e-20 (fabs dY.u) 1e+20)
(<= 1e-20 (fabs dY.v) 1e+20)
(== maxAniso 16))

(let* ([w (floor w)]
[h (floor h)]
[maxAniso (floor maxAniso)]

[dX.u (* w dX.u)]
[dX.v (* h dX.v)]
[dY.u (* w dY.u)]
[dY.v (* h dY.v)]

[dX2 (+ (* dX.u dX.u) (* dX.v dX.v))]
[dY2 (+ (* dY.u dY.u) (* dY.v dY.v))]
[det (fabs (- (* dX.u dY.v) (* dX.v dY.u)))]

[major2 (fmax dX2 dY2)]
[major (sqrt major2)]
[normMajor (/ 1 major)]
[ratioAniso0 (/ major2 det)]

; first round of clamping
[minor (if (> ratioAniso0 maxAniso)
(/ major maxAniso)
(/ det major))]
[ratioAniso1 (if (> ratioAniso0 maxAniso)
maxAniso
ratioAniso0)]

; second round of clamping
[ratioAniso (if (< minor 1.0)
(fmax 1.0 (* ratioAniso1 minor))
ratioAniso1)])

ratioAniso))

(FPCore (w h dX.u dX.v dY.u dY.v maxAniso)
:name "Anisotropic x16 LOD (line direction, u)"
:precision binary32
:pre (and (<= 1 w 16384)
(<= 1 h 16384)
(<= 1e-20 (fabs dX.u) 1e+20)
(<= 1e-20 (fabs dX.v) 1e+20)
(<= 1e-20 (fabs dY.u) 1e+20)
(<= 1e-20 (fabs dY.v) 1e+20)
(== maxAniso 16))

(let* ([w (floor w)]
[h (floor h)]
[maxAniso (floor maxAniso)]

[dX.u (* w dX.u)]
[dX.v (* h dX.v)]
[dY.u (* w dY.u)]
[dY.v (* h dY.v)]

[dX2 (+ (* dX.u dX.u) (* dX.v dX.v))]
[dY2 (+ (* dY.u dY.u) (* dY.v dY.v))]
[det (fabs (- (* dX.u dY.v) (* dX.v dY.u)))]

[major2 (fmax dX2 dY2)]
[major (sqrt major2)]
[normMajor (/ 1 major)]
[ratioAniso0 (/ major2 det)]

; first round of clamping
[minor (if (> ratioAniso0 maxAniso)
(/ major maxAniso)
(/ det major))]
[ratioAniso1 (if (> ratioAniso0 maxAniso)
maxAniso
ratioAniso0)]

; second round of clamping
[ratioAniso (if (< minor 1.0)
(fmax 1.0 (* ratioAniso1 minor))
ratioAniso1)])

(if (>= dX2 dY2)
(* normMajor dX.u)
(* normMajor dY.u))))

(FPCore (w h dX.u dX.v dY.u dY.v maxAniso)
:name "Anisotropic x16 LOD (line direction, v)"
:precision binary32
:pre (and (<= 1 w 16384)
(<= 1 h 16384)
(<= 1e-20 (fabs dX.u) 1e+20)
(<= 1e-20 (fabs dX.v) 1e+20)
(<= 1e-20 (fabs dY.u) 1e+20)
(<= 1e-20 (fabs dY.v) 1e+20)
(== maxAniso 16))

(let* ([w (floor w)]
[h (floor h)]
[maxAniso (floor maxAniso)]

[dX.u (* w dX.u)]
[dX.v (* h dX.v)]
[dY.u (* w dY.u)]
[dY.v (* h dY.v)]

[dX2 (+ (* dX.u dX.u) (* dX.v dX.v))]
[dY2 (+ (* dY.u dY.u) (* dY.v dY.v))]
[det (fabs (- (* dX.u dY.v) (* dX.v dY.u)))]

[major2 (fmax dX2 dY2)]
[major (sqrt major2)]
[normMajor (/ 1 major)]
[ratioAniso0 (/ major2 det)]

; first round of clamping
[minor (if (> ratioAniso0 maxAniso)
(/ major maxAniso)
(/ det major))]
[ratioAniso1 (if (> ratioAniso0 maxAniso)
maxAniso
ratioAniso0)]

; second round of clamping
[ratioAniso (if (< minor 1.0)
(fmax 1.0 (* ratioAniso1 minor))
ratioAniso1)])

(if (>= dX2 dY2)
(* normMajor dX.v)
(* normMajor dY.v))))

;
; Isotropic (supports 3D as well)
;

(FPCore (w h d dX.u dX.v dX.w dY.u dY.v dY.w)
:name "Isotropic LOD (LOD)"
:precision binary32
:pre (and (<= 1 w 16384)
(<= 1 h 16384)
(<= 1 d 4096)
(<= 1e-20 (fabs dX.u) 1e+20)
(<= 1e-20 (fabs dX.v) 1e+20)
(<= 1e-20 (fabs dX.w) 1e+20)
(<= 1e-20 (fabs dY.u) 1e+20)
(<= 1e-20 (fabs dY.v) 1e+20)
(<= 1e-20 (fabs dY.w) 1e+20))

(let* ([w (floor w)]
[h (floor h)]
[d (floor d)]

[dX.u (* w dX.u)]
[dX.v (* h dX.v)]
[dX.w (* d dX.w)]
[dY.u (* w dY.u)]
[dY.v (* h dY.v)]
[dY.w (* d dY.w)]

[dX2 (+ (+ (* dX.u dX.u) (* dX.v dX.v)) (* dX.w dX.w))]
[dY2 (+ (+ (* dY.u dY.u) (* dY.v dY.v)) (* dY.w dY.w))]

[major2 (fmax dX2 dY2)]
[major (sqrt major2)])

(log2 major)))
0 bench/pbrt.fpcore → bench/graphics/pbrt.fpcore
View file
Open in desktop
File renamed without changes.
Loading