From 12aa60c12d13ee73ef11fc0bd82ae080f8cc3b14 Mon Sep 17 00:00:00 2001
From: otya128 <otya128@users.noreply.github.com>
Date: Sat, 10 Dec 2016 20:43:23 +0900
Subject: [PATCH] Fix Fix GCLS

---
 SMILEBASIC/graphic.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/SMILEBASIC/graphic.d b/SMILEBASIC/graphic.d
index 2064415..a858c86 100644
--- a/SMILEBASIC/graphic.d
+++ b/SMILEBASIC/graphic.d
@@ -648,7 +648,7 @@ class Graphic
     }
     void gcls(int page, uint color)
     {
-        sendDrawMessage(DrawType.FILL, cast(byte)page, 0, 0, cast(short)width, cast(short)height, color);
+        sendDrawMessage(DrawType.FILL, cast(byte)page, 0, 0, cast(short)(width - 1), cast(short)(height - 1), color);
     }
     void gpaint(int page, int x, int y, uint color)
     {