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 (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) ...
