Changeset 494 for GraphicTest/Packages/bgrabitmap/phonglight.inc

Timestamp:

Dec 22, 2016, 8:49:19 PM (8 years ago)

Author:

chronos

Message:

• Modified: Updated BGRABitmap package.

File:

• GraphicTest/Packages/bgrabitmap/phonglight.inc (modified) (3 diffs)

GraphicTest/Packages/bgrabitmap/phonglight.inc

@@ -2 +2 @@
 var
   {%H-}dist2,LdotN,NdotH,lightEnergy,diffuse : single;
-const
-  minus_05 = -0.5;
 begin
   {$IFDEF BGRASSE_AVAILABLE}If UseSSE then
@@ -45 +43 @@
   end;
 
-  if LdotN < minus_05 then NdotH := 0 else
-  if LdotN < 0 then
-  begin
-    NdotH := NdotH*(LdotN-minus_05);
-    NdotH += NdotH;
-  end;
-
   {$IFDEF PARAM_POINTLIGHT}
   if dist2 = 0 then
@@ -62 +53 @@
   diffuse := LdotN;
   {$ENDIF}
+  if diffuse < FMinIntensity then diffuse:= FMinIntensity;
 
   if Context^.LightThrough and (diffuse < 0) then diffuse := -diffuse*Context^.LightThroughFactor;