Change to SF::Http in Shader example

Author: oprypin

examples/README.md

@@ -64,6 +64,7 @@ Parts of the Shader example [from SFML][shader]
     - Load from file
     - Set arguments
     - Apply
+- HTTP GET request
 
 ### [shapes](shapes.cr)
 

examples/shader.cr

@@ -1,20 +1,25 @@
 # Adapted from SFML Shader example
 # https://github.com/LaurentGomila/SFML/blob/master/examples/shader/Shader.cpp
 
-require "http/client"
 require "crsfml"
-
-
-scene = rand(2)
+require "crsfml/network"
 
 
 texture = SF::Texture.from_file("resources/background.jpg")
 sprite = SF::Sprite.new(texture)
 px_shader = SF::Shader.from_file("resources/shaders/pixelate.frag", SF::Shader::Fragment)
 px_shader.set_parameter "texture", SF::Shader::CurrentTexture
 
+http = SF::Http.new("http://loripsum.net")
+response = http.send_request(SF::HttpRequest.new("/api/12/short/plaintext"))
+
+if response.status == SF::HttpResponse::Ok
+  ipsum = response.body
+else
+  ipsum = "Couldn't download sample text."
+end
+
 
-ipsum = HTTP::Client.get("http://loripsum.net/api/12/short/plaintext").body
 font = SF::Font.from_file("resources/font/Ubuntu-R.ttf")
 text = SF::Text.new(ipsum, font, 22)
 text.position = {30, 20}
@@ -25,6 +30,8 @@ wb_shader = SF::Shader.from_file("resources/shaders/wave.vert", "resources/shade
 window = SF::RenderWindow.new(SF.video_mode(800, 600), "SFML Shader", SF::Titlebar|SF::Close)
 window.vertical_sync_enabled = true
 
+scene = rand(2)
+
 clock = SF::Clock.new()
 while window.open?
   while event = window.poll_event()