does your graphics card do it all?

Author

Message

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 18th Jul 2005 00:51

Link

Hi All,

little prog to check what your graphics card can or cannot do?

Rem Project: candowhatwithcard
Rem Created: 7/17/2005 11:51:50 AM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent
sw=screen width()/2
lq=200
do
set text size 18
ink rgb(255,255,255),0
center text sw,0," What can your Grapihic Card do?"
set text size 14
if alphablending available()=1 then ink RGB(128,255,128),0: center text sw-lq,40,"alphablending available=yes":else ink RGB(255,0,0),0:center text sw-lq,40,"alphablending available=NO"
if alpha available()=1 then ink RGB(128,255,128),0: center text sw-lq,50,"alpha available=yes":else ink RGB(255,0,0),0:center text sw-lq,50,"alpha available=NO"
if alphacomparison available()=1then  ink RGB(128,255,128),0: center text sw-lq,60,"alphacomparison available=yes":else ink RGB(255,0,0),0:center text sw-lq,60,"alphacomparison available=NO"
if anistropicfiltering available()=1 then ink RGB(128,255,128),0: center text sw-lq,70,"anistropicfiltering available=yes":else ink RGB(255,0,0),0:center text sw-lq,70,"anistropicfiltering available=NO"
if antialias available()=1 then ink RGB(128,255,128),0: center text sw-lq,80,"antialias available=yes":else ink RGB(255,0,0),0:center text sw-lq,80,"antialias available=NO"
if blitsystolocal available()=1 then center text sw-lq,90,"blitsystolocal available=yes":else ink RGB(255,0,0),0:center text sw-lq,90,"blitsystolocal available=NO"
if calibrategamma available()=1 then center text sw-lq,100,"calibrategamma available=yes":else ink RGB(255,0,0),0: center text sw-lq,100,"calibrategamma available=NO":ink RGB(128,255,128),0
if clipandscalepoints available()=1 then ink RGB(128,255,128),0: center text sw-lq,110,"clipandscalepoints available=yes":else ink RGB(255,0,0),0:center text sw-lq,110,"clipandscalepoints available=NO"
if cliptlverts available()=1 then ink RGB(128,255,128),0:center text sw-lq,120,"cliptlverts available=yes":else ink RGB(255,0,0),0:center text sw-lq,120,"cliptlverts available=NO"
if colorperspective available()=1 then ink RGB(128,255,128),0:center text sw-lq,130,"colorperspective available=yes":else ink RGB(255,0,0),0:center text sw-lq,130,"colorperspective available=NO"
if colorwriteenable available()=1 then ink RGB(128,255,128),0:center text sw-lq,140,"colorwriteenable available=yes":else ink RGB(255,0,0),0:center text sw-lq,140,"colorwriteenable available=yes"
if cubemap available()=1 then ink RGB(128,255,128),0:center text sw-lq,150,"cubemap available=yes":else ink RGB(255,0,0),0:center text sw-lq,150,"cubemap available=NO"
if cullccw available()=1 then ink RGB(128,255,128),0:center text sw-lq,160,"cullccw available=yes":else ink RGB(255,0,0),0:center text sw-lq,150,"cullccw available=NO"
if cullcw available()=1 then ink RGB(128,255,128),0:center text sw-lq,170,"cullcw available=yes":else ink RGB(255,0,0),0:center text sw-lq,170,"cullcw available=NO"
if get device type()=1 then ink RGB(128,255,128),0:center text sw-lq,180,"get device type=yes":else ink RGB(255,0,0),0:center text sw-lq,180,"get device type=NO"
if dither available()=1 then ink RGB(128,255,128),0:center text sw-lq,190,"dither available=yes":else ink RGB(255,0,0),0:center text sw-lq,190,"dither available=NO"
if filtering available()=1 then ink RGB(128,255,128),0:center text sw-lq,200,"filtering available=yes":else ink RGB(255,0,0),0:center text sw-lq,200,"filtering available=NO"
if fogrange available()=1 then ink RGB(128,255,128),0:center text sw-lq,210,"fogrange available=yes":else ink RGB(255,0,0),0:center text sw-lq,210,"fogrange available=NO"
if fogtable available()=1 then ink RGB(128,255,128),0:center text sw-lq,220,"fogtable available=yes":else ink RGB(255,0,0),0:center text sw-lq,220,"fogtable available=NO"
if fogvertex available()=1 then ink RGB(128,255,128),0:center text sw-lq,230,"fogvertex available=yes":else ink RGB(255,0,0),0:center text sw-lq,230,"fogvertex available=NO"
if fog available()=1 then ink RGB(128,255,128),0:center text sw-lq,240,"fog available=yes":else ink RGB(255,0,0),0:center text sw-lq,240,"fog available=NO"
if fullscreengamma available()=1 then ink RGB(128,255,128),0:center text sw-lq,250,"fullscreengamma available=yes":else ink RGB(255,0,0),0:center text sw-lq,250,"fullscreengamma available=NO"
center text sw-lq,260,"get maximum lights="+str$(get maximum lights())
center text sw-lq,270,"get maximum pixel shader value="+str$(get maximum pixel shader value())
center text sw-lq,280,"get maximum texture height="+str$(get maximum texture height())
center text sw-lq,290,"get maximum texture width="+str$(get maximum texture width())
center text sw-lq,300,"get maximum vertex shader constants="+str$(get maximum vertex shader constants())
center text sw-lq,310,"get maximum volume extent="+str$(get maximum volume extent())
if mipcubemap available()=1 then ink RGB(128,255,128),0:center text sw+lq,40,"mipcubemap available=yes":else ink RGB(255,0,0),0:center text sw+lq,40,"mipcubemap available=No"
if mipmap available()=1 then ink RGB(128,255,128),0:center text sw+lq,50,"mipmap available=yes":else ink RGB(255,0,0),0:center text sw+lq,50,"mipmap available=No"
if mipmaplodbias available()=1 then ink RGB(128,255,128),0:center text sw+lq,60,"mipmaplodbias available=yes":else ink RGB(255,0,0),0:center text sw+lq,60,"mipmaplodbias available=NO"
if mipmapvolume available()=1 then ink RGB(128,255,128),0:center text sw+lq,70,"mipmapvolume available=yes":else ink RGB(255,0,0),0:center text sw+lq,70,"mipmapvolume available=No"
if nonpowtextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,80,"nonpowtextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,80,"nonpowtextures available=NO"
if perspectivetextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,90,"perspectivetextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,90,"perspectivetextures available=No"
center text sw+lq,100,"get maximum pixel shader version"+str$(get maximum pixel shader version())
if projectedtextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,110,"projectedtextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,110,"projectedtextures available=NO"
if renderafterflip available()=1 then ink RGB(128,255,128),0:center text sw+lq,120,"renderafterflip available=yes":else ink RGB(255,0,0),0:center text sw+lq,120,"renderafterflip available=NO"
if renderwindowed available()=1 then ink RGB(128,255,128),0:center text sw+lq,130,"renderwindowed available=yes":else ink RGB(255,0,0),0:center text sw+lq,130,"renderwindowed available=No"
if seperatetexturememories available()=1 then ink RGB(128,255,128),0:center text sw+lq,140,"seperatetexturememories available=yes":else ink RGB(255,0,0),0:center text sw+lq,140,"seperatetexturememories available=NO"
if onlysquaretextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,150,"onlysquaretextures available+yes":else ink RGB(255,0,0),0:center text sw+lq,150,"onlysquaretextures available=NO"
if tnl available()=1 then ink RGB(128,255,128),0:center text sw+lq,160,"tnl available=yes":else ink RGB(255,0,0),0:center text sw+lq,160,"tnl available=NO"
if tlvertexsystemmemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,170,"tlvertexsystemmemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,170,"tlvertexsystemmemory available=NO"
if tlvertexvideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,180,"tlvertexvideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,180,"tlvertexvideomemory available=No"
if nonlocalvideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,190,"nonlocalvideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,190,"nonlocalvideomemory available=No"
if texturesystemmemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,200,"texturesystemmemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,200,"texturesystemmemory available=NO"
if texturevideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,210,"texturevideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,210,"texturevideomemory available=NO"
center text sw+lq,220,"get maximum vertex shader version="+str$(get maximum vertex shader version())
if volumemap available()=1 then ink RGB(128,255,128),0:center text sw+lq,230,"volumemap available=yes":else ink RGB(255,0,0),0:center text sw+lq,230,"volumemap available=NO"
if wbuffer available()=1 then ink RGB(128,255,128),0:center text sw+lq,240,"wbuffer available=yes":else ink RGB(255,0,0),0:center text sw+lq,240,"wbuffer available=NO"
if wfog available()=1 then ink RGB(128,255,128),0:center text sw+lq,250,"wfog available=yes":else ink RGB(255,0,0),0:center text sw+lq,250,"wfog available=NO"
if zbuffer available()=1 then ink RGB(128,255,128),0:center text sw+lq,260,"zbuffer available=yes":else ink RGB(255,0,0),0:center text sw+lq,260,"zbuffer available=NO"
if zfog available()=1 then ink RGB(128,255,128),0:center text sw+lq,270,"zfog available=yes":else ink RGB(255,0,0),0:center text sw+lq,270,"zfog available=NO"
ink rgb(128,255,128),0
center text sw,350,"Green = Ok"
ink rgb(255,0,0),0
center text sw,360,"Red = NO Go!"
sync
loop

+ Code Snippet

 
Rem Project: candowhatwithcard
Rem Created: 7/17/2005 11:51:50 AM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent
sw=screen width()/2
lq=200
do
set text size 18
ink rgb(255,255,255),0
center text sw,0," What can your Grapihic Card do?"
set text size 14
if alphablending available()=1 then ink RGB(128,255,128),0: center text sw-lq,40,"alphablending available=yes":else ink RGB(255,0,0),0:center text sw-lq,40,"alphablending available=NO"
if alpha available()=1 then ink RGB(128,255,128),0: center text sw-lq,50,"alpha available=yes":else ink RGB(255,0,0),0:center text sw-lq,50,"alpha available=NO"
if alphacomparison available()=1then  ink RGB(128,255,128),0: center text sw-lq,60,"alphacomparison available=yes":else ink RGB(255,0,0),0:center text sw-lq,60,"alphacomparison available=NO"
if anistropicfiltering available()=1 then ink RGB(128,255,128),0: center text sw-lq,70,"anistropicfiltering available=yes":else ink RGB(255,0,0),0:center text sw-lq,70,"anistropicfiltering available=NO"
if antialias available()=1 then ink RGB(128,255,128),0: center text sw-lq,80,"antialias available=yes":else ink RGB(255,0,0),0:center text sw-lq,80,"antialias available=NO"
if blitsystolocal available()=1 then center text sw-lq,90,"blitsystolocal available=yes":else ink RGB(255,0,0),0:center text sw-lq,90,"blitsystolocal available=NO"
if calibrategamma available()=1 then center text sw-lq,100,"calibrategamma available=yes":else ink RGB(255,0,0),0: center text sw-lq,100,"calibrategamma available=NO":ink RGB(128,255,128),0
if clipandscalepoints available()=1 then ink RGB(128,255,128),0: center text sw-lq,110,"clipandscalepoints available=yes":else ink RGB(255,0,0),0:center text sw-lq,110,"clipandscalepoints available=NO"
if cliptlverts available()=1 then ink RGB(128,255,128),0:center text sw-lq,120,"cliptlverts available=yes":else ink RGB(255,0,0),0:center text sw-lq,120,"cliptlverts available=NO"
if colorperspective available()=1 then ink RGB(128,255,128),0:center text sw-lq,130,"colorperspective available=yes":else ink RGB(255,0,0),0:center text sw-lq,130,"colorperspective available=NO"
if colorwriteenable available()=1 then ink RGB(128,255,128),0:center text sw-lq,140,"colorwriteenable available=yes":else ink RGB(255,0,0),0:center text sw-lq,140,"colorwriteenable available=yes"
if cubemap available()=1 then ink RGB(128,255,128),0:center text sw-lq,150,"cubemap available=yes":else ink RGB(255,0,0),0:center text sw-lq,150,"cubemap available=NO"
if cullccw available()=1 then ink RGB(128,255,128),0:center text sw-lq,160,"cullccw available=yes":else ink RGB(255,0,0),0:center text sw-lq,150,"cullccw available=NO"
if cullcw available()=1 then ink RGB(128,255,128),0:center text sw-lq,170,"cullcw available=yes":else ink RGB(255,0,0),0:center text sw-lq,170,"cullcw available=NO"
if get device type()=1 then ink RGB(128,255,128),0:center text sw-lq,180,"get device type=yes":else ink RGB(255,0,0),0:center text sw-lq,180,"get device type=NO"
if dither available()=1 then ink RGB(128,255,128),0:center text sw-lq,190,"dither available=yes":else ink RGB(255,0,0),0:center text sw-lq,190,"dither available=NO"
if filtering available()=1 then ink RGB(128,255,128),0:center text sw-lq,200,"filtering available=yes":else ink RGB(255,0,0),0:center text sw-lq,200,"filtering available=NO"
if fogrange available()=1 then ink RGB(128,255,128),0:center text sw-lq,210,"fogrange available=yes":else ink RGB(255,0,0),0:center text sw-lq,210,"fogrange available=NO"
if fogtable available()=1 then ink RGB(128,255,128),0:center text sw-lq,220,"fogtable available=yes":else ink RGB(255,0,0),0:center text sw-lq,220,"fogtable available=NO"
if fogvertex available()=1 then ink RGB(128,255,128),0:center text sw-lq,230,"fogvertex available=yes":else ink RGB(255,0,0),0:center text sw-lq,230,"fogvertex available=NO"
if fog available()=1 then ink RGB(128,255,128),0:center text sw-lq,240,"fog available=yes":else ink RGB(255,0,0),0:center text sw-lq,240,"fog available=NO"
if fullscreengamma available()=1 then ink RGB(128,255,128),0:center text sw-lq,250,"fullscreengamma available=yes":else ink RGB(255,0,0),0:center text sw-lq,250,"fullscreengamma available=NO"
center text sw-lq,260,"get maximum lights="+str$(get maximum lights())
center text sw-lq,270,"get maximum pixel shader value="+str$(get maximum pixel shader value())
center text sw-lq,280,"get maximum texture height="+str$(get maximum texture height())
center text sw-lq,290,"get maximum texture width="+str$(get maximum texture width())
center text sw-lq,300,"get maximum vertex shader constants="+str$(get maximum vertex shader constants())
center text sw-lq,310,"get maximum volume extent="+str$(get maximum volume extent())
if mipcubemap available()=1 then ink RGB(128,255,128),0:center text sw+lq,40,"mipcubemap available=yes":else ink RGB(255,0,0),0:center text sw+lq,40,"mipcubemap available=No"
if mipmap available()=1 then ink RGB(128,255,128),0:center text sw+lq,50,"mipmap available=yes":else ink RGB(255,0,0),0:center text sw+lq,50,"mipmap available=No"
if mipmaplodbias available()=1 then ink RGB(128,255,128),0:center text sw+lq,60,"mipmaplodbias available=yes":else ink RGB(255,0,0),0:center text sw+lq,60,"mipmaplodbias available=NO"
if mipmapvolume available()=1 then ink RGB(128,255,128),0:center text sw+lq,70,"mipmapvolume available=yes":else ink RGB(255,0,0),0:center text sw+lq,70,"mipmapvolume available=No"
if nonpowtextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,80,"nonpowtextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,80,"nonpowtextures available=NO"
if perspectivetextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,90,"perspectivetextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,90,"perspectivetextures available=No"
center text sw+lq,100,"get maximum pixel shader version"+str$(get maximum pixel shader version())
if projectedtextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,110,"projectedtextures available=yes":else ink RGB(255,0,0),0:center text sw+lq,110,"projectedtextures available=NO"
if renderafterflip available()=1 then ink RGB(128,255,128),0:center text sw+lq,120,"renderafterflip available=yes":else ink RGB(255,0,0),0:center text sw+lq,120,"renderafterflip available=NO"
if renderwindowed available()=1 then ink RGB(128,255,128),0:center text sw+lq,130,"renderwindowed available=yes":else ink RGB(255,0,0),0:center text sw+lq,130,"renderwindowed available=No"
if seperatetexturememories available()=1 then ink RGB(128,255,128),0:center text sw+lq,140,"seperatetexturememories available=yes":else ink RGB(255,0,0),0:center text sw+lq,140,"seperatetexturememories available=NO"
if onlysquaretextures available()=1 then ink RGB(128,255,128),0:center text sw+lq,150,"onlysquaretextures available+yes":else ink RGB(255,0,0),0:center text sw+lq,150,"onlysquaretextures available=NO"
if tnl available()=1 then ink RGB(128,255,128),0:center text sw+lq,160,"tnl available=yes":else ink RGB(255,0,0),0:center text sw+lq,160,"tnl available=NO"
if tlvertexsystemmemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,170,"tlvertexsystemmemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,170,"tlvertexsystemmemory available=NO"
if tlvertexvideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,180,"tlvertexvideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,180,"tlvertexvideomemory available=No"
if nonlocalvideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,190,"nonlocalvideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,190,"nonlocalvideomemory available=No"
if texturesystemmemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,200,"texturesystemmemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,200,"texturesystemmemory available=NO"
if texturevideomemory available()=1 then ink RGB(128,255,128),0:center text sw+lq,210,"texturevideomemory available=yes":else ink RGB(255,0,0),0:center text sw+lq,210,"texturevideomemory available=NO"
center text sw+lq,220,"get maximum vertex shader version="+str$(get maximum vertex shader version())
if volumemap available()=1 then ink RGB(128,255,128),0:center text sw+lq,230,"volumemap available=yes":else ink RGB(255,0,0),0:center text sw+lq,230,"volumemap available=NO"
if wbuffer available()=1 then ink RGB(128,255,128),0:center text sw+lq,240,"wbuffer available=yes":else ink RGB(255,0,0),0:center text sw+lq,240,"wbuffer available=NO"
if wfog available()=1 then ink RGB(128,255,128),0:center text sw+lq,250,"wfog available=yes":else ink RGB(255,0,0),0:center text sw+lq,250,"wfog available=NO"
if zbuffer available()=1 then ink RGB(128,255,128),0:center text sw+lq,260,"zbuffer available=yes":else ink RGB(255,0,0),0:center text sw+lq,260,"zbuffer available=NO"
if zfog available()=1 then ink RGB(128,255,128),0:center text sw+lq,270,"zfog available=yes":else ink RGB(255,0,0),0:center text sw+lq,270,"zfog available=NO"
ink rgb(128,255,128),0
center text sw,350,"Green = Ok"
ink rgb(255,0,0),0
center text sw,360,"Red = NO Go!"
sync
loop

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 18th Jul 2005 03:42

Link

Little?

Immunity and Annihalation makes Immunihalation...

Back to top

Profile PM Email

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 18th Jul 2005 20:35 Edited at: 18th Jul 2005 20:36

Link

Good idea.

Tip: You could make the code simpler. Make a function:

+ Code Snippet

function PrintAvailability(text$, success)
   
   if success = 1
      center text lq, sw, text$ + " Available - YES"
   else
      center text lq, sw, text$ + " Available - NO"
   endif

endfunction

Then your mainstream code just becomes something like:

+ Code Snippet

PrintAvailability("alphablending", alphablending available())

BatVink

Back to top

Profile PM Email

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 19th Jul 2005 05:46

Link

well it didn't seem that big when doing it. however its to show you what your card may be able to do which is what I did it for, all 52 commands.

cheers BatVink

may try later and see how much smaller it could be made.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 19th Jul 2005 06:03

Link

That's very useful HowDo.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 19th Jul 2005 19:44

Link

I support most of them. Max texture size of 4096*4096

PETA - People for the Eating of Tasty Animals

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 20th Jul 2005 03:11

Link

Don't know if would be good idea to state graphic cards that have a full house.

Then one can deside on which ones to buy?

My radeon 9000 64meg as about 11 with red lines,which are these:-
anistropicfiltering
blitsystolocal
calibrategamma
cliptlverts
mipcubemap
mipmapvolume
seperatetexturememories
onlysquaretextures
nonlocalvideomemory
texturesystemmemory
wbuffer

those are the one that are not available on my card.

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

BatVink

Moderator

21

Years of Service

User Offline

Joined: 4th Apr 2003

Location: Gods own County, UK

Posted: 20th Jul 2005 18:46

Link

Don't know what most of them are, but it's not all bad. For example, onlysquaretextures is a negative aspect, it means your card wastes loads of memory, and you can't make screen-dimensioned sprites, for example. So it's good that this is red.

BatVink

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 23rd Jul 2005 06:26

Link

That's pretty good idea HowDo. I'll post mine when I get home tonight. Also, if anyone wants to post some of the definitions (especially usefull ones like BatVink's).

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Xolatron old

20

Years of Service

User Offline

Joined: 25th Jan 2004

Location: The Star Forge Language: DBpro

Posted: 29th Jul 2005 21:14

Link

You could change results like 'onlySquareTextures' to 'allowNonSquareTextures' so that all green is good

-Xol

Ion Extension Pack: 46 fncs
IonRay IDE

Back to top

Profile PM Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 30th Jul 2005 19:23 Edited at: 30th Jul 2005 19:24

Link

here an update now easier to read code.

Rem Project: candowhatwithcard
Rem Created: 7/17/2005 11:51:50 AM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent
global sw lq row th text1$ text2$ count
sw=screen width()/2
lq=125
th=10
text1$=" available = yes"
text2$=" available = No"
row=40
set text size 18
ink rgb(255,255,255),0
center text sw,0," What can your Grapihic Card do?"
set text size 14
checktext(alphablending available(),"alphablending")
checktext(alpha available(),"alpha")
checktext(alphacomparison available(),"alphacomparison")
checktext(anistropicfiltering available(),"anistropicfiltering")
checktext(antialias available(),"antialias ")
checktext(blitsystolocal available(),"blitsystolocal ")
checktext(calibrategamma available(),"calibrategamma")
checktext(clipandscalepoints available(),"clipandscalepoints")
checktext(cliptlverts available(),"cliptlverts")
checktext(colorperspective available(),"colorperspective")
checktext(colorwriteenable available(),"colorwriteenable")
checktext(cubemap available(),"cubemap")
checktext(cullccw available(),"cullccw")
checktext(cullcw available(),"cullcw")
checktext(get device type(),"get device type")
checktext(dither available(),"dither")
checktext(filtering available(),"filtering")
checktext(fogrange available(),"fogrange")
checktext(fogtable available(),"fogtable")
checktext(fogvertex available(),"fogvertex")
checktext(fog available(),"fog")
checktext(fullscreengamma available(),"fullscreengamma")
checktext(mipcubemap available(),"mipcubemap")
checktext(mipmap available(),"mipmap")
checktext(mipmaplodbias available(),"mipmaplodbias")
checktext(mipmapvolume available(),"mipmapvolume")
checktext(nonpowtextures available(),"nonpowtextures")
checktext(perspectivetextures available(),"perspectivetextures")
checktext(projectedtextures available(),"projectedtextures")
checktext(renderafterflip available(),"renderafterflip")
checktext(renderwindowed available(),"renderwindowed")
checktext(seperatetexturememories available(),"seperatetexturememories")
checktext(onlysquaretextures available(),"onlysquaretextures")
checktext(tnl available(),"tnl")
checktext(tlvertexsystemmemory available(),"tlvertexsystemmemory")
checktext(tlvertexvideomemory available(),"tlvertexvideomemory")
checktext(nonlocalvideomemory available(),"nonlocalvideomemory")
checktext(texturesystemmemory available(),"texturesystemmemory")
checktext(texturevideomemory available(),"texturevideomemory")
checktext(volumemap available(),"volumemap")
checktext(wbuffer available(),"wbuffer")
checktext(wfog available(),"wfog")
checktext(zbuffer available(),"zbuffer")
checktext(zfog available(),"zfog")
center text lq,230,"get maximum lights="+str$(get maximum lights())
center text lq,240,"get maximum pixel shader value="+str$(get maximum pixel shader value())
center text lq,250,"get maximum texture height="+str$(get maximum texture height())
center text lq,260,"get maximum texture width="+str$(get maximum texture width())
center text lq,270,"get maximum volume extent="+str$(get maximum volume extent())
center text lq,280,"get maximum pixel shader version"+str$(get maximum pixel shader version())
center text lq,290,"get maximum vertex shader version="+str$(get maximum vertex shader version())

ink rgb(128,255,128),0
center text sw,350,"Green = Good"
ink rgb(255,0,0),0
center text sw,360,"Red = NOT Good!"
do
wait key
sync
loop

function checktext(score,command$)
if score=1
ink RGB(128,255,128),0
center text lq,row,command$+text1$
else
ink RGB(255,0,0),0:
center text lq,row,command$+text2$
endif
inc row,th
inc count,1
if  count=25
row=40:lq=475
endif
endfunction

+ Code Snippet

Rem Project: candowhatwithcard
Rem Created: 7/17/2005 11:51:50 AM

Rem ***** Main Source File *****
rem Standard Setup Code
sync on : sync rate 0 :
backdrop on
color backdrop rgb(0,0,0) : hide mouse
set text font "arial" : set text size 18 : set text transparent
global sw lq row th text1$ text2$ count
sw=screen width()/2
lq=125
th=10
text1$=" available = yes"
text2$=" available = No"
row=40
set text size 18
ink rgb(255,255,255),0
center text sw,0," What can your Grapihic Card do?"
set text size 14
checktext(alphablending available(),"alphablending")
checktext(alpha available(),"alpha")
checktext(alphacomparison available(),"alphacomparison")
checktext(anistropicfiltering available(),"anistropicfiltering")
checktext(antialias available(),"antialias ")
checktext(blitsystolocal available(),"blitsystolocal ")
checktext(calibrategamma available(),"calibrategamma")
checktext(clipandscalepoints available(),"clipandscalepoints")
checktext(cliptlverts available(),"cliptlverts")
checktext(colorperspective available(),"colorperspective")
checktext(colorwriteenable available(),"colorwriteenable")
checktext(cubemap available(),"cubemap")
checktext(cullccw available(),"cullccw")
checktext(cullcw available(),"cullcw")
checktext(get device type(),"get device type")
checktext(dither available(),"dither")
checktext(filtering available(),"filtering")
checktext(fogrange available(),"fogrange")
checktext(fogtable available(),"fogtable")
checktext(fogvertex available(),"fogvertex")
checktext(fog available(),"fog")
checktext(fullscreengamma available(),"fullscreengamma")
checktext(mipcubemap available(),"mipcubemap")
checktext(mipmap available(),"mipmap")
checktext(mipmaplodbias available(),"mipmaplodbias")
checktext(mipmapvolume available(),"mipmapvolume")
checktext(nonpowtextures available(),"nonpowtextures")
checktext(perspectivetextures available(),"perspectivetextures")
checktext(projectedtextures available(),"projectedtextures")
checktext(renderafterflip available(),"renderafterflip")
checktext(renderwindowed available(),"renderwindowed")
checktext(seperatetexturememories available(),"seperatetexturememories")
checktext(onlysquaretextures available(),"onlysquaretextures")
checktext(tnl available(),"tnl")
checktext(tlvertexsystemmemory available(),"tlvertexsystemmemory")
checktext(tlvertexvideomemory available(),"tlvertexvideomemory")
checktext(nonlocalvideomemory available(),"nonlocalvideomemory")
checktext(texturesystemmemory available(),"texturesystemmemory")
checktext(texturevideomemory available(),"texturevideomemory")
checktext(volumemap available(),"volumemap")
checktext(wbuffer available(),"wbuffer")
checktext(wfog available(),"wfog")
checktext(zbuffer available(),"zbuffer")
checktext(zfog available(),"zfog")
center text lq,230,"get maximum lights="+str$(get maximum lights())
center text lq,240,"get maximum pixel shader value="+str$(get maximum pixel shader value())
center text lq,250,"get maximum texture height="+str$(get maximum texture height())
center text lq,260,"get maximum texture width="+str$(get maximum texture width())
center text lq,270,"get maximum volume extent="+str$(get maximum volume extent())
center text lq,280,"get maximum pixel shader version"+str$(get maximum pixel shader version())
center text lq,290,"get maximum vertex shader version="+str$(get maximum vertex shader version())

ink rgb(128,255,128),0
center text sw,350,"Green = Good"
ink rgb(255,0,0),0
center text sw,360,"Red = NOT Good!"
do
wait key
sync
loop

function checktext(score,command$)
if score=1
ink RGB(128,255,128),0
center text lq,row,command$+text1$
else
ink RGB(255,0,0),0:
center text lq,row,command$+text2$
endif
inc row,th
inc count,1
if  count=25
row=40:lq=475
endif
endfunction

I'm not getting you down am I, Ho Look! another fancy Door?

Back to top

Profile PM

Sorry your browser is not supported!

Code Snippets / does your graphics card do it all?