--- a/samples/sdl.tp	Sun Jul 20 12:48:37 2014 -0700
+++ b/samples/sdl.tp	Sun Jul 20 17:30:46 2014 -0700
@@ -6,7 +6,15 @@
 	main <- {
 		if: (sdl init: (video or timer)) = 0 {
 			(sdl createWindow: "SDL Test" pos: 0 0 size: 640 480 flags: 0u32) value: :window {
-				sdl delay: 3000u32
+				(window createRenderer: -1 flags: ((window renderOpts) accelerated)) value: :render {
+					render drawColor!: (sdl r: 0u8 g: 0u8 b: 255u8)
+					render clear
+					render present
+					sdl delay: 3000u32
+					render destroy
+				} none: {
+					print: "Failed to create renderer\n"
+				}
 				window destroy
 			} none: {
 				print: "Failed to create window\n"
@@ -17,4 +25,4 @@
 			1
 		}
 	}
-}
\ No newline at end of file
+}