home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
World of Shareware - Software Farm 2
/
wosw_2.zip
/
wosw_2
/
DATABASE
/
SHADOWNG.ZIP
/
SHADOWNG.PRG
next >
Wrap
Text File
|
1990-06-06
|
579b
|
24 lines
* 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