Sorry your browser is not supported!

Rem **********************************************************************
Rem     Project:    Gyroscope
Rem     Author:     Paul S.J.Millard
Rem
Rem     File:       Init.dba
Rem     Purpose:    Initialize the graphics engine and setup general
Rem                 house keeping tasks
Rem
Rem     History:    07/05/03 - 20:42 - Created
Rem **********************************************************************

#constant GFX_FRAMERATE     100
#constant GFX_SCREENWIDTH   640
#constant GFX_SCREENHEIGHT  480
#constant GFX_SCREENBPP     16

Type UTGFXScreenProperties
    m_strVideoCard As String
    m_nDeviceType As Integer
    m_nScreenWidth As Integer
    m_nScreenHeight As Integer
    m_nScreenBpp As Integer
    m_nFrameRate As Integer
    m_nGamma As Integer
    m_bHWAccelerated As Boolean
    m_bInvalid As Boolean
    m_bAlphaBlendingAvailable As Boolean
    m_bCubeMapAvailable As Boolean
    m_bFogAvailable As Boolean
    m_bGammaAvailable As Boolean
EndType

Rem Declare the global screen properties structure to be used throughout the
Rem application for information regarding video capabilities
g_utGFXScreenProperties As UTGFXScreenProperties

Rem **********************************************************************
Rem     Function:   InitSystem
Rem     Purpose:    Setup standard system settings
Rem
Rem     Input:      None
Rem
Rem     Return:     ERR_OK          - If successful
Rem                 ERR_FAILED      - Failure, due to invalid supported
Rem                                   video mode
Rem **********************************************************************
Function InitSystem()
    nError As Integer = ERR_OK

    If Not DEBUG
        Disable EscapeKey
        Disable SystemKeys
    EndIf
EndFunction nError

Rem **********************************************************************
Rem     Function:   InitVideo
Rem     Purpose:    Initializes the video engine and sets up the correct
Rem                 video mode for the current application
Rem
Rem     Input:      nWidth          - Width of the video mode to initialise
Rem                 nHeight         - Height of the video mode to initialise
Rem                 nBpp            - Colour depth, either 16 or 24 bpp
Rem                 nFrameRate      - Frame rate to use for video refresh (FPS)
Rem
Rem     Return:     ERR_OK          - If successful
Rem                 ERR_FAILED      - Failure, due to invalid supported
Rem                                   video mode
Rem **********************************************************************
Function InitVideo( nWidth As Integer, nHeight As Integer, nBpp As Integer, nFrameRate As Integer )

    nError As Integer = ERR_FAILED

    If Check Display Mode( nWidth, nHeight, nBpp )<>ERR_OK Then Goto function_exit

    Rem
    Rem Obtain video capabilities and setup global structure
    Rem
    g_utGFXScreenProperties.m_strVideoCard = Current Graphics Card$()
    g_utGFXScreenProperties.m_nDeviceType = Get Device Type()
    g_utGFXScreenProperties.m_nScreenWidth = nWidth
    g_utGFXScreenProperties.m_nScreenHeight = nHeight
    g_utGFXScreenProperties.m_nScreenBpp = nBpp
    g_utGFXScreenProperties.m_nFrameRate = nFrameRate
    g_utGFXScreenProperties.m_bHWAccelerated = Screen Type()
    g_utGFXScreenProperties.m_bInvalid = 0
    g_utGFXScreenProperties.m_bAlphaBlendingAvailable = AlphaBlending Available()
    g_utGFXScreenProperties.m_bCubeMapAvailable = CubeMap Available()
    g_utGFXScreenProperties.m_bFogAvailable = Fog Available()
    g_utGFXScreenProperties.m_bGammaAvailable = FullScreenGamma Available()

    Rem
    Rem Set the selected video mode
    Rem

    Set Display Mode nWidth, nHeight, nBpp

    Sync On
    Sync Rate nFrameRate
    Hide Mouse

    nError = ERR_OK
function_exit:
EndFunction nError

Rem **********************************************************************
Rem     Function:   ExitSystem
Rem     Purpose:    Displays message box if necessary and exits the
Rem                 application
Rem
Rem     Input:      None
Rem
Rem     Return:     None
Rem **********************************************************************
Function ExitSystem( nError As Integer, strError As String )
    If nError  ERR_OK
        Exit Prompt strError, APP_NAME
    Else
        End
    EndIf
EndFunction

; **** Dark BASIC Professional Project File ****
version=DBP1.00
project name=test include



; **** source file information ****
main=test include.dba
include1=Init.dba
; The compiler only needs to read the final source from this entry - the editor
; handles include files, concatenation, etc.
final source=_Temp.dbsource

; The editor will replace any references to %temp in the EXE path/filename
executable=test include.exe

; **** Executable Information  ***
; build types: exe, media, installer,alone
build type=exe

; ** Media file compression **
compression=NO
; ** Media file encryption **
encryption=NO
; ** Display the card options screen window? **
card options window=NO

; **** debugger information ****
; If the editor sets this to yes, it is running in debug mode
CLI=NO

; **** display mode information ****
app title=DarkBASIC Pro Project
; graphics mode options: fullscreen, window, desktop,fulldesktop, hidden
graphics mode=fulldesktop
fullscreen resolution=640x480x16
; arbitrary sizes are valid for windowed mode
window resolution=640x480

; **** External Files Information ****
; **** Media ****
media root path=
; example entries: media1=graphics*.jpg

; **** Icons ****

; **** Cursors ****

; **** Version Info ****
VerComments=
VerCompany=
VerFileDesc=
VerFileNumber=v1.0
VerInternal=
VerCopyright=
VerTrademark=
VerFilename=
VerProduct=
VerProductNumber=v1.0

#constant DEBUG 1

InitSystem()
InitVideo(640,480,32,60)

do
   cls
   text 0,0,"Working"
   sync
loop