!!ARBvp1.0 OPTION ARB_position_invariant;

 

# Diffuse Vertex Program

# **********************

# Attribute:

#   0 = Licht Position

#   1 = Normal

#   2 = Tangent

#   3 = BiNormal

 

# Konstanten

PARAM cLightPos = program.local[1];

 

# Attribute

ATTRIB iNormal = vertex.attrib[1];

ATTRIB iTangent = vertex.attrib[2];

ATTRIB iBiNormal = vertex.attrib[3];

 

OUTPUT oTexcoord0 = result.texcoord[0];

OUTPUT oTexcoord1 = result.texcoord[1];

 

# Temporäre Variablen

TEMP lightvec, outlight;

 

# Licht Vektor berechnen

SUB lightvec, cLightPos, vertex.position;

DP3 outlight.x, lightvec, iBiNormal;

DP3 outlight.y, lightvec, iTangent;

DP3 outlight.z, lightvec, iNormal;

 

# Farbwerte variieren

MOV result.color, vertex.color;

 

# Texturkoordinaten weitergeben

MOV oTexcoord0, vertex.texcoord[0];

MOV oTexcoord1, outlight;

 

END

 

 

procedure TR3DLight.processLightIntensityVertex(const _Vertex : TR3DVector);

//var

//  texCoords   : TR3DVector;

//  versuborig  : TR3DVector;

begin

  // Texture Koordinaten berechnen für Lightmap

  //versuborig := r3d_VectorSub(_Vertex, Position);

  //texCoords := r3d_VectorDiv(versuborig, Radius * 2.0);

  //texCoords.Add(0.5);

 

  //glMultiTexCoord2fARB(GL_TEXTURE0_ARB, texCoords.x, texCoords.y);

  //glMultiTexCoord2fARB(GL_TEXTURE1_ARB, texCoords.z, 0.5);

  glVertex3fv(@_Vertex);

end;

 

 

!!ARBvp1.0 OPTION ARB_position_invariant;

 

# Light Intensity Vertex Program

# ******************************

# Lokale:

#   0 = Licht Position

#   1 = Radius

 

# Konstanten

PARAM cHalf = { 0.5 };

PARAM cLightPos = program.local[1];

PARAM cLightRadius = program.local[2];

 

OUTPUT oTexcoord0 = result.texcoord[0];

OUTPUT oTexcoord1 = result.texcoord[1];

 

# Temporäre Variablen

TEMP vpsub, texcoords;

 

# Light Attenuation berechnen

SUB vpsub, vertex.position, cLightPos;

 

# texcoords = vpsub / Radius * 2

 

ADD texcoords, texcoords, cHalf;

 

# Texturkoordinaten weitergeben

#MOV oTexcoord0.s, texcoords.x;

#MOV oTexcoord0.t, texcoords.y;

#MOV oTexcoord1.s, texcoords.z;

#MOV oTexcoord1.t, cHalf;

 

# Farbwerte variieren

MOV result.color, vertex.color;

 

END

 

{$regcount+}{$optimize+}{$lifetime-}

program VertexProgram1;

uses ARB_vertex_program, ARB_position_invariant;

 

param

  cLightPos, cLightRadius: vec4;

varying

  otexcoord0, otexcoord1: vec4;

var

  vpsub, texcoords: vec4;

 

begin

  vpsub := vertex.position - cLightPos;

  texcoords := (vpsub / cLightRadius.x) * 0.5;  // cHalf ist laut deinem Programm einfach der Wert 0.5, ich lasse es derweil mal so

 

  oTexCoord0.x := texcoords.x;

  oTexCoord0.y := texcoords.y;

  oTexCoord1.x := texcoords.z;

  oTexCoord1.y := 0.5;

 

  result.color := vertex.color;

end.

!!ARBvp1.0

OPTION ARB_position_invariant;

OUTPUT otexcoord0=result.texcoord[0];

OUTPUT otexcoord1=result.texcoord[1];

PARAM cLightPos=program.local[0];

PARAM cLightRadius=program.local[1];

TEMP vpsub;

TEMP texcoords;

TEMP temp0;

SUB vpsub,vertex.position,cLightPos;

RCP temp0,cLightRadius.x;

MUL temp0,temp0,vpsub;

MUL texcoords,temp0,{0.5,0.5,0.5,0.5}.w;

MOV otexcoord0.x,texcoords.x;

MOV otexcoord0.y,texcoords.y;

MOV otexcoord1.x,texcoords.z;

MOV otexcoord1.y,{0.5,0.5,0.5,0.5}.w;

MOV result.color,vertex.color;

END