home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / shadowng.zip / SHADOWNG.PRG next >
Text File  |  1990-06-06  |  579b  |  24 lines
  1. * Program ...: Shadowng
  2. * Author ....:
  3. * Date ......: Wed  11-22-1989
  4. * Versions ..: dBASE IV Version 1.1
  5. * Notes .....: Draw Zooming Shadow for Popups
  6.  
  7. PARAMETER ln_x1,ln_y1,ln_x2,ln_y2
  8.  
  9.   ln_x0 = ln_x2+1
  10.   ln_y0 = ln_y2+2
  11.   ln_dx = 1
  12.   ln_dy = (ln_y2-ln_y1) / (ln_x2-ln_x1)
  13.   DO WHILE ln_x0 <> ln_x1 .OR. ln_y0 <> ln_y1+2
  14.     @ ln_x0,ln_y0 FILL TO ln_x2+1,ln_y2+2 COLOR n+/n
  15.     ln_x0 = IIF(ln_x0<>ln_x1,ln_x0 - ln_dx,ln_x0)
  16.     ln_y0 = IIF(ln_y0<>ln_y1+2,ln_y0 - ln_dy,ln_y0)
  17.     ln_y0 = IIF(ln_y0<ln_y1+2,ln_y1+2,ln_y0)
  18.     ENDDO
  19.  
  20. RETURN
  21.  
  22. * EOP: Shadowg
  23.  
  24.