TheGameCreators - CodeBase - Visual Confirmation Support Tests (VCST)

Return to the CodeBase listing

Category: Complete Applications

Version: 1.0

Information

Uploaded: 31st Oct 2004 11:06

Modified: 1st Jan 1970 01:00

Author: Anonymous Coder

Summary

This is a routine application that tests the abilities of your 3D Graphics Card.

Full Description

Bug: 1.A very large executable , so I can't attach it here. 2.Most likely , if you have a new graphic accelerator with more features than mine , you wont be able to see all of them on the screen at the same time. 3.Unjustified delay while you use the "SYSTEM DMEM AVAILABLE()" command. Please feel free fixing the bugs. Feel free using the code anyway you want.

DarkBASIC Professional Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

Rem Project: VCST

Rem Created: 31/10/2004 5:41:47 Î¼Î¼

Rem ***** Main Source File *****

Rem Project: new

Rem Created: 31/10/2004 7:46:43 Ï€Î¼

Rem ***** Main Source File *****

Camera_Number=1

Color_Backdrop_Value=rgb(0,0,0)

Object_Number=1

Color_Object_Value=rgb(255,255,255)

Ghost_Effect=0

Fade_Value=100

Flag=1

Object_Start=1

Object_End=1

X=0

Y=0

Z=10

XAngle#=0.0

YAngle#=10.0

ZAngle#=0.0

Size=2

Width=800

Height=600

Depth=32

Statistic_Code=1

code_line=1

VCST=0

backdrop off : cls : sync on : sync rate 0

set text font "arial" : set text size 16

set text to bold : set text transparent

autocam on

backdrop off

SET DISPLAY MODE Width, Height, Depth

MAKE CAMERA Camera_Number

COLOR BACKDROP Camera_Number, Color_Backdrop_Value

MAKE OBJECT CUBE Object_Number, Size

TEXTURE OBJECT Object_Number, Image_Number

POSITION OBJECT Object_Number, X, Y, Z

SHOW OBJECT Object_Number

YAngle#=YAngle#+1.0

XAngle#=XAngle#+1.0

ZAngle#=ZAngle#+1.0

YROTATE OBJECT Object_Number, YAngle#

XROTATE OBJECT Object_Number, XAngle#

ZROTATE OBJECT Object_Number, ZAngle#

text 0,0,"3D Graphic Card Acceleration Abilities."

text 0,code_line*15,"Visual Confirmation Support Tests (VCST).":code_line=code_line+1

set cursor 0,code_line*15: print "VCST successful test results: ",hardware_characteristics," /43":code_line=code_line+1

text 0,code_line*15,"The current 3D device/card supports:":code_line=code_line+2

if ( ALPHABLENDING AVAILABLE() = 1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Alphablending , effect of 3D semi-transparency.":code_line=code_line+1

if ( ALPHA AVAILABLE() = 1 ) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Operations to the alpha channels contained within your textures and surfaces.":code_line=code_line+1

if ( ALPHACOMPARISON AVAILABLE() = 1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Alpha comparisons.":code_line=code_line+1

if ( ANISTROPICFILTERING AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Anisotropic filtering on textures.":code_line=code_line+1

if ( ANTIALIAS AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Anti aliasing of texture edges.":code_line=code_line+1

if ( BLITSYSTOLOCAL AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Blitting from system to local memory.":code_line=code_line+1

if ( CALIBRATEGAMMA AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Modification of the display gamma.":code_line=code_line+1

if ( CLIPANDSCALEPOINTS AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Slipping and scaling of points.":code_line=code_line+1

if ( CLIPTLVERTS AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Clipping of TL vertices.":code_line=code_line+1

if ( COLORPERSPECTIVE AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Color perspective correction of textures.":code_line=code_line+1

if ( COLORWRITEENABLE AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Color write enable.":code_line=code_line+1

if ( CUBEMAP AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Cube mapping.":code_line=code_line+1

if ( CULLCCW AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Counter clockwise culling of polygons.":code_line=code_line+1

if ( CULLCW AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Clockwise culling of polygons.":code_line=code_line+1

if ( DITHER AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Texture dithering.":code_line=code_line+1

if ( FILTERING AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Texture filtering,used to smooth out your textures,creating a slight bluring effect.":code_line=code_line+1

if ( FOGRANGE AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Fog range feature.":code_line=code_line+1

if ( FOGTABLE AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Fog table method of producing fog.":code_line=code_line+1

if ( FOGVERTEX AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Fog vertex method of producing fog.":code_line=code_line+1

if ( FOG AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Fogging,used to create the effect of 3D fog.":code_line=code_line+1

if ( FULLSCREENGAMMA AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Fullscreen modification of the display gamma setting.":code_line=code_line+1

if ( MIPCUBEMAP AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Mipmapped cube mapping.":code_line=code_line+1

if ( MIPMAP AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Mipmapping.":code_line=code_line+1

if ( MIPMAPLODBIAS AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".A lod biasfactor in the mipmapping feature.":code_line=code_line+1

if ( MIPMAPVOLUME AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Mipmapped volumes.":code_line=code_line+1

if ( NONPOWTEXTURES AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Non-power of 2 texture sizes.":code_line=code_line+1

if ( PERSPECTIVETEXTURES AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Perspective correct texturing.":code_line=code_line+1

if ( PROJECTEDTEXTURES AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Projected textures.":code_line=code_line+1

if ( RENDERAFTERFLIP AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Rendering to the display device directly after a flip has occurred.":code_line=code_line+1

if ( SEPERATETEXTUREMEMORIES AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Separate texture memories.":code_line=code_line+1

if ( RENDERWINDOWED AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Rendering to a window.":code_line=code_line+1

if ( ONLYSQUARETEXTURES AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Square textures.":code_line=code_line+1

if ( TNL AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Uses hardware TNL (TNL=Transformation aNd Lighting).":code_line=code_line+1

if ( TLVERTEXSYSTEMMEMORY AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Transformation and lighting in system memory.":code_line=code_line+1

if ( TLVERTEXVIDEOMEMORY AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Transformation and lighting in video memory.":code_line=code_line+1

if ( NONLOCALVIDEOMEMORY AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Nonlocal video memory.":code_line=code_line+1

if ( TEXTURESYSTEMMEMORY AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Texturing from system memory.":code_line=code_line+1

if ( TEXTUREVIDEOMEMORY AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Texturing from video memory.":code_line=code_line+1

if ( VOLUMEMAP AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Volume mapping.":code_line=code_line+1

if ( WBUFFER AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".W buffer.":code_line=code_line+1

if ( WFOG AVAILABLE()=1) then: VCST=VCST+1: set cursor 0,code_line*15:print VCST,".W Fogging.":code_line=code_line+1

if ( ZBUFFER AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Z buffer.":code_line=code_line+1

if ( ZFOG AVAILABLE()=1) then:VCST=VCST+1: set cursor 0,code_line*15:print VCST,".Z Fogging."

code_line=code_line+2

set cursor 0,code_line*15:print "The current number of polygons used to render the scene: " ,STATISTIC(Statistic_Code):code_line=code_line+1

set cursor 0,code_line*15:print "The maximum pixel shader value allowed by the current 3D device: ",GET MAXIMUM PIXEL SHADER VALUE():code_line=code_line+1

set cursor 0,code_line*15:print "Current display card being used by the system: ",CURRENT GRAPHICS CARD$():code_line=code_line+2

if ( CHECK DISPLAY MODE(Width, Height, Depth)=1)then:set cursor 0,code_line*15:print "Application resolution: ":code_line=code_line+1

set cursor 0,code_line*15:print "Current screen width: ",screen WIDTH():code_line=code_line+1

set cursor 0,code_line*15:print "Current screen height: ",screen HEIGHT():code_line=code_line+1

set cursor 0,code_line*15:print "Current screen depth: ",screen DEPTH():code_line=code_line+1

`set cursor 0,code_line*15:print "Total video memory available on the system: ",SYSTEM DMEM AVAILABLE():code_line=code_line+1

if ( SCREEN TYPE()=1) then:set cursor 0,code_line*15:print "The screen is hardware accelerated.":code_line=code_line+1

text 20,screen height()-40,desc$

fps$="DBPro Fps: "+str$(screen fps())

text screen width()-20-text width(fps$),screen height()-40,fps$

fastsync

hardware_characteristics=VCST

code_line=1

VCST=0

loop

end

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	34

CodeBase - Visual Confirmation Support Tests (VCST)