| manikdepresif | 02 Eylül 2025 00:21 |
Resim Birlestirici @picture-window
Genisligi ve yuksekligi elle girilen resimleri tek karede birlestirip kaydetmenizi saglar.
-
Kullanim:
Sag tiklayip menuden @ [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirici seciyorsunuz
Genislik, yukseklik ayarini cift tiklayip girip daha sonra resimleri max yazinlan miktar kadar yukluyorsunuz
Picture window penceresine resimler yuklenecektir.
&Kaydet secenegini cift tikladiginizda resimler tek karede bilgisayariniza kaydedilecektir.
-
İleriki zamanlarda kodda birkac degisiklik yapacagimi umuyorum.Extra birseyler Kod:
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;Resim Birlestirici - yzr: jeun;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
menu * {
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirici:resimler
}
menu @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirme {
dclick:{
if (*Resim*Geni* iswm $sline($_rpen,1)) {
set %resim_genislik $?="Resim Genisliğini Girin"
if %resim_genislik !isnum { noop $?*!="rakam girmelisiniz" | return }
rline -l $_rpen 1 Resim Genisligi: %resim_genislik
rline -l $_rpen 3 % $+ Resim Sayisi(max.): $resimleri_yerlestir(j)
cline -l 3 $_rpen 1
return
}
if (*Resim*Y?ksek* iswm $sline($_rpen,1)) {
set %resim_yukseklik $?="Resim Yuksekligini Girin"
if (%resim_yukseklik !isnum) { noop $?*!="rakam girmelisiniz" | return }
rline -l $_rpen 2 Resim Yuksekligi: %resim_yukseklik
rline -l $_rpen 3 % $+ Resim Sayisi(max.): $resimleri_yerlestir(j)
cline -l 3 $_rpen 2
return
}
if (*Resimleri*Se?in* iswm $sline($_rpen,1)) {
if ($line($_rpen,1,1).color == 4 || $line($_rpen,2,1).color == 4) {
noop $?*!="once resim genislik ve yukseklik degerlerini girmelisiniz" | return
}
noop $msfile(.,Resimlere Gözat,Sec)
var %m = 1
;dizinden secim yoksa
if !$msfile(%m) { return }
while $msfile(%m) {
var %f = $msfile(%m)
if ($regex(%f,(.+)\.(bmp|jpeg|jpg|png|gif)$)) { aline -l $_rpen %f }
inc %m
}
.timer -h 1 300 resimleri_yerlestir
cline -l 3 $_rpen 4
}
if (*Resimleri*Listeden*Kald* iswm $sline($_rpen,1)) {
dline -l $_rpen 7- $+ $line($_rpen,0,1)
clear $_rpen
return
}
if (&kaydet* iswm $sline($_rpen,1)) {
drawsave -q90 $_rpen Resim-Birlestirme $+ - $+ $time(HH-nn-ss) $+ .jpg
run Resim-Birlestirme $+ - $+ $time(HH-nn-ss) $+ .jpg
}
}
;mouse:titlebar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]le X: $mouse.x Y: $mouse.y
}
;
alias -l _rpen return @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]-Birlestirme
;
alias resimler {
if !$window($_rpen) { window -epl20 $_rpen }
aline -l 4 $_rpen Resim Genisligi: 250
aline -l 4 $_rpen Resim Yuksekligi: 250
aline -l $_rpen % $+ Resim Sayisi(max.): $resimleri_yerlestir(j)
aline -l 4 $_rpen Resimleri Secin..
aline -l 4 $_rpen &Kaydet
aline -l 4 $_rpen &Resimleri Listeden Kaldir
}
alias -l resimleri_yerlestir {
var %bwres = $window($_rpen).bw
var %bhres = $window($_rpen).bh
var %bw_kactane_sigar = $int($calc(%bwres / %resim_genislik))
var %bh_kactane_sigar = $int($calc(%bhres / %resim_yukseklik))
var %toplam_kactane_sigar = $calc(%bw_kactane_sigar * %bh_kactane_sigar)
if $1 { return %toplam_kactane_sigar }
var %z = 1, %n = 1, %x = 1, %y = 1, %t = 7
;soldan saga siralama baslangic.
while (%z <= %toplam_kactane_sigar) {
if $line($_rpen,%t,1) {
.timer -h 1 300 drawpic -s $_rpen %x %y %resim_genislik %resim_yukseklik $qt($line($_rpen,%t,1))
;echo : x: %x y: %y bwadet: %bw_kactane_sigar topkactane: %toplam_kactane_sigar
if (%bw_kactane_sigar // %z) { var %x = 1 | inc %y %resim_yukseklik | ;echo -s ok | goto atlax }
inc %x %resim_genislik
:atlax
inc %t
}
inc %z
}
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] | 