花了一两天搞了个高度图转法线图的程序

RGB对应切线空间TBN的哪条轴具体我不是很记得了 不过错了的话改改就行 贴了法线贴图的在3DMAX里面效果不错。一般的话我会搞个原图直接转灰度，然后转Bump，大概模拟出凹凸感就算了

【主体程序代码】
'——————————————————————————
'作者：XO、战皇
’第一段代码是加载图片之类的准备工作
’——————————————————————————
Private Sub Command1_Click() '加载图片
CommonDialog1.ShowOpen '选文件
Text1 = CommonDialog1.FileNameIf Text1 = "" Then Exit Sub
texF.DeleteAllTextures'考虑一下尺寸的问题 缺省呢还是固定的
texF.LoadTexture Text1, "OriginMap", Picture1.Width / Screen.TwipsPerPixelX, Picture1.Height / Screen.TwipsPerPixelY '加载高度图
texF.LockTexture GetTex("OriginMap")
HTexture = texF.GetTextureInfo(GetTex("OriginMap")) '获取高度图信息
texF.CreateTexture HTexture.Width - 1, HTexture.Height - 1, False, "Bump" '少一行一列像素的BUMP图
ReDim Preserve HeightMapPixel(1 To HTexture.Width - 1, 1 To HTexture.Height - 1) As Long 'BUMP的像素数组
For w = 1 To HTexture.Width - 2 '数组对应空位获取对应颜色值
For h = 1 To HTexture.Height - 2
HeightMapPixel(w, h) = texF.GetPixel(GetTex("OriginMap"), w, h)
Next h
Next w
ex:
End Sub

【主体程序代码2】
'————————————————
'第二段代码是算法主体了
'————————————————
Private Sub Command2_Click()
'————————————算法解释——————————
'从高度图的灰度得到高度，然后取(X,Y) (X+1,Y) (X,Y+1)等等的点
'作为三角形的顶点，4个顶点一共形成4个三角形
'叉乘得到法向量，4个法向量相加再归一化，转为色值之后储存在Bump图的(X,Y)处
' 俯视图XYZ标准数学坐标系
'↑Y
'| [Vertex1] [Vertex2]
'|
'| [Vertex3] [Vertex4]
'|——————————→X'
'Vec1 = P1 —— P2
'VEC2 = P3 —— P4
'VEC3 = P1 —— P4
'VEC4 = P2 —— P3
'——————————————————多敬业连注释都搬了上来 = =
Dim VertexH1 As Long, VertexH2 As Long, VertexH3 As Long, VertexH4 As Long '每次处理的时候取4点(2x2)Dim V1 As TV_3DVECTOR, V2 As TV_3DVECTOR '俯视图中正方形的对边Dim V3 As TV_3DVECTOR, V4 As TV_3DVECTOR '俯视图中的正方形的斜边
Dim Normal1 As TV_3DVECTOR, Normal2 As TV_3DVECTOR '法向量1，2Dim Normal3 As TV_3DVECTOR, Normal4 As TV_3DVECTOR '法向量3，4
Dim BumpVector As TV_3DVECTOR '
For w = 1 To HTexture.Width - 2
For h = 1 To HTexture.Height - 2
'————————相邻4（2x2）像素处理——————————
VertexH1 = DecodeRGBA(HeightMapPixel(w, h)).r * 255
'R值= =反正灰度图RGB相等，取一个就行 顶点高度
VertexH2 = DecodeRGBA(HeightMapPixel(w + 1, h)).r * 255
VertexH3 = DecodeRGBA(HeightMapPixel(w, h + 1)).r * 255
VertexH4 = DecodeRGBA(HeightMapPixel(w + 1, h + 1)).r * 255
V1 = Normalize(Vector(1, 0, VertexH2 - VertexH1)) '正方形边
V2 = Normalize(Vector(1, 0, VertexH4 - VertexH3)) '正方形边
V3 = Normalize(Vector(1, -1, VertexH4 - VertexH1)) '斜边
V4 = Normalize(Vector(-1, -1, VertexH3 - VertexH2)) '斜边
'严格遵守右手定则
Normal1 = Cross(V4, V1) '三角形 |/
Normal2 = Cross(V3, V1) '三角形 \|
Normal3 = Cross(V3, V2) '三角形 |\
Normal4 = Cross(V4, V2) '三角形 /|
With TVMath
BumpVector = Normalize(.vAdd(Normal1, .vAdd(Normal2, .vAdd(Normal3, Normal4)))) '4个向量加起来
End With
Dim BumpColor As TV_COLOR
BumpColor.r = (BumpVector.x + 1) / 2 'VectorX取值(-1,1)，转为颜色要这样
BumpColor.g = (BumpVector.y + 1) / 2 'VectorX取值(-1,1)，转为颜色要这样
BumpColor.b = (BumpVector.z + 1) / 2 'VectorX取值(-1,1)，转为颜色要这样
HeightMapPixel(w, h) = RGBA(BumpColor.r, BumpColor.g, BumpColor.b, 1) texF.SetPixel GetTex("Bump"), w, h, HeightMapPixel(w, h) '储存像素
'————————————————————————————
Next h
Next w
End Sub

凹凸调换那个是把所有法线关于向量(0,0,1)做对称变换即可【标准数学坐标系】
在草稿纸上推推前后色值要加减乘除些什么就行了

依旧不觉得高度转法线的实用性= =

不过这样也好，正规一点，BUG就少点吧。然后把某个人照片转转，然后放游戏里就成了浮雕了

加精，贡献成品更好。

楼主用的是vb我果断过来顶了

我靠，怎么用的？没看懂

不好意思挖坟了，问一下TV3D 6.5怎么用法线贴图？

我也想学,不熟VB,能否上工程方便调试?/