* Program ...: Shadowng
* Author ....:
* Date ......: Wed  11-22-1989
* Versions ..: dBASE IV Version 1.1
* Notes .....: Draw Zooming Shadow for Popups

PARAMETER ln_x1,ln_y1,ln_x2,ln_y2

  ln_x0 = ln_x2+1
  ln_y0 = ln_y2+2
  ln_dx = 1
  ln_dy = (ln_y2-ln_y1) / (ln_x2-ln_x1)
  DO WHILE ln_x0 <> ln_x1 .OR. ln_y0 <> ln_y1+2
    @ ln_x0,ln_y0 FILL TO ln_x2+1,ln_y2+2 COLOR n+/n
    ln_x0 = IIF(ln_x0<>ln_x1,ln_x0 - ln_dx,ln_x0)
    ln_y0 = IIF(ln_y0<>ln_y1+2,ln_y0 - ln_dy,ln_y0)
    ln_y0 = IIF(ln_y0<ln_y1+2,ln_y1+2,ln_y0)
	ENDDO

RETURN

* EOP: Shadowg