Anlasilacagi gibi tablodan secilen iki rengi karistirip ortaya yeni bir renk cikartir.
Kodu remotenize koyduktan sonra mouse ile sag tiklayip Renk karistirma Tablosu secip calistirabilirsiniz.
Renk karistirma islemi bittikten sonra sag tiklayip resimi bilgisayarina kaydedebilirsiniz.
Kod:
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*
}