mvrmlconstants.bas

3ds文件浏览程序

Attribute VB_Name = "mVRMLConstants"
Option Explicit
'*************************************************************************
'FUNCTION:
'AUTHOR: edx - [e-mail], Oct 98 - all rights reserved
'HISTORY: - this is a module from a VRML renderer circa 1997
'NOTES: - This info isn't really used. The IMG_xxx constants
'are used by the treeview, but nothing else. I assign VRML
'values to some nodes and fields, the the classes in this app
'don't conform to the needs of a VRML browser and these assignments
'are unused, except for the SHAPE nodes, which draw.
'*************************************************************************

Public Const IMG_FOLDER = 1
Public Const IMG_FOLDEROPEN = 2
Public Const IMG_BOX = 3
Public Const IMG_ZOOM = 4
Public Const IMG_ZOOMOUT = 5
Public Const IMG_ZOOMIN = 6
Public Const IMG_SELECT = 7
Public Const IMG_SCALE = 8
Public Const IMG_ROTATE = 9
Public Const IMG_PAN = 10
Public Const IMG_MOVE = 11
Public Const IMG_GRID = 12
Public Const IMG_ARCROTATE = 13
Public Const IMG_SHAPE = 14
Public Const IMG_MATERIAL = 15
Public Const IMG_GEOM = 16
Public Const IMG_LIGHT = 17
Public Const IMG_VERTEX = 18
Public Const IMG_COLOR = 19
Public Const IMG_FACE = 20
Public Const IMG_FIELD = 21
Public Const IMG_FILM = 22
Public Const IMG_FOG = 23
Public Const IMG_FONT = 24
Public Const IMG_FUNCTION = 25
Public Const IMG_HEADER = 26
Public Const IMG_IMAGE = 27
Public Const IMG_TEXTURE = 28
Public Const IMG_NEW = 29
Public Const IMG_OBJECT = 30
Public Const IMG_TEXT = 31
Public Const IMG_GROUP = 32
Public Const IMG_SEPARATOR = 33
Public Const IMG_SCRIPT = 34
Public Const IMG_SOUND = 35
Public Const IMG_TRANSFORM = 36
Public Const IMG_CAMERA = 37
Public Const IMG_VIEW = 40

'----------------------------------------------------
'VR constants
'----------------------------------------------------

'----------------------------------------------------
'NODE IDS
'----------------------------------------------------
Public Enum NodeIDConstants
    NODE_ROOT = 200
    NODE_COORDINATEINTERP = 12
    NODE_DIRECTIONALLIGHT = 14
    NODE_MATERIAL = 25
    NODE_SHAPE = 39
    NODE_VIEWPOINT = 51
End Enum

'----------------------------------------------------
'NODE NAMES -text names for vrml nodes
'----------------------------------------------------
Public Const NN_ROOT = "Root"
Public Const NN_COORDINATEINTERP = "CoordinateInterpolator"
Public Const NN_DIRECTIONALLIGHT = "DirectionalLight"
Public Const NN_MATERIAL = "Material"
Public Const NN_SHAPE = "Shape"
Public Const NN_VIEWPOINT = "Viewpoint"
'----------------------------------------------------
'FIELD ID'S - Ids used to look up the text name for a field
'----------------------------------------------------
Public Enum FieldNameIDConstants
    FID_COLOR = -38
    FID_COLORINDEX = -40
    FID_COLORPERVERTEX = -42
    FID_COORD = -46
    FID_COORDINDEX = -48
    FID_NORMAL = -124
    FID_NORMALINDEX = -126
    FID_TEXCOORD = -300
    FID_TEXCOORDINDEX = -302
End Enum
'----------------------------------------------------
'Field names
'----------------------------------------------------
Public Const FN_COLOR = "color"
Public Const FN_COLORINDEX = "colorIndex"
Public Const FN_COLORPERVERTEX = "colorPerVertex"
Public Const FN_COORD = "coord"
Public Const FN_COORDINDEX = "coordIndex"
Public Const FN_NORMAL = "normal"
Public Const FN_NORMALINDEX = "normalIndex"
Public Const FN_TEXCOORD = "texCoord"
Public Const FN_TEXCOORDINDEX = "texCoordIndex"

'----------------------------------------------------
'returns an ID from a string
'----------------------------------------------------
Public Function GetFieldNameID&(s$)
On Error Resume Next
Dim n&
Select Case s
Case FN_COLOR: n = FID_COLOR
Case FN_COLORINDEX: n = FID_COLORINDEX
Case FN_COLORPERVERTEX: n = FID_COLORPERVERTEX
Case FN_COORD: n = FID_COORD
Case FN_COORDINDEX: n = FID_COORDINDEX
Case FN_NORMAL: n = FID_NORMAL
Case FN_NORMALINDEX: n = FID_NORMALINDEX
Case FN_TEXCOORD: n = FID_TEXCOORD
Case FN_TEXCOORDINDEX: n = FID_TEXCOORDINDEX
Case Else
    Debug.Print s
    Debug.Assert 0
End Select
GetFieldNameID = n
End Function

'----------------------------------------------------
'returns a string from an ID
'----------------------------------------------------
Public Function Fieldname(ID&) As String
On Error GoTo ErrorHandler
'------------------------------------------------------------
Dim s$
Select Case ID
Case FID_COLOR: s = FN_COLOR
Case FID_COLORINDEX: s = FN_COLORINDEX
Case FID_COLORPERVERTEX: s = FN_COLORPERVERTEX
Case FID_COORD: s = FN_COORD
Case FID_COORDINDEX: s = FN_COORDINDEX
Case FID_NORMAL: s = FN_NORMAL
Case FID_NORMALINDEX: s = FN_NORMALINDEX
Case FID_TEXCOORD: s = FN_TEXCOORD
Case FID_TEXCOORDINDEX: s = FN_TEXCOORDINDEX
Case Else
    Debug.Print ID
    Debug.Assert 0
End Select
Fieldname = s
'------------------------------------------------------------
Exit Function
ErrorHandler:
Debug.Assert 0
Exit Function
End Function