VERSION 4.00 Begin VB.Form Form2 Caption = " Data" ClientHeight = 5580 ClientLeft = 3270 ClientTop = 3660 ClientWidth = 8655 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 = 6150 Left = 3210 LinkTopic = "Form2" ScaleHeight = 5580 ScaleWidth = 8655 Top = 3150 Width = 8775 Begin VB.TextBox Text12 Height = 375 Left = 3000 TabIndex = 27 Text = "3" Top = 4800 Width = 855 End Begin VB.TextBox Text9 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 = 3000 TabIndex = 25 Text = "2" Top = 4080 Width = 855 End Begin VB.TextBox Text13 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 = 6360 TabIndex = 23 Text = "100" Top = 1320 Width = 735 End Begin VB.TextBox Text2 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 = 2280 TabIndex = 21 Text = "100" Top = 1320 Width = 735 End 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 = 5760 TabIndex = 18 Top = 4320 Width = 1815 End Begin VB.TextBox Text11 Height = 375 Left = 5160 TabIndex = 17 Text = "10" Top = 3360 Width = 855 End Begin VB.TextBox Text10 Height = 375 Left = 3000 TabIndex = 15 Text = "-10" Top = 3360 Width = 855 End Begin VB.TextBox Text8 Height = 375 Left = 5160 TabIndex = 13 Text = "10" Top = 2760 Width = 855 End Begin VB.TextBox Text7 Height = 375 Left = 3000 TabIndex = 11 Text = "-10" Top = 2760 Width = 855 End Begin VB.TextBox Text6 Height = 375 Left = 7080 TabIndex = 9 Text = "30" Top = 2040 Width = 615 End Begin VB.TextBox Text5 Height = 375 Left = 5160 TabIndex = 7 Text = "60" Top = 2040 Width = 855 End Begin VB.TextBox Text4 Height = 375 Left = 3000 TabIndex = 5 Text = "300" Top = 2040 Width = 855 End Begin VB.TextBox Text3 Height = 375 Left = 1080 TabIndex = 3 Text = "500" Top = 2040 Width = 855 End Begin VB.TextBox Text1 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 = 3360 TabIndex = 1 Text = "4" Top = 240 Width = 735 End Begin VB.Label Label12 Caption = "Example (1 to 4):" 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 = 26 Top = 4800 Width = 2295 End Begin VB.Label Label9 Caption = "View (1=real 2=uniform)" 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 = 24 Top = 4080 Width = 2535 End Begin VB.Label Label14 Caption = "Number of points / line" 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 = 3720 TabIndex = 22 Top = 1320 Width = 2415 End Begin VB.Label Label13 Caption = "Number of lines" 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 = 20 Top = 1320 Width = 1815 End Begin VB.Label Label2 Caption = "1=real perspective 2=ordinary parallel 3=dimetric parallel 4=isometric 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 = 375 Left = 240 TabIndex = 19 Top = 840 Width = 8175 End Begin VB.Label Label11 Caption = "Y1 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 = 4320 TabIndex = 16 Top = 3360 Width = 855 End Begin VB.Label Label10 Caption = "Y1 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 = 1800 TabIndex = 14 Top = 3360 Width = 975 End Begin VB.Label Label8 Caption = "X1 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 = 4320 TabIndex = 12 Top = 2760 Width = 855 End Begin VB.Label Label7 Caption = "X1 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 = 1800 TabIndex = 10 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 = 8 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 = 6 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 = 4 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 = 2 Top = 2040 Width = 615 End Begin VB.Label Label1 Caption = "Kind of Projection (1 to 4)" 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 = 240 Width = 2775 End End Attribute VB_Name = "Form2" Attribute VB_Creatable = False Attribute VB_Exposed = False Private Sub Command1_Click() Visible = False End Sub