home *** CD-ROM | disk | FTP | other *** search
/ Using Visual Basic 5 (Platinum Edition) / vb5.iso / ACTIVEX / VIS3SPAC / DATA.9 / examples / vb / 07_01BasicTexture / 07_01BasicTexture.frm (.txt) next >
Encoding:
Visual Basic Form  |  1996-10-13  |  1.4 KB  |  49 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "07_01 Basic Texture"
  4.    ClientHeight    =   5655
  5.    ClientLeft      =   915
  6.    ClientTop       =   1230
  7.    ClientWidth     =   6360
  8.    Height          =   6030
  9.    Left            =   855
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5655
  12.    ScaleWidth      =   6360
  13.    Top             =   915
  14.    Width           =   6480
  15.    Begin TgsVisual3SpaceLibCtl.V3Space V3Space1 
  16.       Height          =   5532
  17.       Left            =   0
  18.       TabIndex        =   0
  19.       Top             =   120
  20.       Width           =   6372
  21.       _Version        =   131072
  22.       _ExtentX        =   11240
  23.       _ExtentY        =   9758
  24.       _StockProps     =   0
  25.    End
  26. Attribute VB_Name = "Form1"
  27. Attribute VB_Creatable = False
  28. Attribute VB_Exposed = False
  29. Private Sub Form_Initialize()
  30.     Dim root As SoSeparator
  31.     Set root = New SoSeparator
  32.     'Choose a texture
  33.     Dim rock As SoTexture2
  34.     Set rock = New SoTexture2
  35.     Call root.addChild(rock)
  36.     Call rock.fname.setValue(V3Space1.getRegistryDataPath() + "/examples/data/brick_1.rgb")
  37.     'Make a cube
  38.     Dim myCube As SoCube
  39.     Set myCube = New SoCube
  40.     Call root.addChild(myCube)
  41.     Call V3Space1.setSceneRoot(root)
  42.     Call V3Space1.viewAll
  43.     'clean up
  44.     Set root = Nothing
  45.     Set rock = Nothing
  46.     Set myCube = Nothing
  47.     Set sceneRoot = Nothing
  48. End Sub
  49.