;display sag tarafa drawline rgb renk bar yapilip o renk secilip filtreleme yapilacak.

alias -l rspen return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]filtre 
;burada resim aliasinda while normalde 15000 döngüden sonra kasmaya basliyor ve donup kalmamasi icin,
;degiskenleri sabit birakip ayni alias uzerinde timer ile tekrar baslatip kaldigi yerden devam ettirip daha soft bir hale getirdim.
alias -l resim {
  if (!%resi_z) { set %resi_z  1 }
  if (!%resi_n) { set %resi_n 1 }
  if (!%resi_d) { set %resi_d 1 }
  while (%resi_z <= $window($rspen).bw)  {
    set %resi_j  1
    while (%resi_j <= $window($rspen).bh) {
      drawdot $rspen $iif(1* !iswm $getdot($rspen,%resi_z,%resi_j),1,0) 1 %resi_z %resi_j
      inc %resi_n
      if (%resi_n == $calc(15000 * %resi_d))  { inc %resi_d |  .timerresim -m 1 50 resim | goto x }
      inc %resi_j
    }
    inc %resi_z
  }
  :x
  if (%resi_z >= $window($rspen).bw) { 
    unset %resi_* | timerresim off
    filtreli-resmi-kaydet
  }
}
alias filtreli-resmi-kaydet {
  var %dsy = $nopath($line($rspen,3,1))
  if !$isdir(filtreliresimler) { .mkdir filtreliresimler }
  drawsave -b32q100 $rspen $qt(filtreliresimler\ $+ $time(dd-mm-yyyy-HH-nn) $+ - $+ %dsy)
  run $qt(filtreliresimler\ $+ $time(dd-mm-yyyy-HH-nn) $+ - $+ %dsy)
  drawpic -ms $rspen -1 -1 $window($rspen).bw $window($rspen).bh $qt($line($rspen,3,1))
}
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]filtre {
  sclick:titlebar $rspen $getdot($rspen,$mouse.x,$mouse.y)
}

menu * {
  dclick:{
    if (*Resim Yukle* iswm $sline($rspen,1) && !%resi_filtre_islemede) {
      var %m = 1
      noop $sfile(.,Resimlere Gözat,Sec)  
      var %f = $msfile(%m)
      rline -l $rspen 2 Resim Filtrele
      if ($regex(%f,(.+)\.(bmp|jpeg|jpg|png)$)) { rline -l $rspen 3 %f }
      if (%f == $null) { return }
      drawpic -ms $rspen -1 -1 $window($rspen).bw $window($rspen).bh $qt(%f)
    }
    if (*Resim Filtrele* iswm $sline($rspen,1) && !%resi_filtre_islemede) {
      resim
      set %resi_filtre_islemede OK
    }

  }
  Resim Filtre:{
    window -c $rspen
    unset %res_*
    window -l50p $rspen
    window -a $rspen
    iline -l $rspen 1 Resim Yukle
  }
}

on *:close:$($rspen):unset %resi_*