The miscellaneous musical instrument of VB!

[Sastraxi]

Hey! Welcome to the thread on my first OGL game, the miscellaneous musical instrument of VB! (just guess where I ripped the title from..)

I have already started and have set up OGL...
Now, I need to know how to load .prj files. I have a universal 3d object converter so it doesnt matter what format the 3d object is in, but I would prefer prj.

I need to know how to load these files, for this is the first step! Here is a list of things i need to know.

1. how to alpha blend textures (eg. flash character red when hit)
2. how to create a land "matrix" eg, all points connected to make a mesh, a kind of simulated landscape.

Heh, terrain is easy:

Sub MakeSomeTerrain()
Dim Terrain(50, 50) As WHATEVER_VERTEX
Dim i As Long
Dim j As Long
For i = 0 To 49
   For j = 0 To 49
       Terrain(i, j) = MakeVertex(i, Rnd() * 6, j)
   Next j
Next i
End Sub

Function MakeVertex(X As Single, Y As Single, Z As Single) As WHATEVER_VERTEX
     MakeVertex.X = X
     MakeVertex.Y = Y
     MakeVertex.Z = Z
End Function

I dont know anything about OGL, but you should have a
function to draw from an array. You probably wont be
able to draw from a 2d array, but im sure you can
modify the code to stick it into a regular array.

If you want the code to take a BMP and turn it into an
array, ive got that too

Z.

[Sastraxi]

What GLBegin code (what parameter) would I use to create the land-mesh effect? And yes, the code to create an elevation grid from a BMP would be useful as well.

I'm kinda new to OGL, so most of the things I do dont work.. could you give me some examples to what I ask for???

[Sastraxi]

Also, I am working on spinning a triangle, but for some reason the triangle moves to the top and bottom but in the end stays in the same place....

The strange thing is that not just 1 vertex is staying in the same place, they are all moving.

I dont know anything about OGL, but, for the BMP thing:

    dx = 1
    i = 0
    Y = 0
    
    Do While Count < Terrain.bmHeight * Terrain.bmWidth
        
        i = i + dx
        MyVerticies(Count) = MakeVertex(CSng(i), CSng((GetPixel(frmMain.hdc, i, Y) / BaseColor) / 100), CSng(Y), vbBlack, 0, 0)
        MyVerticies(Count + 1) = MakeVertex(CSng(i), CSng((GetPixel(frmMain.hdc, i, Y + 1) / BaseColor) / 100), CSng(Y + 1), vbBlack, 0, 0)
        Count = Count + 2
        If i >= Terrain.bmWidth Or i <= 0 Then
            dx = -dx
            Y = Y + 1
        End If
    Loop

frmMain.hdc can be replaced with a memory DC, or
whatever. This creates a strip of triangles that snake
back and forth. This also allows for easy collision
detection while walking on the terrain. If you have a 2d
array, you can just round the player's position, and get
the height values.