Rem Koordinat Etiketi Koyma
defreal x,y,xx,yy,nx,ny,nz,yb
deflint no,n,cik,m,boy,tno,tn
defstring s
n=epdstart
$DrawMode=1
epdgetinteger("ÇİZGİ BOYUNU GİRİNİZ:",boy)
epdgetreal("YAZI BOYUNU GİRİNİZ:",yb)
if boy=0 then boy=10
x=$curx
y=$cury
xx=x+1
yy=y+1
cik=0
tno=$curlayer
epdstatusline("Nokta Seçiniz..(Çıkmak için sağ tuş tıkla..)")
if epdPointSelect(no,nx,ny,nz,tn) > 0 then
  epdstatusline("Uç Seçiniz..")
  epddogruciz(0,nx,ny,xx,yy)
  epddogruciz(0,xx,yy,xx,yy+boy)
  s=epdrtos(nx,2)
  epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
  while cik =0
     x=$curx
     y=$cury
     if  x<>xx OR y<>yy then
       epddogruciz(0,nx,ny,xx,yy)
       epddogruciz(0,xx,yy,xx,yy+boy)
       epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
       xx=x
       yy=y
       epddogruciz(0,nx,ny,xx,yy)
       epddogruciz(0,xx,yy,xx,yy+boy)
       epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
     endif
     if $mouseleft then
       epddogrukoy(nx,ny,xx,yy)
       epddogrukoy(xx,yy,xx,yy+boy)
       s=epdrtos(nx,2)
       epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
       epdTextAdd(0,0,0,xx,yy,0,yb,yb,0,s,tno)
       s=epdrtos(ny,2)
       epdTextDrawA(0,0,0,xx-1.5*yb,yy,0,yb,yb,0,s,tno)
       epdTextAdd(0,0,0,xx-1.5*yb,yy,0,yb,yb,0,s,tno)
       epdstatusline("Nokta Seçiniz..")
       n=epdPointSelect(no,nx,ny,nz,tn)
       epdstatusline("Nokta Seçiniz..(Çıkmak için sağ tuş tıkla..)")
       epddogruciz(0,nx,ny,xx,yy)
       epddogruciz(0,xx,yy,xx,yy+boy)
       s=epdrtos(nx,2)
       epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
     endif
     if $mouseRight then
       epddogruciz(0,nx,ny,xx,yy)
       epddogruciz(0,xx,yy,xx,yy+boy)
       s=epdrtos(nx,2)
       epdTextDrawA(0,0,0,xx,yy,0,yb,yb,0,s,tno)
       cik=1
     endif
  wend
endif
n=epdstop
epdstatusline(" ")
end