normal = LoadTexture(normalpath, 1)
TextureBlend spacestation, normal, 4
EntityTexture (spacestation,normal,0,0)

station = LoadMesh (objpath)
diffuse = LoadTexture (diffpath)
TextureBlend (diffuse , 2)
lights = LoadTexture(lightpath,4)
TextureBlend (lights , 3)
normal = LoadTexture(normalpath, 1)
TextureBlend normal, 4
EntityTexture (station, normal,0,0)
EntityTexture (station , diffuse , 0 , 1)
EntityTexture (station , lights , 0 , 2)

#Include once "openb3d.bi"

Const xmax=1024
Const ymax=768

ScreenRes xmax,ymax,32,,2
Graphics3D xmax,ymax,32

Declare Sub UpdateBumpNormals(mesh As Any Ptr,light As Any Ptr)

Var tex_base = LoadTexture("argonstation.png")
TextureBlend(tex_base, 3)

Var tex_normal = LoadTexture("argonstationnormal.png")
TextureBlend(tex_normal, 4)

Var obj = LoadMesh("argontrade2.b3d")
EntityFX(obj,1+2)
TurnEntity(obj, 0, 45, 0)
UpdateNormals(obj)

EntityTexture(obj, tex_base, 0, 1)
EntityTexture(obj, tex_normal, 0, 0)

Var light = CreateLight(2)
Var lightMarker = CreateSphere(16,light)
ScaleEntity(lightMarker, 0.1, 0.1, 0.1)
MoveEntity(light, 1, 2, 0)
PointEntity(light, obj)

Var cam = CreateCamera()
CameraClsColor(cam, 64, 64, 64)
MoveEntity(cam, 0, 0, -4)

Var movelight = 1
Var turnObj = 1
Var turnSpeed = 0.08
Do
   Sleep 1,1
   TurnEntity(obj, turnSpeed, turnSpeed, turnSpeed)
   UpdateBumpNormals(obj, light)
   RenderWorld()
   Flip
Loop Until Inkey=Chr(27)

Sub UpdateBumpNormals(mesh As Any Ptr,light As Any Ptr)
   Dim As Any Ptr surf
   Dim As Integer n_vert
   Var n_surf = CountSurfaces(mesh)
   For s As Integer = 1 To n_surf
      surf = GetSurface(mesh,s)
       n_vert = CountVertices(surf)-1
      For v As Integer = 0 To n_vert
         TFormNormal VertexNX(surf,v),VertexNY(surf,v),VertexNZ(surf,v),mesh,0
         Var nx = TFormedX()
         Var ny = TFormedY()
         Var nz = TFormedZ()
         TFormPoint VertexX(surf,v),VertexY(surf,v),VertexZ(surf,v),mesh,0
         Var red = EntityX(light,1)-TFormedX()
         Var grn = EntityY(light,1)-TFormedY()
         Var blu = EntityZ(light,1)-TFormedZ()
         Var d = Sqr(red*red + grn*grn + blu*blu)
         red = (red/d)
         grn = (grn/d)
         blu = (blu/d)
         Var dot = red*nx + grn*ny + blu*nz
         If dot>0.0 Then
            red = (1.0+(red*dot))*127.5
            grn = (1.0+(grn*dot))*127.5
            blu = (1.0+(blu*dot))*127.5         
            VertexColor surf,v,red,grn,blu
         Else
            VertexColor surf,v,127.5,127.5,127.5
         End If
      Next
   Next
End Sub