/* Script Rexx
	AnimPainting for Spline*/

	call addlib("rexxmathlib.library", 5, -30, 0)

	options results
  parse ARG Port Mx My Mx1 My1 Mxa Mya b
	ADDRESS "Perfect_Paint.1"

	pp_CountFrames
	nb=result
	IF nb<2 then DO
		pp_Warn 'Make*an*Anim*first.'
		EXIT
	END	

	sz=200
  xa= (Mx+Mx1)/2 
	ya= (My+My1)/2
  Mxa= xa + 2*(Mxa-xa)
	Mya= ya + 2*(Mya-ya)
  x=Mx
	y=My

	pp_Plot Mx My
	pp_NextFrame
  DO f=1 To sz
    ff=f/sz
    xa=Mx+(Mxa-Mx)*ff
		ya=My+(Mya-My)*ff
		xb=Mxa+(Mx1-Mxa)*ff
		yb=Mya+(My1-Mya)*ff
    x=trunc(xa+(xb-xa)*ff+0.5)
		y=trunc(ya+(yb-ya)*ff+0.5)
		pp_Plot x y
		pp_NextFrame
  END