From fbda458d5c95b6bc01f7f22a829d77a4d02bce45 Mon Sep 17 00:00:00 2001
From: Miteruzo <matuda.miteruzo@gmail.com>
Date: Fri, 7 Jul 2023 00:02:48 +0900
Subject: [PATCH] =?UTF-8?q?=E3=82=AD=E3=83=BC=E3=83=9C=E3=83=BC=E3=83=89?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 main.hsp                 | 11 ++++-------
 modules/keyboard.mod.hsp | 16 ++++++++++++++--
 2 files changed, 18 insertions(+), 9 deletions(-)

diff --git a/main.hsp b/main.hsp
index 24ab00f..0cf9b15 100644
--- a/main.hsp
+++ b/main.hsp
@@ -33,6 +33,7 @@
 #include "./modules/goatoh.mod.hsp"
 #include "./modules/chat.mod.hsp"
 #include "./modules/char.mod.hsp"
+#include "./modules/keyboard.mod.hsp"
 
 
 #ifdef _DEBUG
@@ -83,6 +84,8 @@
 
 	GMode GMODE_RGB0	; アルファあり
 
+	Show@Keyboard
+
 	Pos 100, 100
 	NoteSel test
 		NoteLoad "test.txt"
@@ -96,14 +99,8 @@
 			CelPut BUFFER_BG, 0, Double (DISPLAY_HEIGHT) / 533, Double (DISPLAY_HEIGHT) / 533
 
 			Draw@Goatoh Goatoh
-
-			Pos 0, 0
-			Print StrF ("gInfo_winX: %4d", gInfo_winX)
-			Print StrF ("gInfo_winY: %4d", gInfo_winY)
-			Print StrF ("gInfo_dispX: %4d", gInfo_dispX)
-			Print StrF ("gInfo_dispY: %4d", gInfo_dispY)
-
 			Draw@Char
+			Draw@Keyboard
 		ReDraw True
 
 		Await LOOP_INTERVAL
diff --git a/modules/keyboard.mod.hsp b/modules/keyboard.mod.hsp
index 9caea73..3a78868 100644
--- a/modules/keyboard.mod.hsp
+++ b/modules/keyboard.mod.hsp
@@ -14,7 +14,7 @@ Hide
 
 	Return
 
-#deffunc local \
+#defcfunc local \
 GetChar
 	if showing = False {
 		Return ""
@@ -26,7 +26,19 @@ GetChar
 
 #deffunc local \
 Draw
-	
+	If showing = False {
+		Return
+	}
+
+	Color COLOUR_BLACK
+	BoxF 0, 1920 - 480, 1080, 1920
+
+	Repeat 50
+		Pos 1080 - 96 * (cnt / 5 + 1), 1920 - 480 + 96 * (cnt \ 5)
+		CelPut BUFFER_CHAR, cnt, 3, 3
+	Loop
+
+	Return
 
 #global