// fork from tw:ina_ani:christmatrix
// fork from tw:ina_ani:動物漢字
// fork from tw:ina_ani:シンプル
addDescription("h1","文字敷き詰め")
!str = getExternalVar("文字を入力してください", "て すともじ")

!choice = \(n)
 evalExtArg(n)

scale(0.3)
 !count = 0
 grid(6,6)
  lw(0.3)
   rect()
   !c = stringCharAt(str, count)
   if(c)
    if(c != " ")
     fs("#aaf")
      rect()
   !count = count + 1
 font("RoundM+")
  fs("black")
   lw(1)
    !count = 0
    grid(6,6)
     scale(0.3)
      !c = stringCharAt(str, count)
      if(c)
       if(c != " ")
        text(c)
     !count = count + 1