/* Warp arexx
	Ce script va :
	- construire une animation de 10 images
	- faire un warp sur chaque image.
	- jouer l'animation
	*/

	options results
	parse ARG Port b
	
	ADDRESS value Port
	
	pp_GetWidth
	width=result

	pp_GetHeight
	height=result
	
	pp_MakeAnim 10
	
	radius=50

	do i=1 to 10
		do z=0 to width by 50
			do zz=0 to height by 50
				Dx=random(0,5,time('S'))
				Dy=random(0,5,time('S'))
				a=random(0,5,time('S'))
				if a>2 then
					do
						Dx=Dx*-1
					end
				a=random(0,5,time('S'))
				if a>2 then
					do
						Dy=Dy*-1
					end				
				pp_Warp z zz radius Dx Dy
			end
		end
		pp_NextFrame
	end
	pp_PlayAnim 1