R)
D = cPX + n * ax6R/(z0 + az6R) D = cPY + n * ay6R/(z0 + az6R)
D = cPX + n * ax7R/(z0 + az7R) D = cPY + n * ay7R/(z0 + az7R)
D = cPX + n * ax8R/(z0 + az8R) D = cPY + n * ay8R/(z0 + az8R)
'Створюємо об'єкт p класу Graphics: p As Graphics = Me.CreateGraphics.Clear (Color.White)
pont () As Point = {New Point (ax1D, ay1D), New Point (ax2D, ay2D), New Point (ax3D, ay3D), New Point (ax4D, ay4D)}. DrawPolygon ( New Pen (Drawing.Color.Green, 1), pont)
pont1 () As Point = {New Point (ax5D, ay5D), New Point (ax6D, ay6D), New Point (ax7D, ay7D), New Point (ax8D, ay8D)}. DrawPolygon ( New Pen (Color.Green, 1), pont1)
pont3 () As Point = {New Point (ax1D, ay1D), New Point (ax5D, ay5D), New Point (ax8D, ay8D), New Point (ax4D, ay4D)}. DrawPolygon ( New Pen (Color.Green, 1), pont3)
pont4 () As Point = {New Point (ax2D, ay2D), New Point (ax6D, ay6D), New Point (ax5D, ay5D), New Point (ax1D, ay1D)}. DrawPolygon ( New Pen (Color.Green, 1), pont4)
pont5 () As Point = {New Point (ax3D, ay3D), New Point (ax7D, ay7D), New Point (ax6D, ay6D), New Point (ax2D, ay2D)}. DrawPolygon ( New Pen (Drawing.Color.Green, 1), pont5)
pont6 () As Point = {New Point (ax8D, ay8D), New Point (ax4D, ay4D), New Point (ax3D, ay3D), New Point (ax7D, ay7D)}. DrawPolygon ( New Pen (Drawing.Color.Green, 1), pont6)
Sub
Sub Button2_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'' вниз ()
'координати вершин верхньої межі = -0.5 * CHIR: ay1 = -0.5 * GLUB: az1 = 0.5 * VIC = 0.5 * CHIR: ay2 = -0.5 * GLUB: az2 = 0.5 * VIC = 0.5 * CHIR: ay3 = 0.5 * GLUB: az3 = 0.5 * VIC = -0.5 * CHIR: ay4 = 0.5 * GLUB: az4 = 0.5 * VIC
'координатывершиннижнейграни = -0.5 * CHIR: ay5 = -0.5 * GLUB: az5 = -0.5 * VIC = 0.5 * CHIR: ay6 = -0.5 * GLUB: az6 = -0.5 * VIC = 0.5 * CHIR: ay7 = 0.5 * GLUB: az7 = -0.5 * VIC = -0.5 * CHIR: ay8 = 0.5 * GLUB: az8 = -0.5 * VIC
'обертання вершин навколо OX
'верхня граньR = ax1R = az1 * Math.Sin (angle1) + ay1 * Math.Cos (angle1) R = az1 * Math.Cos (angle1) - ay1 * Math.Sin (angle1)
R = ax2R = az2 * Math.Sin (angle1) + ay2 * Math.Cos (angle1) R = az2 * Math.Cos (angle1) - ay2 * Math.Sin (angle1)
R = ax3R = az3 * Math.Sin (angle1) + ay3 * Math.Cos (angle1) R = az3 * Math.Cos (angle1) - ay3 * Math.Sin (angle1)
R = ax4R = az4 * Math.Sin (angle1) + ay4 * Math.Cos (angle1) R = az4 * Math.Cos (angle1) - ay4 * Math.Sin (angle1)
R = ax5R = az5 * Math.Sin (angle1) + ay5 * Math.Cos (...
