From 5cefdc26b0654c495ceefa1f3eca314140a72c86 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Mon, 6 Jul 2015 23:09:15 +0900
Subject: [PATCH] =?UTF-8?q?window=E3=82=92=E5=87=BA=E3=81=99=E3=82=88?=
 =?UTF-8?q?=E3=81=86=E3=81=AB=E3=81=97=E3=81=9F?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 SMILEBASIC/main.d          |  3 +++
 SMILEBASIC/petitcomputer.d | 28 ++++++++++++++++++++++++++++
 2 files changed, 31 insertions(+)

diff --git a/SMILEBASIC/main.d b/SMILEBASIC/main.d
index 8e230eb..d7f8b08 100644
--- a/SMILEBASIC/main.d
+++ b/SMILEBASIC/main.d
@@ -4,6 +4,7 @@ import std.conv;
 import std.file;
 import otya.smilebasic.parser;
 import otya.smilebasic.error;
+import otya.smilebasic.petitcomputer;
 int main(string[] argv)
 {
     version(none)
@@ -119,6 +120,8 @@ END
     {
         writeln(t);
     }
+    auto pc = new PetitComputer();
+    pc.run();
     readln();
     return 0;
 }
diff --git a/SMILEBASIC/petitcomputer.d b/SMILEBASIC/petitcomputer.d
index dcdbfef..b8dc7a5 100644
--- a/SMILEBASIC/petitcomputer.d
+++ b/SMILEBASIC/petitcomputer.d
@@ -3,7 +3,35 @@ import derelict.sdl2.sdl;
 class PetitComputer
 {
     this()
+    {
+    }
+    void run()
     {
         DerelictSDL2.load();
+        SDL_Init(SDL_INIT_VIDEO);
+        SDL_Window* window = SDL_CreateWindow("SMILEBASIC", SDL_WINDOWPOS_UNDEFINED,
+                                              SDL_WINDOWPOS_UNDEFINED, 400, 240,
+                                              SDL_WINDOW_SHOWN);
+        SDL_Renderer* renderer = SDL_CreateRenderer(window, -1, 0);
+        while (true)
+        {
+            SDL_Event event;
+            SDL_SetRenderDrawColor(renderer, 0, 0, 0, 255);
+            SDL_RenderClear(renderer);
+            SDL_RenderPresent(renderer);
+            while (SDL_PollEvent(&event))
+            {
+                switch (event.type)
+                {
+                    case SDL_KEYDOWN,SDL_QUIT:
+                        return;
+
+                    default:
+                        break;
+                }
+            }
+        }
+        SDL_DestroyWindow(window);
+        SDL_Quit();
     }
 }
\ No newline at end of file