Vector3D[,] SKL = mySurf.Evaluate(0.25, 2);
Vector3D S = SKL[0,0];
Vector3D Su = SKL[1,0];
Vector3D Sv = SKL[0,1];
Vector3D Suu = SKL[2,0];
Vector3D Suv = SKL[1,1];
Vector3D Svv = SKL[0,2];
Dim SKL(,) As Vector3D = MySurf.Evaluate(0.25, 0.5, 2)
Dim S As Vector3D = SKL(0,0)
Dim Su As Vector3D = SKL(1,0)
Dim Sv As Vector3D = SKL(0,1)
Dim Suu As Vector3D = SKL(2,0)
Dim Suv As Vector3D = SKL(1,1)
Dim Svv As Vector3D = SKL(0,2)
Vector3D[] CK = myCurve.Evaluate(0.25, 2);
Vector3D C = CK[0];
Vector3D Cu = CK[1];
Vector3D Cuu = CK[2];
Dim CK() As Vector3D = MyCurve.Evaluate(0.25, 2)
Dim C As Vector3D = CK(0)
Dim Cu As Vector3D = CK(1)
Dim Cuu As Vector3D = CK(2)
public void Lego(Viewport viewport)
{
BuildLego bl = new BuildLego();
viewport.StartWork(bl);
}
private class BuildLego : WorkUnit
{
private Solid[] model;
protected override void DoWork(System.ComponentModel.BackgroundWorker worker, System.ComponentModel.DoWorkEventArgs doWorkEventArgs)
{
// dimensions
double width = 95.75;
double depth = 47.75;
double height = 3.25;
// rows ans columns number
int nRows = 6;
int nColumns = 12;
// top cylinders size and position
double cylRadius = 2.55;
double distFromBorder = 1;
double cylHeight = 1.6;
Point2D startPos = new Point2D(3.55, 3.55);
// creates the plate
model = new Solid[]{Solid.CreateBox(width, depth, height)};
// adds cylinders to the upper side
double xOffset, yOffset;
if (nColumns <= 1)
xOffset = 0;
else
xOffset = (width - 2 * distFromBorder - 2 * cylRadius) / (nColumns - 1);
if (nRows <= 1)
yOffset = 0;
else
yOffset = (depth - 2 * distFromBorder - 2 * cylRadius) / (nRows - 1);
Circle circle = new Circle(startPos.X, startPos.Y, height, cylRadius);
CompositeCurve curve = new CompositeCurve(circle);
int currentValue = 0;
for (int i = 0; i < nRows; i++)
{
Solid solid = model[0];
for (int j = 0; j < nColumns; j++)
{
model = solid.ExtrudeAdd(curve, 0.2, new Vector3D(0, 0, cylHeight), true);
if (model != null)
{
solid = model[0];
curve.Translate(xOffset, 0, 0);
// updates progress using build in progress bar
UpdateProgress(++currentValue, nRows * nColumns, "Adding top cylinders...", worker);
// checks for cancellation using built in progress bar cancel button
if (Canceled(worker, doWorkEventArgs))
return;
}
}
curve.Translate(-nColumns * xOffset, yOffset, 0);
}
}
protected override void WorkCompleted(Viewport viewport)
{
// adds the result to viewport entities collection
ViewportLayout.entities.AddRange(model, 0, Color.Green);
viewport.ZoomFit();
// prints the execution time
Console.WriteLine("Execution time: " + ExecutionTime + " ms");
}
}
Public Sub Lego(viewport As Viewport)
Dim bl As New BuildLego()
viewport.StartWork(bl)
End Sub
Private Class BuildLego
Inherits WorkUnit
Private model As Solid()
Protected Overrides Sub DoWork(worker As System.ComponentModel.BackgroundWorker, doWorkEventArgs As System.ComponentModel.DoWorkEventArgs)
' dimensions
Dim width As Double = 95.75
Dim depth As Double = 47.75
Dim height As Double = 3.25
' rows ans columns number
Dim nRows As Integer = 6
Dim nColumns As Integer = 12
' top cylinders size and position
Dim cylRadius As Double = 2.55
Dim distFromBorder As Double = 1
Dim cylHeight As Double = 1.6
Dim startPos As New Point2D(3.55, 3.55)
' creates the plate
model = New Solid() {Solid.CreateBox(width, depth, height)}
' adds cylinders to the upper side
Dim xOffset As Double, yOffset As Double
If nColumns <= 1 Then
xOffset = 0
Else
xOffset = (width - 2 * distFromBorder - 2 * cylRadius) / (nColumns - 1)
End If
If nRows <= 1 Then
yOffset = 0
Else
yOffset = (depth - 2 * distFromBorder - 2 * cylRadius) / (nRows - 1)
End If
Dim circle As New Circle(startPos.X, startPos.Y, height, cylRadius)
Dim curve As New CompositeCurve(circle)
Dim currentValue As Integer = 0
For i As Integer = 0 To nRows - 1
Dim theSolid As Solid = model(0)
For j As Integer = 0 To nColumns - 1
model = theSolid.ExtrudeAdd(curve, 0.2, New Vector3D(0, 0, cylHeight), True)
If model IsNot Nothing Then
theSolid = model(0)
curve.Translate(xOffset, 0, 0)
' updates progress using build in progress bar
UpdateProgress(System.Threading.Interlocked.Increment(currentValue), nRows * nColumns, "Adding top cylinders...", worker)
' checks for cancellation using built in progress bar cancel button
If Canceled(worker, doWorkEventArgs) Then
Return
End If
End If
Next
curve.Translate(-nColumns * xOffset, yOffset, 0)
Next
End Sub
Protected Overrides Sub WorkCompleted(viewport As Viewport)
' adds the result to viewport entities collection
ViewportLayout.entities.AddRange(model, 0, Color.Green)
viewport.ZoomFit()
' prints the execution time
Console.WriteLine("Execution time: " + ExecutionTime + " ms")
End Sub
End Class
ThreeViewportLayout tvp = new ThreeViewportLayout();
tvp.InitializeViewports();
Dim tvp As New ThreeViewportLayout()
tvp.InitializeViewports()
private void viewportProfessional1_MouseMove(
object sender, MouseEventArgs e)
{
viewportProfessional1.ClearSelection();
int id = viewportProfessional1.GetEntityUnderMouseCursor(e.Location);
if (id != -1)
{
Entity ent = viewportProfessional1.Entities[id] as Entity;
ent.Selected = true;
}
viewportProfessional1.Invalidate();
}
Private Sub ViewportProfessional1_Move( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs) _
Handles ViewportProfessional1.Move
ViewportProfessional1.ClearSelection()
Dim id As Integer = ViewportProfessional1.GetEntityUnderMouseCursor( _
e.Location)
If id <> -1 Then
Dim ent As Entity = ViewportProfessional1.Entities(id)
ent.Selected = True
End If
ViewportProfessional1.Invalidate()
End Sub
bool first = true;
private void splitContainer1_SplitterMoving(object sender, SplitterCancelEventArgs e)
{
if (first == true) {
MainViewport.SplitterMoving = true;
first = false;
}
}
private void splitContainer1_SplitterMoved(object sender, SplitterEventArgs e)
{
first = true;
MainViewport.SplitterMoving = false;
}
Dim first As Boolean = True
Private Sub SplitContainer1_SplitterMoving(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterCancelEventArgs) Handles SplitContainer1.SplitterMoving
If first = True Then
MainViewport.SplitterMoving = True
first = False
End If
End Sub
Private Sub SplitContainer1_SplitterMoved(ByVal sender As System.Object, ByVal e As System.Windows.Forms.SplitterEventArgs) Handles SplitContainer1.SplitterMoved
first = True
MainViewport.SplitterMoving = False
End Sub
class MyViewport : Viewport
{
protected override void DrawBackground()
{
// Draws standard background
base.DrawBackground();
// Draws a white rectangle with a margin of 50 pixel from the viewport's border
gl.Begin(gl.QUADS);
gl.Color3ub(255, 255, 255);
gl.Vertex2i(50, 50);
gl.Vertex2i(Width - 50, 50);
gl.Vertex2i(Width-50, Height -50);
gl.Vertex2i(50, Height - 50);
gl.End();
}
}
Class MyViewport
Inherits Viewport
Protected Overrides Sub DrawBackground()
' Draws standard background
MyBase.DrawBackground()
' Draws a white rectangle with a margin of 50 pixel from the viewport's border
gl.Begin(gl.QUADS)
gl.Color3ub(255, 255, 255)
gl.Vertex2i(50, 50)
gl.Vertex2i(Width - 50, 50)
gl.Vertex2i(Width - 50, Height - 50)
gl.Vertex2i(50, Height - 50)
gl.[End]()
End Sub
End Class
| Type | Form | Entity Name |
| 100 | Arc | |
| 102 | Composite Curve | |
| 104 | 1 | Conic Arc |
| 106 | 1, 2, 12 | Copious Data |
| 108 | Plane | |
| 110 | Line | |
| 116 | Point | |
| 118 | Ruled Surface | |
| 120 | Surface of Revolution | |
| 122 | Tabulated Surface | |
| 124 | Transformation Matrix | |
| 126 | Rational B-Spline Curve | |
| 128 | Rational B-Spline Surface | |
| 141 | Boundary Entity | |
| 142 | Curve on Parametric Surface | |
| 143 | Bounded Surface | |
| 144 | Trimmed Parametric Surface | |
| 186 | Manifold Solid BRep | |
| 190 | Planar Surface | |
| 192 | Right Circular Cylindrical Surface | |
| 194 | Right Circular Conical Surface | |
| 196 | Spherical Surface | |
| 198 | Torical Surface | |
| 212 | General Note | |
| 308 | Subfigure Definition | |
| 314 | Color Definition | |
| 402 | 15 | Ordered Group |
| 406 | 3 | Level Function Property |
| 408 | Singular Subfigure Instance | |
| 502 | Vertex | |
| 504 | Edge | |
| 508 | Loop | |
| 510 | Face | |
| 514 | Shell |
using System;
using System.Collections.Generic;
using System.Drawing;
using devDept.Eyeshot;
using devDept.Eyeshot.Entities;
using devDept.Geometry;
namespace MeshSamples
{
internal class Mesh
{
private static int rows = 8;
private static int cols = 8;
private static double scale = 4;
public static void Plain(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows * cols);
Mesh surface = new Mesh();
surface.NormalAveragingMode = meshNormalAveragingType.Averaged;
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
vertices.Add(new Point3D(x, y, f));
}
List<IndexTriangle> triangles = new List<IndexTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
triangles.Add(new IndexTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1));
triangles.Add(new IndexTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface, 0, Color.Green);
}
public static void ColoredPlain(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows*cols);
Mesh surface = new Mesh();
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i/5.0 - 2;
double y = -j/5.0 - 2;
double f = 0;
double den = Math.Sqrt(x*x + y*y);
if (den != 0)
f = scale*Math.Sin(Math.Sqrt(x*x + y*y))/den;
vertices.Add(new Point3D(x, y, f));
}
List<ColorTriangle> triangles = new List<ColorTriangle>((rows - 1)*(cols - 1)*2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
// generates a random color
int red = (int) (255 - i*100);
int green = (int) (255 - j*50);
int blue = 127;
// clamps color values lat 0-255
Utility.LimitRange<int>(0, ref red, 255);
Utility.LimitRange<int>(0, ref green, 255);
Utility.LimitRange<int>(0, ref blue, 255);
triangles.Add(new ColorTriangle(i + j*cols,
i + j*cols + 1,
i + (j + 1)*cols + 1, (byte) red, (byte) green, (byte) blue));
triangles.Add(new ColorTriangle(i + j*cols,
i + (j + 1)*cols + 1,
i + (j + 1)*cols, (byte) red, (byte) green, (byte) blue));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface, 0);
}
public static void MulticolorPlain(ViewportLayout viewportLayout)
{
List<PointRGB> vertices = new List<PointRGB>(rows * cols);
Mesh surface = new Mesh();
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
// generates a random color
int red = (int)(y * y * 30);
int green = (int)(x * x * 30);
int blue = (int)(255 - f * f * 1000);
// clamps color values lat 0-255
Utility.LimitRange<int>(0, ref red, 255);
Utility.LimitRange<int>(0, ref green, 255);
Utility.LimitRange<int>(0, ref blue, 255);
vertices.Add(new PointRGB(x, y, f, (byte)red, (byte)green, (byte)blue));
}
List<IndexTriangle> triangles = new List<IndexTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
triangles.Add(new IndexTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1));
triangles.Add(new IndexTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface);
}
public static void TexturedPlain(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows * cols);
List<Point2D> texCoords = new List<Point2D>(rows * cols);
Mesh surface = new Mesh();
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
vertices.Add(new Point3D(x, y, f));
texCoords.Add(new Point2D((-x * 5) / (rows - 1), (-y * 5) / (cols - 1)));
}
Bitmap bmp = new Bitmap(Properties.Resources.Smiley);
Material mat = new Material(bmp);
viewportLayout.Materials.Add("test", mat);
List<RichTriangle> triangles = new List<RichTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
RichTriangle tri = new RichTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1);
tri.T1 = tri.V1;
tri.T2 = tri.V2;
tri.T3 = tri.V3;
triangles.Add(tri);
tri = new RichTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols);
tri.T1 = tri.V1;
tri.T2 = tri.V2;
tri.T3 = tri.V3;
triangles.Add(tri);
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
surface.TextureCoords = texCoords.ToArray();
surface.ColorMethod = colorMethodType.byEntity;
surface.MaterialName = "test";
viewportLayout.Entities.Add(surface);
}
public static void Smooth(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows * cols);
Mesh surface = new Mesh();
surface.NormalAveragingMode = meshNormalAveragingType.Averaged;
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
vertices.Add(new Point3D(x, y, f));
}
List<SmoothTriangle> triangles = new List<SmoothTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
triangles.Add(new SmoothTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1));
triangles.Add(new SmoothTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface, 0, Color.Green);
}
public static void ColoredSmooth(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows * cols);
Mesh surface = new Mesh();
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
vertices.Add(new Point3D(x, y, f));
}
List<ColorSmoothTriangle> triangles = new List<ColorSmoothTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
// generates a random color
int red = (255 - i * 100);
int green = (255 - j * 50);
int blue = 127;
// clamps color values lat 0-255
Utility.LimitRange<int>(0, ref red, 255);
Utility.LimitRange<int>(0, ref green, 255);
Utility.LimitRange<int>(0, ref blue, 255);
triangles.Add(new ColorSmoothTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1, (byte)red, (byte)green, (byte)blue));
triangles.Add(new ColorSmoothTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols, (byte)red, (byte)green, (byte)blue));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface, 0);
}
public static void MulticolorSmooth(ViewportLayout viewportLayout)
{
List<PointRGB> vertices = new List<PointRGB>(rows * cols);
Mesh surface = new Mesh();
surface.NormalAveragingMode = meshNormalAveragingType.Averaged;
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
// generates a random color
int red = (int)(y * y * 30);
int green = (int)(x * x * 30);
int blue = (int)(255 - f * f * 1000);
// clamps color values lat 0-255
Utility.LimitRange<int>(0, ref red, 255);
Utility.LimitRange<int>(0, ref green, 255);
Utility.LimitRange<int>(0, ref blue, 255);
vertices.Add(new PointRGB(x, y, f, (byte)red, (byte)green, (byte)blue));
}
List<SmoothTriangle> triangles = new List<SmoothTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
triangles.Add(new SmoothTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1));
triangles.Add(new SmoothTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols));
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
viewportLayout.Entities.Add(surface, 0);
}
public static void TexturedSmooth(ViewportLayout viewportLayout)
{
List<Point3D> vertices = new List<Point3D>(rows * cols);
List<Point2D> texCoords = new List<Point2D>(rows * cols);
Mesh surface = new Mesh();
for (int j = 0; j < rows; j++)
for (int i = 0; i < cols; i++)
{
double x = -i / 5.0 - 2;
double y = -j / 5.0 - 2;
double f = 0;
double den = Math.Sqrt(x * x + y * y);
if (den != 0)
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den;
vertices.Add(new Point3D(x, y, f));
texCoords.Add(new Point2D((-x * 5) / (rows - 1), (-y * 5) / (cols - 1)));
}
Bitmap bmp = new Bitmap(Properties.Resources.Smiley);
Material mat = new Material(bmp);
viewportLayout.Materials.Add("test", mat);
List<RichSmoothTriangle> triangles = new List<RichSmoothTriangle>((rows - 1) * (cols - 1) * 2);
for (int j = 0; j < (rows - 1); j++)
for (int i = 0; i < (cols - 1); i++)
{
RichSmoothTriangle tri = new RichSmoothTriangle(i + j * cols,
i + j * cols + 1,
i + (j + 1) * cols + 1);
tri.T1 = tri.V1;
tri.T2 = tri.V2;
tri.T3 = tri.V3;
triangles.Add(tri);
tri = new RichSmoothTriangle(i + j * cols,
i + (j + 1) * cols + 1,
i + (j + 1) * cols);
tri.T1 = tri.V1;
tri.T2 = tri.V2;
tri.T3 = tri.V3;
triangles.Add(tri);
}
surface.Vertices = vertices.ToArray();
surface.Triangles = triangles.ToArray();
surface.TextureCoords = texCoords.ToArray();
surface.MaterialName = "test";
surface.ColorMethod = colorMethodType.byEntity;
viewportLayout.Entities.Add(surface, 0);
}
}
Imports System
Imports System.Collections.Generic
Imports System.Drawing
Imports devDept.Eyeshot
Imports devDept.Eyeshot.Entities
Imports devDept.Geometry
Namespace MeshSamples
Friend Class Mesh
Private Shared rows As Integer = 8
Private Shared cols As Integer = 8
Private Shared scale As Double = 4
Public Shared Sub Plain(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim surface As New Mesh()
surface.NormalAveragingMode = meshNormalAveragingType.Averaged
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
Next
Next
Dim triangles As New List(Of IndexTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
triangles.Add(New IndexTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1))
triangles.Add(New IndexTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface, 0, Color.Green)
End Sub
Public Shared Sub ColoredPlain(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim surface As New Mesh()
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
Next
Next
Dim triangles As New List(Of ColorTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
' generates a random color
Dim red As Integer = CInt(255 - i * 100)
Dim green As Integer = CInt(255 - j * 50)
Dim blue As Integer = 127
' clamps color values lat 0-255
Utility.LimitRange(Of Integer)(0, red, 255)
Utility.LimitRange(Of Integer)(0, green, 255)
Utility.LimitRange(Of Integer)(0, blue, 255)
triangles.Add(New ColorTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1, CByte(red), CByte(green), CByte(blue)))
triangles.Add(New ColorTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols, CByte(red), CByte(green), CByte(blue)))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface, 0)
End Sub
Public Shared Sub MulticolorPlain(viewportLayout As ViewportLayout)
Dim vertices As New List(Of PointRGB)(rows * cols)
Dim surface As New Mesh()
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
' generates a random color
Dim red As Integer = CInt(y * y * 30)
Dim green As Integer = CInt(x * x * 30)
Dim blue As Integer = CInt(255 - f * f * 1000)
' clamps color values lat 0-255
Utility.LimitRange(Of Integer)(0, red, 255)
Utility.LimitRange(Of Integer)(0, green, 255)
Utility.LimitRange(Of Integer)(0, blue, 255)
vertices.Add(New PointRGB(x, y, f, CByte(red), CByte(green), CByte(blue)))
Next
Next
Dim triangles As New List(Of IndexTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
triangles.Add(New IndexTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1))
triangles.Add(New IndexTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface)
End Sub
Public Shared Sub TexturedPlain(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim texCoords As New List(Of Point2D)(rows * cols)
Dim surface As New Mesh()
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
texCoords.Add(New Point2D((-x * 5) / (rows - 1), (-y * 5) / (cols - 1)))
Next
Next
Dim bmp As New Bitmap(Properties.Resources.Smiley)
Dim mat As New Material(bmp)
viewportLayout.Materials.Add("test", mat)
Dim triangles As New List(Of RichTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
Dim tri As New RichTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1)
tri.T1 = tri.V1
tri.T2 = tri.V2
tri.T3 = tri.V3
triangles.Add(tri)
tri = New RichTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols)
tri.T1 = tri.V1
tri.T2 = tri.V2
tri.T3 = tri.V3
triangles.Add(tri)
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
surface.TextureCoords = texCoords.ToArray()
surface.ColorMethod = colorMethodType.byEntity
surface.MaterialName = "test"
viewportLayout.Entities.Add(surface)
End Sub
Public Shared Sub Smooth(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim surface As New Mesh()
surface.NormalAveragingMode = meshNormalAveragingType.Averaged
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
Next
Next
Dim triangles As New List(Of SmoothTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
triangles.Add(New SmoothTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1))
triangles.Add(New SmoothTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface, 0, Color.Green)
End Sub
Public Shared Sub ColoredSmooth(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim surface As New Mesh()
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
Next
Next
Dim triangles As New List(Of ColorSmoothTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
' generates a random color
Dim red As Integer = (255 - i * 100)
Dim green As Integer = (255 - j * 50)
Dim blue As Integer = 127
' clamps color values lat 0-255
Utility.LimitRange(Of Integer)(0, red, 255)
Utility.LimitRange(Of Integer)(0, green, 255)
Utility.LimitRange(Of Integer)(0, blue, 255)
triangles.Add(New ColorSmoothTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1, CByte(red), CByte(green), CByte(blue)))
triangles.Add(New ColorSmoothTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols, CByte(red), CByte(green), CByte(blue)))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface, 0)
End Sub
Public Shared Sub MulticolorSmooth(viewportLayout As ViewportLayout)
Dim vertices As New List(Of PointRGB)(rows * cols)
Dim surface As New Mesh()
surface.NormalAveragingMode = meshNormalAveragingType.Averaged
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
' generates a random color
Dim red As Integer = CInt(y * y * 30)
Dim green As Integer = CInt(x * x * 30)
Dim blue As Integer = CInt(255 - f * f * 1000)
' clamps color values lat 0-255
Utility.LimitRange(Of Integer)(0, red, 255)
Utility.LimitRange(Of Integer)(0, green, 255)
Utility.LimitRange(Of Integer)(0, blue, 255)
vertices.Add(New PointRGB(x, y, f, CByte(red), CByte(green), CByte(blue)))
Next
Next
Dim triangles As New List(Of SmoothTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
triangles.Add(New SmoothTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1))
triangles.Add(New SmoothTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols))
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
viewportLayout.Entities.Add(surface, 0)
End Sub
Public Shared Sub TexturedSmooth(viewportLayout As ViewportLayout)
Dim vertices As New List(Of Point3D)(rows * cols)
Dim texCoords As New List(Of Point2D)(rows * cols)
Dim surface As New Mesh()
For j As Integer = 0 To rows - 1
For i As Integer = 0 To cols - 1
Dim x As Double = -i / 5.0 - 2
Dim y As Double = -j / 5.0 - 2
Dim f As Double = 0
Dim den As Double = Math.Sqrt(x * x + y * y)
If den <> 0 Then
f = scale * Math.Sin(Math.Sqrt(x * x + y * y)) / den
End If
vertices.Add(New Point3D(x, y, f))
texCoords.Add(New Point2D((-x * 5) / (rows - 1), (-y * 5) / (cols - 1)))
Next
Next
Dim bmp As New Bitmap(Properties.Resources.Smiley)
Dim mat As New Material(bmp)
viewportLayout.Materials.Add("test", mat)
Dim triangles As New List(Of RichSmoothTriangle)((rows - 1) * (cols - 1) * 2)
For j As Integer = 0 To (rows - 1) - 1
For i As Integer = 0 To (cols - 1) - 1
Dim tri As New RichSmoothTriangle(i + j * cols, i + j * cols + 1, i + (j + 1) * cols + 1)
tri.T1 = tri.V1
tri.T2 = tri.V2
tri.T3 = tri.V3
triangles.Add(tri)
tri = New RichSmoothTriangle(i + j * cols, i + (j + 1) * cols + 1, i + (j + 1) * cols)
tri.T1 = tri.V1
tri.T2 = tri.V2
tri.T3 = tri.V3
triangles.Add(tri)
Next
Next
surface.Vertices = vertices.ToArray()
surface.Triangles = triangles.ToArray()
surface.TextureCoords = texCoords.ToArray()
surface.MaterialName = "test"
surface.ColorMethod = colorMethodType.byEntity
viewportLayout.Entities.Add(surface, 0)
End Sub
End Class
End Namespace| Triangles type / Vertices type |
|
|
|
|
Plain1 | MulticolorPlain |
|
|
Smooth1 | MulticolorSmooth |
|
|
ColorPlain | |
|
|
ColorSmooth | |
|
|
RichPlain | |
|
|
RichSmooth |
List<Point3D> outer = new List<Point3D>();
outer.Add(new Point3D(0, 0, 0));
outer.Add(new Point3D(10, 0, 0));
outer.Add(new Point3D(20, 0, -5));
outer.Add(new Point3D(10, 0, 20));
outer.Add(new Point3D(0, 0, 20));
outer.Add(new Point3D(-10, 0, -5));
outer.Add(new Point3D(0, 0, 0));
Mesh m = Mesh.CreatePlanar(outer, meshNatureType.Plain);
m.Color = Color.Firebrick;
m.ColorMethod = colorMethodType.byEntity;
viewportProfessional1.Entities.Add(m);
Dim outer As List(of Point3D) = New List(of Point3D);
outer.Add(New Point3D(0, 0, 0))
outer.Add(New Point3D(10, 0, 0))
outer.Add(New Point3D(20, 0, -5))
outer.Add(New Point3D(10, 0, 20))
outer.Add(New Point3D(0, 0, 20))
outer.Add(New Point3D(-10, 0, -5))
outer.Add(New Point3D(0, 0, 0))
Dim m As Mesh = Mesh.CreatePlanar(outer, meshNatureType.Plain)
m.Color = Color.Firebrick
m.ColorMethod = colorMethodType.byEntity
viewportProfessional1.Entities.Add(m)
List<Point3D> outer = new List<Point3D>();
outer.Add(new Point3D(0, 0, 0));
outer.Add(new Point3D(10, 0, 0));
outer.Add(new Point3D(20, 0, -5));
outer.Add(new Point3D(10, 0, 20));
outer.Add(new Point3D(0, 0, 20));
outer.Add(new Point3D(-10, 0, -5));
outer.Add(new Point3D(0, 0, 0));
Mesh m = Mesh.CreatePlanar(outer, meshNatureType.Plain);
m.Color = Color.Firebrick;
m.ColorMethod = colorMethodType.byEntity;
viewportProfessional1.Entities.Add(m);
Dim outer As List(of Point3D) = New List(of Point3D);
outer.Add(New Point3D(0, 0, 0))
outer.Add(New Point3D(10, 0, 0))
outer.Add(New Point3D(20, 0, -5))
outer.Add(New Point3D(10, 0, 20))
outer.Add(New Point3D(0, 0, 20))
outer.Add(New Point3D(-10, 0, -5))
outer.Add(New Point3D(0, 0, 0))
Dim m As Mesh = Mesh.CreatePlanar(outer, meshNatureType.Plain)
m.Color = Color.Firebrick
m.ColorMethod = colorMethodType.byEntity
viewportProfessional1.Entities.Add(m)
myViewport.Light2.Color = Color.Red;
myViewport.ProcessLightAttributes();
MyViewport.Light2.Color = Color.Red
MyViewport.ProcessLightAttributes()
myViewport.Light2.Specular = Color.DimGray;
myViewport.ProcessLightAttributes();
MyViewport.Light2.Specular = Color.DimGray
MyViewport.ProcessLightAttributes()
HiddenLinesViewOnClipboard hdlView = new HiddenLinesViewOnClipboard(new HiddenLinesViewSettings(viewport1));
viewport1.StartWork(hdlView);
Dim hdlView As New HiddenLinesViewOnClipboard(new HiddenLinesViewSettings(Viewport1))
Viewport1.StartWork(hdlView)
HiddenLinesViewOnFile hdlView = new HiddenLinesViewOnFile(new HiddenLinesViewSettings(viewport1), fileName);
viewport1.StartWork(hdlView);
Dim hdlView As New HiddenLinesViewOnFile(new HiddenLinesViewSettings(Viewport1), FileName)
Viewport1.StartWork(hdlView)
HiddenLinesViewOnPaper hdlView = new HiddenLinesViewOnPaper(new HiddenLinesViewSettings(viewport1));
viewport1.StartWork(hdlView);
Dim hdlView As New HiddenLinesViewOnPaper(new HiddenLinesViewSettings(Viewport1))
Viewport1.StartWork(hdlView)
HiddenLinesViewOnPaperPreview hdlView = new HiddenLinesViewOnPaperPreview(new HiddenLinesViewSettings(viewport1));
viewport1.StartWork(hdlView);
Dim hdlView As New HiddenLinesViewOnPaperPreview(new HiddenLinesViewSettings(Viewport1))
Viewport1.StartWork(hdlView)
myQuad.VisibleEdgeFlag = 0x01 | 0x04 | 0x08;
myQuad.VisibleEdgeFlag = &H01 | &H04 | &H08;
myTriangle.VisibleEdgeFlag = 0x01 | 0x04;
myTriangle.VisibleEdgeFlag = &H01 | &H04;
myViewport.Camera = new Camera(Point3D.Origin, 100, (new Quaternion(Vector3D.AxisZ, 60)) * (new Quaternion(Vector3D.AxisY, 30)), cameraProjectionType.Perspective, 50, 1);
MyViewport.Camera = New Camera(Point3D.Origin, 100, (New Quaternion(Vector3D.AxisZ, 60)) * (New Quaternion(Vector3D.AxisY, 30)), cameraProjectionType.Perspective, 50, 1)
myViewport.Camera = new Camera(Point3D.Origin, 100, (new Quaternion(Vector3D.AxisZ, 60)) * (new Quaternion(Vector3D.AxisY, 30)), cameraProjectionType.Perspective, 50, 1);
MyViewport.Camera = New Camera(Point3D.Origin, 100, (New Quaternion(Vector3D.AxisZ, 60)) * (New Quaternion(Vector3D.AxisY, 30)), cameraProjectionType.Perspective, 50, 1)
public class myCamera : devDept.Eyeshot.Camera
{
Point3D myLocation = new Point3D(100,0,0);
Point3D myTarget = Point3D.Origin;
Vector3D myUpVector = Vector3D.AxisZ;
protected override void SetupModelView()
{
gl.MatrixMode(gl.MODELVIEW);
gl.LoadIdentity();
LookAt(myLocation, myTarget, myUpVector);
}
}
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
myViewport.Camera = New myCamera;
}
}
Public Class MyCamera
Inherits devDept.Eyeshot.Camera
Dim myLocation As Point3D = New Point3D(100, 0, 0)
Dim myTarget As Point3D = Point3D.Origin
Dim myUpVector As Vector3D = Vector3D.AxisZ
Protected Overrides Sub SetupModelView()
gl.MatrixMode(gl.MODELVIEW)
gl.LoadIdentity()
LookAt(myLocation, myTarget, myUpVector)
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyViewport.Camera = New MyCamera
End Sub
End Class
myViewport.Camera.Target = new Point3D(0, 0, 100);
myViewport.AdjustNearAndFarPlanes();
MyViewport.Camera.Target = New Point3D(0, 0, 100)
MyViewport.AdjustNearAndFarPlanes()
myViewport.Camera.Distance = 400;
myViewport.AdjustNearAndFarPlanes();
MyViewport.Camera.Distance = 400
MyViewport.AdjustNearAndFarPlanes()
myViewport.Camera.Rotation = (new Quaternion(Vector3D.AxisZ, 60)) * (new Quaternion(Vector3D.AxisY, 30));
myViewport.AdjustNearAndFarPlanes();
MyViewport.Camera.Rotation = (New Quaternion(Vector3D.AxisZ, 60)) * (New Quaternion(Vector3D.AxisY, 30))
MyViewport.AdjustNearAndFarPlanes()
myViewport.Camera.ProjectionMode = cameraProjectionType.Orthographic;
myViewport.AdjustNearAndFarPlanes();
MyViewport.Camera.ProjectionMode = cameraProjectionType.Orthographic
MyViewport.AdjustNearAndFarPlanes()
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
// adds event handler for WorkCompleted event
viewport1.WorkCompleted += new Viewport.WorkCompletedEventHandler(viewport1_WorkCompleted);
}
protected override void OnShown(EventArgs e)
{
viewport1.DisplayMode = displayType.Shaded;
CompositeCurve outer = new CompositeCurve();
outer.CurveList.Add(new Line(0, 0, 10, 0));
outer.CurveList.Add(new Line(10, 0, 10, 6));
outer.CurveList.Add(new Line(10, 6, 0, 6));
outer.CurveList.Add(new Line(0, 6, 0, 0));
CompositeCurve inner1 = new CompositeCurve();
inner1.CurveList.Add(new Line(2, 2, 6, 2));
inner1.CurveList.Add(new Line(6, 2, 2, 3));
inner1.CurveList.Add(new Line(2, 3, 2, 2));
CompositeCurve inner2 = new CompositeCurve();
inner2.CurveList.Add(new Circle(8, 4, 0, 1));
CompositeCurve inner3 = new CompositeCurve();
inner3.CurveList.Add(new Circle(6, 4, 0, .75));
Mesher me = new Mesher(outer, new CompositeCurve[] { inner1, inner2, inner3 }, .15, mesherSmoothingType.AreaCentroidWeighted, 2);
viewport1.StartWork(me);
base.OnShown(e);
}
public void viewport1_WorkCompleted(object sender, WorkCompletedEventArgs e)
{
// checks the WorkUnit type, more than one can be present in the same application
if (e.WorkUnit is Mesher)
{
Mesher me = (Mesher)e.WorkUnit;
Mesh m = me.Result;
// adds the mesh to the viewport
viewport1.Entities.Add(m, 0, Color.Coral);
viewport1.SetView(viewType.Trimetric);
viewport1.ZoomFit();
viewport1.Invalidate();
}
}
}
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
' adds event handler for WorkCompleted event
Viewport1.WorkCompleted += New Viewport.WorkCompletedEventHandler(Viewport1_WorkCompleted)
End Sub
Protected Overrides Sub OnShown(e As EventArgs)
Viewport1.DisplayMode = displayType.Shaded
Dim outer As New CompositeCurve()
outer.CurveList.Add(New Line(0, 0, 10, 0))
outer.CurveList.Add(New Line(10, 0, 10, 6))
outer.CurveList.Add(New Line(10, 6, 0, 6))
outer.CurveList.Add(New Line(0, 6, 0, 0))
Dim inner1 As New CompositeCurve()
inner1.CurveList.Add(New Line(2, 2, 6, 2))
inner1.CurveList.Add(New Line(6, 2, 2, 3))
inner1.CurveList.Add(New Line(2, 3, 2, 2))
Dim inner2 As New CompositeCurve()
inner2.CurveList.Add(New Circle(8, 4, 0, 1))
Dim inner3 As New CompositeCurve()
inner3.CurveList.Add(New Circle(6, 4, 0, 0.75))
Dim [me] As New Mesher(outer, New CompositeCurve() {inner1, inner2, inner3}, 0.15, mesherSmoothingType.AreaCentroidWeighted, 2)
Viewport1.StartWork([me])
MyBase.OnShown(e)
End Sub
Public Sub Viewport1_WorkCompleted(sender As Object, e As WorkCompletedEventArgs)
' checks the WorkUnit type, more than one can be present in the same application
If TypeOf e.WorkUnit Is Mesher Then
Dim [me] As Mesher = DirectCast(e.WorkUnit, Mesher)
Dim m As Mesh = [me].Result
' adds the mesh to the viewport
Viewport1.Entities.Add(m, 0, Color.Coral)
Viewport1.SetView(viewType.Trimetric)
Viewport1.ZoomFit()
Viewport1.Invalidate()
End If
End Sub
End Class
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
// adds event handler for WorkCompleted event
viewport1.WorkCompleted += new Viewport.WorkCompletedEventHandler(viewport1_WorkCompleted);
}
protected override void OnShown(EventArgs e)
{
viewport1.DisplayMode = displayType.Rendered;
viewport1.Rendered.ShowSilhouettes = false;
int countPerSide = 100;
double height = 1;
int len = countPerSide * countPerSide;
Point3D[] coloredPoints = new Point3D[len];
Random rand = new Random(3);
for (int j = 0; j < countPerSide; j++)
for (int i = 0; i < countPerSide; i++)
{
double x = rand.NextDouble() * countPerSide;
double y = rand.NextDouble() * countPerSide;
double z = rand.NextDouble() * height;
byte R = (byte)(255 * z / height);
PointRGB pt = new PointRGB(x, y, z, R, 255, 255);
coloredPoints[i + j * countPerSide] = pt;
}
Delaunay del = new Delaunay(coloredPoints);
del.OutputType = meshNatureType.MulticolorPlain;
viewport1.StartWork(del);
base.OnShown(e);
}
public void viewport1_WorkCompleted(object sender, WorkCompletedEventArgs e)
{
// checks the WorkUnit type, more than one can be present in the same application
if (e.WorkUnit is Delaunay)
{
Delaunay del = (Delaunay)e.WorkUnit;
Mesh m = del.Result;
m.EdgeStyle = meshEdgeStyleType.Free;
// adds the mesh to the viewport
viewport1.Entities.Add(m);
viewport1.SetView(viewType.Trimetric);
viewport1.ZoomFit();
viewport1.Invalidate();
}
}
}
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
' adds event handler for WorkCompleted event
Viewport1.WorkCompleted += New Viewport.WorkCompletedEventHandler(Viewport1_WorkCompleted)
End Sub
Protected Overrides Sub OnShown(e As EventArgs)
Viewport1.DisplayMode = displayType.Rendered
Viewport1.Rendered.ShowSilhouettes = False
Dim countPerSide As Integer = 100
Dim height As Double = 1
Dim len As Integer = countPerSide * countPerSide
Dim coloredPoints As Point3D() = New Point3D(len - 1) {}
Dim rand As New Random(3)
For j As Integer = 0 To countPerSide - 1
For i As Integer = 0 To countPerSide - 1
Dim x As Double = rand.NextDouble() * countPerSide
Dim y As Double = rand.NextDouble() * countPerSide
Dim z As Double = rand.NextDouble() * height
Dim R As Byte = CByte(Math.Truncate(255 * z / height))
Dim pt As New PointRGB(x, y, z, R, 255, 255)
coloredPoints(i + j * countPerSide) = pt
Next
Next
Dim del As New Delaunay(coloredPoints)
del.OutputType = meshNatureType.MulticolorPlain
Viewport1.StartWork(del)
MyBase.OnShown(e)
End Sub
Public Sub Viewport1_WorkCompleted(sender As Object, e As WorkCompletedEventArgs)
' checks the WorkUnit type, more than one can be present in the same application
If TypeOf e.WorkUnit Is Delaunay Then
Dim del As Delaunay = DirectCast(e.WorkUnit, Delaunay)
Dim m As Mesh = del.Result
m.EdgeStyle = meshEdgeStyleType.Free
' adds the mesh to the viewport
Viewport1.Entities.Add(m)
Viewport1.SetView(viewType.Trimetric)
Viewport1.ZoomFit()
Viewport1.Invalidate()
End If
End Sub
End Class
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
// adds event handler for WorkCompleted event
mainViewport.WorkCompleted += new Viewport.WorkCompletedEventHandler(mainViewport_WorkCompleted);
}
protected override void OnShown(EventArgs e)
{
fm = new FemMesh();
// read the mesh from disk
fm.ReadLusas("test1.dat");
viewport.Entities.Add(fm);
Solver solver = new Solver(fm);
viewport.StartWork(solver);
base.OnShown(e);
}
public void mainViewport_WorkCompleted(object sender, WorkCompletedEventArgs e)
{
// checks the WorkUnit type, more than one can be present in the same application
if (e.WorkUnit is Solver)
{
Solver solver = (Solver)e.WorkUnit;
FemMesh fm = solver.Mesh;
// computes the selected plot
fm.PlotMode = femPlotType.VonMises;
fm.AmplificationFactor = 10;
fm.NodalAverages = true;
fm.ComputePlot(mainViewport.Legend);
mainViewport.SetView(viewType.Trimetric);
mainViewport.ZoomFit();
mainViewport.Invalidate();
}
}
}
Public Partial Class Form1
Inherits Form
Public Sub New()
InitializeComponent()
' adds event handler for WorkCompleted event
mainViewport.WorkCompleted += New Viewport.WorkCompletedEventHandler(mainViewport_WorkCompleted)
End Sub
Protected Overrides Sub OnShown(e As EventArgs)
fm = New FemMesh()
' read the mesh from disk
fm.ReadLusas("test1.dat")
viewport.Entities.Add(fm)
Dim solver As New Solver(fm)
viewport.StartWork(solver)
MyBase.OnShown(e)
End Sub
Public Sub mainViewport_WorkCompleted(sender As Object, e As WorkCompletedEventArgs)
' checks the WorkUnit type, more than one can be present in the same application
If TypeOf e.WorkUnit Is Solver Then
Dim solver As Solver = DirectCast(e.WorkUnit, Solver)
Dim fm As FemMesh = solver.Mesh
' computes the selected plot
fm.PlotMode = femPlotType.VonMises
fm.AmplificationFactor = 10
fm.NodalAverages = True
fm.ComputePlot(mainViewport.Legend)
mainViewport.SetView(viewType.Trimetric)
mainViewport.ZoomFit()
mainViewport.Invalidate()
End If
End Sub
End Class
Point2D[] outer = new Point2D[]
{
new Point2D(0, 0),
new Point2D(10, 0),
new Point2D(10, 6),
new Point2D(0, 6),
new Point2D(0, 0)
};
Point2D[] inner = new Point2D[]
{
new Point2D(2, 2),
new Point2D(2, 3),
new Point2D(6, 2),
new Point2D(2, 2)
};
EarClipping ea = new EarClipping(outer, new Point2D[][] { inner }, false);
Mesh m = ea.Triangulate(meshNatureType.MulticolorSmooth);
viewport1.Entities.Add(m, 0, Color.Coral);
Dim outer As Point2D() = New Point2D()
{
New Point2D(0, 0),
New Point2D(10, 0),
New Point2D(10, 6),
New Point2D(0, 6),
New Point2D(0, 0)
}
Dim inner As Point2D() = New Point2D()
{
New Point2D(2, 2),
New Point2D(2, 3),
New Point2D(6, 2),
New Point2D(2, 2)
}
Dim ea As New EarClipping(outer, New Point2D()() {inner}, False)
Dim m As Mesh = ea.Triangulate(meshNatureType.MulticolorSmooth)
Viewport1.Entities.Add(m, 0, Color.Coral)