Description: Display bevel graphics around a box
Mapped Command:
FUNCTION __DrawBevel(x,y,depth,width,pattern)
   local currcolor := setcolor()                 // save the current Clipper color
   set color to BevelFrameColor
   draw box from x-.15,y-.325 to x+depth+.15,y+width+.325 pattern 20
   set color to "w/"
   draw line from x+depth-.15,y+width-.325 to x+depth+.15,y+width+.325
   set color to LowerRightBevelColor
   draw line from x-.15,y-.325 to x+.15,y+.325
   draw line from x-.15,y+width+.325 to x+.15,y+width-.325
   draw line from x+depth-.15,y+.325 to x+depth+.15,y-.325
   set color to BevelSurfaceColor
   draw box from x+.15,y+.325 to x+depth-.15,y+width-.325 pattern pattern
   set color to UpperLeftBevelColor
   shade area at x-.05,y+.4
   shade area at x+.4,y-.1
   set color to LowerRightBevelColor
   shade area at x+.2,y+width-.2
   shade area at x+depth,y+.35
   setcolor(currcolor)                           // restore the Clipper color
RETURN(Void)