/*	param Single	*/

options results

address 'rexx_TVPaint'

	tv_SetDrawMode Color
	tv_AliasOff
	tv_Pen 1

/* lockuser command to avoid dirty spots under the mouse */

	tv_lockuser

	parse ARG m x y b
	if(m~='Single')then
	do
		tv_warn 'I need CIRCLE parameters'
		exit
	end

	tv_setApen 0 255 255 255
	do i=4 to 32 by 4
		tv_setApen 0 255-i*6 255-i*6 255
		tv_circle x y i 0
		tv_circle x y i-4 1
	end
	tv_circle x y i-4 1

	tv_unlockuser

	tv_AliasON