IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kodu remotenize koyduktan sonra mouse ile sag tik yaparak menuden Resim Filtre secip, daha sonra Resmi Yukle ve Resmi Filtrele cift tikladiginizda resim siyah-beyaz filtre edilecektir.
-
Kodun devami gelecektir.
-
[Kod Baslangic]

Kod:

;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_*

[Kod Bitis]

[Gorseller]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Denediginiz icin tesekkur ederim.