This code checks your computer for the binary outputs of the availability expressions (listed in the Basic3D section of the DBP manual) & prints them to screen as "Yes" or "No".
remstart
This code tests your computer for the binary outputs of the availability expressions in the DBP manual & prints them to screen as "Yes" or "No"
remend
dim av$(42)
av$(0)="Alpha"
av$(1)="Alpha Blending"
av$(2)="Alpha Comparison"
av$(3)="Anisotropic Filtering"
av$(4)="Anti Aliasing"
av$(5)="Blit Systolocal"
av$(6)="Calibrate Gamma"
av$(7)="Clip & Scale Points"
av$(8)="Clip TL Verts"
av$(9)="Color Perspective"
av$(10)="Color Write Enable"
av$(11)="Cubemap"
av$(12)="Cull CCW"
av$(13)="Cull CW"
av$(14)="Dither"
av$(15)="Filtering"
av$(16)="Fog Range"
av$(17)="Fog Vertex"
av$(18)="Fog"
av$(19)="Full Screen Gamma"
av$(20)="Mip Cube Map"
av$(21)="Mipmap"
av$(22)="Mipmap LOD Bias"
av$(23)="Mipmap Volume"
av$(24)="Non-POW Textures"
av$(25)="Perspective Textures"
av$(26)="Projected Textures"
av$(27)="Render After Flip"
av$(28)="Render Windowed"
av$(29)="Seperate Texture Memories"
av$(30)="Only Square Textures"
av$(31)="TNL Available"
av$(32)="TL Vertex System Memory"
av$(33)="TL Vertex Video Memory"
av$(34)="Nonlocal Video Memory"
av$(35)="Texture System Memory"
av$(36)="Texture Video Memory"
av$(37)="Volume Map"
av$(38)="W-Buffer"
av$(39)="W-Fog"
av$(40)="Z-Buffer"
av$(41)="Z-Fog"
av$(42)=""
set text font "Verdana"
set text size 12
cls
set text to bold
print "SCREEN AVAILABILITIES TEST"
print "by Codelike"
print ""
set text to normal
t=0
if alpha available()=1 then gosub _printy else gosub _printn
if alphablending available()=1 then gosub _printy else gosub _printn
if alphacomparison available()=1 then gosub _printy else gosub _printn
if anistropicfiltering available()=1 then gosub _printy else gosub _printn
if antialias available()=1 then gosub _printy else gosub _printn
if blitsystolocal available()=1 then gosub _printy else gosub _printn
if calibrategamma available()=1 then gosub _printy else gosub _printn
if clipandscalepoints available()=1 then gosub _printy else gosub _printn
if cliptlverts available()=1 then gosub _printy else gosub _printn
if colorperspective available()=1 then gosub _printy else gosub _printn
if colorwriteenable available()=1 then gosub _printy else gosub _printn
if cubemap available()=1 then gosub _printy else gosub _printn
if cullccw available()=1 then gosub _printy else gosub _printn
if cullcw available()=1 then gosub _printy else gosub _printn
if dither available()=1 then gosub _printy else gosub _printn
if filtering available()=1 then gosub _printy else gosub _printn
if fogrange available()=1 then gosub _printy else gosub _printn
if fogvertex available()=1 then gosub _printy else gosub _printn
if fog available()=1 then gosub _printy else gosub _printn
if fullscreengamma available()=1 then gosub _printy else gosub _printn
if mipcubemap available()=1 then gosub _printy else gosub _printn
if mipmap available()=1 then gosub _printy else gosub _printn
if mipmaplodbias available()=1 then gosub _printy else gosub _printn
if mipmapvolume available()=1 then gosub _printy else gosub _printn
if nonpowtextures available()=1 then gosub _printy else gosub _printn
if perspectivetextures available()=1 then gosub _printy else gosub _printn
if projectedtextures available()=1 then gosub _printy else gosub _printn
if renderafterflip available()=1 then gosub _printy else gosub _printn
if renderwindowed available()=1 then gosub _printy else gosub _printn
if seperatetexturememories available()=1 then gosub _printy else gosub _printn
if onlysquaretextures available()=1 then gosub _printy else gosub _printn
if tnl available()=1 then gosub _printy else gosub _printn
if tlvertexsystemmemory available()=1 then gosub _printy else gosub _printn
if tlvertexvideomemory available()=1 then gosub _printy else gosub _printn
if nonlocalvideomemory available()=1 then gosub _printy else gosub _printn
if texturesystemmemory available()=1 then gosub _printy else gosub _printn
if texturevideomemory available()=1 then gosub _printy else gosub _printn
if volumemap available()=1 then gosub _printy else gosub _printn
if wbuffer available()=1 then gosub _printy else gosub _printn
if wfog available()=1 then gosub _printy else gosub _printn
if zbuffer available()=1 then gosub _printy else gosub _printn
if zfog available()=1 then gosub _printy else gosub _printn
wait key
_printy:
print av$(t)+": Yes" : t=t+1 : return :
_printn:
print av$(t)+": No" : t=t+1 : return :
I have an XP3000+, 1.5gb DDR333, a 6600GT and I'm programming 3k text-based exe's?!
