simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-13 14:30:32 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

Handle DummyNone case

Browse source
This commit is contained in:
Samrat Man Singh 2017-09-03 23:51:46 +05:45
parent b9c9bcaf6d
commit 22a67f2990
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
src/raytracer.ml
View file

@ -1,11 +1,11 @@
open Core.Std open Core
open Printf open Printf
open Vec3 open Vec3
open Ray open Ray
type material = Lambertian of Vec3.vec3 (* matte surface *) type material = Lambertian of Vec3.vec3 (* matte surface *)
| Metal of Vec3.vec3 | Metal of Vec3.vec3
| DummyNone | DummyNone (* TODO: use option type instead *)
type sphere = { center: Vec3.vec3; type sphere = { center: Vec3.vec3;
radius: float; radius: float;
@ -59,6 +59,7 @@ let hit_scatter rin hit_rec =
color = albedo; color = albedo;
scatter = (Vec3.dot scattered_ray.dir hit_rec.normal) > 0.0;} in scatter = (Vec3.dot scattered_ray.dir hit_rec.normal) > 0.0;} in
scattered scattered
| DummyNone -> failwith "not a real material type"
let hit_sphere sphere ray (tmin, tmax) = let hit_sphere sphere ray (tmin, tmax) =
let oc = sub ray.origin sphere.center in let oc = sub ray.origin sphere.center in
@ -144,7 +145,7 @@ let write_to_file filename =
let nx = 400 in let nx = 400 in
let ny = 200 in let ny = 200 in
let ns = 100 in let ns = 60 in
let oc = Out_channel.create filename in let oc = Out_channel.create filename in
fprintf oc "P3\n"; fprintf oc "P3\n";
fprintf oc "%d\n" nx; fprintf oc "%d\n" nx;