modmd2normals.bas

一个游戏的原代码

Attribute VB_Name = "modMD2Helper"
'Die DLL deklarationen f黵 die Animation
Public Declare Sub AnimateLinear Lib "mvbMath.dll" (ByRef vOut As MDLVERTEX, ByRef vFrame0 As MDLVERTEX, ByRef vFrame1 As MDLVERTEX, ByVal nVerts As Long, ByVal t As Single, ByRef vBoxMin As D3DVECTOR, ByRef vBoxMax As D3DVECTOR)
Public Declare Sub AnimateCatmullRom Lib "mvbMath.dll" (ByRef vOut As MDLVERTEX, ByRef vFrame0 As MDLVERTEX, ByRef vFrame1 As MDLVERTEX, ByRef vFrame2 As MDLVERTEX, ByRef vFrame3 As MDLVERTEX, ByVal nVerts As Long, ByVal t As Single, ByRef vBoxMin As D3DVECTOR, ByRef vBoxMax As D3DVECTOR)

'Dieser Vertex-Typ wird f黵 MD2 und MD3 verwendet
Public Type MDLVERTEX
    Position As D3DVECTOR
    Normal As D3DVECTOR
    Texture As D3DVECTOR2
End Type
Public Const MDLVERTEX_SIZE As Long = 32
Public Const MDLVERTEX_FVF As Long = (D3DFVF_XYZ Or D3DFVF_TEX1 Or D3DFVF_NORMAL)

Public MD2LightNormals(162) As D3DVECTOR
Public MD2Material As D3DMATERIAL8

Public Function InitLightNormals()
MD2LightNormals(0) = MakeVector(-0.525731, 0, 0.850651)
MD2LightNormals(1) = MakeVector(-0.442863, 0.238856, 0.864188)
MD2LightNormals(2) = MakeVector(-0.295242, 0#, 0.955423)
MD2LightNormals(3) = MakeVector(-0.309017, 0.5, 0.809017)
MD2LightNormals(4) = MakeVector(-0.16246, 0.262866, 0.951056)
MD2LightNormals(5) = MakeVector(0#, 0#, 1#)
MD2LightNormals(6) = MakeVector(0#, 0.850651, 0.525731)
MD2LightNormals(7) = MakeVector(-0.147621, 0.716567, 0.681718)
MD2LightNormals(8) = MakeVector(0.147621, 0.716567, 0.681718)
MD2LightNormals(9) = MakeVector(0#, 0.525731, 0.850651)
MD2LightNormals(10) = MakeVector(0.309017, 0.5, 0.809017)
MD2LightNormals(11) = MakeVector(0.525731, 0#, 0.850651)
MD2LightNormals(12) = MakeVector(0.295242, 0#, 0.955423)
MD2LightNormals(13) = MakeVector(0.442863, 0.238856, 0.864188)
MD2LightNormals(14) = MakeVector(0.16246, 0.262866, 0.951056)
MD2LightNormals(15) = MakeVector(-0.681718, 0.147621, 0.716567)
MD2LightNormals(16) = MakeVector(-0.809017, 0.309017, 0.5)
MD2LightNormals(17) = MakeVector(-0.587785, 0.425325, 0.688191)
MD2LightNormals(18) = MakeVector(-0.850651, 0.525731, 0#)
MD2LightNormals(19) = MakeVector(-0.864188, 0.442863, 0.238856)
MD2LightNormals(20) = MakeVector(-0.716567, 0.681718, 0.147621)
MD2LightNormals(21) = MakeVector(-0.688191, 0.587785, 0.425325)
MD2LightNormals(22) = MakeVector(-0.5, 0.809017, 0.309017)
MD2LightNormals(23) = MakeVector(-0.238856, 0.864188, 0.442863)
MD2LightNormals(24) = MakeVector(-0.425325, 0.688191, 0.587785)
MD2LightNormals(25) = MakeVector(-0.716567, 0.681718, -0.147621)
MD2LightNormals(26) = MakeVector(-0.5, 0.809017, -0.309017)
MD2LightNormals(27) = MakeVector(-0.525731, 0.850651, 0#)
MD2LightNormals(28) = MakeVector(0#, 0.850651, -0.525731)
MD2LightNormals(29) = MakeVector(-0.238856, 0.864188, -0.442863)
MD2LightNormals(30) = MakeVector(0#, 0.955423, -0.295242)
MD2LightNormals(31) = MakeVector(-0.262866, 0.951056, -0.16246)
MD2LightNormals(32) = MakeVector(0#, 1#, 0#)
MD2LightNormals(33) = MakeVector(0#, 0.955423, 0.295242)
MD2LightNormals(34) = MakeVector(-0.262866, 0.951056, 0.16246)
MD2LightNormals(35) = MakeVector(0.238856, 0.864188, 0.442863)
MD2LightNormals(36) = MakeVector(0.262866, 0.951056, 0.16246)
MD2LightNormals(37) = MakeVector(0.5, 0.809017, 0.309017)
MD2LightNormals(38) = MakeVector(0.238856, 0.864188, -0.442863)
MD2LightNormals(39) = MakeVector(0.262866, 0.951056, -0.16246)
MD2LightNormals(40) = MakeVector(0.5, 0.809017, -0.309017)
MD2LightNormals(41) = MakeVector(0.850651, 0.525731, 0#)
MD2LightNormals(42) = MakeVector(0.716567, 0.681718, 0.147621)
MD2LightNormals(43) = MakeVector(0.716567, 0.681718, -0.147621)
MD2LightNormals(44) = MakeVector(0.525731, 0.850651, 0#)
MD2LightNormals(45) = MakeVector(0.425325, 0.688191, 0.587785)
MD2LightNormals(46) = MakeVector(0.864188, 0.442863, 0.238856)
MD2LightNormals(47) = MakeVector(0.688191, 0.587785, 0.425325)
MD2LightNormals(48) = MakeVector(0.809017, 0.309017, 0.5)
MD2LightNormals(49) = MakeVector(0.681718, 0.147621, 0.716567)
MD2LightNormals(50) = MakeVector(0.587785, 0.425325, 0.688191)
MD2LightNormals(51) = MakeVector(0.955423, 0.295242, 0#)
MD2LightNormals(52) = MakeVector(1#, 0#, 0#)
MD2LightNormals(53) = MakeVector(0.951056, 0.16246, 0.262866)
MD2LightNormals(54) = MakeVector(0.850651, -0.525731, 0#)
MD2LightNormals(55) = MakeVector(0.955423, -0.295242, 0#)
MD2LightNormals(56) = MakeVector(0.864188, -0.442863, 0.238856)
MD2LightNormals(57) = MakeVector(0.951056, -0.16246, 0.262866)
MD2LightNormals(58) = MakeVector(0.809017, -0.309017, 0.5)
MD2LightNormals(59) = MakeVector(0.681718, -0.147621, 0.716567)
MD2LightNormals(60) = MakeVector(0.850651, 0#, 0.525731)
MD2LightNormals(61) = MakeVector(0.864188, 0.442863, -0.238856)
MD2LightNormals(62) = MakeVector(0.809017, 0.309017, -0.5)
MD2LightNormals(63) = MakeVector(0.951056, 0.16246, -0.262866)
MD2LightNormals(64) = MakeVector(0.525731, 0#, -0.850651)
MD2LightNormals(65) = MakeVector(0.681718, 0.147621, -0.716567)
MD2LightNormals(66) = MakeVector(0.681718, -0.147621, -0.716567)
MD2LightNormals(67) = MakeVector(0.850651, 0#, -0.525731)
MD2LightNormals(68) = MakeVector(0.809017, -0.309017, -0.5)
MD2LightNormals(69) = MakeVector(0.864188, -0.442863, -0.238856)
MD2LightNormals(70) = MakeVector(0.951056, -0.16246, -0.262866)
MD2LightNormals(71) = MakeVector(0.147621, 0.716567, -0.681718)
MD2LightNormals(72) = MakeVector(0.309017, 0.5, -0.809017)
MD2LightNormals(73) = MakeVector(0.425325, 0.688191, -0.587785)
MD2LightNormals(74) = MakeVector(0.442863, 0.238856, -0.864188)
MD2LightNormals(75) = MakeVector(0.587785, 0.425325, -0.688191)
MD2LightNormals(76) = MakeVector(0.688191, 0.587785, -0.425325)
MD2LightNormals(77) = MakeVector(-0.147621, 0.716567, -0.681718)
MD2LightNormals(78) = MakeVector(-0.309017, 0.5, -0.809017)
MD2LightNormals(79) = MakeVector(0#, 0.525731, -0.850651)
MD2LightNormals(80) = MakeVector(-0.525731, 0#, -0.850651)
MD2LightNormals(81) = MakeVector(-0.442863, 0.238856, -0.864188)
MD2LightNormals(82) = MakeVector(-0.295242, 0#, -0.955423)
MD2LightNormals(83) = MakeVector(-0.16246, 0.262866, -0.951056)
MD2LightNormals(84) = MakeVector(0#, 0#, -1#)
MD2LightNormals(85) = MakeVector(0.295242, 0#, -0.955423)
MD2LightNormals(86) = MakeVector(0.16246, 0.262866, -0.951056)
MD2LightNormals(87) = MakeVector(-0.442863, -0.238856, -0.864188)
MD2LightNormals(88) = MakeVector(-0.309017, -0.5, -0.809017)
MD2LightNormals(89) = MakeVector(-0.16246, -0.262866, -0.951056)
MD2LightNormals(90) = MakeVector(0#, -0.850651, -0.525731)
MD2LightNormals(91) = MakeVector(-0.147621, -0.716567, -0.681718)
MD2LightNormals(92) = MakeVector(0.147621, -0.716567, -0.681718)
MD2LightNormals(93) = MakeVector(0#, -0.525731, -0.850651)
MD2LightNormals(94) = MakeVector(0.309017, -0.5, -0.809017)
MD2LightNormals(95) = MakeVector(0.442863, -0.238856, -0.864188)
MD2LightNormals(96) = MakeVector(0.16246, -0.262866, -0.951056)
MD2LightNormals(97) = MakeVector(0.238856, -0.864188, -0.442863)
MD2LightNormals(98) = MakeVector(0.5, -0.809017, -0.309017)
MD2LightNormals(99) = MakeVector(0.425325, -0.688191, -0.587785)
MD2LightNormals(100) = MakeVector(0.716567, -0.681718, -0.147621)
MD2LightNormals(101) = MakeVector(0.688191, -0.587785, -0.425325)
MD2LightNormals(102) = MakeVector(0.587785, -0.425325, -0.688191)
MD2LightNormals(103) = MakeVector(0#, -0.955423, -0.295242)
MD2LightNormals(104) = MakeVector(0#, -1#, 0#)
MD2LightNormals(105) = MakeVector(0.262866, -0.951056, -0.16246)
MD2LightNormals(106) = MakeVector(0#, -0.850651, 0.525731)
MD2LightNormals(107) = MakeVector(0#, -0.955423, 0.295242)
MD2LightNormals(108) = MakeVector(0.238856, -0.864188, 0.442863)
MD2LightNormals(109) = MakeVector(0.262866, -0.951056, 0.16246)
MD2LightNormals(110) = MakeVector(0.5, -0.809017, 0.309017)
MD2LightNormals(111) = MakeVector(0.716567, -0.681718, 0.147621)
MD2LightNormals(112) = MakeVector(0.525731, -0.850651, 0#)
MD2LightNormals(113) = MakeVector(-0.238856, -0.864188, -0.442863)
MD2LightNormals(114) = MakeVector(-0.5, -0.809017, -0.309017)
MD2LightNormals(115) = MakeVector(-0.262866, -0.951056, -0.16246)
MD2LightNormals(116) = MakeVector(-0.850651, -0.525731, 0#)
MD2LightNormals(117) = MakeVector(-0.716567, -0.681718, -0.147621)
MD2LightNormals(118) = MakeVector(-0.716567, -0.681718, 0.147621)
MD2LightNormals(119) = MakeVector(-0.525731, -0.850651, 0#)
MD2LightNormals(120) = MakeVector(-0.5, -0.809017, 0.309017)
MD2LightNormals(121) = MakeVector(-0.238856, -0.864188, 0.442863)
MD2LightNormals(122) = MakeVector(-0.262866, -0.951056, 0.16246)
MD2LightNormals(123) = MakeVector(-0.864188, -0.442863, 0.238856)
MD2LightNormals(124) = MakeVector(-0.809017, -0.309017, 0.5)
MD2LightNormals(125) = MakeVector(-0.688191, -0.587785, 0.425325)
MD2LightNormals(126) = MakeVector(-0.681718, -0.147621, 0.716567)
MD2LightNormals(127) = MakeVector(-0.442863, -0.238856, 0.864188)
MD2LightNormals(128) = MakeVector(-0.587785, -0.425325, 0.688191)
MD2LightNormals(129) = MakeVector(-0.309017, -0.5, 0.809017)
MD2LightNormals(130) = MakeVector(-0.147621, -0.716567, 0.681718)
MD2LightNormals(131) = MakeVector(-0.425325, -0.688191, 0.587785)
MD2LightNormals(132) = MakeVector(-0.16246, -0.262866, 0.951056)
MD2LightNormals(133) = MakeVector(0.442863, -0.238856, 0.864188)
MD2LightNormals(134) = MakeVector(0.16246, -0.262866, 0.951056)
MD2LightNormals(135) = MakeVector(0.309017, -0.5, 0.809017)
MD2LightNormals(136) = MakeVector(0.147621, -0.716567, 0.681718)
MD2LightNormals(137) = MakeVector(0#, -0.525731, 0.850651)
MD2LightNormals(138) = MakeVector(0.425325, -0.688191, 0.587785)
MD2LightNormals(139) = MakeVector(0.587785, -0.425325, 0.688191)
MD2LightNormals(140) = MakeVector(0.688191, -0.587785, 0.425325)
MD2LightNormals(141) = MakeVector(-0.955423, 0.295242, 0#)
MD2LightNormals(142) = MakeVector(-0.951056, 0.16246, 0.262866)
MD2LightNormals(143) = MakeVector(-1#, 0#, 0#)
MD2LightNormals(144) = MakeVector(-0.850651, 0#, 0.525731)
MD2LightNormals(145) = MakeVector(-0.955423, -0.295242, 0#)
MD2LightNormals(146) = MakeVector(-0.951056, -0.16246, 0.262866)
MD2LightNormals(147) = MakeVector(-0.864188, 0.442863, -0.238856)
MD2LightNormals(148) = MakeVector(-0.951056, 0.16246, -0.262866)
MD2LightNormals(149) = MakeVector(-0.809017, 0.309017, -0.5)
MD2LightNormals(150) = MakeVector(-0.864188, -0.442863, -0.238856)
MD2LightNormals(151) = MakeVector(-0.951056, -0.16246, -0.262866)
MD2LightNormals(152) = MakeVector(-0.809017, -0.309017, -0.5)
MD2LightNormals(153) = MakeVector(-0.681718, 0.147621, -0.716567)
MD2LightNormals(154) = MakeVector(-0.681718, -0.147621, -0.716567)
MD2LightNormals(155) = MakeVector(-0.850651, 0#, -0.525731)
MD2LightNormals(156) = MakeVector(-0.688191, 0.587785, -0.425325)
MD2LightNormals(157) = MakeVector(-0.587785, 0.425325, -0.688191)
MD2LightNormals(158) = MakeVector(-0.425325, 0.688191, -0.587785)
MD2LightNormals(159) = MakeVector(-0.425325, -0.688191, -0.587785)
MD2LightNormals(160) = MakeVector(-0.587785, -0.425325, -0.688191)
MD2LightNormals(161) = MakeVector(-0.688191, -0.587785, -0.425325)


MD2Material.Ambient.A = 1
MD2Material.Ambient.r = 1
MD2Material.Ambient.g = 1
MD2Material.Ambient.B = 1

MD2Material.diffuse.A = 1
MD2Material.diffuse.r = 1
MD2Material.diffuse.g = 1
MD2Material.diffuse.B = 1

MD2Material.power = 10

D3Ddevice.SetMaterial MD2Material
End Function