VERSION 4.00 Begin VB.Form Form2 Caption = " Data" ClientHeight = 5220 ClientLeft = 1410 ClientTop = 1965 ClientWidth = 8205 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 5730 Left = 1350 LinkTopic = "Form2" ScaleHeight = 5220 ScaleWidth = 8205 Top = 1515 Width = 8325 Begin VB.CommandButton Command1 Caption = "OK" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 3240 TabIndex = 24 Top = 4320 Width = 1335 End Begin VB.TextBox Text12 Height = 375 Left = 6120 TabIndex = 23 Text = ".15708" Top = 3360 Width = 855 End Begin VB.TextBox Text11 Height = 375 Left = 4080 TabIndex = 21 Text = "3.1416" Top = 3360 Width = 855 End Begin VB.TextBox Text10 Height = 375 Left = 1560 TabIndex = 19 Text = "-3.1416" Top = 3360 Width = 855 End Begin VB.TextBox Text9 Height = 375 Left = 6120 TabIndex = 17 Text = ".31416" Top = 2760 Width = 855 End Begin VB.TextBox Text8 Height = 375 Left = 4080 TabIndex = 15 Text = "3.1416" Top = 2760 Width = 855 End Begin VB.TextBox Text7 Height = 375 Left = 1560 TabIndex = 13 Text = "-3.1416" Top = 2760 Width = 855 End Begin VB.TextBox Text6 Height = 375 Left = 7080 TabIndex = 11 Text = "30" Top = 2040 Width = 615 End Begin VB.TextBox Text5 Height = 375 Left = 5160 TabIndex = 9 Text = "60" Top = 2040 Width = 855 End Begin VB.TextBox Text4 Height = 375 Left = 3000 TabIndex = 7 Text = "400" Top = 2040 Width = 855 End Begin VB.TextBox Text3 Height = 375 Left = 1080 TabIndex = 5 Text = "500" Top = 2040 Width = 855 End Begin VB.TextBox Text2 Height = 375 Left = 5520 TabIndex = 3 Text = "2" Top = 1200 Width = 615 End Begin VB.TextBox Text1 Height = 375 Left = 7200 TabIndex = 1 Text = "3" Top = 480 Width = 735 End Begin VB.Label Label12 Caption = " dV" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5520 TabIndex = 22 Top = 3360 Width = 375 End Begin VB.Label Label11 Caption = "V end" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2880 TabIndex = 20 Top = 3360 Width = 975 End Begin VB.Label Label10 Caption = "V begin" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 18 Top = 3360 Width = 975 End Begin VB.Label Label9 Caption = " dU" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 5520 TabIndex = 16 Top = 2760 Width = 375 End Begin VB.Label Label8 Caption = "U end" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2880 TabIndex = 14 Top = 2760 Width = 975 End Begin VB.Label Label7 Caption = "U begin" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 12 Top = 2760 Width = 975 End Begin VB.Label Label6 Caption = "Phi" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 6480 TabIndex = 10 Top = 2040 Width = 495 End Begin VB.Label Label5 Caption = "Theta" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 4320 TabIndex = 8 Top = 2040 Width = 855 End Begin VB.Label Label4 Caption = "DE" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 2400 TabIndex = 6 Top = 2040 Width = 615 End Begin VB.Label Label3 Caption = "Rho" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 4 Top = 2040 Width = 615 End Begin VB.Label Label2 Caption = "Kind of projection (1=perspective 2=parallel) " BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 495 Left = 360 TabIndex = 2 Top = 1200 Width = 4935 End Begin VB.Label Label1 Caption = "Kind of Surface (1=Ellipsoid 2=Sphere 3=Torus 4=Hyperboloid)" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 375 Left = 360 TabIndex = 0 Top = 480 Width = 6615 End End Attribute VB_Name = "Form2" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Command1_Click() Visible = False End Sub