これはtcode.stからstroke dictを生成するperl scriptです. 
　stroke dictは 漢字の読み からstrokeを調べるのに少なくとも
そこそこという程度には便利なtext fileです. text editorの
別windowなり紙なりで参照される事を想定しています. 

　このscriptのtestはHuman68k (shift-jis, crlf環境) 上で
fish.x (tcshに似ているらしいshell) とjperl (v4とv5) と
tcode for Human68k (Kaoru Maeda氏
	http://www.cc.rim.or.jp/~midorin/mad-p/

作) 付属のtcode.stを使ってのみ行われました. 

　漢字が読み方順に配置されていないjp-code環境ではsortは
読み方順にはされない可能性があります. 


　使い方は
	st tcode.st >st.tcode

という具合です. perlが``.pl''で終わらないfile nameのscript
を受け付けてくれない場合はscriptをrenameするなりして使って
下さい. 


　出力file中のdefaultの座標表現は
	R02L23

という具合で, これはquertyなkey boradでの場合
	1打鍵目	h
	2打鍵目	c

を表し, 因みにこの場合に入力される字は``だ''です. 要するに
この表記は
	``左手か右手か''
	``片手毎のareaの左奥から0, 1, 2,,,,とxyの順で数えた値''

を並べた物です (左右の手で互いに反転したx座標で表現すべき
だろうか) . 
　``L'' ``R'' は小文字の方が見易いと思いますが editorで置換
すればいいや, という怠けから大文字小文字変換は行っていません. 
　また, 各値の間にspaceなりを入れるべきかとも思いましたが
座標dataを1文字ずつ頭に取り込むより, 一気に取り込む方が
低level (心をsystemとして捉えた場合の表現) での処理がし易い
だろうという 言うなればtcodeのpolicyにも則った理由から
後者を実現し易いと思える現在のformatにしてあります. 

　こうなると, ある漢字とそのstrokeの座標dataとの間の文字も
tabよりspaceなりにすべきかという気もしますが``目的の漢字を
目視scanし易い方が良い''という要求とのbalanceを私なりにとった
結果が tabの採用です. この辺りについては (も) あなたが
使いやすいformatに自由に変更して下さい. 


　私はこのscriptを書いた張本人ではありますが, text経由の
座標記憶構築は (tcode-mlでしばしば話題になる通り) 少なくとも
tcodeのpolicyにはbest matchしていないとは思います (例え
それが一時的な物であり, tcodeの習得に伴って その
``神経細胞のlink''が減衰していく事が確実だとしても) . 
　ただ, 本来そうあるべきとも思えるbitmap経由の ---私の環境
に於いていつ実現できるか見通しが立たない--- 座標記憶構築に
拘って, tcodeの習得 (の開始) が年単位で遅れるという事態は
避けたかったのです. 

#.  ....いや, 心の最下層辺り, image認識部よりも更に下の層に
  ``text解釈engine''を構築できればいいのかな. ヒトになら
   ---或いはchimpanzee等でも言語を習得した個体つまり``人間''
  にならヒトに限らず--- もしかしたらそれが可能かも知れないと
  いう気はします. 




history
	1.00
		  おまけとして, index付加等 (手作業で) 済み
		出力file``st.tcode''等を同梱. 

	1.01
		Fixed this bug. 
			 Out put ``y position of stroke of 
			a part of keys'' are -1 than exactly 
			number. 
		;It is from logic miss. I polished up the 
		logic to more beautiful. This logic never 
		made same miss. 

		同梱 (added) file: 
			print用 dict (2 page分. marginは 
			not enough. ``l13r13'' --> ``13ac'') . 

			script for convert 
			上記の ``l13r13'' --> ``13ac''. 


		Next version で導入予定の物: 
			左右の手で互いに反転したx座標での表現. 

			script for 整形済な``1.00 bug''あり
			dict へのpatch. 

--
Seisei Yamaguchi (name( first( 青星 ), last( 山口 ) )) 
http://spock.vector.co.jp/authors/VA010205/
seisei@usa.net	bbs://+081-(0)52-805-8392
	Text imparts all
	Please correct the errors
	This message is copylefted (see GPL)
	68 lovers capable