RETANGLE DE PETZOL

Imports System.Windows.Media.Media3D

Module Main
    Dim Toile As New Window
    Dim Dock As New DockPanel
    Dim test As New EssaiRectangle
    Dim Appli As New Application()
    Sub Main()
        Toile.Content = Dock
        Dock.Children.Add(test.Essai)
        Appli.Run(Toile)
    End Sub

    Public Class EssaiRectangle

        Public Essai As New Viewport3D
        Public Cam As New PerspectiveCamera
        Public Lumiere As New AmbientLight(Colors.White)
        Public Eclairage As New ModelVisual3D
        Public Volume As New ModelVisual3D
        Public Rectangle As New GeometryModel3D
        Public Mailles As New MeshGeometry3D
        Public Color As New DiffuseMaterial(Brushes.Cyan)
        Public Colorback As New DiffuseMaterial(Brushes.Red)

        Dim A As New Point3D(0, 1, -4)
        Dim B As New Point3D(0, 0, -4)
        Dim C As New Point3D(0, 1, 0)
        Dim D As New Point3D(0, 0, 0)

        Friend Sub New()

            Eclairage.Content = Lumiere
            With Cam
                '.FarPlaneDistance = 5
                .Position = New Point3D(-1, 0.5, 4)
                .LookDirection = New Vector3D(0, 0, -1)
                .UpDirection = New Vector3D(0, 1, 0)
                .FieldOfView = 45
            End With
            Mailles.Positions.Add(A)
            Mailles.Positions.Add(B)
            Mailles.Positions.Add(C)
            Mailles.Positions.Add(D)
            Dim u() As Integer = {0, 1, 2, 1, 3, 2}
            For i = 0 To 5
                Mailles.TriangleIndices.Add(u(i))
            Next i
            Rectangle.Geometry = Mailles

            Rectangle.Material = Color
            Rectangle.BackMaterial = Colorback
            Volume.Content = Rectangle
            Essai.Camera = Cam
            Essai.Children.Add(Eclairage)
            Essai.Children.Add(Volume)
        End Sub
    End Class

End Module