kansi_valid 0.0.7

data/lib/kansi_valid/_3ren.rb

@@ -0,0 +1,22 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #下三連禁。trueがOKということ
+  def _3ren(a)
+    bool=false
+    0.upto(3) do |x|
+      bool=bool ||
+      ((a[x][-1].include?("○")||(a[x][-1].include?("◇")) && x!=2)&&
+      a[x][-3].include?("○")&&
+      a[x][-5].include?("○"))||
+      (a[x][-1].include?("●")&&
+      a[x][-3].include?("●")&&
+      a[x][-5].include?("●"))
+    end
+    return !bool
+  end
+end
+
+#if $0==__FILE__
+#end

data/lib/kansi_valid/be_hyo.rb

@@ -0,0 +1,15 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #○平であることにtrue
+  #参照
+  #hyosoku,be_soku
+  def be_hyo(ji)
+    #puts Kconv.tosjis ji
+    ji.include?("○") or ji.include?("◇")
+  end
+end
+
+#if $0==__FILE__
+#end

data/lib/kansi_valid/be_soku.rb

@@ -0,0 +1,15 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  # ●仄であることにtrue
+  #参照
+  #hyosoku,be_hyo
+  def be_soku(ji)
+    #puts Kconv.tosjis ji
+    ji.include?("●") or ji.include?("◇")
+  end
+end
+
+#if $0==__FILE__
+#end

data/lib/kansi_valid/bouin.rb

@@ -0,0 +1,38 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #冒韻を調べる。trueがOKということ。
+  #bouin(poem_string(詩),zekku=(5or7),ouIn=(ex."東"))
+  def bouin(a,zekku,ouIn)
+  #（押韻）の数を引き算で調べる
+    _in=a.flatten.size-((a.flatten-[ouIn]).size)# =>2,3,4など
+    if zekku==5
+      if _in==2
+        #五言絶句の通常の韻の数==2
+        return true
+      elsif _in==3
+        #五言絶句で、第一句が韻ならOK（==3）
+        if a[0][8]==ouIn
+          return true
+        else 
+          return false
+        end
+      else
+        #五言のそれ以外は冒韻またはエラー
+        return false
+      end
+    elsif zekku==7
+      if _in==3 or (_in==2 && a[0][12]!=ouIn)
+        return true
+      else
+        #それ以外はエラー
+        return false
+      end
+    else
+      #絶句にあてはまらないものはnil
+      return nil
+    end
+    nil#どれにもあてはまらない（？？）
+  end
+end

data/lib/kansi_valid/check_okosi.rb

@@ -0,0 +1,13 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #起式のチェック(２番目文字の平仄記号を返す)
+  def check_okosi(kekka)
+
+    kekka.encode("utf-8") unless RUBY_VERSION < "1.9.0"
+
+    x=kekka.split(//)
+    return x[3]# =>○●、■◇？など
+  end
+end

data/lib/kansi_valid/check_ouin.rb

@@ -0,0 +1,17 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #漢詩４句の最後の語句ex."青○隊●遇●東◇元○"の最後の'元'を取り出す。
+  def check_ouin(kekka)
+
+    array=kekka.split(/\n/)# =>四句のリスト
+    
+    if RUBY_VERSION < "1.9.0"
+      return array[3].chomp.split(//)[-2]# =>'元'
+    else
+      x=array[3].split(//)
+      return x[((x.size)/2-1)*2]# =>'元'
+    end
+  end
+end

data/lib/kansi_valid/check_ryouin.rb

@@ -0,0 +1,47 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  def check_ryouin_table(kansi)
+    #ex.
+    #kansi="妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門"
+    kekka=""
+    kansi.split(//).each do |ji|
+      begin
+        a=Dic[ji]
+        if a[4]#=="◇"
+          kekka+="<tr><td>"+ji+"</td><td>"+a[4]+"</td><td>"+a[5]+"</td><td>"+a[7]+"</td><td>"+a[8]+"</td><td>"+a[10]+"</td></tr>\n"
+        end
+      rescue
+        kekka+="\n"
+        next
+      end
+    end
+    return kekka
+  end
+  def check_ryouin(kansi)
+    #ex.
+    #kansi="妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門"
+    kekka=""
+    kansi.split(//).each do |ji|
+      begin
+        a=Dic[ji]
+        if a[4]#=="◇"
+          kekka+=ji+":"+a[4]+":"+a[5]+":"+a[7]+":"+a[8]+":"+a[10]+"\n"
+        end
+      rescue
+        kekka+="\n"
+        next
+      end
+    end
+    return kekka
+  end
+end
+
+
+if $0==__FILE__
+require 'kansi_valid'
+require 'kconv'
+include Kansi_valid
+print Kconv.tosjis check_ryouin("妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門")
+end

data/lib/kansi_valid/check_tuuin.rb

@@ -0,0 +1,30 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #通韻のチェック
+  def check_tuuin(a,zekku,ouIn)
+    #print a
+    #print zekku
+    #print ouIn
+    if zekku!=nil
+      #七言絶句
+      if zekku==7
+        #p ouIn
+        #p a[0][12]
+        return (ouIn==a[0][12] && ouIn==a[1][12] && ouIn==a[3][12])
+      #五言絶句
+      elsif zekku==5
+        #p ouIn
+        #p a[1][8]
+        return (ouIn==a[1][8] && ouIn==a[3][8] && (ouIn==a[0][8]) or be_soku(a[0][9]))
+      #その他(false)
+      else
+        return false
+      end
+    else
+      return false
+    end
+    false
+  end
+end

data/lib/kansi_valid/check_zekku.rb

@@ -0,0 +1,23 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function  
+  #五言なら5、七言なら7、それ以外nil
+  def check_zekku(kekka)
+
+    if RUBY_VERSION < "1.9.0"
+      check=kekka.split(/\n/)[0].size/3
+    else
+      check=kekka.split(/\n/)[0].size
+    end
+    
+    if check==7
+      zekku=7
+    elsif check==5
+      zekku=5
+    else
+      zekku=nil
+    end
+    zekku
+  end
+end

data/lib/kansi_valid/hyousoku.rb

@@ -0,0 +1,46 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  #            str =  "a妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門"
+  # hyousoku(str)# => "？a嘯●麻○文○炎●屋●庚○元○
+  #                    陽○職●真○東◇質●質●元○
+  #                    問●屋●真○寒◇寒○薬●宋●
+  #                    問●侵○青○隊●遇●東◇元○"
+  def hyousoku(str)
+    kekka=""
+
+    str.encode("utf-8") unless RUBY_VERSION < "1.9.0"
+
+    str.split(//).each do |moji|
+      #p moji
+      result=Dic[moji]#dic_file="kanji_utf8.txt" array or nil
+      case result
+      when nil
+        if moji=~/\s/
+          plus=moji#改行などはそのまま返す
+        else
+          plus="？"+moji#空白以外で変換できなかったnil
+        end
+      else
+        begin
+          plus=result[5].split(//).last+result[4]#辞書データ（韻、平仄○●）の出力
+        rescue
+          plus="？"+moji#国字、ひらがななど（辞書に載っていて平仄のないもの）
+        end
+      end
+      kekka+=plus
+      #p result[4]
+      #p result[5]
+    end
+    kekka
+  end
+end
+
+#if $0==__FILE__
+#require "kansi_valid"
+#require "kconv"
+#include Kansi_valid
+#print Kconv.tosjis(hyousoku(str="a妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門"))
+
+#end

data/lib/kansi_valid/inji.rb

@@ -0,0 +1,65 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+# 平韻の３０種の配列
+def inji
+str=["東翁窮宮弓攻洪功公工紅鴻終充戎崇聡叢衷沖忠虫通筒桐瞳銅同童風楓豊蓬蒙朦濛雄熊融隆朧瓏空虹中凍夢滝籠",
+"冬凶恭胸宗鐘松衝鍾憧農濃封峰逢蜂烽容蓉竜供従縦重縫溶",
+"江釭缸腔双窓撞邦双降淙滝",
+"支医移萎惟帷危奇飢期規旗肌姫基窺其岐嬉羇欺犠疑儀宜資師詩肢脂糸枝詞芝姿諮雌私獅之匙屍祠巵而慈辞時児持炊垂錐誰衰随笞池知痴馳追碑卑悲皮疲眉琵唯離罹梨籬為遺涯机騎崎差思司治推吹施遅累",
+"微威囲違依祈帰輝希機揮稀譏磯饑非妃肥扉飛霏緋衣幾崎誹",
+"魚於居虚裾渠墟漁初書諸舒如徐除疎儲余餘廬驢嘘車且与誉予",
+"虞烏迂区駒倶愚隅枯孤湖弧呼胡姑糊壺娯吾拘朱株殊珠濡需儒須図枢趨粗租蘇廚誅徒途都塗屠奴符夫敷扶膚無模輸愉諛炉蘆悪汚駆舗摸",
+"斉携渓鶏閨畦蹊谿袿西淒悽栖臍棲凄啼梯提堤低批迷稽妻題締泥",
+"佳鞋諧偕階懐皆街骸崖斎釵排俳牌埋淮蛙蝸涯柴",
+"灰哀埃開廻徊該孩才裁催災猜纔哉材財胎頽苔台杯盃梅媒煤枚雷来魁隈栽推駘堆培",
+"真姻因均巾銀春純旬遵循巡醇淳馴臣紳新親唇神薪津辛伸呻身申辰晨脣仁人塵珍賓頻浜貧民罠隣倫輪燐鱗諄振娠陳",
+"文慇雲耘云斤欣芹筋勤懃勲薫君裙醺燻軍群雰墳紛焚氛蚊紋分聞",
+"元猿園寃援温恩垣軒腱喧言原源昆昏痕坤婚魂根尊樽村存屯豚呑藩繁幡蕃煩番奔翻盆門渾孫噴論",
+"寒安鞍刊奸竿肝官韓寛干完歓丸酸餐残丹灘箪端壇檀団般搬磐盤饅欄蘭闌乾冠棺観看歎嘆単弾難漫瀾",
+"刪関閑環姦艱菅顔頑山班攀蛮湾間還",
+"先煙沿鉛延筵淵円鳶懸賢肩堅権虔拳玄弦舷絃栓泉遷川銭千宣仙船詮箋蝉煎専穿然全前天巓田年燃辺編偏篇翩鞭眠綿連蓮聯漣憐咽縁乾県圏研鮮扇旋禅伝便",
+"蕭橋嬌驕梟昭消焦招宵蕉椒樵条饒朝潮跳凋超彫蜩標瓢飄描苗猫謡窯腰揺遙妖寮聊遼寥焼調挑漂要夭僚料",
+"肴郊交敲哮抄梢巣嘲胞泡包咆庖抛茅教咬",
+"豪高尻毫濠曹遭槽艘掻糟繰騒刀陶逃桃淘濤萄褒毛牢号操労",
+"歌阿科渦河靴何苛渦訛俄蛾唆娑多他波婆摩魔羅倭荷過蓑蛇駄那頗磨和",
+"麻鴉家加華花瓜蝦嘉霞芽牙誇査些砂裟沙紗遮斜奢邪茶耶巴琶爺窪差涯蝸蛙車蛇",
+"陽央狂航荒慌皇香黄綱鋼光康昂岡篁徨杭剛粧商章彰昌傷詳祥床牀嘗翔廂裳墻薔嬢常場娘荘倉桑霜装蒼箱腸糖唐塘堂芳方坊肪忙亡房防茫揚楊羊洋涼良糧郎廊狼王強郷慶行将償障相喪創蔵長張当湯彷傍望妨忘量浪",
+"庚営栄英盈桜驚京卿兄傾軽茎鯨坑耕宏衡晶城情精牲清声成生晴誠征甥偵貞呈程坪兵平萌棚明盟名鳴盲横頃頸迎行更請盛正争丁評膨令",
+"青刑型形蛍馨星庁亭停庭廷汀寧瓶屏銘冥鈴霊齢伶玲零経醒聴丁町釘",
+"蒸鷹恒承昇升縄丞仍層僧曽憎懲徴澄謄灯騰登藤氷憑崩朋鵬薨蠅陵稜綾応興矜凝称勝乗烝増能",
+"尤鴎謳丘球求休鳩仇裘毬牛侯猴喉鉤溝週秋愁修収州酋羞洲囚舟周酬讐蒐柔揉捜抽儔疇兜頭投浮謀矛眸油郵遊憂幽優悠猶由游偸硫流留瑠榴楼欧蹂不瘤",
+"侵陰音淫襟金琴禽欽衾衿襟岑檎擒吟今心深森斟箴鍼簪尋沈砧臨林淋琳霖禁浸針任妊",
+"覃庵甘堪柑酣含参慚慙潭譚耽痰男談貪曇南楠壜嵐藍三函担探擔",
+"塩檐淹嫌謙兼厳尖繊籤瞻髯添霑粘廉簾鎌炎占潜",
+"咸銜鹹緘岩巌杉衫凡鑑函監讒帆"
+]
+end
+end
+
+if $0==__FILE__
+  include Kansi_valid
+  require 'kconv'
+  num=0
+  xx=0
+  str=inji
+  open("inji.txt","w") do |io|
+    str.each do |moji|
+      x=moji.split(//).size
+      num+=x
+      #p x
+      xx+=1
+        if xx < 16
+        yy=xx
+        else
+        yy=xx-15
+        end
+      y=yy.to_s+moji.split(//).first
+        io.puts y
+        io.puts moji
+        io.puts hyosoku(moji)
+    end
+  end
+  p num
+end

data/lib/kansi_valid/kanji.rb

@@ -0,0 +1,18 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  def kanji(dic_file=File.dirname(__FILE__)+"/../../dic/dic.txt")
+      #辞書ハッシュの初期化
+      dic={}
+      #辞書の読みこみ
+      data=File.read(dic_file)
+      #辞書ハッシュの登録
+      data.each_line do |list|
+        data=list.chomp.split(/;/)
+        dic[data[0]]=data
+      end
+    return dic
+  end
+  module_function:kanji
+end

data/lib/kansi_valid/kansi_analyze.rb

@@ -0,0 +1,16 @@
+# codong:utf-8
+
+module Kansi_valid
+module_function
+  
+  def kansi_analyze(kekka)
+      a=[]
+      x=kekka.split(/\n/)
+      x.each do |str|
+        b=str.chomp.split(//)
+        #p b.size #14 or 10
+        a << b
+      end
+    return a
+  end
+end

data/lib/kansi_valid/kansi_comment.rb

@@ -0,0 +1,23 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+  # コメント分の切り出し（#で始まる行）
+  #   ex.  str="#komento\n妙花薫染宿平原\n常國春風日日温\n訓読真看般若頌\n問尋経内悟空門\n\n"
+  #          =>"#komento\n"
+  def kansi_comment(str)
+    kekka=""
+    str.split(/\n/).each do |x|
+      #p x
+      #kekka+= x
+      if x.split(//).first=='#'
+        kekka+=x
+      else
+      end
+    end
+    kekka  # =>"#komento\n"
+  end
+end
+
+#if $0==__FILE__
+#end

data/lib/kansi_valid/kansi_generate.rb

@@ -0,0 +1,387 @@
+# coding:utf-8
+
+module Kansi_valid
+module_function
+=begin
+kansi_generate(zekku=7,keyword=["康","鳳祥"],ouin=nil)# =>"漢詩"
+漢詩の遊び生成プログラム
+*キーワードを指定すると、それをいれてくれる
+*あとはランダムに生成（意味は無視）
+*作ったものをいじって漢詩も再生成可能
+
+===まずは簡易版
+*準備
+**韻をリストアップしておく
+**常用漢字を調べるjouyou_kanji.txt
+**韻字をランダムに選択する(韻３個または２個)
+**平起または仄起をランダムに選択# =>規格が決定される（平X個、仄X個）
+**先のキーワードを入れる
+**残りの字をランダムに抜き取る
+**これで準備完了
+*リストからランダムに選び出す
+**選んだ字を当てはめる
+**残りをランダムに作成する。
+=end
+
+
+  def kansi_generate(zekku=7,keyword=[],ouin_=nil)
+#p zekku
+#p keyword
+#p ouin_
+
+#**韻をリストアップしておく
+#puts list.size#30
+
+#**常用漢字を調べる
+    jouyou_kanji=Jouyou
+#puts randsize=jouyou_kanji.size#1945
+#puts jouyou_kanji[rand(randsize)]
+
+#**韻字をランダムに選択する
+#**決まっているときはそれを選択
+ouin=""
+  begin
+    if  ouin_!=nil
+      #inji==韻リスト（30平韻の配列）
+      inji.each do |ji|
+        #p ji
+        if ji.include?(ouin_)
+          ouin =ji.split(//)
+          break
+        end
+      end
+    else
+      ouin=inji[rand(30)].split(//)
+    end
+#  rescue
+#    ouin_=nil
+#    retry
+  end
+  
+
+jouyou_kanji=jouyou_kanji-ouin #韻を候補から削除
+inn=pick(ouin,3)[0]
+
+#**平起または仄起をランダムに選択# =>規格が決定される（平X個、仄X個）
+
+#x,y=put_char("○",[jouyou_kanji,inn])
+
+list=[jouyou_kanji,inn]
+
+#main program
+hyo_7=["◇○◇●●○◎
+◇●◇○○●◎
+◇●◇○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●○○◇●◎
+◇●◇○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●◇○○●◎
+◇●○○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●◇○○●◎
+◇●○○●○●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●○○◇●◎
+◇●○○●○●
+◇○◇●●○◎"]
+
+soku_7=[
+"◇●○○◇●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●○○◇●◎",
+"◇●◇○○●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●○○◇●◎",
+"◇●○○◇●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●◇○○●◎",
+"◇●◇○○●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●◇○○●◎"]
+
+hyo_5=[
+"◇○○●◎\n◇●●○◎\n◇●●○●\n◇○○●◎",
+"◇○○●◎\n◇●●○◎\n◇●●○●\n○○●●◎",
+"◇○○●◎\n◇●●○◎\n◇●◇○●\n◇○○●◎",
+"◇○○●◎\n◇●●○◎\n◇●◇○●\n○○◇●◎",
+"◇○○●●\n◇●●○◎\n◇●●○●\n◇○○●◎",
+"◇○○●●\n◇●●○◎\n◇●●○●\n○○●●◎",
+"◇○○●●\n◇●●○◎\n◇●◇○●\n◇○○●◎",
+"◇○○●●\n◇●●○◎\n◇●◇○●\n○○◇●◎"]
+soku_5=[
+"◇●◇○●
+○○◇●◎
+◇○○●●
+○●●○◎",
+"◇●◇○●
+○○◇●◎
+○○●○●
+○●●○◎",
+"◇●◇○●
+◇○○●◎
+◇○○●●
+○●●○◎",
+"◇●◇○●
+◇○○●◎
+○○●○●
+○●●○◎"]
+
+if zekku==7 #七言絶句生成
+  if rand(2)==0#平仄の振り分け
+  #七言○
+  x,y=pick(hyo_7)#規則の選択(yはダミー)
+  #print Kconv.tosjis x[0]
+  poem=poetter(x[0],list)#list は[漢字配列,韻配列]であること。
+  else
+  #七言●
+  #７●
+  x,y=pick(soku_7)
+  #print Kconv.tosjis x[0]
+  poem=poetter(x[0],list)
+  end
+elsif zekku==5 #五言絶句生成
+  if rand(2)==0
+  #五言○
+    x,y=pick(hyo_5)
+    poem=poetter(x[0],list)
+    else
+  #五言●
+  x,y=pick(soku_5)
+  poem=poetter(x[0],list)
+  end
+end
+return poem
+#**先のキーワードを入れる
+#**残りの字をランダムに抜き取る
+#**これで準備完了
+#*リストからランダムに選び出す
+#**選んだ字を当てはめる
+#**残りをランダムに作成する。
+    
+  end
+  
+  def kansi_generate2(zekku=7,keyword=[],ouin_=nil)
+#p zekku
+#p keyword
+#p ouin_
+
+#**韻をリストアップしておく
+#puts list.size#30
+
+#**常用漢字を調べる
+    jouyou_kanji=Jouyou
+#puts randsize=jouyou_kanji.size#1945
+#puts jouyou_kanji[rand(randsize)]
+
+#**韻字をランダムに選択する
+#**決まっているときはそれを選択
+ouin=""
+  begin
+    if  ouin_!=nil
+      #inji==韻リスト（30平韻の配列）
+      inji.each do |ji|
+        #p ji
+        if ji.include?(ouin_)
+          ouin =ji.split(//)
+          break
+        end
+      end
+    else
+      ouin=inji[rand(30)].split(//)
+    end
+#  rescue
+#    ouin_=nil
+#    retry
+  end
+  
+
+jouyou_kanji=jouyou_kanji-ouin #韻を候補から削除
+inn=pick(ouin,3)[0]
+
+#**平起または仄起をランダムに選択# =>規格が決定される（平X個、仄X個）
+
+#x,y=put_char("○",[jouyou_kanji,inn])
+
+list=[jouyou_kanji,inn]
+
+#main program
+hyo_7=["◇○◇●●○◎
+◇●◇○○●◎
+◇●◇○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●○○◇●◎
+◇●◇○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●◇○○●◎
+◇●○○○●●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●◇○○●◎
+◇●○○●○●
+◇○◇●●○◎",
+"◇○◇●●○◎
+◇●○○◇●◎
+◇●○○●○●
+◇○◇●●○◎"]
+
+soku_7=[
+"◇●○○◇●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●○○◇●◎",
+"◇●◇○○●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●○○◇●◎",
+"◇●○○◇●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●◇○○●◎",
+"◇●◇○○●◎
+◇○◇●●○◎
+◇○◇●◇○●
+◇●◇○○●◎"]
+
+hyo_5=[
+"◇○○●◎\n◇●●○◎\n◇●●○●\n◇○○●◎",
+"◇○○●◎\n◇●●○◎\n◇●●○●\n○○●●◎",
+"◇○○●◎\n◇●●○◎\n◇●◇○●\n◇○○●◎",
+"◇○○●◎\n◇●●○◎\n◇●◇○●\n○○◇●◎",
+"◇○○●●\n◇●●○◎\n◇●●○●\n◇○○●◎",
+"◇○○●●\n◇●●○◎\n◇●●○●\n○○●●◎",
+"◇○○●●\n◇●●○◎\n◇●◇○●\n◇○○●◎",
+"◇○○●●\n◇●●○◎\n◇●◇○●\n○○◇●◎"]
+soku_5=[
+"◇●◇○●
+○○◇●◎
+◇○○●●
+○●●○◎",
+"◇●◇○●
+○○◇●◎
+○○●○●
+○●●○◎",
+"◇●◇○●
+◇○○●◎
+◇○○●●
+○●●○◎",
+"◇●◇○●
+◇○○●◎
+○○●○●
+○●●○◎"]
+
+if zekku==7 #七言絶句生成
+  if rand(2)==0#平仄の振り分け
+  #七言○
+  x,y=pick(hyo_7)#規則の選択(yはダミー)
+  #print Kconv.tosjis x[0]
+  poem=poetter(x[0],list)#list は[漢字配列,韻配列]であること。
+  else
+  #七言●
+  #７●
+  x,y=pick(soku_7)
+  #print Kconv.tosjis x[0]
+  poem=poetter(x[0],list)
+  end
+elsif zekku==5 #五言絶句生成
+  if rand(2)==0
+  #五言○
+    x,y=pick(hyo_5)
+    poem=poetter(x[0],list)
+    else
+  #五言●
+  x,y=pick(soku_5)
+  poem=poetter(x[0],list)
+  end
+end
+
+return poem
+#**先のキーワードを入れる
+#**残りの字をランダムに抜き取る
+#**これで準備完了
+#*リストからランダムに選び出す
+#**選んだ字を当てはめる
+#**残りをランダムに作成する。
+    
+  end
+
+  def put_char(sign,list)
+    #sign to_be "○"or"●"or"◇"or"◎"or any
+    exit=false
+    #p list[0]
+    #p sign
+    while exit != true
+      case sign
+      when "○"
+          x,y=pick(list[0])
+          #p x
+          if be_hyo(hyousoku(x[0]).split(//)[-1])
+            exit=true
+          else
+            next
+          end
+        
+      when "●"
+          x,y=pick(list[0])
+          #p x
+          if be_soku(hyousoku(x[0]).split(//)[-1])
+            exit=true
+          else
+            next
+          end
+        
+      when "◇"
+          x,y=pick(list[0])
+          z=hyousoku(x[0]).split(//)[-1]
+          if be_soku(z) or be_hyo(z)
+            exit=true
+          else
+            next
+          end
+      when "◎"
+          x,y=pick(list[1])
+          return x,[list[0],y]
+      else
+          #p "else:"+sign
+          x,y=pick(sign)
+          return x,list
+      end
+      return x,[y,list[1]]
+    end
+  end
+  
+  def poetter(rule,list)
+    #rule # =>"◇●○◎"
+    #list # =>[list of Han character,in_list]
+    poem=""
+    rule.split(//).each do |sign|
+      if sign!="\n"
+        #print Kconv.tosjis sign
+        x,list=put_char(sign,list)
+        poem+=x[0]
+        #print Kconv.tosjis poem
+      else
+        poem+="\n"
+      end
+    end
+    
+    return poem
+  end
+end
+
+if $0==__FILE__
+require '../kansi_valid'
+include Kansi_valid
+print kansi_generate2([])#['康','鳳祥'])
+print kansi_generate2
+end