of course it's fast, it's a loop
use:
alias line1 {
set %line1 30
.timerpb 120 0 if ($window(@loading2)) { drawline @loading2 2 5 20 30 $(%line1,0) 30 $(|) inc %line1 }
}
alias loading2 {
.window -pk[0]C +d @loading2 0 0 170 50
;top and bottom of the loading graph
.drawline @loading2 14 1 10 35 160 35
.drawline @loading2 14 1 10 25 160 25
;sides of the loading graph
.drawline @loading2 14 1 10 25 10 35
.drawline @loading2 14 1 160 25 160 36
;writs the Loading text
.drawtext @loading2 grey Courier New 12 1 .. : Loading : ..
;this makes the line loading bar
.line1
}