/*
	param circle

	Auto:rx Cir-Vortex.rx
*/

options results

address 'rexx_TVPaint'

	parse ARG m x y r b

	if(m~='Circle')then
	do
		tv_warn 'I need CIRCLE parameters'
		exit
	end

	tv_UpdateUndo

	n=5
	tv_SetDrawMode Shift
	tv_AeroSpline 0 255
	tv_AeroPower 100
	tv_AirPen n*2

	do while r>n
		do i=0 to r by n
			tv_circle x y i 0
		end
		r=r-n
	end

	tv_SetDrawMode Color
	tv_Pen 1