ystem.Drawing.Color.White.Diffuse=System.Drawing.Color.White.Material=mtrl=TextureLoader.FromFile (device , Application.StartupPath + « Текстура стен.bmp»)=TextureLoader.FromFile (device, Application.StartupPath + « Текстура об'ектов.bmp») TrySub »OnResetDevice
'Функція визначення висоти для плоскостіFunction fZ (ByVal X As Single, ByVal Y As Single) As SingleZ As Single=0Dx, Dy As Single=mmn.fWidth (0) / 16=mmn.fHeight ( 0) / 12 =-mmn.Telo (X * Dx - Dx * 8, Y * Dy - Dy * 6) / Dx
Return ZFunction
'Процедура створення вертекса, 3Д-об'єкта
Public Sub CreateVertexBuffer (ByVal sender As Object) vb As VertexBuffer=CType (sender, VertexBuffer) verts As CustomVertex.PositionNormalTextured ()=CType (vb.Lock (0, 0), CustomVertex.PositionNormalTextured ( )) Почати обробку структуриdX As Single=((16 + 4 * nv) * (1.0F)) / (mx * (1 - nv) + mx2 * nv) dY As Single=((12 + 4 * nv) * ( 1.0F)) / (kol_y * (1 - nv) + my2 * nv) k As Integer=0x As Integer.ProgressBar1.Value=0.ProgressBar1.Maximum=mx * (1 - nv) + mx2 * nv - 1x= 0 To mx * (1 - nv) + mx2 * nv - 1y As Integer.ProgressBar1.Value=xy=0 To kol_y * (1 - nv) + my2 * nv - 1 (k). X=x * dX (k ). Y=y * dYnv=0 Then (k). Z=fZ (verts (k). X, verts (k). Y) (k). Tu=verts (k). X / 16 (k). Tv=1 - verts (k). Y / 12 (k). Z=0 (k). Tu=verts (k). X / 20 (k). Tv=verts (k). Y / 16If (k) . SetNormal (New Vector3 (0, 0, 1)) +=1 (k). X=x * dX (k). Y=(y + 1) * dYnv=0 Then (k). Z=fZ (verts (k). X, verts (k). Y) (k). Tu=verts (k). X / 16 (k). Tv=1 - verts (k). Y / 12 (k). Z=0 (k). Tu=verts (k). X / 20 (k). Tv=verts (k). Y / 16If (k). SetNormal (New Vector3 (0, 0, 1)) +=1 (k) . X=(x + 1) * dX (k). Y=(y + 1) * dYnv=0 Then (k). Z=fZ (verts (k). X, verts (k). Y) (k ). Tu=verts (k). X / 16 (k). Tv=1 - verts (k). Y / 12 (k). Z=0 (k). Tu=verts (k). X / 20 ( k). Tv=verts (k). Y / 16If (k). SetNormal (New Vector3 (0, 0, 1)) +=1 (k). X=x * dX (k). Y=y * dYnv =0 Then (k). Z=fZ (verts (k). X, verts (k). Y) (k). Tu=verts (k). X / 16 (k). Tv=1 - verts (k ). Y / 12 (k). Z=0 (k). Tu=verts (k). X / 20 (k). Tv=verts (k). Y / 16If (k). SetNormal (New Vector3 (0 , 0, 1)) +=1 (k). X=(x + 1) * dX (k). Y=(y + 1) * dYnv=0 Then (k). Z=fZ (verts (k) . X, verts (k). Y) (k). Tu=verts (k). X / 16 (k). Tv=1 - verts (k). Y / 12 (k). Z=0 (k) . Tu=verts (k). X / 20 (k). Tv=verts (k). Y / 16If (k). SetNormal (New Vector3 (0, 0, 1)) +=1 (k). X= (x + 1) * dX (k). Y=y * dYnv=0 Then (k). Z=fZ (verts (k). X, verts (k). Y) (k). Tu=verts (k ). X / 16 (k). Tv=1 - verts (k). Y / 12 (k). Z=0 (k). Tu=verts (k). X / 20 (k). Tv=verts ( k). Y / 16If (k). SetNormal (New Vector3 (0, 0, 1)) +=1.ProgressBar1.Value=0.Unlock () «Закрити структуруSub» OnCreateVertexBuffer
'Процедура рендеріга 3D сцени, побудова самої сцени з необхідними параметрами
Private Sub Render () mmn.NewRast=True Then=1 (vertexBuffer2)=0 (vertexBuffer). NewRast=False.LStatus.Text=«»=TextureLoader.FromFile (device, Application . StartupPath + « Спотворення робочого растра.bmp») TryIfmmn.MRast=True Then.Resel=Falsetemp As Integer=mmn.CB_Pov.SelectedIndex.CB_Pov.SelectedIndex=0=0 (vertexBufferM)=TextureLoader.FromFile (device, Application . StartupPath + « Уявний растр.bmp»). CB_Pov.SelectedIndex=temp.Resel=TrueIfdevice Is Nothing ThenIf (pause=True) Or (mmn.refreshwindow=False) ThenIf.refreshwindow=False.Clear (ClearFlags....
