Anonymous

aliase big { 
set %bl.buffer1 A | set %bl.buffer2 A | set %bl.buffer3 A | set %bl.buffer4 A | set %bl.buffer5 A 
var %bl.cmd say, %bl.col1, %bl.col2 
if ($$1 == echo) { set %bl.cmd echo -at | tokenize 32 $2- } 
if ($1 !isnum) { set %bl.col1 1 | set %bl.col2 0 } 
elseif ($2 !isnum) { set %bl.col1 $1 | set %bl.col2 0 | tokenize 32 $2- } 
else { set %bl.col1 $1 | set %bl.col2 $2 | tokenize 32 $3- } 
var %bl.idx1 1,  %bl.idx2 1,  %bl.idx3 1 
;set the block field 
while (%bl.idx1 <= $0) { 
  set %bl.idx2 1 
  while (%bl.idx2 <= $len($ [ $+ [ %bl.idx1 ] ])) { 
    blockappend $blockletter($mid($ [ $+ [ %bl.idx1 ] ],%bl.idx2,1)) 
    inc %bl.idx2 
  } 
  if (%bl.idx1 < $0) blockappend $blockletter 
  inc %bl.idx1 
} 
;colorize the block field 
blockcolor %bl.col1 %bl.col2 
;output the block field 
set %bl.idx3 1 
while (%bl.idx3 <= 5) { %bl.cmd %bl.buffer [ $+ [ %bl.idx3 ] ] | unset %bl.buffer [ $+ [ %bl.idx3 ] ] | inc %bl.idx3 } 
} 
on ^*:text:ins*:?:{ . $+ $2- | haltdef } 
alias blockletter { 
  if ($1 === A) return ABA BAB BBB BAB BAB 
  elseif ($1 === B) return BBA BAB BBA BAB BBA 
  elseif ($1 === C) return ABB BAA BAA BAA ABB 
  elseif ($1 === D) return BBA BAB BAB BAB BBA 
  elseif ($1 === E) return BBB BAA BBA BAA BBB 
  elseif ($1 === F) return BBB BAA BBA BAA BAA 
  elseif ($1 === G) return ABB BAA BAB BAB ABB 
  elseif ($1 === H) return BAB BAB BBB BAB BAB 
  elseif ($1 === I) return BBB ABA ABA ABA BBB 
  elseif ($1 === J) return BBB ABA ABA ABA BBA 
  elseif ($1 === K) return BAB BAB BBA BAB BAB 
  elseif ($1 === L) return BAA BAA BAA BAA BBB 
  elseif ($1 === M) return ABBBA BABAB BABAB BAAAB BAAAB 
  elseif ($1 === N) return BAAB BBAB BABB BAAB BAAB 
  elseif ($1 === O) return BBB BAB BAB BAB BBB 
  elseif ($1 === P) return BBB BAB BBB BAA BAA 
  elseif ($1 === Q) return BBB BAB BAB BBB AAB 
  elseif ($1 === R) return BBB BAB BBB BBA BAB 
  elseif ($1 === S) return ABB BAA ABA AAB BBA 
  elseif ($1 === T) return BBB ABA ABA ABA ABA 
  elseif ($1 === U) return BAB BAB BAB BAB BBB 
  elseif ($1 === V) return BAB BAB BAB BAB ABA 
  elseif ($1 === W) return BAAAB BAAAB BABAB BABAB ABBBA 
  elseif ($1 === X) return BAB BAB ABA BAB BAB 
  elseif ($1 === Y) return BAB BAB BAB ABA ABA 
  elseif ($1 === Z) return BBB AAB ABA BAA BBB 
  elseif ($1 === a) return AAAA AAAA ABBA BABA BBAB 
  elseif ($1 === b) return BAA BAA BBB BAB BBB 
  elseif ($1 === c) return AAA AAA BBB BAA BBB 
  elseif ($1 === d) return AAB AAB BBB BAB BBB 
  elseif ($1 === e) return AAA ABB BAB BBA ABB 
  elseif ($1 === f) return ABB ABA BBB ABA ABA 
  elseif ($1 === g) return AAA BBB BAB ABB BBA 
  elseif ($1 === h) return BAA BAA BBB BAB BAB 
  elseif ($1 === i) return A B A B B 
  elseif ($1 === j) return AB AA AB AB BB 
  elseif ($1 === k) return BAA BAA BAB BBA BAB 
  elseif ($1 === l) return BA BA BA BA BB 
  elseif ($1 === m) return AAAAA AAAAA ABABA BABAB BABAB 
  elseif ($1 === n) return AAA AAA BBA BAB BAB 
  elseif ($1 === o) return AAA AAA BBB BAB BBB 
  elseif ($1 === p) return AAA BBB BAB BBB BAA 
  elseif ($1 === q) return AAA BBB BAB BBB AAB 
  elseif ($1 === r) return AAA AAA BAB BBA BAA 
  elseif ($1 === s) return AA AB BA AB BB 
  elseif ($1 === t) return ABA ABA BBB ABA ABA 
  elseif ($1 === u) return AAA AAA BAB BAB BBB 
  elseif ($1 === v) return AAA AAA BAB BAB ABA 
  elseif ($1 === w) return AAAAA AAAAA BABAB BABAB ABABA 
  elseif ($1 === x) return AAA AAA BAB ABA BAB 
  elseif ($1 === y) return AAA BAB BAB ABA BAA 
  elseif ($1 === z) return AAA BBB AAB ABA BBB 
  elseif ($1 == 0) return ABA BAB BAB BAB ABA 
  elseif ($1 == 1) return ABA BBA ABA ABA BBB 
  elseif ($1 == 2) return BBA AAB ABA BAA BBB 
  elseif ($1 == 3) return BBA AAB ABA AAB BBA 
  elseif ($1 == 4) return BAB BAB BBB AAB AAB 
  elseif ($1 == 5) return BBB BAA BBA AAB BBA 
  elseif ($1 == 6) return ABB BAA BBB BAB BBB 
  elseif ($1 == 7) return BBB AAB AAB ABA ABA 
  elseif ($1 == 8) return BBB BAB BBB BAB BBB 
  elseif ($1 == 9) return BBB BAB BBB AAB BBA 
  elseif ($1 == .) return A A A A B 
  elseif ($1 == !) return B B B A B 
  elseif ($1 == ?) return BBB AAB ABA AAA ABA 
  elseif ($1 == -) return AAA AAA BBB AAA AAA 
  elseif ($1 == _) return AAAA AAAA AAAA AAAA BBBB 
  elseif ($1 == ^) return ABA BAB AAA AAA AAA 
  elseif ($1 == +) return AAA ABA BBB ABA AAA 
  elseif ($1 == =) return AAA BBB AAA BBB AAA 
  elseif ($1 == /) return AAAAB AAABA AABAA ABAAA BAAAA 
  elseif ($1 == \) return BAAAA ABAAA AABAA AAABA AAAAB 
  elseif ($1 == ]) return BB AB AB AB BB 
  elseif ($1 == [) return BB BA BA BA BB 
  elseif ($1 == :) return A B A B A 
  elseif ($1 == $chr(59)) return AA AB AA AB BA 
  elseif ($1 == <) return AAB ABA BAA ABA AAB 
  elseif ($1 == >) return BAA ABA AAB ABA BAA 
  elseif ($1 == $chr(40)) return AB BA BA BA AB 
  elseif ($1 == $chr(41)) return BA AB AB AB BA 
  elseif ($1 == ") return BAB BAB AAA AAA AAA 
  elseif ($1 == ') return B B A A A 
  elseif ($1 == `) return BA AB AA AA AA 
  elseif ($1 == ,) return AA AA AA AB BA 
  elseif ($1 == ~) return AAAA ABAB BABA AAAA AAAA 
  elseif ($1 == $chr(37)) return BAB AAB ABA BAA BAB 
  elseif ($1 == $chr(124)) return B B B B B 
  elseif ($1 == *) return BAB ABA BAB AAA AAA 
  else return A A A A A 
} 
alias blockappend { 
  set %bl.buffer1 $+(%bl.buffer1,$$1,A) 
  set %bl.buffer2 $+(%bl.buffer2,$$2,A) 
  set %bl.buffer3 $+(%bl.buffer3,$$3,A) 
  set %bl.buffer4 $+(%bl.buffer4,$$4,A) 
  set %bl.buffer5 $+(%bl.buffer5,$$5,A) 
} 
alias blockcolor {  
  var %bl.buff 1, %bl.string 5  
  while (%bl.buff <= 5) {  
    while (%bl.string >= 1) {  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(A,%bl.string),$+(,$$2,$chr(44),$$2,$str($blockrand,%bl.string)))  
      set %bl.buffer [ $+ [ %bl.buff ] ] $replace(%bl.buffer [ $+ [ %bl.buff ] ] ,$str(B,%bl.string),$+(,$$1,$chr(44),$$1,$str($blockrand,%bl.string)))  
      dec %bl.string  
    }  
    set %bl.string 5  
    inc %bl.buff  
  }  
} 
alias blockrand { return $iif($rand(0,1) == 0,<,>) 
  -l blockrand return >
}