home *** CD-ROM | disk | FTP | other *** search
- VERSION 5.00
- Begin VB.UserControl FirstPlugControl
- ClientHeight = 4635
- ClientLeft = 0
- ClientTop = 0
- ClientWidth = 3990
- ScaleHeight = 309
- ScaleMode = 3 'Pixel
- ScaleWidth = 266
- Begin VB.CommandButton FetchButton
- Caption = "Fetch"
- Height = 375
- Left = 1200
- TabIndex = 0
- Top = 3960
- Width = 1575
- End
- Begin VB.Label Mat0Label
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 16
- Top = 2520
- Width = 225
- End
- Begin VB.Label Mat1Label
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 15
- Top = 2760
- Width = 225
- End
- Begin VB.Label Mat2Label
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 14
- Top = 3000
- Width = 225
- End
- Begin VB.Label Mat3Label
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 13
- Top = 3240
- Width = 225
- End
- Begin VB.Label MaxLabel
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 12
- Top = 2040
- Width = 225
- End
- Begin VB.Label MinLabel
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 11
- Top = 1800
- Width = 225
- End
- Begin VB.Label RotLabel
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 10
- Top = 1080
- Width = 225
- End
- Begin VB.Label SizeLabel
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 9
- Top = 840
- Width = 225
- End
- Begin VB.Label LocLabel
- AutoSize = -1 'True
- Caption = " "
- Height = 195
- Left = 1560
- TabIndex = 8
- Top = 600
- Width = 225
- End
- Begin VB.Label NameLabel
- AutoSize = -1 'True
- Caption = "No Object"
- Height = 195
- Left = 1560
- TabIndex = 7
- Top = 240
- Width = 720
- End
- Begin VB.Label Label6
- Alignment = 1 'Right Justify
- Caption = "Matrix:"
- Height = 195
- Left = 720
- TabIndex = 6
- Top = 2280
- Width = 465
- End
- Begin VB.Label Label5
- Alignment = 1 'Right Justify
- Caption = "Bounding Box:"
- Height = 195
- Left = 120
- TabIndex = 5
- Top = 1560
- Width = 1080
- End
- Begin VB.Label Label4
- Alignment = 1 'Right Justify
- Caption = "Rotation"
- Height = 195
- Left = 240
- TabIndex = 4
- Top = 1080
- Width = 960
- End
- Begin VB.Label Label3
- Alignment = 1 'Right Justify
- Caption = "Size"
- Height = 195
- Left = 240
- TabIndex = 3
- Top = 840
- Width = 960
- End
- Begin VB.Image BitmapImage
- Height = 480
- Left = 2760
- Picture = "PlugControl.ctx":0000
- Top = 120
- Visible = 0 'False
- Width = 480
- End
- Begin VB.Label Label2
- Alignment = 1 'Right Justify
- Caption = "Location:"
- Height = 195
- Left = 240
- TabIndex = 2
- Top = 600
- Width = 960
- End
- Begin VB.Label Label
- Alignment = 1 'Right Justify
- Caption = "Object Name:"
- Height = 195
- Left = 240
- TabIndex = 1
- Top = 240
- Width = 960
- End
- Attribute VB_Name = "FirstPlugControl"
- Attribute VB_GlobalNameSpace = False
- Attribute VB_Creatable = True
- Attribute VB_PredeclaredId = False
- Attribute VB_Exposed = True
- Implements TsControlPlug
- Private Property Get TsControlPlug_PlugBitmap() As Long
- TsControlPlug_PlugBitmap = BitmapImage.Picture.Handle
- End Property
- Private Property Get TsControlPlug_PlugLeft() As Long
- TsControlPlug_PlugLeft = -1
- End Property
- Private Property Get TsControlPlug_PlugTop() As Long
- TsControlPlug_PlugTop = -1
- End Property
- Private Property Get TsControlPlug_PlugWidth() As Long
- TsControlPlug_PlugWidth = ScaleWidth
- End Property
- Private Property Get TsControlPlug_PlugHeight() As Long
- TsControlPlug_PlugHeight = ScaleHeight
- End Property
- Private Property Get TsControlPlug_PlugName() As String
- TsControlPlug_PlugName = "First Plug Control"
- End Property
- Sub TsControlPlug_TsxLeftClick()
- End Sub
- Sub TsControlPlug_TsxRightClick()
- End Sub
- Private Sub FetchButton_Click()
- obj = tsxGetCurrentSelection
- If obj = 0 Then Exit Sub
- If tsxIsGNode(obj) = False Then Exit Sub
- Dim oName As String * 64
- Call tsxGNodeGetName(obj, oName, 64)
- NameLabel.Caption = oName
- Dim v As CtsxVector3f
- Call tsxGNodeGetLocation(obj, v)
- LocLabel.Caption = v.x & ", " & v.y & ", " & v.z
- Call tsxGNodeGetSize(obj, v)
- SizeLabel.Caption = v.x & ", " & v.y & ", " & v.z
- Call tsxGNodeGetRotation(obj, v)
- RotLabel.Caption = v.x & ", " & v.y & ", " & v.z
- Dim B As CtsxBBox3f
- Call tsxGNodeGetBBox(obj, B)
- MinLabel.Caption = B.minbounds.x & ", " & B.minbounds.y & ", " & B.minbounds.z
- MaxLabel.Caption = B.maxbounds.x & ", " & B.maxbounds.y & ", " & B.maxbounds.z
- Dim t As CtsxTxmx3f
- Call tsxGNodeGetTransform(obj, t)
- Mat0Label.Caption = t.matrix(0, 0) & ", " & t.matrix(0, 1) & ", " & t.matrix(0, 2)
- Mat1Label.Caption = t.matrix(1, 0) & ", " & t.matrix(1, 1) & ", " & t.matrix(1, 2)
- Mat2Label.Caption = t.matrix(2, 0) & ", " & t.matrix(2, 1) & ", " & t.matrix(2, 2)
- Mat3Label.Caption = t.matrix(3, 0) & ", " & t.matrix(3, 1) & ", " & t.matrix(3, 2)
- End Sub
-