fork download
  1. fn WriteVertexBuffer filestr triangleMesh =
  2. (
  3. file = fopen filestr "wb"
  4. num_verts = triangleMesh.numverts
  5. for v = 1 to num_verts do
  6. (
  7. --Write xyz coords of vertice
  8. vert = getVert triangleMesh v
  9. writeFloat file vert.x
  10. writeFloat file vert.y
  11. writeFloat file vert.z
  12.  
  13. --Write xyz of normal of vertice
  14. norm = getNormal triangleMesh v
  15. writeFloat file norm.x
  16. writeFloat file norm.y
  17. writeFloat file norm.z
  18.  
  19. --Write uv of texture coords for vertice
  20. uv = meshop.getmapvert triangleMesh 1 v
  21. writeFloat file uv.x
  22. writeFloat file uv.y
  23. )
  24.  
  25. fclose file
  26. )
  27.  
  28. fn WriteIndexBuffer filestr triangleMesh =
  29. (
  30. file = fopen filestr "wb"
  31. num_faces = triangleMesh.numfaces
  32. for f = 1 to num_faces do
  33. (
  34. face = getFace triangleMesh f
  35. writeShort file (face.x - 1)
  36. writeShort file (face.y - 1)
  37. writeShort file (face.z - 1)
  38. )
  39.  
  40. fclose file
  41. )
  42.  
  43. if selection.count != 1 then
  44. (
  45. messagebox "Select one object"
  46. )
  47. else
  48. (
  49. savefolder = getSavePath caption:"Save in folder"
  50. vertexBufFile = savefolder + "\\VertexBuffer.vb"
  51. indexBufFile = savefolder + "\\IndexBuffer.ib"
  52. triangleMesh = snapshotAsMesh selection[1]
  53. WriteVertexBuffer vertexBufFile triangleMesh
  54. WriteIndexBuffer indexBufFile triangleMesh
  55. delete triangleMesh
  56. --edit files for debuggin:
  57. edit vertexBufFile
  58. edit indexBufFile
  59. )
Not running #stdin #stdout 0s 0KB
stdin
Standard input is empty
stdout
Standard output is empty