angle1) R = az5 * Math.Cos (angle1) - ay5 * Math.Sin (angle1)
R = ax6R = az6 * Math.Sin (angle1) + ay6 * Math.Cos (angle1) R = az6 * Math.Cos (angle1) - ay6 * Math.Sin (angle1)
R = ax7R = az7 * Math.Sin (angle1) + ay7 * Math.Cos (angle1) R = az7 * Math.Cos (angle1) - ay7 * Math.Sin (angle1)
R = ax8R = az8 * Math.Sin (angle1) + ay8 * Math.Cos (angle1) R = az8 * Math.Cos (angle1) - ay8 * Math.Sin (angle1)
'в екранні координати вершінD = cPX + n * ax1R/(z0 + az1R) D = cPY + n * ay1R/(z0 + az1R)
D = cPX + n * ax2R/(z0 + az2R) D = cPY + n * ay2R/(z0 + az2R)
D = cPX + n * ax3R/(z0 + az3R) D = cPY + n * ay3R/(z0 + az3R)
D = cPX + n * ax4R/(z0 + az4R) D = cPY + n * ay4R/(z0 + az4R)
D = cPX + n * ax5R/(z0 + az5R) D = cPY + n * ay5R/(z0 + az5R)
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 Button4_Click (ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.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
'координатывершиннижней...
