home *** CD-ROM | disk | FTP | other *** search
/ DarkBasic Professional / DarkBasicPro.iso / data1.cab / Lang_Files_(English) / Help / examples / basic3d / basic3d5-example.dba < prev    next >
Encoding:
Text File  |  2004-09-22  |  1.2 KB  |  55 lines
  1. rem Pixel Shader Usage
  2.  
  3. rem init screen
  4. backdrop off
  5.  
  6. rem Create an object
  7. ObjectNumber=1
  8. make object sphere ObjectNumber,10
  9.  
  10. rem If Pixel Shaders supported
  11. if get maximum pixel shader version()>0
  12.  
  13.  rem Create a pixel shader from a text file
  14.  PixelShaderNumber=1
  15.  create pixel shader from file PixelShaderNumber, "pixelshader.psh"
  16.  
  17.  rem Provide pixel shader with a texture
  18.  ImageNumber=1
  19.  load image "face.bmp",ImageNumber
  20.  set pixel shader texture PixelShaderNumber, 0, ImageNumber
  21.  
  22.  rem Check if pixel shader was created
  23.  if pixel shader exist(PixelShaderNumber)=1
  24.  
  25.   rem Apply pixel shader to object
  26.   set pixel shader on ObjectNumber, PixelShaderNumber
  27.  
  28.  endif
  29.  
  30.  rem Main loop
  31.  while mouseclick()<>2
  32.   set cursor 0,0 : print "Press Right Mouse Button To Exit"
  33.  endwhile
  34.  
  35.  rem Check if pixel shader was created
  36.  if pixel shader exist(PixelShaderNumber)=1
  37.  
  38.   rem Deactivate pixel shader of the object
  39.   set pixel shader off ObjectNumber
  40.  
  41.   rem Delete a pixel shader
  42.   delete pixel shader PixelShaderNumber
  43.  
  44.  endif
  45.  
  46. else
  47.  print "No Pixel Shader Support - Press Key" : wait key
  48. endif
  49.  
  50. rem Delete object
  51. delete object ObjectNumber
  52.  
  53. rem End program
  54. end
  55.