;Yazan FETTAH BİLGİN 
;Komutlar için Eghas ın bilgi satırına (statusline) bakınız.
defstring filename,s,basla1
definteger i,no,tno,no2,tno2,m,blg,st
defreal x,y,z,dx,dy,dz,bx,by,bz,ay,ry,yn,dns,C
defreal alfa,delx,dely,delta,em1,em2,beta,delz
defreal ym,del2,vh,ba,ya,ymes,ba2,ya2
definteger dno,dind,bno,bind,noind
epdStatusline("durulan Noktayı Seçiniz...")
m=epdPointSelect(no,x,y,z,tno)
dno=no
epdStatusline("bakılan Noktayı Seçiniz...")
m=epdPointSelect(no,x,y,z,tno)
bno=no
print "durulan nokta=",dno
print "bakılan nokta=",bno
input "Alet Yuksekliği ?",ay
s=" PP"
ry=1.5
ba2=0
dind=epdPointFind(dno)
bind=epdPointFind(bno)
epdPointGet (dind,no,dx,dy,dz,tno)
epdPointGet (bind,no,bx,by,bz,tno)
  delx=bx-dx 
  dely=by-dy
  if delx>0 and dely>0  then blg=1
  if delx<0 and dely>0  then blg=2
  if delx<0 and dely<0  then blg=3
  if delx>0 and dely<0  then blg=4
  if dely<0 then dely=-1*dely
  if delx<0 then delx=-1*delx
  if dely=0 then dely=0.0000001
  if delx=0 then delx=0.0000001
  delta=delx/dely
  ym=delx*delx+dely*dely
  ymes=sqrt(ym)
  alfa=ARCTAN(delta)
  if blg=1 then ba=100-alfa*200/pi
  if blg=2 then ba=100+alfa*200/pi
  if blg=3 then ba=300-alfa*200/pi
  if blg=4 then ba=300+alfa*200/pi
filename=epdOpenfiledlg("YDE Dosya ismi","YDE |*.yde|Tüm (*.*)|*.*")
if filename<>"" then
ba2=0
vh=0
em2=0
  Open filename for append as 1
   print #1, using ########## dno,using ####.#### ba2,using ####.#### vh, using ######.## em2, using ######.## ay
   delz=bz+ry-dz-ay
   em1=ymes*ymes+delz*delz
   em2=sqrt(em1)
   yn=1
   if delz<0 then yn=-1
   if delz<0 then delz=-1*delz
   beta=delz/ymes
    c=arctan(BETA)
   dns=c*yn*200/pi
   vh=100+dns
   print #1, using ########## bno,using ####.#### ba2,using ####.#### vh, using ######.## em2, using ######.## ry
label basla
epdStatusline("ölçülen Noktayı Seçiniz...")
  m=epdPointSelect(no,x,y,z,tno)
   if no=dno then goto son
noind=epdPointFind(no)
epdPointGet (noind,no,x,y,z,tno)
  delx=x-dx 
  dely=y-dy
  if delx>0 and dely>0  then blg=1
  if delx<0 and dely>0  then blg=2
  if delx<0 and dely<0  then blg=3
  if delx>0 and dely<0  then blg=4
  if dely<0 then dely=-1*dely
  if delx<0 then delx=-1*delx
  if dely=0 then dely=0.0000001
  if delx=0 then delx=0.0000001
  delta=delx/dely
  ym=delx*delx+dely*dely
  ymes=sqrt(ym)
  alfa=ARCTAN(delta)
  if blg=1 then ya=100-alfa*200/pi
  if blg=2 then ya=100+alfa*200/pi
  if blg=3 then ya=300-alfa*200/pi
  if blg=4 then ya=300+alfa*200/pi
   delz=z+ry-dz-ay
   em1=ymes*ymes+delz*delz
   em2=sqrt(em1)
   yn=1
   if delz<0 then yn=-1
   if delz<0 then delz=-1*delz
   beta=delz/ymes
    c=arctan(BETA)
   dns=c*yn*200/pi
   vh=100+dns
   ya2=ya-ba
   if ya2<0 then ya2=ya2+400
   print #1, using ########## no,using ####.#### ya2,using ####.#### vh, using ######.## em2, using ######.## ry
goto basla
epdStatusline(" ")
endif
label son
  close #1
  print "Bitti"
end