Open cbaggers opened 6 years ago
We have this supported in some places. Fix it here too
cd /home/baggers/Code/lisp/play-with-verts/ 1 compiler notes: Unknown location: error: Execution of a form compiled with errors. Form: (DEFUN-G FXAA-PIXEL-SHADER ((UV :VEC4) (TEX :SAMPLER2D) (RCP-FRAME :VEC2)) (LET* ((FXAA-SPAN-MAX 8.0) (FXAA-REDUCE-MUL (/ 1.0 FXAA-SPAN-MAX)) (FXAA-REDUCE-MIN (/ 1.0 128.0)) (FXAA-SUBPIX-SHIFT (/ 1.0 4.0)) (RGB-NW (S~ (TEXTURE-LOD TEX (S~ UV :ZW) 0.0) :XYZ)) (RGB-NE (S~ (TEXTURE-LOD TEX (+ (S~ UV :ZW) (* (V2! 1 0) (S~ RCP-FRAME :XY))) 0.0) :XYZ)) (RGB-SW (S~ (TEXTURE-LOD TEX (+ (S~ UV :ZW) (* (V2! 0 1) (S~ RCP-FRAME :XY))) 0.0) :XYZ)) (RGB-SE (S~ (TEXTURE-LOD TEX (+ (S~ UV :ZW) (* (V2! 1 1) (S~ RCP-FRAME :XY))) 0.0) :XYZ)) (RGB-M (S~ (TEXTURE-LOD TEX (S~ UV :XY) 0.0) :XYZ)) (LUMA (V3! 0.29900002 0.587 0.11400001)) (LUMA-NW (DOT RGB-NW LUMA)) (LUMA-NE (DOT RGB-NE LUMA)) (LUMA-SW (DOT RGB-SW LUMA)) (LUMA-SE (DOT RGB-SE LUMA)) (LUMA-M (DOT RGB-M LUMA)) (LUMA-MIN (MIN LUMA-M (MIN (MIN LUMA-NW LUMA-NE) (MIN LUMA-SW LUMA-SE)))) (LUMA-MAX (MAX LUMA-M (MAX (MAX LUMA-NW LUMA-NE) (MAX LUMA-SW LUMA-SE)))) ((DIR :VEC2))) (SETF (X DIR) (- (- (+ LUMA-NW LUMA-NE) (+ LUMA-SW LUMA-SE)))) (SETF (Y DIR) (- (+ LUMA-NW LUMA-SW) (+ LUMA-NE LUMA-SE))) (LET* ((DIR-REDUCE (MAX (* (+ LUMA-NW (+ LUMA-NE (+ LUMA-SW LUMA-SE))) (* 0.25 FXAA-REDUCE-MUL)) FXAA-REDUCE-MIN)) (RCP-DIR-MIN (/ 1.0 (+ (MIN (ABS (X DIR)) (ABS (Y DIR))) DIR-REDUCE)))) (SETF DIR (* (MIN (V2! FXAA-SPAN-MAX FXAA-SPAN-MAX) (MAX (V2! (- FXAA-SPAN-MAX) (- FXAA-SPAN-MAX)) (* DIR RCP-DIR-MIN))) (S~ RCP-FRAME :XY))) (LET* ((RGB-A (* (/ 1.0 2.0) (+ (S~ (TEXTURE-LOD TEX (+ (S~ UV :XY) (* DIR (- (/ 1.0 3.0) 0.5))) 0.0) :XYZ) (S~ (TEXTURE-LOD TEX (+ (S~ UV :XY) (* DIR (- (/ 2.0 3.0) 0.5))) 0.0) :XYZ)))) (RGB-B (+ (* RGB-A (/ 1.0 2.0)) (* (/ 1.0 4.0) (+ (S~ (TEXTURE-LOD TEX (+ (S~ UV :XY) (* DIR (- (/ 0.0 3.0) 0.5))) 0.0) :XYZ) (S~ (TEXTURE-LOD TEX (+ (S~ UV :XY) (* DIR (- (/ 3.0 3.0) 0.5))) 0.0) :XYZ))))) (LUMA-B (DOT RGB-B LUMA))) (WHEN (NIL (< LUMA-B LUMA-MIN) (> LUMA-B LUMA-MAX)) RGB-A) RGB-B)))) Compile-time error: (during macroexpansion of (DEFUN-G FXAA-PIXEL-SHADER ...)) Varjo: When defining the function FXAA-PIXEL-SHADER we found some args with types that we didnt recognise: > (TEX :SAMPLER2D) fxaa.lisp:4:1: error: (during macroexpansion of (DEFUN-G FXAA-PIXEL-SHADER ...)) Varjo: When defining the function FXAA-PIXEL-SHADER we found some args with types that we didnt recognise: > (TEX :SAMPLER2D) Compilation failed.
We have this supported in some places. Fix it here too