Click above to get retro games delivered to your door ever month!

 zoombox()           Display a zooming box with shadow
------------------------------------------------------------------------------
 Declaration
   screen.hdr

 Syntax
   proc zoombox extern
   param value uint    uTop, ;
         value uint    uLeft, ;
         value uint    uBottom, ;
         value uint    uRight, ;
         value logical lGrow, ;
         const char(9) cFrameFillChar, ;
         value byte    bBorderAttribute, ;
         value byte    bFillAttribute, ;
         value byte    bShadowAttribute, ;
         value uint    uZoomDelay

 Arguments
   iTop is the top row of the box.

   iLeft is the leftmost column of the box.

   iBottom is the bottom row of the box.

   iRight is the rightmost column of the box.

   lGrow indicates if a zoom effect is desired.

   cFrameFillChar is the box frame string.

   bBorderAttribute is the color attribute for the box.

   bFillAttribute is the color attribute to fill the box.

   bShadowAttribute is the shadow color attribute.

   uZoomDelay is the relative zoom speed.

 Return
   None.

 Description
   zoombox() draws a shadowed box with the specified coordinates. If the
   lGrow parameter is set to .t. the box is displayed with a zooming effect.

   cFrameFillChar is a string of 8 or 9 characters which defines the eight
   border characters plus an (optional) fill character. Frequently used
   border strings are defined in screen.hdr.

   This function internally uses the cpuspeed() function to make the
   zoom speed almost independent of the actual processor speed of the
   computer.

 Example
   #define EXAMPLE_SCREEN
   #include example.hdr

   proc Test_zoombox
   vardef
      uint n
   enddef
   for n := 0 to 23
      ? replicate( "#", 78 )
   next
   zoombox( 5, 3, 12, 30, .f., BOX_SINGLE, BLUE_YELLOW, BLUE_WHITE, ;
      BLACK_DARK_GREY, 0 )
   zoombox( 15, 25, 22, 65, .t., BOX_DOUBLE + "*", BLUE_YELLOW, BLUE_WHITE, ;
      BLACK_DARK_GREY, 20 )
   endproc

   proc main
   Test_zoombox()
   endproc