menu * {
  Renk Karistirma Tablosu:/rgdene
}

alias -l rwind return @ReNk-Karistirici
menu @ReNk-Karistirici {
  sclick:{
    if ($mouse.x isnum 1-260 && $mouse.y isnum 1-255) {
      drawrect -fr $rwind $getdot($rwind,$mouse.x,$mouse.y) 1 300 1 255 255
      editbox $rwind
      set -e %_rnk_1_secildi $getdot($rwind,$mouse.x,$mouse.y)
    }
    if ($mouse.x isnum 1-260 && $mouse.y isnum 300-555) {
      if !%_rnk_1_secildi { editbox $rwind Once ustteki tablodan renk secmelisiniz. | return  }
      drawrect -fr $rwind $getdot($rwind,$mouse.x,$mouse.y) 1 300 300 255 255
      drawrect -f $rwind 14 5 600 525 110 30
      drawtext -c $rwind 1 arial 14 600 530 120 30  [Renkleri Karistir]
      editbox $rwind Renklerin karismasi icin [Renkleri Karistir] yazan kutucuga tiklamalisiniz.
      set -e %_rnk_2_secildi $getdot($rwind,$mouse.x,$mouse.y)
    }
    if ($mouse.x isnum 600-700 && $mouse.y isnum 525-550 && %_rnk_2_secildi) {
      drawrect -fr $rwind %_rnk_1_secildi 1 630 145 255 255
      _renk_karistir
    }
  }
  Resmi Kaydet:var %rsmk = $+(renk-karistirici-,$time(dd-mm-yyyy-hh-nn),.jpg) | drawsave $rwind %rsmk | run %rsmk | run $mircdir
}
alias _renk_karistir {
  var %m = 142
  while %m <= 400 {
    var %x = 628, %j = 129
    while (%j) {
      drawdot -r $rwind %_rnk_2_secildi 1 %x %m
      inc %x 2
      dec %j
    }
    inc %m
  }
}
alias rgdene {
  if !$window($rwind) { window -ape $rwind }
  if ($window($rwind).bw < 900 || $window($rwind).bh < 550) {
    close $+(-,$rwind)
    .timer -m 1 500 echo $color(info) * Yeterli cizim alani yok ekrani buyutup o sekilde deneyin.
    return
  }
  clear $rwind
  var %m = 1
  var %z = 16646400
  while %m <= 255 {
    var %x = 1, %j = 255
    while (%j) {
      drawdot -r $rwind %z 1 %x %m
      inc %x
      dec %z 255
      dec %j
    }
    drawdot -r $rwind $rgb(%m,%m,%m) 5 $calc(255 + 3) %m
    dec %z 255
    inc %m
  }
  drawcopy $rwind 1 1 260 255 $rwind 1 300 260 255
  editbox $rwind Once ustteki tablodan bir renk secin daha sonra alttaki tablodan bir renk secin.
}
on *:close:$($rwind):{
  unset %_rnk_*_sec*
}