Skip to content

Commit

Permalink
demo
Browse files Browse the repository at this point in the history
  • Loading branch information
aszabo314 committed Dec 18, 2023
1 parent 1b32600 commit d131181
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/Apps/ScratchFSharp/Program.fs
Original file line number Diff line number Diff line change
Expand Up @@ -23,7 +23,7 @@ module Bla =



let storePath = @"C:\bla\stores\test\data.uds"
let storePath = @"C:\bla\store\teststore2\data.uds"
let key = "3d9654b1-c37a-4d41-ba83-393d58a9bdce"

let rnd = RandomSystem()
Expand All @@ -36,7 +36,7 @@ module Bla =
let dTheta = 1.1 * Constant.RadiansPerDegree
let ps = System.Collections.Generic.List()
while phi < Constant.PiTimesTwo do
theta <- 0.0
theta <- dTheta
while theta < Constant.PiTimesTwo do
let d = V2d(phi,theta).CartesianFromSpherical()
let r = Ray3d(loc+999.0*d,-d)
Expand Down

0 comments on commit d131181

Please sign in to comment.