Generate circular nibbling path with disposal

C call:

C CALL PVB412 (RX,RY,DD,WNIB,ANG,IENT,RGHN,IBL,IRET)

C The following variables must be defined beforehand:

C RX,RY : Centre of the circle

C DD : Diameter of the circle

C WNIB : Nibbling tool diameter

C ANG : Starting angle of the nibble circle

C IENT : Disposal type:

C 1 = disposal 1

C 2 = disposal 2

C 3 = disposal 3

C 4 = stop

C RGHN : Peak-to-valley depth of the nibbling path

C IBL : Block formation

C 0 = no

C 1 = yes

C IRET : is not evaluated, but must be specified

C Example:

C ----------------------------------------

C Generate circular nibble path with disposal

C ----------------------------------------

RX = 200.0

RY = 150.0

DD = 100.0

WNIB = 10.0

ANG = 270.0

IENT = 1

RGHN = 0.2

IBL = 0

CALL PVB412 (RX,RY,DD,WNIB,ANG,IENT,RGHN,IBL,IRET)