Miscellany

;; /draw.scroll @Window <POSITION> <TOTAL ITEMS> <NUMBER OF ITEMS DISPLAYED IN TEXTBOX> <X> <Y> <W> <H>

alias -l draw.scroll { 
  var %win = $1,%pos = $2,%tl = $3,%di = $4,%x = $5,%y = $6,%w = $7,%h = $8
  var %sep = $calc($iif(%tl <= %di,1,$iif($calc(%di / %tl) < 0.05,0.05,$calc(%di / %total.lines))))
  var %x2 $1,%y2 $calc(((%pos / 100 * %h) * $calc(1 - %sep)) + %y),%w2 %w,%h2 $ceil($calc(%h * %sep))
  drawrect -rfn %win $rgb(255,255,255) 1 %x %y %w %h
  drawrect -rfn %win $rgb(128,128,255) 1 $calc(%x + 4) $2 $calc(%w - 7) %h
  drawrect -rn  %win $rgb(0,0,0)       1 $calc(%x + 4) $2 $calc(%w - 7) %h
  drawrect -rfn %win $rgb(0,128,192)   1 %x2 %y2 %w2 %h2
  drawrect -rn  %win $rgb(0,0,0)       1 %x2 %y2 %w2 %h2
  drawdot %win
}