home *** CD-ROM | disk | FTP | other *** search
/ Zodiac Super OZ / MEDIADEPOT.ISO / FILES / 13 / N_B_V203.ZIP / B_BEVEL.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  53 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   B_BEVEL .DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │                          ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16.  
  17.    These boxes are good, general purpose buttons. Notice how the border of
  18.    the buttons change as you make the buttons "deeper". This is done to
  19.    keep the definition of the button.
  20.    1 to 3 pixel borders are simply that. The 4 pixel border creates a
  21.    simple 1pixel lip and 5 and above get really fancy by creating an
  22.    embossed inner border and puts highlights on the corners. They all put
  23.    the "black" border around the button to add definition.
  24. $endif
  25.  
  26. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  27. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  28.                                                     '┌───────────────────────
  29. $INCLUDE "DAS-NB01.INC"                             '│
  30. $INCLUDE "DAS-NBV1.INC"                             '│
  31. $INCLUDE "DAS-NBV2.INC"                             '│
  32.                                                     '│
  33. CLS                                                 '│ get the VGA screen
  34. SCREEN 12                                           '│ set-up
  35. GraphicSETUP                                        '│
  36. fLoadDAScolor                                       '│ load 3D color system
  37.                                                     '│
  38. FOR Depth? = 1 TO 7                                 '│ draw some buttons
  39.   LOCATE (Y1%\16) + 2, 74                           '│
  40.   PRINT USING "#pixels"; Depth?;                    '│
  41.   X1% = 0 : Y2% = Y1% + 64                          '│ reset to next line
  42.   DO                                                '│
  43.     X2% = X1% + 64                                  '│ next box right
  44.     IF X2% > 639 THEN EXIT LOOP                     '│ no more room, bye
  45.     GBoxBevel X1%, Y1%, X2%, Y2%, Depth?, 4, 9, 14  '│ draw the boxes
  46.     INCR X1%, 64                                    '│ next box left side
  47.   LOOP                                              '│
  48.   INCR Y1%, 64                                      '│ next row
  49. NEXT                                                '│
  50.                                                     '│
  51. WHILE NOT INSTAT : WEND                             '│ a clean exit
  52. CLS : PALETTE : SCREEN 0 : END                      '│
  53.                                                     '└───────────────────────