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

  SHADOW()                                                    Video Function
 Purpose..: Change screen colors to place a shadow
-------------------------------------------------------------------------------
 Syntax...: Shadow( <nTR>, <nLC>, <nBR>, <nRC>
                    [, <nType>][, <nAttr>] ) --> NIL

 Arguments: <nTR>      = Top row.
            <nLC>      = Left column.
            <nBR>      = Bottom row.
            <nRC>      = Right column.

            [<nType>]  = choice of shadow size. The default is S_FULL.

            Shadow Type Manifest Constants as found in FW_BOX.CH
            ------------------------------------------------------
            Value  FW_BOX.CH    Description
            ------------------------------------------------------
            1      S_FULL       Full size transparent shadows.
            2      S_HALF       Half size non-transparent shadows.
            ------------------------------------------------------

            [<nAttr>]  = Integer representing a color attribute.
                         The formula is ...nFore + ( nBack * 16 ).
                         It will reverse the foreground attribute onto a
                         black background, if none is passed.

 Returns..: NIL

 Remark...: It is a high speed function to create a non-destructive
            shadow. The function will work with DispBegin() and DispEnd()
            without flushing the display buffer.

 Source...: SHADOW.C
-------------------------------------------------------------------------------
 Example..: The example draws a frame with a double line
            in high white on red and then a half shadow. Following that
            a full, transparent shadow with a little color in it.

        local cFrame := "+-+|+-+| +-+"
        ...
        setcolor("W+/R")
        @ 4, 7, 22, 70 box cFrame
        Shadow( 4, 7, 22, 70, S_HALF )
     OR
        Shadow( 4, 7, 22, 70, S_FULL, Clr2Attr( "W+/R" ) )