simon/moonpool
1
0
Fork 0
mirror of https://github.com/c-cube/moonpool.git synced 2025-12-12 14:00:41 -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 Vec3
open Ray
type material = Lambertian of Vec3.vec3 (* matte surface *)
| Metal of Vec3.vec3
| DummyNone
| DummyNone (* TODO: use option type instead *)
type sphere = { center: Vec3.vec3;
radius: float;
@ -59,6 +59,7 @@ let hit_scatter rin hit_rec =
color = albedo;
scatter = (Vec3.dot scattered_ray.dir hit_rec.normal) > 0.0;} in
scattered
| DummyNone -> failwith "not a real material type"
let hit_sphere sphere ray (tmin, tmax) =
let oc = sub ray.origin sphere.center in
@ -144,7 +145,7 @@ let write_to_file filename =
let nx = 400 in
let ny = 200 in
let ns = 100 in
let ns = 60 in
let oc = Out_channel.create filename in
fprintf oc "P3\n";
fprintf oc "%d\n" nx;