Guest User

Untitled

a guest
Jun 13th, 2018
106
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. proc gayflagify2 lines {
  2. if {[llength [lines $lines]] == 1} {
  3. set lines [wrap $lines 30]
  4. };
  5. set lineheight [expr [llength [lines $lines]] / 6];
  6. gayflagify_reset $lineheight;
  7. set bglist $::gayflag_bg;
  8. if {$lineheight > 1} {
  9. set bglist [apply nzip [times $lineheight $::gayflag_bg]];
  10. }
  11. set output [list];
  12. foreach line [lines [ajoin "" "" $lines]] {
  13. lappend output [bold][color white on [next_in_list $bglist]]$line;
  14. }
  15. return [join $output "\n"];
  16. }
Add Comment
Please, Sign In to add comment