/*	param none	*/

	options results

	address 'rexx_TVPaint'


/* reset */

	tv_UpdateUndo
	tv_SetDrawMode	Color
	tv_AliasOn
	tv_StencilOff
	tv_DensityOff
	tv_CycleOff	
	tv_AeroSpline 10 245
	tv_AeroPower 10
	tv_DensitySpline 255 50
	tv_XMax
	tv_YMax
	tv_WrapX	0
	tv_WrapY	0
	tv_RangeV

	tv_Clear

	x=10
	offy=100
	offx=10

	W=7

	dx=10	
	dy=10	

	lw=50
	lh=20


	b.1=random(0,W*2,time('S'))-W
	do i=2 to lw
		z=i-1
		b.i=b.z+random(0,W*2)-W
		x=i*dx+offx
		tv_line x-dx b.z+offy x b.i+offy
	end
	

	do j=1 to lh
	
		a.1=b.1+random(0,2*W)-W
		offy=offy+dy

		x=dx+offx+dx
		tv_line x a.1+offy x-dx b.1+offy-dy

		do i=2 to lw
			z=i-1
			a.i=(a.z+b.i)%2+random(0,2*W)-W
			x=i*dx+offx+dx
			tv_line x-dx a.z+offy x a.i+offy
			tv_line x a.i+offy x-dx b.i+offy-dy
		end
	
		do i=1 to lw
			b.i=a.i
		end

		offx=offx+dx

	end