#!/usr/bin/env python
import sys
import vplot
infilename='rosebin.dat'
bindat=open(infilename,'r')
wf=[]
sumb=0.
#read in number of calm and directionless events 
aline=bindat.readline()
calm,dirless=[int(x) for x in aline.split()] 
#read in "binned data", the second column being the number of events 
#in that "angle bin" marked in the first column:
while 1:
	aline=bindat.readline()
	if not aline: break
	if aline[0]=='#': continue
	i,b=[int(x) for x in aline.split()] #convert substrings to integers
	wf.append(b)
	sumb=sumb+b
sumb=sumb+calm+dirless
n=len(wf) #should be 36
mwf=max(wf)
rsize=170 #pt size for maximum "petal" length
sc=float(rsize)/mwf  #scale factor, pts per number
da=360./n
dah=.5*da
a1=90+dah
r1=10 #an integer, so unit is pts
#now plot using vplot:
a=vplot.eps_class()
a.scale(xmin=-1,xmax=1,ymin=-1,ymax=1)
a.linewidth(25L) #25L means .25 pts, a very thin line
for i in range(0,n):
	a2=a1
	a1=a2-da
	r2=r1+sc*wf[i]
	a.color(1.,0,0)
	a.sector(0.,0.,r1,int(r2),a1,a2,'F')
	a.color(0,0,0)
	a.sector(0.,0.,r1,int(r2),a1,a2)
a.color(0,0,1.)
for i in range(1,7):
	rfreq=i*.02
	lab="%5.2f" % (rfreq)
	r=rfreq*sumb*sc+r1
	a.circle(0.,0.,int(r))
	a.text(int(a.ix(0.)-24),int(a.jy(0.)-r-10),0,12,lab)
a.text(.05j,.90j,0.,18,'blue circles are frequency per 10 degrees')
a.color(0,0,0)
a.text(.25j,.95j,0.,24,'SFO 2 m winds, 1998')
calmf=float(calm)/sumb
calmfs="   calm freq= %f" % calmf 
a.text(.1j,.05j,0.,12,calmfs)
dirlessf=float(dirless)/sumb
dirlessfs="dirless freq= %f" % dirlessf 
a.text(.1j,.02j,0.,12,dirlessfs)
a.close()