| Texturkoordinaten von ??? |
| Hi! kleine Funktion zum abspeichern der Texturkoordinaten. Hilfreich zum texturieren. Werde bald ein Box Sphere und Planarmapper erstellen. geht aber nicht immer, manchmal kommt illegal memory adress manchmal nicht (bei dem selben code!!!) [code:1:9196dc8c9a] Graphics3D 640,480,32,2 Sphere = CreateSphere(12) SaveWire(Sphere,"Texture",512,512) Function SaveWire(Entity,File$,ImgWidth,ImgHeight) For I = 1 To CountSurfaces(Entity) Local ImageWire = CreateImage(ImgWidth,ImgHeight) SetBuffer ImageBuffer(ImageWire) Local Surface = GetSurface(Entity,I) For T = 0 To CountTriangles(Surface) Local Vertex0 = TriangleVertex(Surface,T,0) Local Vertex1 = TriangleVertex(Surface,T,1) Local Vertex2 = TriangleVertex(Surface,T,2) Local V0U# = VertexU#(Surface,Vertex0) Local V0V# = VertexV#(Surface,Vertex0) Local V1U# = VertexU#(Surface,Vertex1) Local V1V# = VertexV#(Surface,Vertex1) Local V2U# = VertexU#(Surface,Vertex2) Local V2V# = VertexV#(Surface,Vertex2) Color 255,255,255 Local X1 = ImageWidth(ImageWire) * V0U# Local Y1 = ImageHeight(ImageWire) * V0V# Local X2 = ImageWidth(ImageWire) * V1U# Local Y2 = ImageHeight(ImageWire) * V1V# Local X3 = ImageWidth(ImageWire) * V2U# Local Y3 = ImageHeight(ImageWire) * V2V# Line X1,Y1,X2,Y2 Line X2,Y2,X3,Y3 Line X3,Y3,X1,Y1 Next SaveBuffer(ImageBuffer(ImageWire),File$ + I + ".bmp") Next End Function [/code:1:9196dc8c9a] |