` This source code was distributed via DBDN
` The Dark Basic Developer Network (http://dbdn.darkbasic.com)
` It is copyright David Smith and is used on DBDN with full permission
rem -------------------------------------------
rem Darkbasic Pro
rem environment check program
rem orig. build with v109b
rem based on 2 older snippets
rem merged as one aug 2001
rem updated for DBPRO 26th June 2002
rem notes :
` 3d blitting errors
` threedblitcheck = 3dblit available()
` i couldnt start a varaible name with a number without it turning green ?
` eg 3dblitcheck as compared to above
rem -------------------------------------------
sync on
sync rate 0
set text font "verdana"
set text size 10
set text opaque
ink rgb(255,255,0),1
`define commands into variables
videocard$ = current graphics card$()
emulated = emulation mode()
filtercheck = filtering available()
fogcheck = fog available()
tnl = tnl available()
alphablendcheck = alphablending available()
vidmem = system dmem available()
sysmem = system smem available()
totalmem = system tmem available()
hardware = screen type()
`blitcheck = 3dblit available()
blitsys = blitsystolocal available()
cliptlverts = cliptlverts available()
colorperspective = colorperspective available()
colorwriteenable = colorwriteenable available()
cubemap = cubemap available()
cullccw = cullccw available()
cullcw = cullcw available()
fogrange = fogrange available()
fogtable = fogtable available()
fogvertex = fogvertex available()
fullscreengamma = fullscreengamma available()
mipcubemap = mipcubemap available()
mipmap = mipmap available()
mipmaplodbias = mipmaplodbias available()
mipmapvolume = mipmapvolume available()
nonpowtextures = nonpowtextures available()
nonlocalvideomemory = nonlocalvideomemory available()
renderafterflip = renderafterflip available()
renderafterflip = renderafterflip available()
renderwindowed = renderwindowed available()
volumemap = volumemap available()
wbuffer = wbuffer available()
zfog = zfog available()
alpha = alpha available()
anistropic = anistropicfiltering available()
antalias = ANTIALIAS AVAILABLE()
cgamma = CALIBRATEGAMMA AVAILABLE()
colorwrite = COLORWRITEENABLE AVAILABLE()
maxlights = get maximum lights()
maxpixelshades = get maximum pixel shader value ()
maxpixelshadesver =get maximum pixel shader version()
maxtexhgt = get maximum texture height()
maxtexwdt = get maximum texture width()
projtex = projectedtextures available()
maxvertshadeconst = get maximum vertex shader constants()
maxvertshadever = get maximum vertex shader version()
maxvolext = get maximum volume extent()
perspective = perspectivetextures available()
tnlvertsysmem = tlvertexsystemmemory available()
tnlvertvidmem = tlvertexvideomemory available()
perform checklist for display modes
totalscreens = checklist quantity()
ScrH = SCREEN HEIGHT()
ScrW = SCREEN WIDTH()
ScrD = SCREEN DEPTH()
kvidmem = vidmem / 1024
mvidmem = kvidmem / 1024
ksysmem = sysmem / 1024
msysmem = ksysmem / 1024
ktotalmem = totalmem / 1024
mtotalmem = ktotalmem / 1024
col1x= 10
col2x = 200
col3x = 500
text col3x,30,"total resolutions:"+str$(totalscreens)
for max=1 to totalscreens
Swidth=checklist value a(max)
Sheight=checklist value b(max)
Sdepth=checklist value c(max)
if Sdepth = 16 then ink rgb((Swidth/10)+100,(Swidth/10)+100,(Swidth/10)+100),1
if Sdepth = 32 then ink rgb((Swidth/10)+100,(Swidth/10)+100,(Swidth/10)+100),1
if W = Swidth and H = Sheight and D = Sdepth
ink rgb(255,255,0),1
endif
text col3x,(max*12)+50,"#" + str$(max) + "= " + str$(Swidth)+ " / " +str$(Sheight)+ " / " +str$(Sdepth)
next max
text col1x,10,"detected & using "+videocard$
text col1x,30,"screen depth = "+STR$(ScrD)
text col1x,50,"screen height = "+STR$(ScrH)
text col1x,70,"screen width = "+STR$(ScrW)
text col1x,90,"total avail mg "+STR$(mtotalmem)
text col1x,110,"hardware acceleration "+STR$(hardware)
text col1x,130,"hardware = "+STR$(hardware)
text col1x,150,"hardware = "+STR$(hardware)
text col1x,170,"filtercheck = "+STR$(filtercheck)
text col1x,190,"fog ="+STR$(filtercheck)
text col1x,210,"3dblit ="+" not available in DBP"
text col1x,230,"alphablendcheck ="+STR$(alphablendcheck)
text col1x,250,"emulated ="+STR$(emulated)
text col1x,270,"tnl ="+STR$(tnl)
text col1x,290,"litsys ="+STR$(litsys)
text col1x,310,"cliptlverts ="+STR$(cliptlverts)
text col1x,330,"colorperspective ="+STR$(colorperspective)
text col1x,350,"colorwriteenable ="+STR$(colorwriteenable)
text col1x,370,"cubemap ="+STR$(cubemap)
text col1x,390,"cullccw ="+STR$(cullccw)
text col1x,410,"cullcw ="+STR$(cullcw)
text col1x,430,"fogrange ="+STR$(fogrange)
text col1x,450,"fogtable ="+STR$(fogtable)
text col1x,470,"fogvertex ="+STR$(fogvertex)
text col1x,490,"fullscreengamma ="+STR$(fullscreengamma)
text col1x,510,"mipcubemap ="+STR$(mipcubemap)
text col1x,630,"video mg "+STR$(mvidmem)
text col1x,650,"system mg "+STR$(msysmem)
`text col1x,670,"3d blitting "+STR$(blitcheck)
text col2x,30, "mipmap ="+STR$(mipmap)
text col2x,50, "mipmaplodbias ="+STR$(mipmaplodbias)
text col2x,70, "mipmapvolume ="+STR$(mipmapvolume)
text col2x,90, "nonpowtextures ="+STR$(nonpowtextures)
text col2x,110, "nonlocalvideomemory ="+STR$(nonlocalvideomemory)
text col2x,130, "renderafterflip ="+STR$(renderafterflip)
text col2x,150, "renderafterflip ="+STR$(renderafterflip)
text col2x,170, "renderwindowed ="+STR$(renderwindowed)
text col2x,190, "volumemap ="+STR$(volumemap)
text col2x,210, "wbuffer ="+STR$(wbuffer)
text col2x,230, "zfog ="+STR$(zfog)
text col2x,250, "alpha ="+STR$(alpha)
text col2x,270, "anistropic ="+STR$(anistropic)
text col2x,290, "antalias ="+STR$(antalias)
text col2x,310, "cgamma ="+STR$(cgamma)
text col2x,330, "colorwrite ="+STR$(colorwrite)
text col2x,350, "maxlights ="+STR$(maxlights)
text col2x,370, "maxpixelshades ="+STR$(maxpixelshades)
text col2x,390, "maxpixelshadesver ="+STR$(maxpixelshadesver)
text col2x,410, "maxtexhgt ="+STR$(maxtexhgt)
text col2x,430, "maxtexwdt ="+STR$(maxtexwdt)
text col2x,450, "projtex ="+STR$(projtex)
text col2x,470, "maxvertshadeconst ="+STR$(maxvertshadeconst)
text col2x,490, "maxvertshadever ="+STR$(maxvertshadever)
text col2x,510, "maxvolext ="+STR$(maxvolext)
text col2x,530, "perspective ="+STR$(perspective)
text col2x,550, "tnlvertsysmem ="+STR$(tnlvertsysmem)
text col2x,570, "tnlvertvidmem ="+STR$(tnlvertvidmem)
sync
suspend for key
end
