	program opleg
	open(30,file='opleg.kumac')
	write(30,*)' null 170 180 -209 -199 '
	write(30,*)' text 171 -200 Buis2 0.35 '
        write(30,*)' arc 185 -217 15'
        write(30,*)' arc 155 -217 15 '
        write(30,*)' arc 170 -191 15 '
        write(30,*)' arc 177.5 -203.8 0.2 '
	r=sqrt(170.**2+191.**2)

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