Weisser Drache
|
|
« Antworten #22 am: 15.August.2003, 13:52:43 » |
|
Das sind die Koordinaten die zum brechnen eines Würfels gebraucht werde.. da sist nur der würfel... nichts mit render Licht etc... und der würfel wurde nur definiert..er wird net angezigt.. dann haste ne ahnung was dein pc bei den landschaften machen msus:
Const C000 As Long = 255 'Rot Const C001 As Long = 65280 'Grün Const C100 As Long = 16711680 'Blau Const C101 As Long = 16711935 'Magenta Const C010 As Long = 65535 'Gelb Const C011 As Long = 16776960 'Cyan Const C110 As Long = 16777215 'Weiß Const C111 As Long = 8421631 'Orange ' Die Strunktur mit Daten füllen 'Vorne Cube(0) = CreateLitVertex(-1, 1, 1, C011, 0, 0, 0) Cube(1) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0 Cube(2) = CreateLitVertex(-1, -1, 1, C001, 0, 0, 0) Cube(3) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0) Cube(4) = CreateLitVertex(-1, -1, 1, C001, 0, 0, 0) Cube(5) = CreateLitVertex(1, -1, 1, C101, 0, 0, 0) 'Hinten Cube(6) = CreateLitVertex(-1, 1, -1, C010, 0, 0, 0) Cube(7) = CreateLitVertex(1, 1, -1, C110, 0, 0, 0) Cube(8) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(9) = CreateLitVertex(1, 1, -1, C110, 0, 0, 0) Cube(10) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(11) = CreateLitVertex(1, -1, -1, C100, 0, 0, 0) 'Rechts Cube(12) = CreateLitVertex(-1, 1, -1, C010, 0, 0, 0) Cube(13) = CreateLitVertex(-1, 1, 1, C011, 0, 0, 0) Cube(14) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(15) = CreateLitVertex(-1, 1, 1, C011, 0, 0, 0) Cube(16) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(17) = CreateLitVertex(-1, -1, 1, C001, 0, 0, 0) 'Links Cube(18) = CreateLitVertex(1, 1, -1, C110, 0, 0, 0) Cube(19) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0) Cube(20) = CreateLitVertex(1, -1, -1, C100, 0, 0, 0) Cube(21) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0) Cube(22) = CreateLitVertex(1, -1, -1, C100, 0, 0, 0) Cube(23) = CreateLitVertex(1, -1, 1, C101, 0, 0, 0) 'Oben Cube(24) = CreateLitVertex(-1, 1, 1, C011, 0, 0, 0) Cube(25) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0) Cube(26) = CreateLitVertex(-1, 1, -1, C010, 0, 0, 0) Cube(27) = CreateLitVertex(1, 1, 1, C111, 0, 0, 0) Cube(28) = CreateLitVertex(-1, 1, -1, C010, 0, 0, 0) Cube(29) = CreateLitVertex(1, 1, -1, C110, 0, 0, 0) 'Unten Cube(30) = CreateLitVertex(-1, -1, 1, C001, 0, 0, 0) Cube(31) = CreateLitVertex(1, -1, 1, C101, 0, 0, 0) Cube(32) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(33) = CreateLitVertex(1, -1, 1, C101, 0, 0, 0) Cube(34) = CreateLitVertex(-1, -1, -1, C000, 0, 0, 0) Cube(35) = CreateLitVertex(1, -1, -1, C100, 0, 0, 0)
|