キーボード，タッチ位置判定

modules/keyboard.mod.hsp

@@ -17,7 +17,9 @@ Hide
 #defcfunc local \
 GetChar \
 		local	l_ids,\
-		local	l_touchInfo
+		local	l_touchInfo,\
+		local	l_charId,\
+		local	l_char
 	if showing = False {
 		Return ""
 	}
@@ -34,11 +36,12 @@ GetChar \
 		Return ""
 	}
 
-	NoteSel charDict
-		;text += l_
-	NoteUnsel
+	l_charId = (1080 - l_touchInfo.1) / 96 * 5 + (l_touchInfo.2 - (1920 - 480)) / 96
 
-	;text += charDict
+	NoteSel charDict@Char
+		NoteGet l_char, l_charId
+		text += l_char
+	NoteUnsel
 
 	Return ""