patrick/ray-tracing-fsharp
1
0
Fork 0
mirror of https://github.com/Smaug123/ray-tracing-fsharp synced 2025-10-09 22:08:39 +00:00
Code Issues Packages Projects Releases Wiki Activity

Textures! (#6)

Browse Source
This commit is contained in:
Patrick Stevens
2021-04-24 22:08:04 +01:00
committed by GitHub
parent bf0fe27f94
commit 67f9f8d3bf
7 changed files with 190 additions and 67 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
RayTracing/InfinitePlane.fs
View File

@@ -2,7 +2,7 @@ namespace RayTracing
type InfinitePlaneStyle =
/// An emitter of light.
| LightSource of Pixel
| LightSource of Texture
/// Perfect reflection, as you would see from a smooth flat metal surface.
/// Albedo must be between 0 and 1.
| PureReflection of albedo : float<albedo> * colour : Pixel
@@ -76,8 +76,11 @@ module InfinitePlane =
=
fun incomingRay strikePoint ->
match style with
| InfinitePlaneStyle.LightSource colour ->
Absorbs (Pixel.combine incomingRay.Colour colour)
| InfinitePlaneStyle.LightSource texture ->
texture
|> Texture.colourAt strikePoint
|> Pixel.combine incomingRay.Colour
|> Absorbs
| InfinitePlaneStyle.FuzzedReflection (albedo, colour, fuzz, rand) ->
let newColour = newColour incomingRay.Colour albedo colour