/window -ep @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re
/grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 5 1
/grid @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]re 7 8

alias grid {
  if (@* !iswm $1) { return }
  if ($2 !isnum) { return }
  var %grd-renk = $3
  if ($3 !isnum) { var %grd-renk = 1 }
  var %grd-wh = $2
  var %x = $window($1).bw
  var %y = $window($1).bh
  var %ilk-x = 1
  var  %m = 1, %deg-y = 1
  while (%m <= %x) {  
    drawline  $1 %grd-renk 1 %ilk-x %deg-y %x %deg-y
    inc %deg-y %grd-wh 
    inc %m
  }
  var %m = 1, %deg-x = 1
  while (%m <= %y) {
    drawline $1 %grd-renk 1 %deg-x 1 %deg-x %x
    inc %m
    inc %deg-x %grd-wh 
  }
}

alias partial_grid {
  if (@* !iswm $1) { return }
  if ($2 !isnum) { return }
  var %grd-renk = $3
  if ($3 !isnum) { var %grd-renk = 1 }
  var %xkord-baslangic =  $$4
  var %ykord-baslangic = $$5
  var %enxboy = $$6
  var %grd-wh = $2
  var  %m = 0
  while (%m <= $round($calc((%enxboy / %grd-wh)),0)) {  
    drawline  $1 %grd-renk 1 %xkord-baslangic %ykord-baslangic $calc(%xkord-baslangic + %enxboy) %ykord-baslangic
    inc %ykord-baslangic %grd-wh
    inc %m
  }
  var %xkord-baslangic = $$4
  var %ykord-baslangic = $$5
  var %m = 0
  while (%m <= $round($calc((%enxboy / %grd-wh)),0)) {  
    drawline  $1 %grd-renk 1 %xkord-baslangic  %ykord-baslangic %xkord-baslangic  $calc(%ykord-baslangic + %enxboy)   
    inc %xkord-baslangic %grd-wh 
    inc %m
  }
}