home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / ACTIVEX / VIS3SPAC / DATA.9 / examples / vb / 02_03Trackball / 02_03Trackball.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-11-10  |  1.5 KB  |  50 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "02_03 Trackball"
  4.    ClientHeight    =   5070
  5.    ClientLeft      =   915
  6.    ClientTop       =   1230
  7.    ClientWidth     =   5700
  8.    Height          =   5445
  9.    Left            =   855
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5070
  12.    ScaleWidth      =   5700
  13.    Top             =   915
  14.    Width           =   5820
  15.    Begin TgsVisual3SpaceLibCtl.V3Space V3Space1 
  16.       Height          =   5052
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   0
  20.       Width           =   5652
  21.       _Version        =   131072
  22.       _ExtentX        =   9970
  23.       _ExtentY        =   8911
  24.       _StockProps     =   0
  25.       viewingOn       =   0   'False
  26.    End
  27. Attribute VB_Name = "Form1"
  28. Attribute VB_Creatable = False
  29. Attribute VB_Exposed = False
  30. Private Sub Form_Initialize()
  31.     Call V3Space1.deleteSceneGraph
  32.     Dim myTrackball As SoTrackballManip
  33.     Dim myMaterial As SoMaterial
  34.     Dim myCone As SoCone
  35.     Dim root As SoSeparator
  36.     Set root = New SoSeparator
  37.     Set myTrackball = New SoTrackballManip
  38.     Set myMaterial = New SoMaterial
  39.     Set myCube = New SoCube
  40.     Call root.addChild(myTrackball)
  41.     Call root.addChild(myMaterial)
  42.     Call root.addChild(myCube)
  43.     Static color As SbVec3f
  44.     Set color = New SbVec3f
  45.     Call color.setValue(1#, 0#, 0#)
  46.     Call myMaterial.diffuseColor.setValueColor(color)
  47.     Call V3Space1.setSceneRoot(root)
  48.     Call V3Space1.viewAll
  49. End Sub
  50.