キーボード

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

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