home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 63 / CDACTUAL63.iso / Aplicaciones / DarkBasic / DemoDarkBasic.exe / help / examples / matrix3d / exam07.dba < prev    next >
Encoding:
Text File  |  1999-10-22  |  979 b   |  35 lines

  1. Rem * Title  : Matrix Display Data
  2. Rem * Author : DBS-LB
  3. Rem * Date   : 1st Sept 99
  4. rem ===========================================
  5. rem DARK BASIC EXAMPLE PROGRAM 7
  6. rem ===========================================
  7. rem This program will display matrix data
  8. rem -------------------------------------------
  9.  
  10. rem Make a matrix
  11. backdrop off
  12. make matrix 1,10000,10000,25,25
  13.  
  14. rem Define a basic matrix
  15. position matrix 1,100,0,200
  16. randomize matrix 1,10.0
  17. cls 0
  18.  
  19. rem Output matrix data
  20. ink rgb(255,255,0),0
  21. print "Matrix Data"
  22. print "-----------"
  23. print "exist=";matrix exist(1)
  24. print "posx=";matrix position x(1)
  25. print "posy=";matrix position y(1)
  26. print "posz=";matrix position z(1)
  27. print "height at 12,12=";get matrix height(1,12,12)
  28. print "ground at 5000,5000=";get ground height(1,5000,5000)
  29. print "tile count=";matrix tile count(1)
  30. print "tiles exist=";matrix tiles exist(1)
  31. print "wireframe state=";matrix wireframe state(1)
  32.  
  33. rem End the program
  34. end
  35.