VERSION 5.00 Begin VB.Form Form1 Caption = "Form1" ClientHeight = 5250 ClientLeft = 60 ClientTop = 345 ClientWidth = 6300 LinkTopic = "Form1" ScaleHeight = 5250 ScaleWidth = 6300 StartUpPosition = 3 'Windows Default End Attribute VB_Name = "Form1" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Dim bRunning As Boolean ' Variabile per definire l'usica dal ciclo di rendering ' Variabili per la cinepresa Public CameraVer As Single Public CameraHor As Single Public CameraRoll As Single Public CameraDolly As Single Public CameraZoom As Single ' Tipo di vertici utilizzati Private Type CUSTOMVERTEX X As Single 'x Y As Single 'y Z As Single 'z. nX As Single ' coordinate delle normali nY As Single nZ As Single color As Long 'vertex color. End Type ' Crea un vettore Private Function MakeVector(ByVal X As Single, _ ByVal Y As Single, ByVal Z As Single) As D3DVECTOR MakeVector.X = X MakeVector.Y = Y MakeVector.Z = Z End Function ' Crea un vertice Private Function MakeVertex(X As Single, Y As Single, Z As Single, _ nX As Single, nY As Single, nZ As Single) As CUSTOMVERTEX MakeVertex.X = X MakeVertex.Y = Y MakeVertex.Z = Z MakeVertex.nX = nX MakeVertex.nY = nY MakeVertex.nZ = nZ MakeVertex.color = &HFFFF0000 End Function ' Attivata quando l'utente clicca sulla finestra, per chiudere l'applicazione Private Sub Form_Click() bRunning = False End Sub ' Programma vero e prorpio! Private Sub Form_Load() ' Inizializzazione della libreria ''''''''''''''''''''''''''''''''' ' Dichiarazioni variabili per le DirectX Dim Dx As DirectX8 Dim D3D As Direct3D8 Dim D3DDevice As Direct3DDevice8 Dim DispMode As D3DDISPLAYMODE Dim D3DWindow As D3DPRESENT_PARAMETERS ' Dichiarazioni variabili per l'applicazione Dim V(304) As CUSTOMVERTEX Dim I(564) As Integer Dim Light As D3DLIGHT8 ' Dichiarazioni variabili per il ciclo di rendering Dim matView As D3DMATRIX Dim matProj As D3DMATRIX Dim matWorld As D3DMATRIX Dim matTemp As D3DMATRIX ' variabili dove contenere le posizioni della cinepresa Dim Cx, Cy, Cz, Ux, Uy, Uz As Single ' Si collega con le DirectX Set Dx = New DirectX8 Set D3D = Dx.Direct3DCreate() ' Imposta la modalita' video in finsetra D3D.GetAdapterDisplayMode D3DADAPTER_DEFAULT, DispMode D3DWindow.Windowed = 1 D3DWindow.SwapEffect = D3DSWAPEFFECT_COPY_VSYNC D3DWindow.BackBufferFormat = DispMode.Format ' Imposta lo Z-Buffer D3DWindow.AutoDepthStencilFormat = D3DFMT_D16 D3DWindow.EnableAutoDepthStencil = 1 ' Crea l'applicazione Set D3DDevice = D3D.CreateDevice(D3DADAPTER_DEFAULT, _ D3DDEVTYPE_HAL, hWnd, _ D3DCREATE_SOFTWARE_VERTEXPROCESSING, _ D3DWindow) ' Definisce il tipo di vertici utilizzati D3DDevice.SetVertexShader D3DFVF_XYZ Or D3DFVF_NORMAL Or _ D3DFVF_DIFFUSE ' Abilita l'illuminazione D3DDevice.SetRenderState D3DRS_LIGHTING, True ' Abilita lo Z-Buffer D3DDevice.SetRenderState D3DRS_ZENABLE, True ' Inizializzazione dell'applicazione '''''''''''''''''''''''''''''''''''' ' Mostra la finestra Me.Show ''''' Attenzione: La cinepresa viene ora impostata nel ''''' ciclo di rendering ! ' Imposta la cinepresa ' D3DXMatrixLookAtLH matView, MakeVector(0, 5, 9), _ ' MakeVector(0, 0, 0), MakeVector(0, 1, 0) ' D3DDevice.SetTransform D3DTS_VIEW, matView ' D3DXMatrixPerspectiveFovLH matProj, 3.1416 / 4, 1, 0.1, 500 ' D3DDevice.SetTransform D3DTS_PROJECTION, matProj ' Imposta la luce Light.Type = D3DLIGHT_POINT Light.Position = MakeVector(3, 5, 9) Light.diffuse.r = 1 Light.diffuse.g = 1 Light.diffuse.b = 1 Light.Range = 100 Light.Attenuation1 = 0.05 D3DDevice.SetLight 0, Light D3DDevice.LightEnable 0, 1 ' Crea la geometria V(0) = MakeVertex(-0.5, -0.5, 0.5, -0.9996938109, 0, 0.02474482544) V(1) = MakeVertex(-0.5, -0.5, 0.5, -0.9988722205, 0.04580786079, -0.01248995028) V(2) = MakeVertex(-0.5, -0.5, 0.5, 0, -1, 0) V(3) = MakeVertex(0.5, -0.5, 0.5, 0.9988722205, 0.04580786079, -0.01248995028) V(4) = MakeVertex(0.5, -0.5, 0.5, 0.9996938109, 0, 0.02474482544) V(5) = MakeVertex(0.5, -0.5, 0.5, 0, -1, 0) V(6) = MakeVertex(-0.4249251187, 0.3730189502, 0.3513617218, 0, 0.3701681197, 0.9289647937) V(7) = MakeVertex(-0.4249251187, 0.3730189502, 0.3513617218, 0, 1, 0) V(8) = MakeVertex(-0.4249251187, 0.3730189502, 0.3513617218, -0.9706332684, 0.2270401567, 0.07952260971) V(9) = MakeVertex(0.4249251187, 0.3730189502, 0.3513617218, 0, 1, 0) V(10) = MakeVertex(0.4249251187, 0.3730189502, 0.3513617218, 0, 0.3701681197, 0.9289647937) V(11) = MakeVertex(0.4249251187, 0.3730189502, 0.3513617218, 0.9706332684, 0.2270401567, 0.07952260971) V(12) = MakeVertex(-0.4249251187, 0.3730189502, -0.3513617218, -0.9934198856, 0.1005905792, 0.05475866795) V(13) = MakeVertex(-0.4249251187, 0.3730189502, -0.3513617218, 0, 1, 0) V(14) = MakeVertex(-0.4249251187, 0.3730189502, -0.3513617218, 0, 0.6089912653, -0.793176949) V(15) = MakeVertex(0.4249251187, 0.3730189502, -0.3513617218, 0.9934198856, 0.1005905792, 0.05475866795) V(16) = MakeVertex(0.4249251187, 0.3730189502, -0.3513617218, 0, 0.6089912653, -0.7931768894) V(17) = MakeVertex(0.4249251187, 0.3730189502, -0.3513617218, 0, 1, 0) V(18) = MakeVertex(-0.07344013453, -0.5, -0.5, 0, -1, 0) V(19) = MakeVertex(-0.07344013453, -0.5, -0.5, -0.3400547206, -0.7400767207, -0.5802147985) V(20) = MakeVertex(-0.07344013453, -0.5, -0.5, -0.4803828597, -0.6607362032, 0.5767668486) V(21) = MakeVertex(0.07344013453, -0.5, -0.5, 0, -1, 0) V(22) = MakeVertex(0.07344013453, -0.5, -0.5, 0.4803828597, -0.6607362032, 0.5767668486) V(23) = MakeVertex(0.07344013453, -0.5, -0.5, 0.3400547206, -0.7400767207, -0.5802147985) V(24) = MakeVertex(0.5, 0, -0.6377609968, 0, 0.9648371935, -0.262848258) V(25) = MakeVertex(0.5, 0, -0.6377609968, 0, 0.6089912653, -0.7931768894) V(26) = MakeVertex(0.5, 0, -0.6377609968, 0.9805625081, 0.05211732909, 0.1891585141) V(27) = MakeVertex(0.5, 0, -0.6377609968, 0.9754994512, -0.05843787268, -0.2120987475) V(28) = MakeVertex(-0.5, 0, -0.6377609968, 0, 0.6089912653, -0.7931768894) V(29) = MakeVertex(-0.5, 0, -0.6377609968, 0, 0.9648371935, -0.262848258) V(30) = MakeVertex(-0.5, 0, -0.6377609968, -0.9754994512, -0.05843787268, -0.2120987475) V(31) = MakeVertex(-0.5, 0, -0.6377609968, -0.9805625081, 0.05211732909, 0.1891585141) V(32) = MakeVertex(0.3879302442, -0.1306158155, -1.117212534, 0.9796966314, -0.02708753012, -0.1986472607) V(33) = MakeVertex(0.3879302442, -0.1306158155, -1.117212534, 0, 0, -1) V(34) = MakeVertex(0.3879302442, -0.1306158155, -1.117212534, 0, 0.9648371935, -0.262848258) V(35) = MakeVertex(-0.3879302442, -0.1306158155, -1.117212534, -0.9796966314, -0.02708753012, -0.1986472607) V(36) = MakeVertex(-0.3879302442, -0.1306158155, -1.117212534, 0, 0.9648371935, -0.262848258) V(37) = MakeVertex(-0.3879302442, -0.1306158155, -1.117212534, 0, 0, -1) V(38) = MakeVertex(0.3879302442, -0.5, -1.117212534, 0, -1, 0) V(39) = MakeVertex(0.3879302442, -0.5, -1.117212534, 0, 0, -1) V(40) = MakeVertex(0.3879302442, -0.5, -1.117212534, 0.9839121699, 0, -0.1786529273) V(41) = MakeVertex(-0.3879302442, -0.5, -1.117212534, 0, 0, -1) V(42) = MakeVertex(-0.3879302442, -0.5, -1.117212534, 0, -1, 0) V(43) = MakeVertex(-0.3879302442, -0.5, -1.117212534, -0.9839121699, 0, -0.1786529273) V(44) = MakeVertex(-0.5, 0, 0.5, 0, 1, 0) V(45) = MakeVertex(-0.5, 0, 0.5, 0, 0.3701681197, 0.9289647937) V(46) = MakeVertex(-0.5, 0, 0.5, -0.9933799505, 0.1146968901, -0.006395536009) V(47) = MakeVertex(-0.5, 0, 0.5, -0.9996938109, 0, 0.02474482544) V(48) = MakeVertex(0.5, 0, 0.5, 0.9933799505, 0.1146968901, -0.006395536009) V(49) = MakeVertex(0.5, 0, 0.5, 0, 0.3701681197, 0.9289647937) V(50) = MakeVertex(0.5, 0, 0.5, 0, 1, 0) V(51) = MakeVertex(0.5, 0, 0.5, 0.9996938109, 0, 0.02474482544) V(52) = MakeVertex(-0.4726976454, -0.5, 1.603019476, 0, -1, 0) V(53) = MakeVertex(-0.4726976454, -0.5, 1.603019476, 0, 0, 1) V(54) = MakeVertex(-0.4726976454, -0.5, 1.603019476, -0.9996938109, 0, 0.02474481985) V(55) = MakeVertex(0.4726976454, -0.5, 1.603019476, 0, 0, 1) V(56) = MakeVertex(0.4726976454, -0.5, 1.603019476, 0, -1, 0) V(57) = MakeVertex(0.4726976454, -0.5, 1.603019476, 0.9996938109, 0, 0.02474481985) V(58) = MakeVertex(0.4726976454, 0, 1.603019476, 0.9996938109, 1.193039623E-08, 0.02474478446) V(59) = MakeVertex(0.4726976454, 0, 1.603019476, 0, 1, 0) V(60) = MakeVertex(0.4726976454, 0, 1.603019476, 0, 0, 1) V(61) = MakeVertex(-0.4726976454, 0, 1.603019476, -0.9996938109, 1.193039623E-08, 0.02474478446) V(62) = MakeVertex(-0.4726976454, 0, 1.603019476, 0, 0, 1) V(63) = MakeVertex(-0.4726976454, 0, 1.603019476, 0, 1, 0) V(64) = MakeVertex(0.4537116885, 0.3730189502, 0, 0.9941012263, 0.1068914533, 0.0183538273) V(65) = MakeVertex(0.4537116885, 0.3730189502, 0, 0.993745029, 0.09393068403, -0.06039788201) V(66) = MakeVertex(0.4537116885, 0.3730189502, 0, 0, 1, 0) V(67) = MakeVertex(0.5338724852, -0.5, 0, 0, -1, 0) V(68) = MakeVertex(0.5338724852, -0.5, 0, 0.9868689775, 0.09061453491, -0.1337108165) V(69) = MakeVertex(0.5338724852, -0.5, 0, 0.9935527444, 0.09122823179, 0.06730819494) V(70) = MakeVertex(-0.4537116885, 0.3730189502, 0, -0.993745029, 0.09393068403, -0.06039788201) V(71) = MakeVertex(-0.4537116885, 0.3730189502, 0, -0.9941012263, 0.1068914533, 0.0183538273) V(72) = MakeVertex(-0.4537116885, 0.3730189502, 0, 0, 1, 0) V(73) = MakeVertex(-0.5338724852, -0.5, 0, 0, -1, 0) V(74) = MakeVertex(-0.5338724852, -0.5, 0, -0.9935527444, 0.09122823179, 0.06730819494) V(75) = MakeVertex(-0.5338724852, -0.5, 0, -0.9868689775, 0.09061453491, -0.1337108165) V(76) = MakeVertex(-0.4452992976, 0, 0.5409449339, 0, 0, 1) V(77) = MakeVertex(-0.4452992976, 0, 0.5409449339, 0, 1, 0) V(78) = MakeVertex(-0.4452992976, 0, 0.5409449339, 0.4470868409, 0.8944271803, -0.01064616814) V(79) = MakeVertex(0.4452992976, 0, 0.5409449339, -0.7069063783, 0.7071067691, -0.0168330688) V(80) = MakeVertex(0.4452992976, 0, 0.5409449339, 0, 1, 0) V(81) = MakeVertex(0.4452992976, 0, 0.5409449339, 0, 0, 1) V(82) = MakeVertex(-0.420983851, 0, 1.562074542, 0.7069063783, 0.7071067691, -0.0168330688) V(83) = MakeVertex(-0.420983851, 0, 1.562074542, 0, 1, 0) V(84) = MakeVertex(-0.420983851, 0, 1.562074542, 0, 0, -1) V(85) = MakeVertex(0.420983851, 0, 1.562074542, 0, 0, -1) V(86) = MakeVertex(0.420983851, 0, 1.562074542, 0, 1, 0) V(87) = MakeVertex(0.420983851, 0, 1.562074542, -0.4470868409, 0.8944271803, -0.01064616814) V(88) = MakeVertex(-0.4452992976, -0.2915820479, 0.5409449339, 0.9997165799, 0, -0.02380555496) V(89) = MakeVertex(-0.4452992976, -0.2915820479, 0.5409449339, 0, 1, 0) V(90) = MakeVertex(-0.4452992976, -0.2915820479, 0.5409449339, 0, 0, 1) V(91) = MakeVertex(0.4452992976, -0.2915820479, 0.5409449339, 0, 0, 1) V(92) = MakeVertex(0.4452992976, -0.2915820479, 0.5409449339, 0, 1, 0) V(93) = MakeVertex(0.4452992976, -0.2915820479, 0.5409449339, -0.9997165799, 0, -0.02380555496) V(94) = MakeVertex(-0.420983851, -0.2915820479, 1.562074542, 0, 0, -1) V(95) = MakeVertex(-0.420983851, -0.2915820479, 1.562074542, 0, 1, 0) V(96) = MakeVertex(-0.420983851, -0.2915820479, 1.562074542, 0.9997165799, 0, -0.02380555496) V(97) = MakeVertex(0.420983851, -0.2915820479, 1.562074542, -0.9997165799, 0, -0.02380555496) V(98) = MakeVertex(0.420983851, -0.2915820479, 1.562074542, 0, 1, 0) V(99) = MakeVertex(0.420983851, -0.2915820479, 1.562074542, 0, 0, -1) V(100) = MakeVertex(-0.443965137, -0.5, -0.808606267, -0.9813615084, -0.01139792614, -0.191832453) V(101) = MakeVertex(-0.443965137, -0.5, -0.808606267, 0, -1, 0) V(102) = MakeVertex(-0.443965137, -0.5, -0.808606267, -0.4803828597, -0.6607362032, 0.5767668486) V(103) = MakeVertex(-0.5, -0.25, -0.5688804984, -0.9955378771, 0.08137386292, 0.04777623713) V(104) = MakeVertex(-0.5, -0.25, -0.5688804984, -0.9771655202, -0.04062185436, -0.2085603178) V(105) = MakeVertex(-0.5, -0.25, -0.5688804984, -0.4803828597, -0.6607362032, 0.5767668486) V(106) = MakeVertex(-0.5, -0.25, -0.5688804984, -0.3400547206, -0.7400767207, -0.5802147985) V(107) = MakeVertex(-0.5, -0.5, -0.25, -0.9964821935, 0.06718089432, -0.05009884015) V(108) = MakeVertex(-0.5, -0.5, -0.25, -0.3400547206, -0.7400767207, -0.5802147985) V(109) = MakeVertex(-0.5, -0.5, -0.25, 0, -1, 0) V(110) = MakeVertex(0.5, -0.5, -0.25, 0.9964821935, 0.06718089432, -0.05009884015) V(111) = MakeVertex(0.5, -0.5, -0.25, 0, -1, 0) V(112) = MakeVertex(0.5, -0.5, -0.25, 0.3400547206, -0.7400767207, -0.5802147985) V(113) = MakeVertex(0.5, -0.25, -0.5688804984, 0.9771655202, -0.04062185436, -0.2085603178) V(114) = MakeVertex(0.5, -0.25, -0.5688804984, 0.9955378771, 0.08137386292, 0.04777623713) V(115) = MakeVertex(0.5, -0.25, -0.5688804984, 0.3400547206, -0.7400767207, -0.5802147985) V(116) = MakeVertex(0.5, -0.25, -0.5688804984, 0.4803828597, -0.6607362032, 0.5767668486) V(117) = MakeVertex(0.443965137, -0.5, -0.808606267, 0.9813615084, -0.01139792614, -0.191832453) V(118) = MakeVertex(0.443965137, -0.5, -0.808606267, 0.4803828597, -0.6607362032, 0.5767668486) V(119) = MakeVertex(0.443965137, -0.5, -0.808606267, 0, -1, 0) V(120) = MakeVertex(-0.4863488078, 0, 1.051509738, -0.9996938109, 0, 0.02474482544) V(121) = MakeVertex(-0.4863488078, 0, 1.051509738, -0.9996938109, 0, 0.02474477142) V(122) = MakeVertex(-0.4863488078, 0, 1.051509738, 0, 1, 0) V(123) = MakeVertex(-0.06483161449, -0.5, 1.051509738, 0, -1, 0) V(124) = MakeVertex(-0.06483161449, -0.5, 1.051509738, -0.404743284, -0.6824249625, -0.6086698771) V(125) = MakeVertex(-0.06483161449, -0.5, 1.051509738, -0.3998173177, -0.6741195321, 0.621054709) V(126) = MakeVertex(0.4863488078, 0, 1.051509738, 0, 1, 0) V(127) = MakeVertex(0.4863488078, 0, 1.051509738, 0.9996938109, 0, 0.02474477142) V(128) = MakeVertex(0.4863488078, 0, 1.051509738, 0.9996938109, 0, 0.02474482544) V(129) = MakeVertex(0.06483161449, -0.5, 1.051509738, 0, -1, 0) V(130) = MakeVertex(0.06483161449, -0.5, 1.051509738, 0.3998173177, -0.6741195321, 0.621054709) V(131) = MakeVertex(0.06483161449, -0.5, 1.051509738, 0.404743284, -0.6824249625, -0.6086698771) V(132) = MakeVertex(-0.4931744039, -0.5, 0.775754869, -0.9996938109, 0, 0.02474482544) V(133) = MakeVertex(-0.4931744039, -0.5, 0.775754869, 0, -1, 0) V(134) = MakeVertex(-0.4931744039, -0.5, 0.775754869, -0.3998173177, -0.6741195321, 0.621054709) V(135) = MakeVertex(-0.4863488078, -0.25, 1.051509738, -0.9996938109, 1.789559434E-08, 0.02474476397) V(136) = MakeVertex(-0.4863488078, -0.25, 1.051509738, -0.9996938109, 0, 0.02474482544) V(137) = MakeVertex(-0.4863488078, -0.25, 1.051509738, -0.3998173177, -0.6741195321, 0.621054709) V(138) = MakeVertex(-0.4863488078, -0.25, 1.051509738, -0.404743284, -0.6824249625, -0.6086698771) V(139) = MakeVertex(-0.4795232415, -0.5, 1.327264547, -0.9996938109, 1.789559434E-08, 0.02474478632) V(140) = MakeVertex(-0.4795232415, -0.5, 1.327264547, -0.404743284, -0.6824249625, -0.6086698771) V(141) = MakeVertex(-0.4795232415, -0.5, 1.327264547, 0, -1, 0) V(142) = MakeVertex(0.4795232415, -0.5, 1.327264547, 0.9996938109, 1.789559434E-08, 0.02474478632) V(143) = MakeVertex(0.4795232415, -0.5, 1.327264547, 0, -1, 0) V(144) = MakeVertex(0.4795232415, -0.5, 1.327264547, 0.404743284, -0.6824249625, -0.6086698771) V(145) = MakeVertex(0.4863488078, -0.25, 1.051509738, 0.9996938109, 1.789559434E-08, 0.02474476397) V(146) = MakeVertex(0.4863488078, -0.25, 1.051509738, 0.404743284, -0.6824249625, -0.6086698771) V(147) = MakeVertex(0.4863488078, -0.25, 1.051509738, 0.3998173177, -0.6741195321, 0.621054709) V(148) = MakeVertex(0.4863488078, -0.25, 1.051509738, 0.9996938109, 0, 0.02474482544) V(149) = MakeVertex(0.4931744039, -0.5, 0.775754869, 0.9996938109, 0, 0.02474482544) V(150) = MakeVertex(0.4931744039, -0.5, 0.775754869, 0.3998173177, -0.6741195321, 0.621054709) V(151) = MakeVertex(0.4931744039, -0.5, 0.775754869, 0, -1, 0) V(152) = MakeVertex(-0.3610474467, -0.4845704734, -0.7288714051, 0, 0.8660255075, -0.4999997616) V(153) = MakeVertex(-0.3610474467, -0.4845704734, -0.7288714051, 1, 0, 0) V(154) = MakeVertex(-0.3610474467, -0.4845704734, -0.7288714051, 0, 2.746859025E-07, -1) V(155) = MakeVertex(-0.3610474467, -0.7015624642, -0.7288714647, 0, 2.746859025E-07, -1) V(156) = MakeVertex(-0.3610474467, -0.7015624642, -0.7288714647, 1, 0, 0) V(157) = MakeVertex(-0.3610474467, -0.7015624642, -0.7288714647, 0, -0.8660252094, -0.5000002384) V(158) = MakeVertex(-0.3610474467, -0.8100585341, -0.5409508944, 0, -0.8660252094, -0.5000002384) V(159) = MakeVertex(-0.3610474467, -0.8100585341, -0.5409508944, 1, 0, 0) V(160) = MakeVertex(-0.3610474467, -0.8100585341, -0.5409508944, 0, -0.8660254478, 0.4999999702) V(161) = MakeVertex(-0.3610474467, -0.7015625238, -0.3530302644, 0, -0.8660254478, 0.4999999702) V(162) = MakeVertex(-0.3610474467, -0.7015625238, -0.3530302644, 1, 0, 0) V(163) = MakeVertex(-0.3610474467, -0.7015625238, -0.3530302644, 0, 0, 1) V(164) = MakeVertex(-0.3610474467, -0.484570533, -0.3530302644, 0, 0, 1) V(165) = MakeVertex(-0.3610474467, -0.484570533, -0.3530302644, 1, 0, 0) V(166) = MakeVertex(-0.3610474467, -0.484570533, -0.3530302644, 0, 0.8660253882, 0.4999999702) V(167) = MakeVertex(-0.3610474467, -0.3760745525, -0.5409508348, 0, 0.8660253882, 0.4999999702) V(168) = MakeVertex(-0.3610474467, -0.3760745525, -0.5409508348, 1, 0, 0) V(169) = MakeVertex(-0.3610474467, -0.3760745525, -0.5409508348, 0, 0.8660255075, -0.4999997616) V(170) = MakeVertex(-0.4819527864, -0.4845704734, -0.7288714051, 0, 2.746859025E-07, -1) V(171) = MakeVertex(-0.4819527864, -0.4845704734, -0.7288714051, -1, 0, 0) V(172) = MakeVertex(-0.4819527864, -0.4845704734, -0.7288714051, 0, 0.8660255075, -0.4999997616) V(173) = MakeVertex(-0.4819527864, -0.7015624642, -0.7288714647, 0, -0.8660252094, -0.5000002384) V(174) = MakeVertex(-0.4819527864, -0.7015624642, -0.7288714647, -1, 0, 0) V(175) = MakeVertex(-0.4819527864, -0.7015624642, -0.7288714647, 0, 2.746859025E-07, -1) V(176) = MakeVertex(-0.4819527864, -0.8100585341, -0.5409508944, 0, -0.8660254478, 0.4999999702) V(177) = MakeVertex(-0.4819527864, -0.8100585341, -0.5409508944, -1, 0, 0) V(178) = MakeVertex(-0.4819527864, -0.8100585341, -0.5409508944, 0, -0.8660252094, -0.5000002384) V(179) = MakeVertex(-0.4819527864, -0.7015625238, -0.3530302644, 0, 0, 1) V(180) = MakeVertex(-0.4819527864, -0.7015625238, -0.3530302644, -1, 0, 0) V(181) = MakeVertex(-0.4819527864, -0.7015625238, -0.3530302644, 0, -0.8660254478, 0.4999999702) V(182) = MakeVertex(-0.4819527864, -0.484570533, -0.3530302644, 0, 0.8660253882, 0.4999999702) V(183) = MakeVertex(-0.4819527864, -0.484570533, -0.3530302644, -1, 0, 0) V(184) = MakeVertex(-0.4819527864, -0.484570533, -0.3530302644, 0, 0, 1) V(185) = MakeVertex(-0.4819527864, -0.3760745525, -0.5409508348, 0, 0.8660255075, -0.4999997616) V(186) = MakeVertex(-0.4819527864, -0.3760745525, -0.5409508348, -1, 0, 0) V(187) = MakeVertex(-0.4819527864, -0.3760745525, -0.5409508348, 0, 0.8660253882, 0.4999999702) V(188) = MakeVertex(-0.3610474467, -0.5930665135, -0.5409508348, 1, 0, 0) V(189) = MakeVertex(-0.4819527864, -0.5930665135, -0.5409508348, -1, 0, 0) V(190) = MakeVertex(-0.3610474467, -0.7015625834, 0.8712037802, 0, -0.8660256267, -0.4999996722) V(191) = MakeVertex(-0.3610474467, -0.7015625834, 0.8712037802, 0, -0.000000274685874, -1) V(192) = MakeVertex(-0.3610474467, -0.7015625834, 0.8712037802, 1, 0, 0) V(193) = MakeVertex(-0.3610474467, -0.4845705628, 0.8712037206, 0, -0.000000274685874, -1) V(194) = MakeVertex(-0.3610474467, -0.4845705628, 0.8712037206, 0, 0.8660253882, -0.5000000596) V(195) = MakeVertex(-0.3610474467, -0.4845705628, 0.8712037206, 1, 0, 0) V(196) = MakeVertex(-0.3610474467, -0.3760745227, 1.059124351, 0, 0.8660253882, -0.5000000596) V(197) = MakeVertex(-0.3610474467, -0.3760745227, 1.059124351, 0, 0.8660253882, 0.4999999702) V(198) = MakeVertex(-0.3610474467, -0.3760745227, 1.059124351, 1, 0, 0) V(199) = MakeVertex(-0.3610474467, -0.4845705032, 1.247044921, 0, 0.8660253882, 0.4999999702) V(200) = MakeVertex(-0.3610474467, -0.4845705032, 1.247044921, 0, 0, 1) V(201) = MakeVertex(-0.3610474467, -0.4845705032, 1.247044921, 1, 0, 0) V(202) = MakeVertex(-0.3610474467, -0.7015625238, 1.247044921, 0, 0, 1) V(203) = MakeVertex(-0.3610474467, -0.7015625238, 1.247044921, 0, -0.8660254478, 0.4999998808) V(204) = MakeVertex(-0.3610474467, -0.7015625238, 1.247044921, 1, 0, 0) V(205) = MakeVertex(-0.3610474467, -0.8100584745, 1.059124351, 0, -0.8660254478, 0.4999998808) V(206) = MakeVertex(-0.3610474467, -0.8100584745, 1.059124351, 0, -0.8660256267, -0.4999996722) V(207) = MakeVertex(-0.3610474467, -0.8100584745, 1.059124351, 1, 0, 0) V(208) = MakeVertex(-0.4819527864, -0.7015625834, 0.8712037802, 0, -0.000000274685874, -1) V(209) = MakeVertex(-0.4819527864, -0.7015625834, 0.8712037802, 0, -0.8660256267, -0.4999996722) V(210) = MakeVertex(-0.4819527864, -0.7015625834, 0.8712037802, -1, 0, 0) V(211) = MakeVertex(-0.4819527864, -0.4845705628, 0.8712037206, 0, 0.8660253882, -0.5000000596) V(212) = MakeVertex(-0.4819527864, -0.4845705628, 0.8712037206, 0, -0.000000274685874, -1) V(213) = MakeVertex(-0.4819527864, -0.4845705628, 0.8712037206, -1, 0, 0) V(214) = MakeVertex(-0.4819527864, -0.3760745227, 1.059124351, 0, 0.8660253882, 0.4999999702) V(215) = MakeVertex(-0.4819527864, -0.3760745227, 1.059124351, 0, 0.8660253882, -0.5000000596) V(216) = MakeVertex(-0.4819527864, -0.3760745227, 1.059124351, -1, 0, 0) V(217) = MakeVertex(-0.4819527864, -0.4845705032, 1.247044921, 0, 0, 1) V(218) = MakeVertex(-0.4819527864, -0.4845705032, 1.247044921, 0, 0.8660253882, 0.4999999702) V(219) = MakeVertex(-0.4819527864, -0.4845705032, 1.247044921, -1, 0, 0) V(220) = MakeVertex(-0.4819527864, -0.7015625238, 1.247044921, 0, -0.8660254478, 0.4999998808) V(221) = MakeVertex(-0.4819527864, -0.7015625238, 1.247044921, 0, 0, 1) V(222) = MakeVertex(-0.4819527864, -0.7015625238, 1.247044921, -1, 0, 0) V(223) = MakeVertex(-0.4819527864, -0.8100584745, 1.059124351, 0, -0.8660256267, -0.4999996722) V(224) = MakeVertex(-0.4819527864, -0.8100584745, 1.059124351, 0, -0.8660254478, 0.4999998808) V(225) = MakeVertex(-0.4819527864, -0.8100584745, 1.059124351, -1, 0, 0) V(226) = MakeVertex(-0.3610474467, -0.5930665135, 1.059124351, 1, 0, 0) V(227) = MakeVertex(-0.4819527864, -0.5930665135, 1.059124351, -1, 0, 0) V(228) = MakeVertex(0.4755623639, -0.4845704734, 0.8712037802, 0, 0.8660255075, -0.4999997616) V(229) = MakeVertex(0.4755623639, -0.4845704734, 0.8712037802, 1, 0, 0) V(230) = MakeVertex(0.4755623639, -0.4845704734, 0.8712037802, 0, 2.746859025E-07, -1) V(231) = MakeVertex(0.4755623639, -0.7015624642, 0.8712037206, 0, 2.746859025E-07, -1) V(232) = MakeVertex(0.4755623639, -0.7015624642, 0.8712037206, 1, 0, 0) V(233) = MakeVertex(0.4755623639, -0.7015624642, 0.8712037206, 0, -0.8660253286, -0.5000001788) V(234) = MakeVertex(0.4755623639, -0.8100585341, 1.059124351, 0, -0.8660253286, -0.5000001788) V(235) = MakeVertex(0.4755623639, -0.8100585341, 1.059124351, 1, 0, 0) V(236) = MakeVertex(0.4755623639, -0.8100585341, 1.059124351, 0, -0.8660253286, 0.5000000596) V(237) = MakeVertex(0.4755623639, -0.7015625238, 1.247044921, 0, -0.8660253286, 0.5000000596) V(238) = MakeVertex(0.4755623639, -0.7015625238, 1.247044921, 1, 0, 0) V(239) = MakeVertex(0.4755623639, -0.7015625238, 1.247044921, 0, 0, 1) V(240) = MakeVertex(0.4755623639, -0.484570533, 1.247044921, 0, 0, 1) V(241) = MakeVertex(0.4755623639, -0.484570533, 1.247044921, 1, 0, 0) V(242) = MakeVertex(0.4755623639, -0.484570533, 1.247044921, 0, 0.8660253882, 0.4999999702) V(243) = MakeVertex(0.4755623639, -0.3760745525, 1.059124351, 0, 0.8660253882, 0.4999999702) V(244) = MakeVertex(0.4755623639, -0.3760745525, 1.059124351, 1, 0, 0) V(245) = MakeVertex(0.4755623639, -0.3760745525, 1.059124351, 0, 0.8660255075, -0.4999997616) V(246) = MakeVertex(0.3546570241, -0.4845704734, 0.8712037802, 0, 2.746859025E-07, -1) V(247) = MakeVertex(0.3546570241, -0.4845704734, 0.8712037802, -1, 0, 0) V(248) = MakeVertex(0.3546570241, -0.4845704734, 0.8712037802, 0, 0.8660255075, -0.4999997616) V(249) = MakeVertex(0.3546570241, -0.7015624642, 0.8712037206, 0, -0.8660253286, -0.5000001788) V(250) = MakeVertex(0.3546570241, -0.7015624642, 0.8712037206, -1, 0, 0) V(251) = MakeVertex(0.3546570241, -0.7015624642, 0.8712037206, 0, 2.746859025E-07, -1) V(252) = MakeVertex(0.3546570241, -0.8100585341, 1.059124351, 0, -0.8660253286, 0.5000000596) V(253) = MakeVertex(0.3546570241, -0.8100585341, 1.059124351, -1, 0, 0) V(254) = MakeVertex(0.3546570241, -0.8100585341, 1.059124351, 0, -0.8660253286, -0.5000001788) V(255) = MakeVertex(0.3546570241, -0.7015625238, 1.247044921, 0, 0, 1) V(256) = MakeVertex(0.3546570241, -0.7015625238, 1.247044921, -1, 0, 0) V(257) = MakeVertex(0.3546570241, -0.7015625238, 1.247044921, 0, -0.8660253286, 0.5000000596) V(258) = MakeVertex(0.3546570241, -0.484570533, 1.247044921, 0, 0.8660253882, 0.4999999702) V(259) = MakeVertex(0.3546570241, -0.484570533, 1.247044921, -1, 0, 0) V(260) = MakeVertex(0.3546570241, -0.484570533, 1.247044921, 0, 0, 1) V(261) = MakeVertex(0.3546570241, -0.3760745525, 1.059124351, 0, 0.8660255075, -0.4999997616) V(262) = MakeVertex(0.3546570241, -0.3760745525, 1.059124351, -1, 0, 0) V(263) = MakeVertex(0.3546570241, -0.3760745525, 1.059124351, 0, 0.8660253882, 0.4999999702) V(264) = MakeVertex(0.4755623639, -0.5930665135, 1.059124351, 1, 0, 0) V(265) = MakeVertex(0.3546570241, -0.5930665135, 1.059124351, -1, 0, 0) V(266) = MakeVertex(0.4755623639, -0.7015625834, -0.7288714051, 0, -0.8660256267, -0.4999996722) V(267) = MakeVertex(0.4755623639, -0.7015625834, -0.7288714051, 0, -0.000000274685874, -1) V(268) = MakeVertex(0.4755623639, -0.7015625834, -0.7288714051, 1, 0, 0) V(269) = MakeVertex(0.4755623639, -0.4845705628, -0.7288714647, 0, -0.000000274685874, -1) V(270) = MakeVertex(0.4755623639, -0.4845705628, -0.7288714647, 0, 0.8660253286, -0.5000001788) V(271) = MakeVertex(0.4755623639, -0.4845705628, -0.7288714647, 1, 0, 0) V(272) = MakeVertex(0.4755623639, -0.3760745227, -0.5409508944, 0, 0.8660253286, -0.5000001788) V(273) = MakeVertex(0.4755623639, -0.3760745227, -0.5409508944, 0, 0.8660255075, 0.499999851) V(274) = MakeVertex(0.4755623639, -0.3760745227, -0.5409508944, 1, 0, 0) V(275) = MakeVertex(0.4755623639, -0.4845705032, -0.3530302644, 0, 0.8660255075, 0.499999851) V(276) = MakeVertex(0.4755623639, -0.4845705032, -0.3530302644, 0, 0, 1) V(277) = MakeVertex(0.4755623639, -0.4845705032, -0.3530302644, 1, 0, 0) V(278) = MakeVertex(0.4755623639, -0.7015625238, -0.3530302644, 0, 0, 1) V(279) = MakeVertex(0.4755623639, -0.7015625238, -0.3530302644, 0, -0.8660254478, 0.4999998808) V(280) = MakeVertex(0.4755623639, -0.7015625238, -0.3530302644, 1, 0, 0) V(281) = MakeVertex(0.4755623639, -0.8100584745, -0.5409508348, 0, -0.8660254478, 0.4999998808) V(282) = MakeVertex(0.4755623639, -0.8100584745, -0.5409508348, 0, -0.8660256267, -0.4999996722) V(283) = MakeVertex(0.4755623639, -0.8100584745, -0.5409508348, 1, 0, 0) V(284) = MakeVertex(0.3546570241, -0.7015625834, -0.7288714051, 0, -0.000000274685874, -1) V(285) = MakeVertex(0.3546570241, -0.7015625834, -0.7288714051, 0, -0.8660256267, -0.4999996722) V(286) = MakeVertex(0.3546570241, -0.7015625834, -0.7288714051, -1, 0, 0) V(287) = MakeVertex(0.3546570241, -0.4845705628, -0.7288714647, 0, 0.8660253286, -0.5000001788) V(288) = MakeVertex(0.3546570241, -0.4845705628, -0.7288714647, 0, -0.000000274685874, -1) V(289) = MakeVertex(0.3546570241, -0.4845705628, -0.7288714647, -1, 0, 0) V(290) = MakeVertex(0.3546570241, -0.3760745227, -0.5409508944, 0, 0.8660255075, 0.499999851) V(291) = MakeVertex(0.3546570241, -0.3760745227, -0.5409508944, 0, 0.8660253286, -0.5000001788) V(292) = MakeVertex(0.3546570241, -0.3760745227, -0.5409508944, -1, 0, 0) V(293) = MakeVertex(0.3546570241, -0.4845705032, -0.3530302644, 0, 0, 1) V(294) = MakeVertex(0.3546570241, -0.4845705032, -0.3530302644, 0, 0.8660255075, 0.499999851) V(295) = MakeVertex(0.3546570241, -0.4845705032, -0.3530302644, -1, 0, 0) V(296) = MakeVertex(0.3546570241, -0.7015625238, -0.3530302644, 0, -0.8660254478, 0.4999998808) V(297) = MakeVertex(0.3546570241, -0.7015625238, -0.3530302644, 0, 0, 1) V(298) = MakeVertex(0.3546570241, -0.7015625238, -0.3530302644, -1, 0, 0) V(299) = MakeVertex(0.3546570241, -0.8100584745, -0.5409508348, 0, -0.8660256267, -0.4999996722) V(300) = MakeVertex(0.3546570241, -0.8100584745, -0.5409508348, 0, -0.8660254478, 0.4999998808) V(301) = MakeVertex(0.3546570241, -0.8100584745, -0.5409508348, -1, 0, 0) V(302) = MakeVertex(0.4755623639, -0.5930665135, -0.5409508348, 1, 0, 0) V(303) = MakeVertex(0.3546570241, -0.5930665135, -0.5409508348, -1, 0, 0) I(0) = 45: I(1) = 49: I(2) = 6 I(3) = 49: I(4) = 10: I(5) = 6 I(6) = 7: I(7) = 9: I(8) = 72 I(9) = 9: I(10) = 66: I(11) = 72 I(12) = 66: I(13) = 17: I(14) = 72 I(15) = 17: I(16) = 13: I(17) = 72 I(18) = 25: I(19) = 28: I(20) = 16 I(21) = 14: I(22) = 16: I(23) = 28 I(24) = 5: I(25) = 2: I(26) = 67 I(27) = 2: I(28) = 73: I(29) = 67 I(30) = 67: I(31) = 73: I(32) = 111 I(33) = 111: I(34) = 73: I(35) = 21 I(36) = 21: I(37) = 73: I(38) = 18 I(39) = 18: I(40) = 73: I(41) = 109 I(42) = 68: I(43) = 110: I(44) = 65 I(45) = 110: I(46) = 114: I(47) = 65 I(48) = 65: I(49) = 114: I(50) = 15 I(51) = 114: I(52) = 26: I(53) = 15 I(54) = 74: I(55) = 1: I(56) = 71 I(57) = 1: I(58) = 46: I(59) = 71 I(60) = 46: I(61) = 8: I(62) = 71 I(63) = 37: I(64) = 33: I(65) = 41 I(66) = 33: I(67) = 39: I(68) = 41 I(69) = 29: I(70) = 24: I(71) = 36 I(72) = 24: I(73) = 34: I(74) = 36 I(75) = 27: I(76) = 113: I(77) = 32 I(78) = 113: I(79) = 117: I(80) = 32 I(81) = 117: I(82) = 40: I(83) = 32 I(84) = 42: I(85) = 38: I(86) = 101 I(87) = 101: I(88) = 38: I(89) = 18 I(90) = 18: I(91) = 38: I(92) = 21 I(93) = 21: I(94) = 38: I(95) = 119 I(96) = 30: I(97) = 35: I(98) = 104 I(99) = 104: I(100) = 35: I(101) = 100 I(102) = 35: I(103) = 43: I(104) = 100 I(105) = 53: I(106) = 55: I(107) = 62 I(108) = 55: I(109) = 60: I(110) = 62 I(111) = 2: I(112) = 5: I(113) = 133 I(114) = 133: I(115) = 5: I(116) = 123 I(117) = 5: I(118) = 151: I(119) = 123 I(120) = 151: I(121) = 129: I(122) = 123 I(123) = 56: I(124) = 52: I(125) = 143 I(126) = 143: I(127) = 52: I(128) = 129 I(129) = 129: I(130) = 52: I(131) = 123 I(132) = 52: I(133) = 141: I(134) = 123 I(135) = 4: I(136) = 51: I(137) = 149 I(138) = 149: I(139) = 51: I(140) = 148 I(141) = 51: I(142) = 128: I(143) = 148 I(144) = 92: I(145) = 89: I(146) = 98 I(147) = 89: I(148) = 95: I(149) = 98 I(150) = 121: I(151) = 135: I(152) = 61 I(153) = 135: I(154) = 139: I(155) = 61 I(156) = 139: I(157) = 54: I(158) = 61 I(159) = 69: I(160) = 64: I(161) = 3 I(162) = 3: I(163) = 64: I(164) = 48 I(165) = 64: I(166) = 11: I(167) = 48 I(168) = 75: I(169) = 70: I(170) = 107 I(171) = 107: I(172) = 70: I(173) = 103 I(174) = 70: I(175) = 12: I(176) = 103 I(177) = 12: I(178) = 31: I(179) = 103 I(180) = 50: I(181) = 44: I(182) = 80 I(183) = 44: I(184) = 77: I(185) = 80 I(186) = 44: I(187) = 122: I(188) = 78 I(189) = 78: I(190) = 122: I(191) = 82 I(192) = 122: I(193) = 63: I(194) = 82 I(195) = 63: I(196) = 59: I(197) = 83 I(198) = 59: I(199) = 86: I(200) = 83 I(201) = 59: I(202) = 126: I(203) = 87 I(204) = 87: I(205) = 126: I(206) = 79 I(207) = 126: I(208) = 50: I(209) = 79 I(210) = 81: I(211) = 76: I(212) = 91 I(213) = 76: I(214) = 90: I(215) = 91 I(216) = 78: I(217) = 82: I(218) = 88 I(219) = 82: I(220) = 96: I(221) = 88 I(222) = 84: I(223) = 85: I(224) = 94 I(225) = 85: I(226) = 99: I(227) = 94 I(228) = 87: I(229) = 79: I(230) = 97 I(231) = 79: I(232) = 93: I(233) = 97 I(234) = 20: I(235) = 105: I(236) = 102 I(237) = 19: I(238) = 108: I(239) = 106 I(240) = 112: I(241) = 23: I(242) = 115 I(243) = 118: I(244) = 116: I(245) = 22 I(246) = 47: I(247) = 0: I(248) = 120 I(249) = 0: I(250) = 132: I(251) = 120 I(252) = 132: I(253) = 136: I(254) = 120 I(255) = 127: I(256) = 58: I(257) = 145 I(258) = 145: I(259) = 58: I(260) = 142 I(261) = 58: I(262) = 57: I(263) = 142 I(264) = 137: I(265) = 134: I(266) = 125 I(267) = 140: I(268) = 138: I(269) = 124 I(270) = 131: I(271) = 146: I(272) = 144 I(273) = 150: I(274) = 147: I(275) = 130 I(276) = 154: I(277) = 155: I(278) = 170 I(279) = 155: I(280) = 175: I(281) = 170 I(282) = 157: I(283) = 158: I(284) = 173 I(285) = 158: I(286) = 178: I(287) = 173 I(288) = 160: I(289) = 161: I(290) = 176 I(291) = 161: I(292) = 181: I(293) = 176 I(294) = 163: I(295) = 164: I(296) = 179 I(297) = 164: I(298) = 184: I(299) = 179 I(300) = 166: I(301) = 167: I(302) = 182 I(303) = 167: I(304) = 187: I(305) = 182 I(306) = 169: I(307) = 152: I(308) = 185 I(309) = 152: I(310) = 172: I(311) = 185 I(312) = 156: I(313) = 153: I(314) = 188 I(315) = 159: I(316) = 156: I(317) = 188 I(318) = 162: I(319) = 159: I(320) = 188 I(321) = 165: I(322) = 162: I(323) = 188 I(324) = 168: I(325) = 165: I(326) = 188 I(327) = 153: I(328) = 168: I(329) = 188 I(330) = 171: I(331) = 174: I(332) = 189 I(333) = 174: I(334) = 177: I(335) = 189 I(336) = 177: I(337) = 180: I(338) = 189 I(339) = 180: I(340) = 183: I(341) = 189 I(342) = 183: I(343) = 186: I(344) = 189 I(345) = 186: I(346) = 171: I(347) = 189 I(348) = 191: I(349) = 208: I(350) = 193 I(351) = 208: I(352) = 212: I(353) = 193 I(354) = 194: I(355) = 211: I(356) = 196 I(357) = 211: I(358) = 215: I(359) = 196 I(360) = 197: I(361) = 214: I(362) = 199 I(363) = 214: I(364) = 218: I(365) = 199 I(366) = 200: I(367) = 217: I(368) = 202 I(369) = 217: I(370) = 221: I(371) = 202 I(372) = 203: I(373) = 220: I(374) = 205 I(375) = 220: I(376) = 224: I(377) = 205 I(378) = 206: I(379) = 223: I(380) = 190 I(381) = 223: I(382) = 209: I(383) = 190 I(384) = 195: I(385) = 226: I(386) = 192 I(387) = 198: I(388) = 226: I(389) = 195 I(390) = 201: I(391) = 226: I(392) = 198 I(393) = 204: I(394) = 226: I(395) = 201 I(396) = 207: I(397) = 226: I(398) = 204 I(399) = 192: I(400) = 226: I(401) = 207 I(402) = 210: I(403) = 227: I(404) = 213 I(405) = 213: I(406) = 227: I(407) = 216 I(408) = 216: I(409) = 227: I(410) = 219 I(411) = 219: I(412) = 227: I(413) = 222 I(414) = 222: I(415) = 227: I(416) = 225 I(417) = 225: I(418) = 227: I(419) = 210 I(420) = 230: I(421) = 231: I(422) = 246 I(423) = 231: I(424) = 251: I(425) = 246 I(426) = 233: I(427) = 234: I(428) = 249 I(429) = 234: I(430) = 254: I(431) = 249 I(432) = 236: I(433) = 237: I(434) = 252 I(435) = 237: I(436) = 257: I(437) = 252 I(438) = 239: I(439) = 240: I(440) = 255 I(441) = 240: I(442) = 260: I(443) = 255 I(444) = 242: I(445) = 243: I(446) = 258 I(447) = 243: I(448) = 263: I(449) = 258 I(450) = 245: I(451) = 228: I(452) = 261 I(453) = 228: I(454) = 248: I(455) = 261 I(456) = 232: I(457) = 229: I(458) = 264 I(459) = 235: I(460) = 232: I(461) = 264 I(462) = 238: I(463) = 235: I(464) = 264 I(465) = 241: I(466) = 238: I(467) = 264 I(468) = 244: I(469) = 241: I(470) = 264 I(471) = 229: I(472) = 244: I(473) = 264 I(474) = 247: I(475) = 250: I(476) = 265 I(477) = 250: I(478) = 253: I(479) = 265 I(480) = 253: I(481) = 256: I(482) = 265 I(483) = 256: I(484) = 259: I(485) = 265 I(486) = 259: I(487) = 262: I(488) = 265 I(489) = 262: I(490) = 247: I(491) = 265 I(492) = 267: I(493) = 284: I(494) = 269 I(495) = 284: I(496) = 288: I(497) = 269 I(498) = 270: I(499) = 287: I(500) = 272 I(501) = 287: I(502) = 291: I(503) = 272 I(504) = 273: I(505) = 290: I(506) = 275 I(507) = 290: I(508) = 294: I(509) = 275 I(510) = 276: I(511) = 293: I(512) = 278 I(513) = 293: I(514) = 297: I(515) = 278 I(516) = 279: I(517) = 296: I(518) = 281 I(519) = 296: I(520) = 300: I(521) = 281 I(522) = 282: I(523) = 299: I(524) = 266 I(525) = 299: I(526) = 285: I(527) = 266 I(528) = 271: I(529) = 302: I(530) = 268 I(531) = 274: I(532) = 302: I(533) = 271 I(534) = 277: I(535) = 302: I(536) = 274 I(537) = 280: I(538) = 302: I(539) = 277 I(540) = 283: I(541) = 302: I(542) = 280 I(543) = 268: I(544) = 302: I(545) = 283 I(546) = 286: I(547) = 303: I(548) = 289 I(549) = 289: I(550) = 303: I(551) = 292 I(552) = 292: I(553) = 303: I(554) = 295 I(555) = 295: I(556) = 303: I(557) = 298 I(558) = 298: I(559) = 303: I(560) = 301 I(561) = 301: I(562) = 303: I(563) = 286 ' Inizializza la variabile di permanenza nel ciclo di rendering bRunning = True ' Inizializza le posizioni della cinepresa CameraHor = 0: CameraVer = 0: CameraRoll = 0 CameraDolly = 5: CameraZoom = 30 ' Mostra il pannello di controllo Form2.Show ' Ciclo di rendering '''''''''''''''''''' ' Ripete fino a quando bRunning vale falso Do While bRunning ' Cancella lo schermo D3DDevice.Clear 0, ByVal 0, _ D3DCLEAR_TARGET Or D3DCLEAR_ZBUFFER, _ &H0, 1#, 0 ' Calcola la posizione della cinepresa Cx = CameraDolly * Cos(CameraHor * 3.1416 / 180) _ * Cos(CameraVer * 3.1416 / 180) Cz = CameraDolly * Sin(CameraHor * 3.1416 / 180) _ * Cos(CameraVer * 3.1416 / 180) Cy = CameraDolly * Sin(CameraVer * 3.1416 / 180) ' Calcola la direzione normale all'inquadratura Uy = Cos(CameraRoll * 3.1416 / 180) Ux = -Sin(CameraRoll * 3.1416 / 180) * Sin(CameraHor * 3.1416 / 180) Uz = Sin(CameraRoll * 3.1416 / 180) * Cos(CameraHor * 3.1416 / 180) ' Imposta la cinepresa D3DXMatrixLookAtLH matView, MakeVector(Cx, Cy, Cz), _ MakeVector(0, 0, 0), MakeVector(Ux, Uy, Uz) D3DDevice.SetTransform D3DTS_VIEW, matView D3DXMatrixPerspectiveFovLH matProj, _ CameraZoom * 3.1416 / 180, 1, 0.1, 500 D3DDevice.SetTransform D3DTS_PROJECTION, matProj ' Inizia a disegnare su video D3DDevice.BeginScene ''''''''''''' Attenzione: In questo esempio le trasformazioni ''''''''''''' Dell'oggetto sono state rimosse ' Disegna l'oggetto D3DDevice.DrawIndexedPrimitiveUP D3DPT_TRIANGLELIST, 0, 304, 188, _ I(0), D3DFMT_INDEX16, V(0), Len(V(0)) ' Finisce la fase di disegno D3DDevice.EndScene ' Trasferisce il contenuto del Doppio Buffer sullo schermo D3DDevice.Present ByVal 0, ByVal 0, 0, ByVal 0 ' Restituisce il controllo a Windows per dargli la possibilita' di gestire altri eventi DoEvents Loop ' Rilascio delle risorse '''''''''''''''''''''''' Set D3DDevice = Nothing Set D3D = Nothing Set Dx = Nothing ' Chiude l'applicazione Unload Me End Sub