;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
alias colors {
  if (!$window(@colors)) { window -Bpdf +t @colors -1 -1 1530 255 }
  if (!$window(@luminosity)) { window -Bpdf +t @luminosity -1 -1 510 16 }
  var %y 0
  while %y < 255 {
    var %x 0
    while %x < 1530 {
      if %x isnum 0-255 {
        set %red $floor($calc(255 -128 / 255 * %y))
        set %green $floor($calc(%x + (127 - %x) / 255 * %y))
        set %blue $floor($calc(127 / 255 * %y))
      }
      elseif %x isnum 256-510 {
        set %red $floor($calc((255 - (%x - 255)) + (127 - (255 - (%x - 255))) / 255 * %y))
        set %green $floor($calc(255 -128 / 255 * %y))
        set %blue $floor($calc(127 / 255 * %y))
      }
      elseif %x isnum 511-765 {
        set %red $floor($calc(127 / 255 * %y))
        set %green $floor($calc(255 -128 / 255 * %y))
        set %blue $floor($calc((%x - 510) + (127 - (%x - 510)) / 255 * %y))
      }
      elseif %x isnum 766-1020 {
        set %red $floor($calc(127 / 255 * %y))
        set %green $floor($calc((255 - (%x - 765)) + (127 - (255 - (%x - 765))) / 255 * %y))
        set %blue $floor($calc(255 -128 / 255 * %y))
      }
      elseif %x isnum 1021-1275 {
        set %red $floor($calc((%x - 1020) + (127 - (%x - 1020)) / 255 * %y))
        set %green $floor($calc(127 / 255 * %y))
        set %blue $floor($calc(255 -128 / 255 * %y))
      }
      elseif %x isnum 1276-1530 {
        set %red $floor($calc(255 -128 / 255 * %y))
        set %green $floor($calc(127 / 255 * %y))
        set %blue $floor($calc((255 - (%x - 1275)) + (127 - (255 - (%x - 1275))) / 255 * %y))
      }
      drawdot -r [ $+ [ $iif($1,n) ] ] @colors $rgb(%red,%green,%blue) 1 %x %y
      inc %x
    }
    inc %y
  }
  $iif($1,drawdot @colors)
}
alias -l drawcolor  {
  if (!$window(@luminosity)) { window -Bpdf +t @luminosity -1 -1 510 16 }
  tokenize 44 $1
  var %x 0
  while %x < 500 {
    drawline -rn @luminosity $rgb($floor($calc($iif(%x > 255,$1 +) ($iif(%x > 255,255 -) $1) / 255 * (%x $iif(%x > 255,- 255)))),$floor($calc($iif(%x > 255,$2 +) ($iif(%x > 255,255 -) $2) / 255 * (%x $iif(%x > 255,- 255)))),$floor($calc($iif(%x > 255,$3 +) ($iif(%x > 255,255 -) $3) / 255 * (%x $iif(%x > 255,- 255))))) 1 %x 0 %x 10
    inc %x
  }
  drawdot @luminosity
}
menu @colors {
  sclick:echo -s Color: $getdot(@colors,$mouse.x,$mouse.y)) RGB: $rgb($getdot(@colors,$mouse.x,$mouse.y)) | drawcolor $rgb($getdot(@colors,$mouse.x,$mouse.y))
}
menu @luminosity {
  sclick:echo -s Color: $getdot(@luminosity,$mouse.x,$mouse.y)) RGB: $rgb($getdot(@luminosity,$mouse.x,$mouse.y))
}