Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- proc gayflagify2 lines {
- if {[llength [lines $lines]] == 1} {
- set lines [wrap $lines 30]
- };
- set lineheight [expr [llength [lines $lines]] / 6];
- gayflagify_reset $lineheight;
- set bglist $::gayflag_bg;
- if {$lineheight > 1} {
- set bglist [apply nzip [times $lineheight $::gayflag_bg]];
- }
- set output [list];
- foreach line [lines [ajoin "" "" $lines]] {
- lappend output [bold][color white on [next_in_list $bglist]]$line;
- }
- return [join $output "\n"];
- }
Add Comment
Please, Sign In to add comment