alias rgbgradient {
  if !$window($rgbspare) { window -ph $rgbspare }
  set %_rgb_win $$1
  var %m = 1
  var %z = 16646400
  while %m <= 255 { 
    var %x = 1, %j = 255
    while (%j) {
      drawdot -r $rgbspare %z 1 %x %m
      inc %x
      dec %z 255
      dec %j
    }
    drawdot -r $rgbspare $rgb(%m,%m,%m) 10 $calc(255 + 3) %m 
    dec %z 255
    inc %m
  }
  if !$window(%_rgb_win) { window -p %_rgb_win }
  drawcopy -m $rgbspare 1 1 270 255 $1 $calc($window($1).bw - $kenar-ayar-x) 1 $kenar-ayar-x $calc($window($1).bh - 50)
  drawrect -fr $1 8355711 1 $calc($window($1).bw - $kenar-ayar-x) $calc($window($1).bh - 45) $kenar-ayar-x 45
  window -c $rgbspare

}
alias -l kenar-ayar-x return 90
alias -l rgbspare return @rgbspare 

menu * {
  sclick:{
    if ($active == %_rgb_win && $mouse.x isnum $calc($window(%_rgb_win).bw - $kenar-ayar-x)  $+ - $+ $window(%_rgb_win).bw)  {
      set %_rgb_value $getdot(%_rgb_win,$mouse.x,$mouse.y)
      drawrect -fr %_rgb_win %_rgb_value 1 $calc($window(%_rgb_win).bw - $kenar-ayar-x) $calc($window(%_rgb_win).bh - 45) $kenar-ayar-x 45
    }
  }
}