	program opleg
	open(30,file='opleg.kumac')
	write(30,*)' null 140 150 -209 -199 '
	write(30,*)' text 141 -200 Buis1 0.35 '
        write(30,*)' arc 155 -217 15'
        write(30,*)' arc 125 -217 15 '
        write(30,*)' arc 140 -191 15 '
        write(30,*)' arc 147.5 -203.8 0.2 '
	r=sqrt(140.**2+191.**2)

	x_lb=600.
	
	x0=140.
	y0=-sqrt(r*r-x0*x0)


	do i=0,6
	  x=140+i*3./6.
	  if (x.lt.r) then
            y=-sqrt(r*r-x*x)
	    y_lb=y/x*x_lb
	    ta=y/x
	    write(30,*)'arc ',x,' ',y,' 15 '
	    dist=sqrt( (x-155)**2 + (217+y)**2 ) - 2*15
	    print *,'i dy dist ',i,191+y,dist,' y_lb',y_lb,' ta ',ta*600.
	  endif
	 enddo
	close(30)
	end
