Strict

Framework Pub.DreiDe
Import Brl.FileSystem
Import Brl.PNGLoader
Import Brl.Pixmap
Import Brl.System

Global Pixmap   : TPixmap
Global Texture  : TTexture[2]
Global Material : TMaterial

Global Mesh    : TMesh
Global Surface : TSurface
Global Camera  : TCamera

TDreiDe.Graphics3D(640, 480, 0, 0, False)

Pixmap = LoadPixmap("Layer0.png")
Texture[0] = New TTexture
Texture[0].SetPixmap(Pixmap)
Texture[0].SetBlendMode(DDD_TEXTURE_REPLACE)

Pixmap = LoadPixmap("Layer1.png")
Texture[1] = New TTexture
Texture[1].SetPixmap(Pixmap)
Texture[1].SetBlendMode(DDD_TEXTURE_ADD)

Pixmap = Null
FlushMem()

Material = New TMaterial
Material.SetTexture(Texture[0], 0)
Material.SetTexture(Texture[1], 1)

Mesh = New TMesh
Surface = Mesh.CreateSurface()

Surface.CreateVertex(-0.5,  0.5, 0.0, 0.0, 0.0)
Surface.CreateVertex( 0.5,  0.5, 0.0, 1.0, 0.0)
Surface.CreateVertex( 0.5, -0.5, 0.0, 1.0, 1.0)
Surface.CreateVertex(-0.5, -0.5, 0.0, 0.0, 1.0)

Surface.CreateTriangle(2, 1, 0)
Surface.CreateTriangle(0, 3, 2)

Surface.UpdateVertices()
Surface.UpdateTriangles()

Surface.SetMaterial(Material)

Camera = New TCamera
Camera.SetPosition(0.0, 0.0, 2.0)

While Not KeyDown(KEY_ESCAPE)
   Texture[0].Turn(0.1)
   Texture[1].Translate(0.001, 0.0)

   Camera.Render()
   TDreiDe.Flip()
   FlushMem()
Wend

TDreiDe.EndGraphics()
End

!!ARBvp1.0

# Toonshader by Oliver Skawronek

# Matrices
PARAM ModelViewInv[4]        = { state.matrix.modelview.invtrans };
PARAM ModelViewProjection[4] = { state.matrix.mvp };

# Temporary variable
TEMP Position, EyeNormal, UVCoords, Cond, Result;

# Transform VertexPosition
DP4 Position.x, ModelViewProjection[0], vertex.position;
DP4 Position.y, ModelViewProjection[1], vertex.position;
DP4 Position.z, ModelViewProjection[2], vertex.position;
DP4 Position.w, ModelViewProjection[3], vertex.position;

# Transform VertexNormal
DP3 EyeNormal.x, ModelViewInv[0], vertex.normal;
DP3 EyeNormal.y, ModelViewInv[1], vertex.normal;
DP3 EyeNormal.z, ModelViewInv[2], vertex.normal;

# Copy VertexTexCoords in to UVCoords
MOV UVCoords, vertex.texcoord;

# U-Coord of Vertex = Dot Product between EyeNormal und LightDirection
DP3 UVCoords.x, EyeNormal, program.local[0];

# If UVCoord.x < 0.0 Then UVCoord.x = 0.0
MOV Cond.x, 0.0;
MOV Cond.y, UVCoords.y;
MOV Cond.z, UVCoords.z;
MOV Cond.w, UVCoords.w;

SGE Result, UVCoords, Cond;
MUL UVCoords, UVCoords, Result;

# Output the result
MOV result.position, Position;
MOV result.texcoord, UVCoords;
MOV result.color, vertex.color;
MOV result.color.w, 1.0;

END

!!ARBvp1.0

# Bumpshader by Oliver Skawronek

# Matrices
PARAM ModelViewInv[4]        = { state.matrix.modelview.invtrans };
PARAM ModelViewProjection[4] = { state.matrix.mvp };

# Temporary variable
TEMP Position, EyeNormal, Distance, Dot3, Color;

# TFormPoint
DP4 Position.x, ModelViewProjection[0], vertex.position;
DP4 Position.y, ModelViewProjection[1], vertex.position;
DP4 Position.z, ModelViewProjection[2], vertex.position;
DP4 Position.w, ModelViewProjection[3], vertex.position;

# TFormNormal
DP3 EyeNormal.x, ModelViewInv[0], vertex.normal;
DP3 EyeNormal.y, ModelViewInv[1], vertex.normal;
DP3 EyeNormal.z, ModelViewInv[2], vertex.normal;

# Distance = LightPosition-VertexPosition
SUB Distance, Position, program.local[0];

# Normalize
DP3 Distance.w, Distance, Distance;     # w = x*x+y*y+z*z
RSQ Distance.w, Distance.w;             # w = 1.0/sqrt(w)
MUL Distance.xyz, Distance, Distance.w; # x = x*w, y = y*w, z = z*w

# DotProduct
DP3 Dot3.x, EyeNormal, Distance;

# If DotProduct# < 0.0 Then DotProduct# = 0.0
SGE Dot3.y, Dot3.x, 0.0;
MUL Dot3.x, Dot3.x, Dot3.y;

# Calculate Color
MUL Color.x, Distance.x, Dot3.x;
MUL Color.y, Distance.y, Dot3.x;
MUL Color.z, Distance.z, Dot3.x;
MOV Color.w, vertex.color.w;

ADD Color.x, Color.x, 1.0;
ADD Color.y, Color.y, 1.0;
ADD Color.z, Color.z, 1.0;

MUL Color.x, Color.x, 0.5;
MUL Color.y, Color.y, 0.5;
MUL Color.z, Color.z, 0.5;

# Output the result
MOV result.position, Position;
MOV result.color, Color;
MOV result.texcoord, vertex.texcoord;
MOV result.texcoord[1], vertex.texcoord[1];

END

Material.SetVertexProgram(VertexProgram)

MOV result.color.w, 1.0;

# If UVCoord.x < 0.0 Then UVCoord.x = 0.01
SGE Result.x, UVCoords.x, 0.0;
MUL UVCoords.x, UVCoords.x, Result.x;

SLT Result.x, UVCoords.x, 0.01;
MUL Result.x, Result.x, 0.01;
ADD UVCoords.x, UVCoords.x, Result.x;