	program opleg
	open(30,file='opleg.kumac')
	write(30,*)' null 200 210 -209 -199 '
	write(30,*)' text 201 -200 Buis3 0.35 '
        write(30,*)' arc 215 -217 15'
        write(30,*)' arc 185 -217 15 '
        write(30,*)' arc 200 -191 15 '
        write(30,*)' arc 207.5 -203.8 0.2 '
	r=sqrt(200.**2+191.**2)

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