Make clouds use specific upscale filter, break cloud render over walls

src/Preload/Render.hs

@@ -134,6 +134,7 @@ preloadRender = do
     alphadivideshader <- makeSourcedShader "texture2D/alphaDivide" [vert, frag]
     fsShad <- makeSourcedShader "texture/simple" [vert, frag]
     textureantiashad <- makeSourcedShader "texture/antia" [vert,frag]
+    upscalecloud <- makeSourcedShader "upscale/cloud" [vert, frag]
     bloomBlurShad <- makeSourcedShader "texture/bloomBlur" [vert, frag]
     lightingTextureShad <- makeSourcedShader "lighting/texture" [vert, frag]
     lightingCloudShad <- makeSourcedShader "lighting/cloud" [vert, frag]
@@ -201,6 +202,7 @@ preloadRender = do
             , _pullWallShader = wallpull
             , _textureAntiaShader = textureantiashad
             , _fullscreenShader = fsShad
+            , _upscaleCloudShader = upscalecloud
             , _alphaDivideShader = alphadivideshader
             , _lightingTextureShader = lightingTextureShad
             , _lightingCloudShader = lightingCloudShad