#defcfunc の中では，ほかの #defcfunc で宣言された関数を利用できなぃらしぃ．

assets/dict.dat

@@ -1,90 +1 @@
-あ
+あいうえおかきくけこさしすせそたちつてとなにぬねのはひふへほまみむめもや（ゆ）よらりるれろわゐーゑをん！？・…がぎぐげござじずぜぞだぢづでどばびぶべぼぱぴぷぺぽぁぃぅぇぉゃ，ゅ．ょ
-い
-う
-え
-お
-か
-き
-く
-け
-こ
-さ
-し
-す
-せ
-そ
-た
-ち
-つ
-て
-と
-な
-に
-ぬ
-ね
-の
-は
-ひ
-ふ
-へ
-ほ
-ま
-み
-む
-め
-も
-や
-（
-ゆ
-）
-よ
-ら
-り
-る
-れ
-ろ
-わ
-ゐ
-ー
-ゑ
-を
-ん
-！
-？
-・
-…
-が
-ぎ
-ぐ
-げ
-ご
-ざ
-じ
-ず
-ぜ
-ぞ
-だ
-ぢ
-づ
-で
-ど
-ば
-び
-ぶ
-べ
-ぼ
-ぱ
-ぴ
-ぷ
-ぺ
-ぽ
-ぁ
-ぃ
-ぅ
-ぇ
-ぉ
-ゃ
-，
-ゅ
-．
-ょ

main.hsp

@@ -43,6 +43,8 @@
 	ChDir "assets"
 #endif	; not _DEBUG
 
+	Font MSGOTHIC, 96
+
 	ViewCalc VPTYPE_2D, Double (gInfo_winX) / DISPLAY_WIDTH, Double (gInfo_winY) / DISPLAY_HEIGHT
 
 	; 背景
@@ -87,10 +89,7 @@
 	Show@Keyboard
 
 	Pos 100, 100
-	NoteSel test
+	Text = New@Char ("")
-		NoteLoad "test.txt"
-	NoteUnsel
-	Text = New@Char (test)
 	size@Char.Text = 240
 
 	Repeat
@@ -101,6 +100,9 @@
 			Draw@Goatoh Goatoh
 			Draw@Char
 			Draw@Keyboard
+
+			a = GetChar@Keyboard ()
+			text@Char.Text = text@Keyboard
 		ReDraw True
 
 		Await LOOP_INTERVAL

modules/char.mod.hsp

@@ -8,9 +8,10 @@ Char
 New \
 		str	p_text
 	If insNum <= 0 {
-		NoteSel charDict
+		SDim charDict, 384
-			NoteLoad "dict.dat"
+		SDim text, 1024
-		NoteUnsel
+
+		BLoad "dict.dat", charDict
 	}
 
 	text.insNum = p_text
@@ -34,31 +35,68 @@ Destroy \
 
 #deffunc local \
 Draw \
-		local	cnt_,\
+		local	l_cnt,\
-		local	found,\
+		local	l_found
-		local	zoom
 	Repeat insNum
 		If exists.cnt {
-			cnt_ = cnt
+			l_cnt = cnt
 
-			NoteSel charDict
+			Repeat StrLen (text.l_cnt) / 3
-				Repeat StrLen (text.cnt_) / 3
+				l_found = MyInStr (charDict, 0, StrMid (text.l_cnt, cnt * 3, 3)) / 3
-					Pos posX.cnt_ + cnt * size.cnt_, posY.cnt_
 
-					found = NoteFind (StrMid (text.cnt_, cnt * 3, 3))
+				If darw_found < 0 {
+					l_found = UNKNOWN
+				}
 
-					If found = -1 {
+				Pos posX.l_cnt + cnt * size.l_cnt, posY.l_cnt
-						found = UNKNOWN
+				l_zoom = Double (size.l_cnt) / CHAR_WIDTH
-					}
+				CelPut BUFFER_CHAR, l_found, l_zoom, l_zoom
-
+			Loop
-					zoom = Double (size.cnt_) / CHAR_WIDTH
-					CelPut BUFFER_CHAR, found, zoom, zoom
-				Loop
-			NoteUnsel
 		}
 	Loop
 
 	Return
 
+#defcfunc local \
+MyInStr \
+		str	p_haystack,\
+		int	p_offset,\
+		str	p_needle
+	myInStr_haystack = p_haystack
+
+	myInStr_flag = True
+
+	Repeat StrLen (myInStr_haystack) / 3
+		SDim myInStr_work, 3
+		myInStr_cnt = cnt
+		Repeat 3
+			Poke myInStr_work, cnt, Peek (myInStr_haystack, myInStr_cnt * 3 + cnt)
+		Loop
+
+		If myInStr_work = p_needle {
+			myInStr_flag = False
+
+			Break
+		}
+	Loop
+
+	If myInStr_flag {
+		Return -1
+	}
+
+	Return myInStr_cnt * 3
+
+#defcfunc local \
+MyStrMid \
+		str	p_string,\
+		int	p_offset,\
+		int	p_length,\
+		int	p_test
+	myStrMid_string = p_string
+
+	SDim myStrMid_return, p_length
+
+	Return myStrMid_return
+
 #global
 

modules/keyboard.mod.hsp

@@ -15,33 +15,37 @@ Hide
 	Return
 
 #defcfunc local \
-GetChar \
+GetChar
-		local	l_ids,\
-		local	l_touchInfo,\
-		local	l_charId,\
-		local	l_char
 	if showing = False {
 		Return ""
 	}
 
-	MTList l_id
+	MTList getChar_id
 
 	If stat = 0 {
+		touching = False
+
 		Return ""
 	}
 
-	MTInfo l_touchInfo, l_id.0
+	If touching {
-
-	If l_touchInfo.2 < 1920 - 480 {
 		Return ""
 	}
 
-	l_charId = (1080 - l_touchInfo.1) / 96 * 5 + (l_touchInfo.2 - (1920 - 480)) / 96
+	MTInfo getChar_touchInfo, getChar_id.0
 
-	NoteSel charDict@Char
+	If getChar_touchInfo.2 < 1920 - 480 {
-		NoteGet l_char, l_charId
+		Return ""
-		text += l_char
+	}
-	NoteUnsel
+
+	getChar_charId = (1080 - getChar_touchInfo.1) / 96 * 5 + (getChar_touchInfo.2 - (1920 - 480)) / 96
+	getChar_textLength = StrLen (text)
+
+	Repeat 3
+		Poke text, getChar_textLength + cnt, Peek (charDict@Char, getChar_charId * 3 + cnt)
+	Loop
+
+	touching = True
 
 	Return ""