TheGameCreators - CodeBase - Graphics Card Tester

Category: Basic 3D

Version: 1.0

Information

Uploaded: 4th May 2004 20:25

Modified: 1st Jan 1970 01:00

Author: Thoth Onegan

Summary

This is a simple program that tests out your graphics card. Has color coding! Any comments, email me at thoth_onegan@hotmail.com

Full Description

This is a simple program that tests out your graphics card. Has color coding!<br /> It will color code good things blue, non existing things red, and green is other data (like max lights). Any comments, email me at thoth_onegan@hotmail.com

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

cls

print "Video Card Tester : Created by Thoth Onegan"

print "Press Enter to start Video Tests"

wait key

cls

for x=1 to 20

if x=1 then num=alphablending available()

if x=2 then num=alpha available()

if x=3 then num=alphacomparison available()

if x=4 then num=anistropicfiltering available()

if x=5 then num=antialias available()

if x=6 then num=blitsystolocal available()

if x=7 then num=calibrategamma available()

if x=8 then num=clipandscalepoints available()

if x=9 then num=cliptlverts available()

if x=10 then num=colorperspective available()

if x=11 then num=colorwriteenable available()

if x=12 then num=cubemap available()

if x=13 then num=cullccw available()

if x=14 then num=cullcw available()

if x=15 then num=dither available()

if x=16 then num=filtering available()

if x=17 then num=fogrange available()

if x=18 then num=fogtable available()

if x=19 then num=fogvertex available()

if x=20 then num=fog available()

if num=1

string$="yes"

ink rgb(0,0,255),rgb(0,0,0)

endif

if num=0

string$="no"

ink rgb(255,0,0),rgb(0,0,0)

endif

if x=1 then print "Alpha Blending : "; string$

if x=2 then print "Alpha : "; string$

if x=3 then print "Alpha Comparison : "; string$

if x=4 then print "Anistrophic Filtering : "; string$

if x=5 then print "Antialias : "; string$

if x=6 then print "Blit Sys To Local : "; string$

if x=7 then print "Calibrate Gamma : ";  string$

if x=8 then print "Clip and Scale Points : "; string$

if x=9 then print "Clip TL Verts : "; string$

if x=10 then print "Color Perspective : "; string$

if x=11 then print "Color Write Enable : "; string$

if x=12 then print "Cube Map : "; string$

if x=13 then print "Cull CCW : "; string$

if x=14 then print "Cull CW : "; string$

if x=15 then print "Dither : "; string$

if x=16 then print "Filtering : "; string$

if x=17 then print "Fog Range : "; string$

if x=18 then print "Fog Table : "; string$

if x=19 then print "Fog Vertex : "; string$

if x=20 then print "Fog Available : "; string$

next x

wait key

cls

for x=1 to 20

if x=1 then num=fullscreengamma available()

if x=2 then num=mipcubemap available()

if x=3 then num=mipmap available()

if x=4 then num=mipmaplodbias available()

if x=5 then num=mipmapvolume available()

if x=6 then num=nonpowtextures available()

if x=7 then num=perspectivetextures available()

if x=8 then num=projectedtextures available()

if x=9 then num=renderafterflip available()

if x=10 then num=renderwindowed available()

if x=11 then num=seperatetexturememories available()

if x=12 then num=onlysquaretextures available()

if x=13 then num=tnl available()

if x=14 then num=tlvertexsystemmemory available()

if x=15 then num=tlvertexvideomemory available()

if x=16 then num=nonlocalvideomemory available()

if x=17 then num=texturesystemmemory available()

if x=18 then num=texturevideomemory available()

if x=19 then num=volumemap available()

if x=20 then num=wbuffer available()

if num=1

string$="yes"

ink rgb(0,0,255),rgb(0,0,0)

if x=12 then ink rgb(255,0,0), rgb(0,0,0)

endif

if num=0

string$="no"

ink rgb(255,0,0),rgb(0,0,0)

if x=12 then ink rgb(0,0,255), rgb(0,0,0)

endif

if x=1 then print "Full Screen Gamma : "; string$

if x=2 then print "Mip Cube Map : "; string$

if x=3 then print "Mip Map : "; string$

if x=4 then print "Mip Map Lod Bias : "; string$

if x=5 then print "Mip Map Volume : "; string$

if x=6 then print "Non Pow Textures : "; string$

if x=7 then print "Perspective Textures : ";  string$

if x=8 then print "Projected Textures : "; string$

if x=9 then print "Render After Flip : "; string$

if x=10 then print "Render Windowed : "; string$

if x=11 then print "Seperate Texture Memories : "; string$

if x=12 then print "Only Square Textures Available : "; string$

if x=13 then print "TNL Available : "; string$

if x=14 then print "TL Vertex System Memory : "; string$

if x=15 then print "TL Vertex Video Memory : "; string$

if x=16 then print "Non Local Video Memory : "; string$

if x=17 then print "Texture System Memory : "; string$

if x=18 then print "Texture Video Memory : "; string$

if x=19 then print "Volume Map : "; string$

if x=20 then print "W Buffer : "; string$

next x

wait key

cls

for x=1 to 3

if x=1 then num=wfog available()

if x=2 then num=zbuffer available()

if x=3 then num=zfog available()

if num=1

string$="yes"

ink rgb(0,0,255),rgb(0,0,0)

endif

if num=0

string$="no"

ink rgb(255,0,0),rgb(0,0,0)

endif

if x=1 then print "Alpha Blending : "; string$

if x=2 then print "Alpha : "; string$

if x=3 then print "Alpha Comparison : "; string$

next x

wait key

cls

ink rgb(0,255,0), rgb(0,0,0)

for x=1 to 8

if x=1 then num=get maximum lights()

if x=2 then num=get maximum pixel shader value()

if x=3 then num=get maximum texture height()

if x=4 then num=get maximum texture width()

if x=5 then num=get maximum vertex shader constants()

if x=6 then num=get maximum volume extent()

if x=7 then num=get maximum pixel shader version()

if x=8 then num=get maximum vertex shader version()

if x=1 then print "Maximum Lights in Scene : "; num

if x=2 then print "Maximum Pixel Shader : "; num

if x=3 then print "Maximum Texture Height : "; num

if x=4 then print "Maximum Texture Width : "; num

if x=5 then print "Maximum Vertex Shader Constants : "; num

if x=6 then print "Maximum Volume Extent : "; num

if x=7 then print "Maximum Pixel Shader Version : "; num

if x=8 then print "Maximum Vertex Shader Version : "; num

next x

wait key

cls

Download

Please login to download

Comments

No comments yet.

Author Name:	Thoth Onegan
CodeBase Entries:	1

CodeBase - Graphics Card Tester

Information

Summary

Full Description

DarkBASIC Professional Source Code

Download

Screen Shot

Author

Comments