diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/Main.hs b/src/Main.hs index b92807c..b674eb6 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -52,3 +52,6 @@ main = do let i = circleImage (normalise 511) 511 BL.writeFile "normal.ppm" . encodePPM . clampImage $ i BL.writeFile "normal.pfm" . encode . revColour $ i + let r = circleImage (reflect 511 (Vec (0, 0, 1))) 511 + BL.writeFile "reflect.ppm" . encodePPM . clampImage $ r + BL.writeFile "reflect.pfm" . encode . revColour $ r |