From 10370eabf97f0737d6c32965e745baed6932eac7 Mon Sep 17 00:00:00 2001
From: "Matthias P. Braendli" <matthias.braendli@mpb.li>
Date: Tue, 3 Dec 2013 21:42:41 +0100
Subject: sky continuous green

---
 raytracer.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/raytracer.hs b/raytracer.hs
index 88b66ae..fa960f8 100644
--- a/raytracer.hs
+++ b/raytracer.hs
@@ -50,7 +50,7 @@ main = mapM writenum spherepos
 alpha1 = 100 * degrees
 alpha2 = 0 * degrees
 
-beta1 = 70 * degrees
+beta1 = 65 * degrees
 beta2 = 120 * degrees
 
 floorscale = 4
@@ -198,8 +198,9 @@ intersect_floor source (alpha, beta)
 skycolor :: Coord -> Direction -> Color
 skycolor source (alpha, beta) = (r,g,b)
             where   r = 60
-                    g = max 0 $ round $ (sqrt (alpha/6)) / (sqrt (90 * degrees)) * 128
+                    g = max 0 $ round $ (sqrt (greenness/2)) * 64
                     b = max 0 $ round $ (sqrt (-beta+90*degrees)) / (sqrt (90 * degrees)) * 255
+                    greenness = cos (alpha) + 1
 
 data SphereIntersect = SphereIntersect Double Color deriving (Eq, Show) -- distance color
 instance Ord SphereIntersect where
-- 
cgit v1.2.3