#!/usr/local/bin/ruby

def dw(d,n)
	return d[n+3]+256*(d[n+2]+256*(d[n+1]+256*d[n+0]))
end
def clcmax(a)
m=0
for e in a
	m=e if e>m
end
return m
end

print "data file: "
file=STDIN.readline
file.chomp!
d=""
open(file,"r"){|f| f.binmode;d=f.read}
adrs=0x400

angl=[]
int=[]
while adrs<d.size-6
	angl.push(dw(d,adrs).to_f/10000)
	int.push(dw(d,adrs+4))
	adrs+=8
end

f=open("extpxd.txt","w")
f.print <<-HEAD
IGOR
WAVES/D	angl	int
BEGIN
HEAD
max=1 #clcmax(int)
for i in 0...angl.size
	f.print "#{angl[i]}\t#{int[i].to_f/max}\n"
end
f.print <<-'TAIL'
END
X Display
X AppendToGraph/L int vs angl
X ModifyGraph standoff=0
X Label bottom "angle (degree)"
X ModifyGraph grid=1,tick=2,mirror=1
X SetAxis/A/N=1
X ModifyGraph mode=0
TAIL
f.close