new post | browse code | authors | help | about

LuaBin 2.0

Viewing file root / lua / postprocess / sunbeams.lua

  1.  
  2. local _Material                 = Material( "pp/sunbeams" )
  3. _Material:SetMaterialTexture( "$fbtexture", render.GetScreenEffectTexture() )
  4.  
  5. /*---------------------------------------------------------
  6.    Register the convars that will control this effect
  7. ---------------------------------------------------------*/  
  8. local pp_sunbeams                       = CreateClientConVar( "pp_sunbeams",                            "0",            true, false )
  9. local pp_sunbeams_darken        = CreateClientConVar( "pp_sunbeams_darken",             "0.95",         false, false )
  10. local pp_sunbeams_multiply  = CreateClientConVar( "pp_sunbeams_multiply",       "1.0",          false, false )
  11. local pp_sunbeams_sunsize       = CreateClientConVar( "pp_sunbeams_sunsize",            "0.075",        false, false )
  12.  
  13.  
  14. function DrawSunbeams( darken, multiply, sunsize, sunx, suny )
  15.  
  16.         if ( !render.SupportsPixelShaders_2_0() ) then return end
  17.        
  18.         render.UpdateScreenEffectTexture()
  19.  
  20.         _Material:SetMaterialFloat( "$darken", darken )
  21.         _Material:SetMaterialFloat( "$multiply", multiply )
  22.         _Material:SetMaterialFloat( "$sunx", sunx )
  23.         _Material:SetMaterialFloat( "$suny", suny )
  24.         _Material:SetMaterialFloat( "$sunsize", sunsize )
  25.        
  26.         render.SetMaterial( _Material )
  27.         render.DrawScreenQuad()
  28.        
  29. end
  30.  
  31. local function DrawInternal()
  32.  
  33.         if ( !pp_sunbeams:GetBool() ) then return end
  34.         if ( !GAMEMODE:PostProcessPermitted( "sunbeams" ) ) then return end
  35.         if ( !render.SupportsPixelShaders_2_0() ) then return end
  36.        
  37.         local sun = util.GetSunInfo()
  38.        
  39.         if (!sun) then return end
  40.         if (sun.obstruction == 0) then return end
  41.        
  42.         local sunpos = EyePos() + sun.direction * 4096
  43.         local scrpos = sunpos:ToScreen()
  44.        
  45.         local dot = (sun.direction:Dot( EyeVector() ) - 0.8) * 5
  46.         if (dot <= 0) then return end
  47.        
  48.         DrawSunbeams( pp_sunbeams_darken:GetFloat(),
  49.                                   pp_sunbeams_multiply:GetFloat() * dot * sun.obstruction,
  50.                                   pp_sunbeams_sunsize:GetFloat(),
  51.                                   scrpos.x / ScrW(),
  52.                                   scrpos.y / ScrH()
  53.                                   );
  54.  
  55. end
  56.  
  57. hook.Add( "RenderScreenspaceEffects", "RenderSunbeams", DrawInternal )
  58.  
  59.  
  60. /*
  61. // Control Panel
  62. */
  63. local function BuildControlPanel( CPanel )
  64.  
  65.         CPanel:AddControl( "Header", { Text = "#Sun Beams", Description = "#Sun Beams" }  )
  66.         CPanel:AddControl( "CheckBox", { Label = "#Enable", Command = "pp_sunbeams" }  )
  67.        
  68.         CPanel:AddControl( "Slider", { Label = "#Multiply", Command = "pp_sunbeams_multiply", Type = "Float", Min = "0", Max = "1" }  )
  69.         CPanel:AddControl( "Slider", { Label = "#Darken", Command = "pp_sunbeams_darken", Type = "Float", Min = "0", Max = "1" }  )
  70.         CPanel:AddControl( "Slider", { Label = "#Sun Size", Command = "pp_sunbeams_sunsize", Type = "Float", Min = "0.01", Max = "0.25" }  )   
  71.  
  72. end
  73.  
  74. /*
  75. // Tool Menu
  76. */
  77. local function AddPostProcessMenu()
  78.  
  79.         spawnmenu.AddToolMenuOption( "PostProcessing", "PPShader", "SunBeams", "#Sun Beams", "", "", BuildControlPanel, { SwitchConVar = "pp_sunbeams" } )
  80.  
  81. end
  82.  
  83. hook.Add( "PopulateToolMenu", "AddPostProcessMenu_SunBeams", AddPostProcessMenu )
  84.