/ScriptServ

alias blend {
  window -p +f @blend 150 150 500 262 | %i = 256 | %x = -1 | :loop
  if ($1 == -p) { %bl.num = $rgb(%i,0,%i) } | if ($1 == -y) %bl.num = $rgb(%i,%i,256) | if ($1 == -t) %bl.num = $rgb(0,%i,%i) | if ($1 == -w) %bl.num = $rgb(%i,%i,%i) | if ($1 == -b) %bl.num = $rgb(256,256,%i) | if ($1 == -g) %bl.num = $rgb(0,%i,0) | if ($1 == -r) %bl.num = $rgb(%i,0,0) | if ($1 == -s) goto next
  if (%bl.num == $null) { echo -a * /blend: insufficient parameters | halt }
  drawline -r @blend %bl.num 1 0 %x 500 %x | dec %i 1 | inc %x 1 | if (%i == 0) { window -a @blend | halt } | goto loop
  :next
  if ($2 == $null) halt
  drawtext @blend $5 $2 $3 $round($calc(((500 - $width($7-,$2,$calc($3 - 5),0,0)) / 2) - 1),0) $calc($6 + 2) $7-
  drawtext @blend $4 $2 $3 $round($calc(((500 - $width($7-,$2,$calc($3 - 5),0,0)) / 2) + 1),0) $6 $7-
  window -a @blend
}
menu @blend {
  sclick:/window -c @blend
}