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

Replace random number generator

Browse Source
This commit is contained in:
Patrick Stevens
2021-04-17 00:18:19 +01:00
parent 1fe0847a1e
commit c8e514d7ad
12 changed files with 329 additions and 149 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
RayTracing.App/Program.fs
View File

@@ -1,5 +1,6 @@
namespace RayTracing.App
open System.IO
open RayTracing
open System.IO.Abstractions
open Spectre.Console
@@ -16,7 +17,19 @@ module Program =
let readTask = ctx.AddTask "[green]Reading in serialised pixels[/]"
let writeTask = ctx.AddTask "[green]Writing PPM file[/]"
let maxProgress, image = SampleImages.get sample renderTask.Increment
let logFile = ppmOutput.FileSystem.Path.GetTempFileName () |> ppmOutput.FileSystem.FileInfo.FromFileName
use stream = logFile.OpenWrite ()
use writer = new StreamWriter(stream)
writer.AutoFlush <- true
let lockObj = obj ()
let write (s : string) =
lock lockObj (fun () ->
writer.WriteLine s
)
printfn "Log output, if any, to '%s'" logFile.FullName
let maxProgress, image = SampleImages.get sample renderTask.Increment write
renderTask.MaxValue <- maxProgress / 1.0<progress>
writeUnorderedTask.MaxValue <- maxProgress / 1.0<progress>
readTask.MaxValue <- maxProgress / 1.0<progress>