daily pastebin goal
77%
SHARE
TWEET

Untitled

a guest Jun 13th, 2018 69 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  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. }
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top