/3.0 (Extension.1 Name: "Surface Interpolator (sample)" Dependencies: "$AVEXT/spatial.avx\n$AVEXT/dialog.avx\n" FirstRootClassName: "List" Roots: 2 Roots: 662 Roots: 671 Roots: 672 Roots: 673 Roots: 674 Roots: 674 Roots: 675 Roots: 676 Roots: 677 Roots: 678 Roots: 679 Roots: 680 Roots: 681 Roots: 682 Roots: 683 Roots: 684 Roots: 685 Roots: 686 Roots: 687 Roots: 674 Roots: 674 Roots: 688 Roots: 689 Roots: 674 Roots: 690 Roots: 691 Roots: 692 Roots: 693 Roots: 694 Roots: 695 Roots: 696 Roots: 697 Roots: 698 Roots: 699 Roots: 700 Roots: 701 Roots: 702 Roots: 703 Roots: 704 Roots: 705 Roots: 706 Roots: 707 Roots: 708 Roots: 709 Roots: 710 Roots: 711 Roots: 712 Version: 30 About: "Gives access to all four surface interpolation techniques\nprovided with Spatial Analyst. For Kriging, the user can\nexamine SemiVariograms before interpolating the surface" InstallScript: 713 UninstallScript: 714 ExtVersion: 1 ) (List.2 Child: 3 Child: 114 Child: 203 Child: 335 Child: 416 Child: 531 ) (DEd.3 Name: "Dialog.MakeIDW" CreationDate: "Thursday, July 16, 1998 01:25:18" GUIName: "DialogEditor" Win: 4 CSMgr: 5 DocExts: 7 DocExts: 8 Graphics: 9 Dpy: 65 Dialog: 68 DialogExtent: 113 Compiled: 1 ) (DocWin.4 Owner: 3 X: 308 Y: 60 W: 468 H: 396 ) (CSMgr.5 Client: 6 ) (CSClient.6 Client: 7 ReqName: "ClientNfy" ) (PanMgr.7 Doc: 3 ) (DocAct.8 Doc: 3 ) (GList.9 Child: 10 Child: 13 Child: 16 Child: 20 Child: 23 Child: 26 Child: 29 Child: 32 Child: 36 Child: 40 Child: 43 Child: 46 Child: 49 Child: 52 Child: 57 Child: 61 Dpy: 65 FormatNumb: 67 ) (GCtrl.10 Name: "cplCells" Bounds: 11 ControlConstraints: 0x55 Control: 12 Editable: 1 ) (RectD.11 Left: 0.56250000000000 Top: 1.77083333333333 Right: 4.05208333333333 Bottom: 1.22916666666667 ) (CPanel.12 InternalName: "cplCells" UseGraphicNfy: 1 Update: "MakeSurface.CellControl.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.13 Name: "cplRadius" Bounds: 14 ControlConstraints: 0x55 Control: 15 Editable: 1 ) (RectD.14 Left: 0.62500000000000 Top: 3.40625000000000 Right: 4.03125000000000 Bottom: 2.45833333333333 ) (CPanel.15 InternalName: "cplRadius" UseGraphicNfy: 1 Help: "Define Radius" Update: "Kriging.RadControlPanel.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.16 Name: "cbxCellSize" Bounds: 17 ControlConstraints: 0x55 Control: 18 Editable: 1 ) (RectD.17 Left: 0.65625000000000 Top: 2.03125000000000 Right: 3.88541666666667 Bottom: 1.28125000000000 ) (AVCBBox.18 InternalName: "cbxCellSize" UseGraphicNfy: 1 Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 19 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (Nil.19 ) (GCtrl.20 Name: "cbxGridExtent" Bounds: 21 ControlConstraints: 0x55 Control: 22 Editable: 1 ) (RectD.21 Left: 0.66666666666667 Top: 2.34375000000000 Right: 3.88541666666667 Bottom: 1.54166666666667 ) (AVCBBox.22 InternalName: "cbxGridExtent" UseGraphicNfy: 1 Update: "Kriging.Barrier.Update" NextControl: 19 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (GCtrl.23 Name: "cbxBarrier" Bounds: 24 ControlConstraints: 0x55 Control: 25 Editable: 1 ) (RectD.24 Left: 0.64583333333333 Top: 1.04166666666667 Right: 2.85416666666667 Bottom: 0.27083333333333 ) (AVCBBox.25 InternalName: "cbxBarrier" UseGraphicNfy: 1 Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 19 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (GCtrl.26 Name: "rbtMakeFixed" Bounds: 27 ControlConstraints: 0x55 Control: 28 Editable: 1 ) (RectD.27 Left: 1.35416666666667 Top: 2.70833333333333 Right: 3.43750000000000 Bottom: 2.51041666666667 ) (RButn.28 InternalName: "rbtMakeFixed" UseGraphicNfy: 1 Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (GCtrl.29 Name: "rbtMakeVariable" Bounds: 30 ControlConstraints: 0x55 Control: 31 Editable: 1 ) (RectD.30 Left: 1.35416666666667 Top: 2.95833333333333 Right: 3.25000000000000 Bottom: 2.76041666666667 ) (RButn.31 InternalName: "rbtMakeVariable" UseGraphicNfy: 1 Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (GCtrl.32 Name: "txtSamplePoints" Bounds: 33 ControlConstraints: 0x55 Control: 34 Editable: 1 ) (RectD.33 Left: 2.19791666666667 Top: 3.22916666666667 Right: 3.88541666666667 Bottom: 3.02083333333333 ) (TextLine.34 InternalName: "txtSamplePoints" UseGraphicNfy: 1 Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 35 Changed: "radioButton.Click" NextControl: 19 ) (AVEnum.35 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.36 Name: "txtRadius" Bounds: 37 ControlConstraints: 0x55 Control: 38 Editable: 1 ) (RectD.37 Left: 0.68750000000000 Top: 3.23958333333333 Right: 2.07291666666667 Bottom: 3.03125000000000 ) (TextLine.38 InternalName: "txtRadius" UseGraphicNfy: 1 Help: "In Map Units//" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 39 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 19 ) (AVEnum.39 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.40 Name: "lbtClose" Bounds: 41 ControlConstraints: 0x55 Control: 42 Editable: 1 ) (RectD.41 Left: 2.37500000000000 Top: 0.80208333333333 Right: 3.15625000000000 Bottom: 0.51041666666667 ) (LButn.42 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.43 Name: "aTextLabel19" Bounds: 44 ControlConstraints: 0x55 Control: 45 Editable: 1 ) (RectD.44 Left: 0.66666666666667 Top: 0.87500000000000 Right: 1.27083333333333 Bottom: 0.70833333333333 ) (TextLabel.45 InternalName: "aTextLabel19" UseGraphicNfy: 1 Update: "Kriging.Text.Update" Constraints: 0x55 Label: "(Optional)" Listening: 1 ) (GCtrl.46 Name: "lbtOK" Bounds: 47 ControlConstraints: 0x55 Control: 48 Editable: 1 ) (RectD.47 Left: 1.59375000000000 Top: 0.78125000000000 Right: 2.31250000000000 Bottom: 0.52083333333333 ) (LButn.48 InternalName: "lbtOK" UseGraphicNfy: 1 Update: "MakeIDW.Ok.Update" Label: "OK" Click: "MakeIDW.OK.Click" ) (GCtrl.49 Name: "cbxPower" Bounds: 50 ControlConstraints: 0x55 Control: 51 Editable: 1 ) (RectD.50 Left: 2.95833333333333 Top: 1.03125000000000 Right: 3.93750000000000 Bottom: 0.84375000000000 ) (AVCBBox.51 InternalName: "cbxPower" UseGraphicNfy: 1 Help: "Local Influence//Higher number for power = more influence from close points" NextControl: 19 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Power:" Select: "radioButton.Click" ) (GCtrl.52 Name: "txtColumn" Bounds: 53 ControlConstraints: 0x55 Control: 54 Editable: 1 ) (RectD.53 Left: 1.63541666666667 Top: 1.54166666666667 Right: 2.78125000000000 Bottom: 1.33333333333333 ) (TextLine.54 InternalName: "txtColumn" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 55 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 56 ) (AVEnum.55 Name: "TEXTLINE_TYPE_ALL" ) (Nil.56 ) (GCtrl.57 Name: "txtRow" Bounds: 58 ControlConstraints: 0x55 Control: 59 Editable: 1 ) (RectD.58 Left: 0.59375000000000 Top: 1.54166666666667 Right: 1.63541666666667 Bottom: 1.33333333333333 ) (TextLine.59 InternalName: "txtRow" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 60 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 56 ) (AVEnum.60 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.61 Name: "txtCellSize" Bounds: 62 ControlConstraints: 0x55 Control: 63 Editable: 1 ) (RectD.62 Left: 2.78125000000000 Top: 1.55208333333333 Right: 3.96875000000000 Bottom: 1.34375000000000 ) (TextLine.63 InternalName: "txtCellSize" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 64 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 56 ) (AVEnum.64 Name: "TEXTLINE_TYPE_ALL" ) (PageDpy.65 Top: 3.85416666666667 Right: 4.80208333333333 ReportUnits: 1 Units: 1 Scale: 66 ZoomRight: 4.80208333333333 ZoomTop: 3.85416666666667 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.66 N: 0.20824295010846 ) (Numb.67 ) (AVDLog.68 Name: "Dialog.MakeIDW" X: 51 Y: 50 W: 342 H: 299 ConstrainedControlNames: 69 ConstrainedControlNames: 70 Constraints: 71 Constraints: 72 Server: 73 ControlPanel: 74 Title: "Interpolate Surface: IDW" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Open: "MakeIDW.Open" DefaultButton: 112 ) (AVStr.69 S: "lbtClose" ) (AVStr.70 S: "lbtOK" ) (Numb.71 N: 85.00000000000000 ) (Numb.72 N: 85.00000000000000 ) (Nil.73 ) (CPanel.74 Child: 75 Child: 85 Child: 96 Child: 97 Child: 98 Child: 99 Child: 100 Child: 101 Child: 102 ResBox: 103 ResBox: 104 ResBox: 105 ResBox: 106 ResBox: 107 ResBox: 108 ResBox: 109 ResBox: 110 ResBox: 111 Listening: 1 ) (CPanel.75 InternalName: "cplCells" Update: "MakeSurface.CellControl.Update" Child: 76 Child: 78 Child: 80 Constraints: 0x55 ResBox: 82 ResBox: 83 ResBox: 84 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.76 InternalName: "txtColumn" Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 77 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 73 ) (AVEnum.77 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.78 InternalName: "txtRow" Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 79 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 73 ) (AVEnum.79 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.80 InternalName: "txtCellSize" Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 81 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 73 ) (AVEnum.81 Name: "TEXTLINE_TYPE_ALL" ) (RectD.82 Left: 103.00000000000000 Top: 42.00000000000000 Right: 213.00000000000000 Bottom: 22.00000000000000 ) (RectD.83 Left: 3.00000000000000 Top: 42.00000000000000 Right: 103.00000000000000 Bottom: 22.00000000000000 ) (RectD.84 Left: 213.00000000000000 Top: 41.00000000000000 Right: 327.00000000000000 Bottom: 21.00000000000000 ) (CPanel.85 InternalName: "cplRadius" Help: "Define Radius" Update: "Kriging.RadControlPanel.Update" Child: 86 Child: 87 Child: 88 Child: 90 Constraints: 0x55 ResBox: 92 ResBox: 93 ResBox: 94 ResBox: 95 Label: " " VisibleBorder: 1 Listening: 1 ) (RButn.86 InternalName: "rbtMakeFixed" Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (RButn.87 InternalName: "rbtMakeVariable" Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (TextLine.88 InternalName: "txtSamplePoints" Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 89 Changed: "radioButton.Click" NextControl: 73 ) (AVEnum.89 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.90 InternalName: "txtRadius" Help: "In Map Units//" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 91 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 73 ) (AVEnum.91 Name: "TEXTLINE_TYPE_ALL" ) (RectD.92 Left: 70.00000000000000 Top: 86.00000000000000 Right: 270.00000000000000 Bottom: 67.00000000000000 ) (RectD.93 Left: 70.00000000000000 Top: 62.00000000000000 Right: 252.00000000000000 Bottom: 43.00000000000000 ) (RectD.94 Left: 151.00000000000000 Top: 37.00000000000000 Right: 313.00000000000000 Bottom: 17.00000000000000 ) (RectD.95 Left: 6.00000000000000 Top: 36.00000000000000 Right: 139.00000000000000 Bottom: 16.00000000000000 ) (AVCBBox.96 InternalName: "cbxCellSize" Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 73 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (AVCBBox.97 InternalName: "cbxGridExtent" Update: "Kriging.Barrier.Update" NextControl: 73 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (AVCBBox.98 InternalName: "cbxBarrier" Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 73 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (LButn.99 InternalName: "lbtClose" Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (TextLabel.100 InternalName: "aTextLabel19" Update: "Kriging.Text.Update" Constraints: 0x55 Label: "(Optional)" Listening: 1 ) (LButn.101 InternalName: "lbtOK" Update: "MakeIDW.Ok.Update" Label: "OK" Click: "MakeIDW.OK.Click" ) (AVCBBox.102 InternalName: "cbxPower" Help: "Local Influence//Higher number for power = more influence from close points" NextControl: 73 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Power:" Select: "radioButton.Click" ) (RectD.103 Left: 5.00000000000000 Top: 224.00000000000000 Right: 340.00000000000000 Bottom: 172.00000000000000 ) (RectD.104 Left: 11.00000000000000 Top: 106.00000000000000 Right: 338.00000000000000 Bottom: 15.00000000000000 ) (RectD.105 Left: 14.00000000000000 Top: 219.00000000000000 Right: 324.00000000000000 Bottom: 147.00000000000000 ) (RectD.106 Left: 15.00000000000000 Top: 194.00000000000000 Right: 324.00000000000000 Bottom: 117.00000000000000 ) (RectD.107 Left: 13.00000000000000 Top: 316.00000000000000 Right: 225.00000000000000 Bottom: 242.00000000000000 ) (RectD.108 Left: 179.00000000000000 Top: 293.00000000000000 Right: 254.00000000000000 Bottom: 265.00000000000000 ) (RectD.109 Left: 15.00000000000000 Top: 274.00000000000000 Right: 73.00000000000000 Bottom: 258.00000000000000 ) (RectD.110 Left: 104.00000000000000 Top: 292.00000000000000 Right: 173.00000000000000 Bottom: 267.00000000000000 ) (RectD.111 Left: 235.00000000000000 Top: 261.00000000000000 Right: 329.00000000000000 Bottom: 243.00000000000000 ) (Nil.112 ) (RectD.113 Left: 0.51041666666667 Top: 3.56250000000000 Right: 4.07291666666667 Bottom: 0.44791666666667 ) (DEd.114 Name: "Dialog.MakeSpline" CreationDate: "Thursday, July 16, 1998 04:24:06" GUIName: "DialogEditor" Win: 115 CSMgr: 116 DocExts: 118 DocExts: 119 Graphics: 120 Dpy: 163 Dialog: 166 DialogExtent: 202 Compiled: 1 ) (DocWin.115 Owner: 114 X: 199 Y: 108 W: 490 H: 321 ) (CSMgr.116 Client: 117 ) (CSClient.117 Client: 118 ReqName: "ClientNfy" ) (PanMgr.118 Doc: 114 ) (DocAct.119 Doc: 114 ) (GList.120 Child: 121 Child: 124 Child: 127 Child: 131 Child: 134 Child: 138 Child: 141 Child: 144 Child: 147 Child: 150 Child: 155 Child: 159 Dpy: 163 FormatNumb: 165 ) (GCtrl.121 Name: "cplCells" Bounds: 122 ControlConstraints: 0x55 Control: 123 Editable: 1 ) (RectD.122 Left: 0.87500000000000 Top: 2.10416666666667 Right: 4.40625000000000 Bottom: 1.56250000000000 ) (CPanel.123 InternalName: "cplCells" UseGraphicNfy: 1 Update: "MakeSurface.CellControl.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.124 Name: "lbtClose" Bounds: 125 ControlConstraints: 0x55 Control: 126 Editable: 1 ) (RectD.125 Left: 3.47916666666667 Top: 1.12500000000000 Right: 4.26041666666667 Bottom: 0.83333333333333 ) (LButn.126 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.127 Name: "cbxGridExtent" Bounds: 128 ControlConstraints: 0x55 Control: 129 Editable: 1 ) (RectD.128 Left: 0.93750000000000 Top: 2.60416666666667 Right: 4.16666666666667 Bottom: 1.80208333333333 ) (AVCBBox.129 InternalName: "cbxGridExtent" UseGraphicNfy: 1 Update: "Kriging.Barrier.Update" NextControl: 130 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (Nil.130 ) (GCtrl.131 Name: "cbxCellSize" Bounds: 132 ControlConstraints: 0x55 Control: 133 Editable: 1 ) (RectD.132 Left: 0.93750000000000 Top: 2.29166666666667 Right: 4.19791666666667 Bottom: 1.54166666666667 ) (AVCBBox.133 InternalName: "cbxCellSize" UseGraphicNfy: 1 Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 130 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (GCtrl.134 Name: "txtPoints" Bounds: 135 ControlConstraints: 0x55 Control: 136 Editable: 1 ) (RectD.135 Left: 2.22916666666667 Top: 1.45833333333333 Right: 4.25000000000000 Bottom: 1.25000000000000 ) (TextLine.136 InternalName: "txtPoints" UseGraphicNfy: 1 Label: "Number of Points per Region:" Constraints: 0x55 Listening: 1 TextType: 137 Changed: "radioButton.Click" NextControl: 130 ) (AVEnum.137 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.138 Name: "rbtTension" Bounds: 139 ControlConstraints: 0x55 Control: 140 Editable: 1 ) (RectD.139 Left: 1.05208333333333 Top: 1.50000000000000 Right: 1.96875000000000 Bottom: 1.28125000000000 ) (RButn.140 InternalName: "rbtTension" UseGraphicNfy: 1 Help: "Tighter Curve//Fits a tighter curve to the sample points" Constraints: 0x55 Listening: 1 Label: "Tension" Click: "radioButton.Click" ) (GCtrl.141 Name: "rbtRegular" Bounds: 142 ControlConstraints: 0x55 Control: 143 Editable: 1 ) (RectD.142 Left: 1.04166666666667 Top: 1.28125000000000 Right: 1.97916666666667 Bottom: 1.06250000000000 ) (RButn.143 InternalName: "rbtRegular" UseGraphicNfy: 1 Help: "Looser Curve//Fits a looser curve to the sample points" Constraints: 0x55 Listening: 1 Label: "Regularized" Click: "radioButton.Click" ) (GCtrl.144 Name: "lbtOK" Bounds: 145 ControlConstraints: 0x55 Control: 146 Editable: 1 ) (RectD.145 Left: 2.47916666666667 Top: 1.11458333333333 Right: 3.35416666666667 Bottom: 0.84375000000000 ) (LButn.146 InternalName: "lbtOK" UseGraphicNfy: 1 Update: "MakeSpline.OK.Update" Label: "OK" Click: "MakeSpline.OK.Click" ) (GCtrl.147 Name: "cbxWeight" Bounds: 148 ControlConstraints: 0x55 Control: 149 Editable: 1 ) (RectD.148 Left: 1.00000000000000 Top: 1.01041666666667 Right: 2.32291666666667 Bottom: 0.50000000000000 ) (AVCBBox.149 InternalName: "cbxWeight" UseGraphicNfy: 1 Help: "Increased wieght: Tension = tighter curve Regularized = looser curve " Update: "MakeSpline.WeightCombo.Update" NextControl: 130 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Weight" ) (GCtrl.150 Name: "txtColumn" Bounds: 151 ControlConstraints: 0x55 Control: 152 Editable: 1 ) (RectD.151 Left: 2.03125000000000 Top: 1.90625000000000 Right: 3.20833333333333 Bottom: 1.69791666666667 ) (TextLine.152 InternalName: "txtColumn" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 153 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.153 Name: "TEXTLINE_TYPE_ALL" ) (Nil.154 ) (GCtrl.155 Name: "txtRow" Bounds: 156 ControlConstraints: 0x55 Control: 157 Editable: 1 ) (RectD.156 Left: 0.95833333333333 Top: 1.91666666666667 Right: 2.00000000000000 Bottom: 1.70833333333333 ) (TextLine.157 InternalName: "txtRow" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 158 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.158 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.159 Name: "txtCellSize" Bounds: 160 ControlConstraints: 0x55 Control: 161 Editable: 1 ) (RectD.160 Left: 3.28125000000000 Top: 1.89583333333333 Right: 4.32291666666667 Bottom: 1.68750000000000 ) (TextLine.161 InternalName: "txtCellSize" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 162 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 154 ) (AVEnum.162 Name: "TEXTLINE_TYPE_ALL" ) (PageDpy.163 Top: 3.07291666666667 Right: 5.03125000000000 ReportUnits: 1 Units: 1 Scale: 164 ZoomRight: 5.03125000000000 ZoomTop: 3.07291666666667 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.164 N: 0.19875776397516 ) (Numb.165 ) (AVDLog.166 Name: "Dialog.MakeSpline" X: 82 Y: 58 W: 345 H: 196 ConstrainedControlNames: 167 ConstrainedControlNames: 168 Constraints: 169 Constraints: 170 Server: 171 ControlPanel: 172 Title: "Interpolate Surface: Spline" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Open: "MakeSpline.Open" DefaultButton: 201 ) (AVStr.167 S: "lbtClose" ) (AVStr.168 S: "lbtOK" ) (Numb.169 N: 85.00000000000000 ) (Numb.170 N: 85.00000000000000 ) (Nil.171 ) (CPanel.172 Child: 173 Child: 183 Child: 184 Child: 185 Child: 186 Child: 188 Child: 189 Child: 190 Child: 191 ResBox: 192 ResBox: 193 ResBox: 194 ResBox: 195 ResBox: 196 ResBox: 197 ResBox: 198 ResBox: 199 ResBox: 200 Listening: 1 ) (CPanel.173 InternalName: "cplCells" Update: "MakeSurface.CellControl.Update" Child: 174 Child: 176 Child: 178 Constraints: 0x55 ResBox: 180 ResBox: 181 ResBox: 182 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.174 InternalName: "txtColumn" Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 175 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 171 ) (AVEnum.175 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.176 InternalName: "txtRow" Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 177 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 171 ) (AVEnum.177 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.178 InternalName: "txtCellSize" Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 179 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 171 ) (AVEnum.179 Name: "TEXTLINE_TYPE_ALL" ) (RectD.180 Left: 111.00000000000000 Top: 39.00000000000000 Right: 224.00000000000000 Bottom: 19.00000000000000 ) (RectD.181 Left: 8.00000000000000 Top: 38.00000000000000 Right: 108.00000000000000 Bottom: 18.00000000000000 ) (RectD.182 Left: 231.00000000000000 Top: 40.00000000000000 Right: 331.00000000000000 Bottom: 20.00000000000000 ) (LButn.183 InternalName: "lbtClose" Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (AVCBBox.184 InternalName: "cbxGridExtent" Update: "Kriging.Barrier.Update" NextControl: 171 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (AVCBBox.185 InternalName: "cbxCellSize" Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 171 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (TextLine.186 InternalName: "txtPoints" Label: "Number of Points per Region:" Constraints: 0x55 Listening: 1 TextType: 187 Changed: "radioButton.Click" NextControl: 171 ) (AVEnum.187 Name: "TEXTLINE_TYPE_ALL" ) (RButn.188 InternalName: "rbtTension" Help: "Tighter Curve//Fits a tighter curve to the sample points" Constraints: 0x55 Listening: 1 Label: "Tension" Click: "radioButton.Click" ) (RButn.189 InternalName: "rbtRegular" Help: "Looser Curve//Fits a looser curve to the sample points" Constraints: 0x55 Listening: 1 Label: "Regularized" Click: "radioButton.Click" ) (LButn.190 InternalName: "lbtOK" Update: "MakeSpline.OK.Update" Label: "OK" Click: "MakeSpline.OK.Click" ) (AVCBBox.191 InternalName: "cbxWeight" Help: "Increased wieght: Tension = tighter curve Regularized = looser curve " Update: "MakeSpline.WeightCombo.Update" NextControl: 171 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Weight" ) (RectD.192 Left: 4.00000000000000 Top: 109.00000000000000 Right: 343.00000000000000 Bottom: 57.00000000000000 ) (RectD.193 Left: 254.00000000000000 Top: 179.00000000000000 Right: 329.00000000000000 Bottom: 151.00000000000000 ) (RectD.194 Left: 10.00000000000000 Top: 86.00000000000000 Right: 320.00000000000000 Bottom: 9.00000000000000 ) (RectD.195 Left: 10.00000000000000 Top: 111.00000000000000 Right: 323.00000000000000 Bottom: 39.00000000000000 ) (RectD.196 Left: 134.00000000000000 Top: 139.00000000000000 Right: 328.00000000000000 Bottom: 119.00000000000000 ) (RectD.197 Left: 21.00000000000000 Top: 136.00000000000000 Right: 109.00000000000000 Bottom: 115.00000000000000 ) (RectD.198 Left: 20.00000000000000 Top: 157.00000000000000 Right: 110.00000000000000 Bottom: 136.00000000000000 ) (RectD.199 Left: 158.00000000000000 Top: 178.00000000000000 Right: 242.00000000000000 Bottom: 152.00000000000000 ) (RectD.200 Left: 16.00000000000000 Top: 211.00000000000000 Right: 143.00000000000000 Bottom: 162.00000000000000 ) (Nil.201 ) (RectD.202 Left: 0.83333333333333 Top: 2.69791666666667 Right: 4.42708333333333 Bottom: 0.65625000000000 ) (DEd.203 Name: "dialog.MakeSurface" CreationDate: "Thursday, July 09, 1998 03:08:01" GUIName: "DialogEditor" Win: 204 CSMgr: 205 DocExts: 207 DocExts: 208 Graphics: 209 Dpy: 278 Dialog: 281 DialogExtent: 334 Compiled: 1 ) (DocWin.204 Owner: 203 X: 344 Y: 1 W: 552 H: 497 ) (CSMgr.205 Client: 206 ) (CSClient.206 Client: 207 ReqName: "ClientNfy" ) (PanMgr.207 Doc: 203 ) (DocAct.208 Doc: 203 ) (GList.209 Child: 210 Child: 213 Child: 216 Child: 220 Child: 223 Child: 226 Child: 229 Child: 232 Child: 235 Child: 239 Child: 243 Child: 246 Child: 249 Child: 252 Child: 257 Child: 260 Child: 263 Child: 266 Child: 270 Child: 274 Dpy: 278 FormatNumb: 280 ) (GCtrl.210 Name: "cplCells" Bounds: 211 ControlConstraints: 0x55 Control: 212 Editable: 1 ) (RectD.211 Left: 0.59375000000000 Top: 1.88541666666667 Right: 4.04166666666667 Bottom: 1.34375000000000 ) (CPanel.212 InternalName: "cplCells" UseGraphicNfy: 1 Update: "MakeSurface.CellControl.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.213 Name: "cplRadius" Bounds: 214 ControlConstraints: 0x55 Control: 215 Editable: 1 ) (RectD.214 Left: 0.61458333333333 Top: 3.35416666666667 Right: 4.02083333333333 Bottom: 2.40625000000000 ) (CPanel.215 InternalName: "cplRadius" UseGraphicNfy: 1 Help: "Define Radius" Update: "Kriging.RadControlPanel.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.216 Name: "cbxBarrier" Bounds: 217 ControlConstraints: 0x55 Control: 218 Editable: 1 ) (RectD.217 Left: 0.65625000000000 Top: 1.26041666666667 Right: 3.32291666666667 Bottom: 0.48958333333333 ) (AVCBBox.218 InternalName: "cbxBarrier" UseGraphicNfy: 1 Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 219 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (Nil.219 ) (GCtrl.220 Name: "lbtOK" Bounds: 221 ControlConstraints: 0x55 Control: 222 Editable: 1 ) (RectD.221 Left: 2.98958333333333 Top: 4.42708333333333 Right: 3.76041666666667 Bottom: 4.14583333333333 ) (LButn.222 InternalName: "lbtOK" UseGraphicNfy: 1 Help: "Use current dialog settings to make new SV Gram or Surface ..." Update: "makeSurfaceOK.Update" Label: "OK" Click: "makesurfOK.Click" ) (GCtrl.223 Name: "lbtClose" Bounds: 224 ControlConstraints: 0x55 Control: 225 Editable: 1 ) (RectD.224 Left: 2.98958333333333 Top: 4.10416666666667 Right: 3.77083333333333 Bottom: 3.81250000000000 ) (LButn.225 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.226 Name: "tlbModel" Bounds: 227 ControlConstraints: 0x55 Control: 228 Editable: 1 ) (RectD.227 Left: 0.70833333333333 Top: 4.50000000000000 Right: 2.72916666666667 Bottom: 3.93750000000000 ) (TextLabel.228 InternalName: "tlbModel" UseGraphicNfy: 1 Constraints: 0x55 Label: "Model: " Listening: 1 ) (GCtrl.229 Name: "rbtMakeSurface" Bounds: 230 ControlConstraints: 0x55 Control: 231 Editable: 1 ) (RectD.230 Left: 0.63541666666667 Top: 3.51041666666667 Right: 2.02083333333333 Bottom: 3.25000000000000 ) (RButn.231 InternalName: "rbtMakeSurface" UseGraphicNfy: 1 Help: "Use this Semi-Variogram to interpolate a surface" Constraints: 0x55 Listening: 1 Label: "Interpolate Surface" Click: "radioButton.Click" ) (GCtrl.232 Name: "rbtNewSVGram" Bounds: 233 ControlConstraints: 0x55 Control: 234 Editable: 1 ) (RectD.233 Left: 0.63541666666667 Top: 3.82291666666667 Right: 2.23958333333333 Bottom: 3.53125000000000 ) (RButn.234 InternalName: "rbtNewSVGram" UseGraphicNfy: 1 Help: "Produce a new Semi-Variogram or choose a different interpolation technique" Constraints: 0x55 Listening: 1 Label: "Make New Semi-Variogram" Click: "radioButton.Click" ) (GCtrl.235 Name: "cbxGridExtent" Bounds: 236 ControlConstraints: 0x55 Control: 237 Editable: 1 ) (RectD.236 Left: 0.65625000000000 Top: 2.30208333333333 Right: 3.87500000000000 Bottom: 1.50000000000000 ) (AVCBBox.237 InternalName: "cbxGridExtent" UseGraphicNfy: 1 Update: "Kriging.Barrier.Update" NextControl: 238 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (Nil.238 ) (GCtrl.239 Name: "txtRadius" Bounds: 240 ControlConstraints: 0x55 Control: 241 Editable: 1 ) (RectD.240 Left: 0.67708333333333 Top: 3.18750000000000 Right: 2.06250000000000 Bottom: 2.97916666666667 ) (TextLine.241 InternalName: "txtRadius" UseGraphicNfy: 1 Help: "In Map Units//Default is about 10% of the point theme extent" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 242 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 238 ) (AVEnum.242 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.243 Name: "txtVarGrid" Bounds: 244 ControlConstraints: 0x55 Control: 245 Editable: 1 ) (RectD.244 Left: 0.93750000000000 Top: 1.01041666666667 Right: 3.90625000000000 Bottom: 0.80208333333333 ) (TextLine.245 InternalName: "txtVarGrid" UseGraphicNfy: 1 Help: "Optional//Specify optional variance Grid file name" Update: "Kriging.SaveVarGridFileBox.Update" Label: "Save Variance Grid :" Constraints: 0x55 Listening: 1 TextType: 242 NextControl: 238 ) (GCtrl.246 Name: "cbxCellSize" Bounds: 247 ControlConstraints: 0x55 Control: 248 Editable: 1 ) (RectD.247 Left: 0.64583333333333 Top: 2.05208333333333 Right: 3.88541666666667 Bottom: 1.30208333333333 ) (AVCBBox.248 InternalName: "cbxCellSize" UseGraphicNfy: 1 Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 238 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (GCtrl.249 Name: "ckbxSaveVarGrid" Bounds: 250 ControlConstraints: 0x55 Control: 251 Editable: 1 ) (RectD.250 Left: 0.69791666666667 Top: 1.02083333333333 Right: 0.86458333333333 Bottom: 0.86458333333333 ) (AVCBox.251 InternalName: "ckbxSaveVarGrid" UseGraphicNfy: 1 Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (GCtrl.252 Name: "txtSamplePoints" Bounds: 253 ControlConstraints: 0x55 Control: 254 Editable: 1 ) (RectD.253 Left: 2.18750000000000 Top: 3.17708333333333 Right: 3.87500000000000 Bottom: 2.96875000000000 ) (TextLine.254 InternalName: "txtSamplePoints" UseGraphicNfy: 1 Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 255 Changed: "radioButton.Click" NextControl: 256 ) (AVEnum.255 Name: "TEXTLINE_TYPE_ALL" ) (Nil.256 ) (GCtrl.257 Name: "rbtMakeVariable" Bounds: 258 ControlConstraints: 0x55 Control: 259 Editable: 1 ) (RectD.258 Left: 1.34375000000000 Top: 2.90625000000000 Right: 3.23958333333333 Bottom: 2.70833333333333 ) (RButn.259 InternalName: "rbtMakeVariable" UseGraphicNfy: 1 Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (GCtrl.260 Name: "rbtMakeFixed" Bounds: 261 ControlConstraints: 0x55 Control: 262 Editable: 1 ) (RectD.261 Left: 1.34375000000000 Top: 2.65625000000000 Right: 3.42708333333333 Bottom: 2.45833333333333 ) (RButn.262 InternalName: "rbtMakeFixed" UseGraphicNfy: 1 Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (GCtrl.263 Name: "tlbOpt" Bounds: 264 ControlConstraints: 0x55 Control: 265 Editable: 1 ) (RectD.264 Left: 3.38541666666667 Top: 1.26041666666667 Right: 3.91666666666667 Bottom: 1.09375000000000 ) (TextLabel.265 InternalName: "tlbOpt" UseGraphicNfy: 1 Update: "Kriging.Text.Update" Constraints: 0x55 Label: "(Optional)" Listening: 1 ) (GCtrl.266 Name: "txtColumn" Bounds: 267 ControlConstraints: 0x55 Control: 268 Editable: 1 ) (RectD.267 Left: 1.70833333333333 Top: 1.65625000000000 Right: 2.85416666666667 Bottom: 1.44791666666667 ) (TextLine.268 InternalName: "txtColumn" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 269 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.269 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.270 Name: "txtRow" Bounds: 271 ControlConstraints: 0x55 Control: 272 Editable: 1 ) (RectD.271 Left: 0.67708333333333 Top: 1.65625000000000 Right: 1.68750000000000 Bottom: 1.44791666666667 ) (TextLine.272 InternalName: "txtRow" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 273 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.273 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.274 Name: "txtCellSize" Bounds: 275 ControlConstraints: 0x55 Control: 276 Editable: 1 ) (RectD.275 Left: 2.89583333333333 Top: 1.66666666666667 Right: 3.95833333333333 Bottom: 1.45833333333333 ) (TextLine.276 InternalName: "txtCellSize" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 277 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 154 ) (AVEnum.277 Name: "TEXTLINE_TYPE_ALL" ) (PageDpy.278 Top: 4.90625000000000 Right: 5.67708333333333 ReportUnits: 1 Units: 1 Scale: 279 ZoomRight: 5.67708333333333 ZoomTop: 4.90625000000000 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.279 N: 0.17614678899083 ) (Numb.280 ) (AVDLog.281 Name: "dialog.MakeSurface" X: 54 Y: 50 W: 336 H: 377 DocActivate: "makeSurfaceDocActivate" ConstrainedControlNames: 282 ConstrainedControlNames: 283 Constraints: 284 Constraints: 285 Server: 286 ControlPanel: 287 Title: "Interpolate Surface: Ordinary Kriging" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Open: "makesurf.Open" DefaultButton: 333 ) (AVStr.282 S: "lbtOK" ) (AVStr.283 S: "lbtClose" ) (Numb.284 N: 85.00000000000000 ) (Numb.285 N: 85.00000000000000 ) (Nil.286 ) (CPanel.287 Child: 288 Child: 298 Child: 309 Child: 310 Child: 311 Child: 312 Child: 313 Child: 314 Child: 315 Child: 316 Child: 317 Child: 318 Child: 319 ResBox: 320 ResBox: 321 ResBox: 322 ResBox: 323 ResBox: 324 ResBox: 325 ResBox: 326 ResBox: 327 ResBox: 328 ResBox: 329 ResBox: 330 ResBox: 331 ResBox: 332 Listening: 1 ) (CPanel.288 InternalName: "cplCells" Update: "MakeSurface.CellControl.Update" Child: 289 Child: 291 Child: 293 Constraints: 0x55 ResBox: 295 ResBox: 296 ResBox: 297 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.289 InternalName: "txtColumn" Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 290 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 286 ) (AVEnum.290 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.291 InternalName: "txtRow" Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 292 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 286 ) (AVEnum.292 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.293 InternalName: "txtCellSize" Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 294 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 286 ) (AVEnum.294 Name: "TEXTLINE_TYPE_ALL" ) (RectD.295 Left: 107.00000000000000 Top: 42.00000000000000 Right: 217.00000000000000 Bottom: 22.00000000000000 ) (RectD.296 Left: 8.00000000000000 Top: 42.00000000000000 Right: 105.00000000000000 Bottom: 22.00000000000000 ) (RectD.297 Left: 221.00000000000000 Top: 41.00000000000000 Right: 323.00000000000000 Bottom: 21.00000000000000 ) (CPanel.298 InternalName: "cplRadius" Help: "Define Radius" Update: "Kriging.RadControlPanel.Update" Child: 299 Child: 301 Child: 303 Child: 304 Constraints: 0x55 ResBox: 305 ResBox: 306 ResBox: 307 ResBox: 308 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.299 InternalName: "txtRadius" Help: "In Map Units//Default is about 10% of the point theme extent" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 300 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 286 ) (AVEnum.300 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.301 InternalName: "txtSamplePoints" Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 302 Changed: "radioButton.Click" NextControl: 286 ) (AVEnum.302 Name: "TEXTLINE_TYPE_ALL" ) (RButn.303 InternalName: "rbtMakeVariable" Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (RButn.304 InternalName: "rbtMakeFixed" Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (RectD.305 Left: 6.00000000000000 Top: 36.00000000000000 Right: 139.00000000000000 Bottom: 16.00000000000000 ) (RectD.306 Left: 151.00000000000000 Top: 37.00000000000000 Right: 313.00000000000000 Bottom: 17.00000000000000 ) (RectD.307 Left: 70.00000000000000 Top: 62.00000000000000 Right: 252.00000000000000 Bottom: 43.00000000000000 ) (RectD.308 Left: 70.00000000000000 Top: 86.00000000000000 Right: 270.00000000000000 Bottom: 67.00000000000000 ) (AVCBBox.309 InternalName: "cbxBarrier" Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 286 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (LButn.310 InternalName: "lbtOK" Help: "Use current dialog settings to make new SV Gram or Surface ..." Update: "makeSurfaceOK.Update" Label: "OK" Click: "makesurfOK.Click" ) (LButn.311 InternalName: "lbtClose" Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (TextLabel.312 InternalName: "tlbModel" Constraints: 0x55 Label: "Model: " Listening: 1 ) (RButn.313 InternalName: "rbtMakeSurface" Help: "Use this Semi-Variogram to interpolate a surface" Constraints: 0x55 Listening: 1 Label: "Interpolate Surface" Click: "radioButton.Click" ) (RButn.314 InternalName: "rbtNewSVGram" Help: "Produce a new Semi-Variogram or choose a different interpolation technique" Constraints: 0x55 Listening: 1 Label: "Make New Semi-Variogram" Click: "radioButton.Click" ) (AVCBBox.315 InternalName: "cbxGridExtent" Update: "Kriging.Barrier.Update" NextControl: 286 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (TextLine.316 InternalName: "txtVarGrid" Help: "Optional//Specify optional variance Grid file name" Update: "Kriging.SaveVarGridFileBox.Update" Label: "Save Variance Grid :" Constraints: 0x55 Listening: 1 TextType: 300 NextControl: 286 ) (AVCBBox.317 InternalName: "cbxCellSize" Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 286 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (AVCBox.318 InternalName: "ckbxSaveVarGrid" Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (TextLabel.319 InternalName: "tlbOpt" Update: "Kriging.Text.Update" Constraints: 0x55 Label: "(Optional)" Listening: 1 ) (RectD.320 Left: 5.00000000000000 Top: 314.00000000000000 Right: 336.00000000000000 Bottom: 262.00000000000000 ) (RectD.321 Left: 7.00000000000000 Top: 212.00000000000000 Right: 334.00000000000000 Bottom: 121.00000000000000 ) (RectD.322 Left: 11.00000000000000 Top: 396.00000000000000 Right: 267.00000000000000 Bottom: 322.00000000000000 ) (RectD.323 Left: 235.00000000000000 Top: 45.00000000000000 Right: 309.00000000000000 Bottom: 18.00000000000000 ) (RectD.324 Left: 235.00000000000000 Top: 77.00000000000000 Right: 310.00000000000000 Bottom: 49.00000000000000 ) (RectD.325 Left: 16.00000000000000 Top: 65.00000000000000 Right: 210.00000000000000 Bottom: 11.00000000000000 ) (RectD.326 Left: 9.00000000000000 Top: 131.00000000000000 Right: 142.00000000000000 Bottom: 106.00000000000000 ) (RectD.327 Left: 9.00000000000000 Top: 104.00000000000000 Right: 163.00000000000000 Bottom: 76.00000000000000 ) (RectD.328 Left: 11.00000000000000 Top: 299.00000000000000 Right: 320.00000000000000 Bottom: 222.00000000000000 ) (RectD.329 Left: 38.00000000000000 Top: 366.00000000000000 Right: 323.00000000000000 Bottom: 346.00000000000000 ) (RectD.330 Left: 10.00000000000000 Top: 318.00000000000000 Right: 321.00000000000000 Bottom: 246.00000000000000 ) (RectD.331 Left: 15.00000000000000 Top: 360.00000000000000 Right: 31.00000000000000 Bottom: 345.00000000000000 ) (RectD.332 Left: 273.00000000000000 Top: 338.00000000000000 Right: 324.00000000000000 Bottom: 322.00000000000000 ) (Nil.333 ) (RectD.334 Left: 0.54166666666667 Top: 4.61458333333333 Right: 4.04166666666667 Bottom: 0.68750000000000 ) (DEd.335 Name: "Dialog.MakeTrend" CreationDate: "Thursday, July 16, 1998 05:24:30" GUIName: "DialogEditor" Win: 336 CSMgr: 337 DocExts: 339 DocExts: 340 Graphics: 341 Dpy: 379 Dialog: 382 DialogExtent: 415 Compiled: 1 ) (DocWin.336 Owner: 335 X: 426 Y: 14 W: 467 H: 391 ) (CSMgr.337 Client: 338 ) (CSClient.338 Client: 339 ReqName: "ClientNfy" ) (PanMgr.339 Doc: 335 ) (DocAct.340 Doc: 335 ) (GList.341 Child: 342 Child: 345 Child: 349 Child: 352 Child: 355 Child: 358 Child: 361 Child: 364 Child: 367 Child: 371 Child: 375 Dpy: 379 FormatNumb: 381 ) (GCtrl.342 Name: "cplCells" Bounds: 343 ControlConstraints: 0x55 Control: 344 Editable: 1 ) (RectD.343 Left: 0.51041666666667 Top: 2.63541666666667 Right: 3.95833333333333 Bottom: 2.09375000000000 ) (CPanel.344 InternalName: "cplCells" UseGraphicNfy: 1 Update: "MakeSurface.CellControl.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.345 Name: "cbxCellSize" Bounds: 346 ControlConstraints: 0x55 Control: 347 Editable: 1 ) (RectD.346 Left: 0.58333333333333 Top: 2.86458333333333 Right: 3.81250000000000 Bottom: 2.11458333333333 ) (AVCBBox.347 InternalName: "cbxCellSize" UseGraphicNfy: 1 Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 348 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (Nil.348 ) (GCtrl.349 Name: "cbxGridExtent" Bounds: 350 ControlConstraints: 0x55 Control: 351 Editable: 1 ) (RectD.350 Left: 0.59375000000000 Top: 3.17708333333333 Right: 3.81250000000000 Bottom: 2.37500000000000 ) (AVCBBox.351 InternalName: "cbxGridExtent" UseGraphicNfy: 1 Update: "Kriging.Barrier.Update" NextControl: 348 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (GCtrl.352 Name: "lbtClose" Bounds: 353 ControlConstraints: 0x55 Control: 354 Editable: 1 ) (RectD.353 Left: 3.07291666666667 Top: 1.66666666666667 Right: 3.85416666666667 Bottom: 1.37500000000000 ) (LButn.354 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.355 Name: "cbxOrder" Bounds: 356 ControlConstraints: 0x55 Control: 357 Editable: 1 ) (RectD.356 Left: 0.64583333333333 Top: 1.61458333333333 Right: 2.06250000000000 Bottom: 1.21875000000000 ) (AVCBBox.357 InternalName: "cbxOrder" UseGraphicNfy: 1 Help: "As order increases, an increasingly complex surface is fit to the sample points" NextControl: 348 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Order of Polynomial:" ) (GCtrl.358 Name: "lbtOK" Bounds: 359 ControlConstraints: 0x55 Control: 360 Editable: 1 ) (RectD.359 Left: 2.21875000000000 Top: 1.65625000000000 Right: 2.98958333333333 Bottom: 1.37500000000000 ) (LButn.360 InternalName: "lbtOK" UseGraphicNfy: 1 Update: "MakeTrend.OK.Update" Label: "OK" Click: "MakeTrend.OK.Click" ) (GCtrl.361 Name: "rbtLogistic" Bounds: 362 ControlConstraints: 0x55 Control: 363 Editable: 1 ) (RectD.362 Left: 2.35416666666667 Top: 1.98958333333333 Right: 3.64583333333333 Bottom: 1.80208333333333 ) (RButn.363 InternalName: "rbtLogistic" UseGraphicNfy: 1 Help: "Binary Data//Z-Value field has ONLY two unique values (0 and 1, e.g.)" Constraints: 0x55 Listening: 1 Label: "Z Values are Binary" ) (GCtrl.364 Name: "rbtCont" Bounds: 365 ControlConstraints: 0x55 Control: 366 Editable: 1 ) (RectD.365 Left: 0.72916666666667 Top: 2.02083333333333 Right: 2.27083333333333 Bottom: 1.79166666666667 ) (RButn.366 InternalName: "rbtCont" UseGraphicNfy: 1 Help: "Continuous Data//Z-Value field has more than two unique values" Constraints: 0x55 Listening: 1 Label: "Z Values are Continuous" ) (GCtrl.367 Name: "txtColumn" Bounds: 368 ControlConstraints: 0x55 Control: 369 Editable: 1 ) (RectD.368 Left: 1.62500000000000 Top: 2.40625000000000 Right: 2.77083333333333 Bottom: 2.19791666666667 ) (TextLine.369 InternalName: "txtColumn" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 370 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.370 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.371 Name: "txtRow" Bounds: 372 ControlConstraints: 0x55 Control: 373 Editable: 1 ) (RectD.372 Left: 0.59375000000000 Top: 2.40625000000000 Right: 1.60416666666667 Bottom: 2.19791666666667 ) (TextLine.373 InternalName: "txtRow" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 374 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.374 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.375 Name: "txtCellSize" Bounds: 376 ControlConstraints: 0x55 Control: 377 Editable: 1 ) (RectD.376 Left: 2.81250000000000 Top: 2.41666666666667 Right: 3.87500000000000 Bottom: 2.20833333333333 ) (TextLine.377 InternalName: "txtCellSize" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 378 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 154 ) (AVEnum.378 Name: "TEXTLINE_TYPE_ALL" ) (PageDpy.379 Top: 3.80208333333333 Right: 4.79166666666667 ReportUnits: 1 Units: 1 Scale: 380 ZoomRight: 4.79166666666667 ZoomTop: 3.80208333333333 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.380 N: 0.20869565217391 ) (Numb.381 ) (AVDLog.382 Name: "Dialog.MakeTrend" X: 47 Y: 70 W: 335 H: 198 ConstrainedControlNames: 383 ConstrainedControlNames: 384 Constraints: 385 Constraints: 386 Server: 387 ControlPanel: 388 Title: "Interpolate Surface: Trend" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Open: "MakeTrend.Open" DefaultButton: 414 ) (AVStr.383 S: "lbtClose" ) (AVStr.384 S: "lbtOK" ) (Numb.385 N: 85.00000000000000 ) (Numb.386 N: 85.00000000000000 ) (Nil.387 ) (CPanel.388 Child: 389 Child: 399 Child: 400 Child: 401 Child: 402 Child: 403 Child: 404 Child: 405 ResBox: 406 ResBox: 407 ResBox: 408 ResBox: 409 ResBox: 410 ResBox: 411 ResBox: 412 ResBox: 413 Listening: 1 ) (CPanel.389 InternalName: "cplCells" Update: "MakeSurface.CellControl.Update" Child: 390 Child: 392 Child: 394 Constraints: 0x55 ResBox: 396 ResBox: 397 ResBox: 398 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.390 InternalName: "txtColumn" Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 391 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 387 ) (AVEnum.391 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.392 InternalName: "txtRow" Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 393 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 387 ) (AVEnum.393 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.394 InternalName: "txtCellSize" Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 395 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 387 ) (AVEnum.395 Name: "TEXTLINE_TYPE_ALL" ) (RectD.396 Left: 107.00000000000000 Top: 42.00000000000000 Right: 217.00000000000000 Bottom: 22.00000000000000 ) (RectD.397 Left: 8.00000000000000 Top: 42.00000000000000 Right: 105.00000000000000 Bottom: 22.00000000000000 ) (RectD.398 Left: 221.00000000000000 Top: 41.00000000000000 Right: 323.00000000000000 Bottom: 21.00000000000000 ) (AVCBBox.399 InternalName: "cbxCellSize" Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 387 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (AVCBBox.400 InternalName: "cbxGridExtent" Update: "Kriging.Barrier.Update" NextControl: 387 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (LButn.401 InternalName: "lbtClose" Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (AVCBBox.402 InternalName: "cbxOrder" Help: "As order increases, an increasingly complex surface is fit to the sample points" NextControl: 387 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Order of Polynomial:" ) (LButn.403 InternalName: "lbtOK" Update: "MakeTrend.OK.Update" Label: "OK" Click: "MakeTrend.OK.Click" ) (RButn.404 InternalName: "rbtLogistic" Help: "Binary Data//Z-Value field has ONLY two unique values (0 and 1, e.g.)" Constraints: 0x55 Listening: 1 Label: "Z Values are Binary" ) (RButn.405 InternalName: "rbtCont" Help: "Continuous Data//Z-Value field has more than two unique values" Constraints: 0x55 Listening: 1 Label: "Z Values are Continuous" ) (RectD.406 Left: 4.00000000000000 Top: 116.00000000000000 Right: 335.00000000000000 Bottom: 64.00000000000000 ) (RectD.407 Left: 11.00000000000000 Top: 114.00000000000000 Right: 321.00000000000000 Bottom: 42.00000000000000 ) (RectD.408 Left: 12.00000000000000 Top: 89.00000000000000 Right: 321.00000000000000 Bottom: 12.00000000000000 ) (RectD.409 Left: 250.00000000000000 Top: 185.00000000000000 Right: 325.00000000000000 Bottom: 157.00000000000000 ) (RectD.410 Left: 17.00000000000000 Top: 200.00000000000000 Right: 153.00000000000000 Bottom: 162.00000000000000 ) (RectD.411 Left: 168.00000000000000 Top: 185.00000000000000 Right: 242.00000000000000 Bottom: 158.00000000000000 ) (RectD.412 Left: 181.00000000000000 Top: 144.00000000000000 Right: 305.00000000000000 Bottom: 126.00000000000000 ) (RectD.413 Left: 25.00000000000000 Top: 145.00000000000000 Right: 173.00000000000000 Bottom: 123.00000000000000 ) (Nil.414 ) (RectD.415 Left: 0.46875000000000 Top: 3.30208333333333 Right: 3.95833333333333 Bottom: 1.23958333333333 ) (DEd.416 Name: "Dialog.MakeUni" CreationDate: "Thursday, July 16, 1998 03:18:49" GUIName: "DialogEditor" Win: 417 CSMgr: 418 DocExts: 420 DocExts: 421 Graphics: 422 Dpy: 480 Dialog: 483 DialogExtent: 530 Compiled: 1 ) (DocWin.417 Owner: 416 X: 234 Y: -12 W: 555 H: 545 ) (CSMgr.418 Client: 419 ) (CSClient.419 Client: 420 ReqName: "ClientNfy" ) (PanMgr.420 Doc: 416 ) (DocAct.421 Doc: 416 ) (GList.422 Child: 423 Child: 426 Child: 429 Child: 432 Child: 435 Child: 440 Child: 443 Child: 446 Child: 450 Child: 454 Child: 457 Child: 460 Child: 463 Child: 467 Child: 470 Child: 473 Child: 477 Dpy: 480 FormatNumb: 482 ) (GCtrl.423 Name: "cplCells" Bounds: 424 ControlConstraints: 0x55 Control: 425 Editable: 1 ) (RectD.424 Left: 1.14583333333333 Top: 2.18750000000000 Right: 4.59375000000000 Bottom: 1.64583333333333 ) (CPanel.425 InternalName: "cplCells" UseGraphicNfy: 1 Update: "MakeSurface.CellControl.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.426 Name: "cplRadius" Bounds: 427 ControlConstraints: 0x55 Control: 428 Editable: 1 ) (RectD.427 Left: 1.17708333333333 Top: 3.75000000000000 Right: 4.58333333333333 Bottom: 2.80208333333333 ) (CPanel.428 InternalName: "cplRadius" UseGraphicNfy: 1 Update: "Kriging.RadControlPanel.Update" Constraints: 0x55 Label: " " VisibleBorder: 1 Listening: 1 ) (GCtrl.429 Name: "rbtMakeFixed" Bounds: 430 ControlConstraints: 0x55 Control: 431 Editable: 1 ) (RectD.430 Left: 1.90625000000000 Top: 3.05208333333333 Right: 3.98958333333333 Bottom: 2.85416666666667 ) (RButn.431 InternalName: "rbtMakeFixed" UseGraphicNfy: 1 Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (GCtrl.432 Name: "rbtMakeVariable" Bounds: 433 ControlConstraints: 0x55 Control: 434 Editable: 1 ) (RectD.433 Left: 1.90625000000000 Top: 3.30208333333333 Right: 3.80208333333333 Bottom: 3.10416666666667 ) (RButn.434 InternalName: "rbtMakeVariable" UseGraphicNfy: 1 Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (GCtrl.435 Name: "txtSamplePoints" Bounds: 436 ControlConstraints: 0x55 Control: 437 Editable: 1 ) (RectD.436 Left: 2.75000000000000 Top: 3.57291666666667 Right: 4.43750000000000 Bottom: 3.36458333333333 ) (TextLine.437 InternalName: "txtSamplePoints" UseGraphicNfy: 1 Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 438 Changed: "radioButton.Click" NextControl: 439 ) (AVEnum.438 Name: "TEXTLINE_TYPE_ALL" ) (Nil.439 ) (GCtrl.440 Name: "ckbxSaveVarGrid" Bounds: 441 ControlConstraints: 0x55 Control: 442 Editable: 1 ) (RectD.441 Left: 1.26041666666667 Top: 1.17708333333333 Right: 1.42708333333333 Bottom: 1.02083333333333 ) (AVCBox.442 InternalName: "ckbxSaveVarGrid" UseGraphicNfy: 1 Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (GCtrl.443 Name: "cbxCellSize" Bounds: 444 ControlConstraints: 0x55 Control: 445 Editable: 1 ) (RectD.444 Left: 1.20833333333333 Top: 2.37500000000000 Right: 4.45833333333333 Bottom: 1.62500000000000 ) (AVCBBox.445 InternalName: "cbxCellSize" UseGraphicNfy: 1 Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 439 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (GCtrl.446 Name: "txtVarGrid" Bounds: 447 ControlConstraints: 0x55 Control: 448 Editable: 1 ) (RectD.447 Left: 1.50000000000000 Top: 1.16666666666667 Right: 4.46875000000000 Bottom: 0.95833333333333 ) (TextLine.448 InternalName: "txtVarGrid" UseGraphicNfy: 1 Help: "Optional//Specify optional variance Grid file name" Update: "Kriging.SaveVarGridFileBox.Update" Label: "Save Variance Grid :" Constraints: 0x55 Listening: 1 TextType: 449 NextControl: 439 ) (AVEnum.449 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.450 Name: "txtRadius" Bounds: 451 ControlConstraints: 0x55 Control: 452 Editable: 1 ) (RectD.451 Left: 1.23958333333333 Top: 3.58333333333333 Right: 2.62500000000000 Bottom: 3.37500000000000 ) (TextLine.452 InternalName: "txtRadius" UseGraphicNfy: 1 Help: "In Map Units//Default is about %10 of point theme extent" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 453 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 439 ) (AVEnum.453 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.454 Name: "cbxGridExtent" Bounds: 455 ControlConstraints: 0x55 Control: 456 Editable: 1 ) (RectD.455 Left: 1.21875000000000 Top: 2.68750000000000 Right: 4.43750000000000 Bottom: 1.88541666666667 ) (AVCBBox.456 InternalName: "cbxGridExtent" UseGraphicNfy: 1 Update: "Kriging.Barrier.Update" NextControl: 439 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (GCtrl.457 Name: "tlbModel" Bounds: 458 ControlConstraints: 0x55 Control: 459 Editable: 1 ) (RectD.458 Left: 1.18750000000000 Top: 4.63541666666667 Right: 3.61458333333333 Bottom: 3.76041666666667 ) (TextLabel.459 InternalName: "tlbModel" UseGraphicNfy: 1 Constraints: 0x55 Label: "Model: " Listening: 1 ) (GCtrl.460 Name: "lbtClose" Bounds: 461 ControlConstraints: 0x55 Control: 462 Editable: 1 ) (RectD.461 Left: 3.75000000000000 Top: 4.20833333333333 Right: 4.53125000000000 Bottom: 3.91666666666667 ) (LButn.462 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.463 Name: "txtCellSize" Bounds: 464 ControlConstraints: 0x55 Control: 465 Editable: 1 ) (RectD.464 Left: 3.44791666666667 Top: 1.96875000000000 Right: 4.51041666666667 Bottom: 1.76041666666667 ) (TextLine.465 InternalName: "txtCellSize" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 466 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 439 ) (AVEnum.466 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.467 Name: "cbxBarrier" Bounds: 468 ControlConstraints: 0x55 Control: 469 Editable: 1 ) (RectD.468 Left: 1.21875000000000 Top: 1.50000000000000 Right: 3.42708333333333 Bottom: 0.72916666666667 ) (AVCBBox.469 InternalName: "cbxBarrier" UseGraphicNfy: 1 Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 439 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (GCtrl.470 Name: "lbtOK" Bounds: 471 ControlConstraints: 0x55 Control: 472 Editable: 1 ) (RectD.471 Left: 3.75000000000000 Top: 4.54166666666667 Right: 4.54166666666667 Bottom: 4.25000000000000 ) (LButn.472 InternalName: "lbtOK" UseGraphicNfy: 1 Update: "MakeIDW.Ok.Update" Label: "OK" Click: "MakeUni.OK.Click" ) (GCtrl.473 Name: "txtRow" Bounds: 474 ControlConstraints: 0x55 Control: 475 Editable: 1 ) (RectD.474 Left: 1.22916666666667 Top: 1.95833333333333 Right: 2.23958333333333 Bottom: 1.75000000000000 ) (TextLine.475 InternalName: "txtRow" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 476 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (AVEnum.476 Name: "TEXTLINE_TYPE_ALL" ) (GCtrl.477 Name: "txtColumn" Bounds: 478 ControlConstraints: 0x55 Control: 479 Editable: 1 ) (RectD.478 Left: 2.26041666666667 Top: 1.95833333333333 Right: 3.40625000000000 Bottom: 1.75000000000000 ) (TextLine.479 InternalName: "txtColumn" UseGraphicNfy: 1 Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 476 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 154 ) (PageDpy.480 Top: 5.40625000000000 Right: 5.70833333333333 ReportUnits: 1 Units: 1 Scale: 481 ZoomRight: 5.70833333333333 ZoomTop: 5.40625000000000 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.481 N: 0.17518248175182 ) (Numb.482 ) (AVDLog.483 Name: "Dialog.MakeUni" X: 109 Y: 80 W: 335 H: 383 ConstrainedControlNames: 484 ConstrainedControlNames: 485 Constraints: 486 Constraints: 487 Server: 488 ControlPanel: 489 Title: "Interpolate Surface: Universal Kriging" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Open: "MakeUni.Open" DefaultButton: 529 ) (AVStr.484 S: "lbtClose" ) (AVStr.485 S: "lbtOK" ) (Numb.486 N: 85.00000000000000 ) (Numb.487 N: 85.00000000000000 ) (Nil.488 ) (CPanel.489 Child: 490 Child: 499 Child: 510 Child: 511 Child: 512 Child: 514 Child: 515 Child: 516 Child: 517 Child: 518 ResBox: 519 ResBox: 520 ResBox: 521 ResBox: 522 ResBox: 523 ResBox: 524 ResBox: 525 ResBox: 526 ResBox: 527 ResBox: 528 Listening: 1 ) (CPanel.490 InternalName: "cplCells" Update: "MakeSurface.CellControl.Update" Child: 491 Child: 493 Child: 495 Constraints: 0x55 ResBox: 496 ResBox: 497 ResBox: 498 Label: " " VisibleBorder: 1 Listening: 1 ) (TextLine.491 InternalName: "txtCellSize" Update: "MakeSurface.RowColCell.Update" Label: "Cell Size" Constraints: 0x55 Listening: 1 TextType: 492 Apply: "radioButton.Click" Empty: "Kriging.Text.Empty" Changed: "Empty.Dialog" Click: "Empty.Dialog" NextControl: 488 ) (AVEnum.492 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.493 InternalName: "txtRow" Update: "MakeSurface.RowColCell.Update" Label: "Rows:" Constraints: 0x55 Listening: 1 TextType: 494 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 488 ) (AVEnum.494 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.495 InternalName: "txtColumn" Update: "MakeSurface.RowColCell.Update" Label: "Columns:" Constraints: 0x55 Listening: 1 TextType: 494 Apply: "radioButton.Click" Changed: "Empty.Dialog" NextControl: 488 ) (RectD.496 Left: 221.00000000000000 Top: 41.00000000000000 Right: 323.00000000000000 Bottom: 21.00000000000000 ) (RectD.497 Left: 8.00000000000000 Top: 42.00000000000000 Right: 105.00000000000000 Bottom: 22.00000000000000 ) (RectD.498 Left: 107.00000000000000 Top: 42.00000000000000 Right: 217.00000000000000 Bottom: 22.00000000000000 ) (CPanel.499 InternalName: "cplRadius" Update: "Kriging.RadControlPanel.Update" Child: 500 Child: 501 Child: 502 Child: 504 Constraints: 0x55 ResBox: 506 ResBox: 507 ResBox: 508 ResBox: 509 Label: " " VisibleBorder: 1 Listening: 1 ) (RButn.500 InternalName: "rbtMakeFixed" Help: "Fixed Radius//Radius will NOT expand to find minimum number of sample points " Constraints: 0x55 Listening: 1 Label: "Use Sample Within Radius" ) (RButn.501 InternalName: "rbtMakeVariable" Help: "Variable Radius//Radius will expand to find minimum number of samples" Constraints: 0x55 Listening: 1 Label: "Always Use Minimum Sample" ) (TextLine.502 InternalName: "txtSamplePoints" Label: "Minimum Sample Points:" Constraints: 0x55 Listening: 1 TextType: 503 Changed: "radioButton.Click" NextControl: 488 ) (AVEnum.503 Name: "TEXTLINE_TYPE_ALL" ) (TextLine.504 InternalName: "txtRadius" Help: "In Map Units//Default is about %10 of point theme extent" Update: "Kriging.txtRadius.Update" Label: "Search Radius:" Constraints: 0x55 Listening: 1 TextType: 505 Empty: "Kriging.Text.Empty" Changed: "radioButton.Click" NextControl: 488 ) (AVEnum.505 Name: "TEXTLINE_TYPE_ALL" ) (RectD.506 Left: 70.00000000000000 Top: 86.00000000000000 Right: 270.00000000000000 Bottom: 67.00000000000000 ) (RectD.507 Left: 70.00000000000000 Top: 62.00000000000000 Right: 252.00000000000000 Bottom: 43.00000000000000 ) (RectD.508 Left: 151.00000000000000 Top: 37.00000000000000 Right: 313.00000000000000 Bottom: 17.00000000000000 ) (RectD.509 Left: 6.00000000000000 Top: 36.00000000000000 Right: 139.00000000000000 Bottom: 16.00000000000000 ) (AVCBox.510 InternalName: "ckbxSaveVarGrid" Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (AVCBBox.511 InternalName: "cbxCellSize" Help: "Choose cell size from list, or specify in text box" Update: "Kriging.Barrier.Update" NextControl: 488 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Cell Size - Same As:" Select: "KrigingComboSelect" ) (TextLine.512 InternalName: "txtVarGrid" Help: "Optional//Specify optional variance Grid file name" Update: "Kriging.SaveVarGridFileBox.Update" Label: "Save Variance Grid :" Constraints: 0x55 Listening: 1 TextType: 513 NextControl: 488 ) (AVEnum.513 Name: "TEXTLINE_TYPE_ALL" ) (AVCBBox.514 InternalName: "cbxGridExtent" Update: "Kriging.Barrier.Update" NextControl: 488 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Surface Extent: Same As ..." Select: "radioButton.Click" ) (TextLabel.515 InternalName: "tlbModel" Constraints: 0x55 Label: "Model: " Listening: 1 ) (LButn.516 InternalName: "lbtClose" Help: "Close Dialog//Cancel Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (AVCBBox.517 InternalName: "cbxBarrier" Help: "Optional//Sample points separated by barrier will not be used for interpolation" Update: "Kriging.Barrier.Update" NextControl: 488 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Barrier (Line) Theme" ) (LButn.518 InternalName: "lbtOK" Update: "MakeIDW.Ok.Update" Label: "OK" Click: "MakeUni.OK.Click" ) (RectD.519 Left: 3.00000000000000 Top: 303.00000000000000 Right: 334.00000000000000 Bottom: 251.00000000000000 ) (RectD.520 Left: 6.00000000000000 Top: 192.00000000000000 Right: 333.00000000000000 Bottom: 101.00000000000000 ) (RectD.521 Left: 14.00000000000000 Top: 363.00000000000000 Right: 30.00000000000000 Bottom: 348.00000000000000 ) (RectD.522 Left: 9.00000000000000 Top: 305.00000000000000 Right: 321.00000000000000 Bottom: 233.00000000000000 ) (RectD.523 Left: 37.00000000000000 Top: 369.00000000000000 Right: 322.00000000000000 Bottom: 349.00000000000000 ) (RectD.524 Left: 10.00000000000000 Top: 280.00000000000000 Right: 319.00000000000000 Bottom: 203.00000000000000 ) (RectD.525 Left: 7.00000000000000 Top: 100.00000000000000 Right: 240.00000000000000 Bottom: 16.00000000000000 ) (RectD.526 Left: 253.00000000000000 Top: 85.00000000000000 Right: 328.00000000000000 Bottom: 57.00000000000000 ) (RectD.527 Left: 10.00000000000000 Top: 391.00000000000000 Right: 222.00000000000000 Bottom: 317.00000000000000 ) (RectD.528 Left: 253.00000000000000 Top: 53.00000000000000 Right: 329.00000000000000 Bottom: 25.00000000000000 ) (Nil.529 ) (RectD.530 Left: 1.11458333333333 Top: 4.80208333333333 Right: 4.60416666666667 Bottom: 0.81250000000000 ) (DEd.531 Name: "dialogKriging" CreationDate: "Wednesday, July 08, 1998 10:03:54" GUIName: "DialogEditor" Win: 532 CSMgr: 533 DocExts: 535 DocExts: 536 Graphics: 537 Dpy: 606 Dialog: 609 DialogExtent: 661 Compiled: 1 ) (DocWin.532 Owner: 531 X: 219 Y: 24 W: 553 H: 486 ) (CSMgr.533 Client: 534 ) (CSClient.534 Client: 535 ReqName: "ClientNfy" ) (PanMgr.535 Doc: 531 ) (DocAct.536 Doc: 531 ) (GList.537 Child: 538 Child: 541 Child: 545 Child: 548 Child: 551 Child: 554 Child: 557 Child: 560 Child: 563 Child: 566 Child: 569 Child: 574 Child: 577 Child: 580 Child: 585 Child: 588 Child: 591 Child: 594 Child: 597 Child: 600 Child: 603 Dpy: 606 FormatNumb: 608 ) (GCtrl.538 Name: "cplMethod" Bounds: 539 ControlConstraints: 0x55 Control: 540 Editable: 1 ) (RectD.539 Left: 0.83333333333333 Top: 2.86458333333333 Right: 4.12500000000000 Bottom: 1.28125000000000 ) (CPanel.540 InternalName: "cplMethod" UseGraphicNfy: 1 Help: "Choose Method//Fit a line or curve to the semi-variance using one of these methods" Update: "Kriging.MethControlPanel.Update" Constraints: 0x55 Label: "Specify the Kriging Method:" VisibleBorder: 1 Listening: 1 ) (GCtrl.541 Name: "cbxZValue" Bounds: 542 ControlConstraints: 0x55 Control: 543 Editable: 1 ) (RectD.542 Left: 1.18750000000000 Top: 3.65625000000000 Right: 3.78125000000000 Bottom: 2.84375000000000 ) (AVCBBox.543 InternalName: "cbxZValue" UseGraphicNfy: 1 Help: "Value to Interpolate//Value from selected point theme to interpolate" NextControl: 544 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Z - Value" ) (Nil.544 ) (GCtrl.545 Name: "cbxPointTheme" Bounds: 546 ControlConstraints: 0x55 Control: 547 Editable: 1 ) (RectD.546 Left: 1.03125000000000 Top: 4.00000000000000 Right: 3.77083333333333 Bottom: 3.20833333333333 ) (AVCBBox.547 InternalName: "cbxPointTheme" UseGraphicNfy: 1 Help: "Choose Point Theme//Theme containing sample points" NextControl: 544 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Point Theme" Select: "Kriging.ZUpdate" ) (GCtrl.548 Name: "rbtLinear" Bounds: 549 ControlConstraints: 0x55 Control: 550 Editable: 1 ) (RectD.549 Left: 1.08333333333333 Top: 2.31250000000000 Right: 1.80208333333333 Bottom: 2.04166666666667 ) (RButn.550 InternalName: "rbtLinear" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Linear" Click: "radioButton.Click" ) (GCtrl.551 Name: "rbtExponential" Bounds: 552 ControlConstraints: 0x55 Control: 553 Editable: 1 ) (RectD.552 Left: 1.08333333333333 Top: 2.02083333333333 Right: 1.97916666666667 Bottom: 1.65625000000000 ) (RButn.553 InternalName: "rbtExponential" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Exponential" Click: "radioButton.Click" ) (GCtrl.554 Name: "rbtCircular" Bounds: 555 ControlConstraints: 0x55 Control: 556 Editable: 1 ) (RectD.555 Left: 2.10416666666667 Top: 2.37500000000000 Right: 2.70833333333333 Bottom: 2.01041666666667 ) (RButn.556 InternalName: "rbtCircular" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Circular" Click: "radioButton.Click" ) (GCtrl.557 Name: "rbtSpherical" Bounds: 558 ControlConstraints: 0x55 Control: 559 Editable: 1 ) (RectD.558 Left: 2.10416666666667 Top: 2.10416666666667 Right: 2.88541666666667 Bottom: 1.58333333333333 ) (RButn.559 InternalName: "rbtSpherical" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Spherical" Click: "radioButton.Click" ) (GCtrl.560 Name: "rbtGaussian" Bounds: 561 ControlConstraints: 0x55 Control: 562 Editable: 1 ) (RectD.561 Left: 2.93750000000000 Top: 2.45833333333333 Right: 3.84375000000000 Bottom: 1.91666666666667 ) (RButn.562 InternalName: "rbtGaussian" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Gaussian" Click: "radioButton.Click" ) (GCtrl.563 Name: "lbtOK" Bounds: 564 ControlConstraints: 0x55 Control: 565 Editable: 1 ) (RectD.564 Left: 2.78125000000000 Top: 1.19791666666667 Right: 3.30208333333333 Bottom: 0.96875000000000 ) (LButn.565 InternalName: "lbtOK" UseGraphicNfy: 1 Help: "Use Current Settings to Make a Semi-Variogram or Interpolate a Surface" Update: "Kriging.OK.Update" Label: "OK" Click: "Kriging.OK.Click" ) (GCtrl.566 Name: "lbtClose" Bounds: 567 ControlConstraints: 0x55 Control: 568 Editable: 1 ) (RectD.567 Left: 3.38541666666667 Top: 1.19791666666667 Right: 3.91666666666667 Bottom: 0.96875000000000 ) (LButn.568 InternalName: "lbtClose" UseGraphicNfy: 1 Help: "Close Dialog//Cancel the Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (GCtrl.569 Name: "txtDistance" Bounds: 570 ControlConstraints: 0x55 Control: 571 Editable: 1 ) (RectD.570 Left: 3.02083333333333 Top: 1.93750000000000 Right: 3.87500000000000 Bottom: 1.72916666666667 ) (TextLine.571 InternalName: "txtDistance" UseGraphicNfy: 1 Help: "Distance Interval//Interval used to create Semi-Variogram" Update: "KrigingIntervalUpdate" Label: "Interval :" Constraints: 0x55 Listening: 1 TextType: 572 NextControl: 573 ) (AVEnum.572 Name: "TEXTLINE_TYPE_ALL" ) (Nil.573 ) (GCtrl.574 Name: "aTextLabel17" Bounds: 575 ControlConstraints: 0x55 Control: 576 Editable: 1 ) (RectD.575 Left: 0.86458333333333 Top: 4.27083333333333 Right: 3.77083333333333 Bottom: 4.02083333333333 ) (TextLabel.576 InternalName: "aTextLabel17" UseGraphicNfy: 1 Constraints: 0x55 Label: "Identify the Point Theme and Z-Value for Interpolation :" Listening: 1 ) (GCtrl.577 Name: "ckbxSaveSVGram" Bounds: 578 ControlConstraints: 0x55 Control: 579 Editable: 1 ) (RectD.578 Left: 1.07291666666667 Top: 1.64583333333333 Right: 1.28125000000000 Bottom: 1.42708333333333 ) (AVCBox.579 InternalName: "ckbxSaveSVGram" UseGraphicNfy: 1 Update: "Kriging.SaveChk.Update" Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (GCtrl.580 Name: "txtSVGramFile" Bounds: 581 ControlConstraints: 0x55 Control: 582 Editable: 1 ) (RectD.581 Left: 1.37500000000000 Top: 1.62500000000000 Right: 3.90625000000000 Bottom: 1.41666666666667 ) (TextLine.582 InternalName: "txtSVGramFile" UseGraphicNfy: 1 Help: "Save Semi-Variogram Table//Save Optional Semi-Variogram Table" Update: "Kriging.SaveSVFileBox.Update" Label: "Save Table (dbf) :" Constraints: 0x55 Listening: 1 TextType: 583 NextControl: 584 ) (AVEnum.583 Name: "TEXTLINE_TYPE_ALL" ) (Nil.584 ) (GCtrl.585 Name: "cplInterp" Bounds: 586 ControlConstraints: 0x55 Control: 587 Editable: 1 ) (RectD.586 Left: 0.82291666666667 Top: 3.41666666666667 Right: 4.13541666666667 Bottom: 2.94791666666667 ) (CPanel.587 InternalName: "cplInterp" UseGraphicNfy: 1 Help: "Interpolation Method//Choose an interpolation technique" Constraints: 0x55 Label: "Choose Interpolation Method:" VisibleBorder: 1 Listening: 1 ) (GCtrl.588 Name: "rbtIDW" Bounds: 589 ControlConstraints: 0x55 Control: 590 Editable: 1 ) (RectD.589 Left: 1.03125000000000 Top: 3.23958333333333 Right: 1.67708333333333 Bottom: 3.03125000000000 ) (RButn.590 InternalName: "rbtIDW" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "IDW" Click: "radioButton.Click" ) (GCtrl.591 Name: "rbtSpline" Bounds: 592 ControlConstraints: 0x55 Control: 593 Editable: 1 ) (RectD.592 Left: 1.71875000000000 Top: 3.22916666666667 Right: 2.37500000000000 Bottom: 3.04166666666667 ) (RButn.593 InternalName: "rbtSpline" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Spline" Click: "radioButton.Click" ) (GCtrl.594 Name: "rbtKriging" Bounds: 595 ControlConstraints: 0x55 Control: 596 Editable: 1 ) (RectD.595 Left: 3.18750000000000 Top: 3.22916666666667 Right: 3.89583333333333 Bottom: 3.04166666666667 ) (RButn.596 InternalName: "rbtKriging" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Kriging" Click: "radioButton.Click" ) (GCtrl.597 Name: "rbtUni1" Bounds: 598 ControlConstraints: 0x55 Control: 599 Editable: 1 ) (RectD.598 Left: 0.92708333333333 Top: 2.64583333333333 Right: 2.30208333333333 Bottom: 2.41666666666667 ) (RButn.599 InternalName: "rbtUni1" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Universal (Linear Drift)" Click: "radioButton.Click" ) (GCtrl.600 Name: "rbtUni2" Bounds: 601 ControlConstraints: 0x55 Control: 602 Editable: 1 ) (RectD.601 Left: 2.48958333333333 Top: 2.64583333333333 Right: 4.01041666666667 Bottom: 2.41666666666667 ) (RButn.602 InternalName: "rbtUni2" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Universal (Quadratic Drift)" Click: "radioButton.Click" ) (GCtrl.603 Name: "rbtTrend" Bounds: 604 ControlConstraints: 0x55 Control: 605 Editable: 1 ) (RectD.604 Left: 2.47916666666667 Top: 3.27083333333333 Right: 3.25000000000000 Bottom: 3.00000000000000 ) (RButn.605 InternalName: "rbtTrend" UseGraphicNfy: 1 Constraints: 0x55 Listening: 1 Label: "Trend" Click: "radioButton.Click" ) (PageDpy.606 Top: 4.79166666666667 Right: 5.68750000000000 ReportUnits: 1 Units: 1 Scale: 607 ZoomRight: 5.68750000000000 ZoomTop: 4.79166666666667 GridSpacingX: 0.10000000000000 GridSpacingY: 0.10000000000000 ) (Numb.607 N: 0.17582417582418 ) (Numb.608 ) (AVDLog.609 Name: "dialogKriging" X: 78 Y: 62 W: 321 H: 336 DocActivate: "Kriging.DocActivate" ConstrainedControlNames: 610 ConstrainedControlNames: 611 Constraints: 612 Constraints: 613 Server: 614 ControlPanel: 615 Title: "Interpolate Surface from Point Theme" EscapeEnabled: 1 AlwaysOnTop: 1 HasTitleBar: 1 Closeable: 1 Activate: "dialog.Activate" Open: "Kriging.Open" DefaultButton: 660 ) (AVStr.610 S: "lbtOK" ) (AVStr.611 S: "lbtClose" ) (Numb.612 N: 85.00000000000000 ) (Numb.613 N: 85.00000000000000 ) (Nil.614 ) (CPanel.615 Child: 616 Child: 639 Child: 640 Child: 641 Child: 642 Child: 643 Child: 644 ResBox: 653 ResBox: 654 ResBox: 655 ResBox: 656 ResBox: 657 ResBox: 658 ResBox: 659 Listening: 1 ) (CPanel.616 InternalName: "cplMethod" Help: "Choose Method//Fit a line or curve to the semi-variance using one of these methods" Update: "Kriging.MethControlPanel.Update" Child: 617 Child: 618 Child: 619 Child: 620 Child: 621 Child: 622 Child: 624 Child: 625 Child: 627 Child: 628 Constraints: 0x55 ResBox: 629 ResBox: 630 ResBox: 631 ResBox: 632 ResBox: 633 ResBox: 634 ResBox: 635 ResBox: 636 ResBox: 637 ResBox: 638 Label: "Specify the Kriging Method:" VisibleBorder: 1 Listening: 1 ) (RButn.617 InternalName: "rbtLinear" Constraints: 0x55 Listening: 1 Label: "Linear" Click: "radioButton.Click" ) (RButn.618 InternalName: "rbtExponential" Constraints: 0x55 Listening: 1 Label: "Exponential" Click: "radioButton.Click" ) (RButn.619 InternalName: "rbtCircular" Constraints: 0x55 Listening: 1 Label: "Circular" Click: "radioButton.Click" ) (RButn.620 InternalName: "rbtSpherical" Constraints: 0x55 Listening: 1 Label: "Spherical" Click: "radioButton.Click" ) (RButn.621 InternalName: "rbtGaussian" Constraints: 0x55 Listening: 1 Label: "Gaussian" Click: "radioButton.Click" ) (TextLine.622 InternalName: "txtDistance" Help: "Distance Interval//Interval used to create Semi-Variogram" Update: "KrigingIntervalUpdate" Label: "Interval :" Constraints: 0x55 Listening: 1 TextType: 623 NextControl: 614 ) (AVEnum.623 Name: "TEXTLINE_TYPE_ALL" ) (AVCBox.624 InternalName: "ckbxSaveSVGram" Update: "Kriging.SaveChk.Update" Listening: 1 Label: " " Click: "radioButton.Click" Constraints: 0x55 ) (TextLine.625 InternalName: "txtSVGramFile" Help: "Save Semi-Variogram Table//Save Optional Semi-Variogram Table" Update: "Kriging.SaveSVFileBox.Update" Label: "Save Table (dbf) :" Constraints: 0x55 Listening: 1 TextType: 626 NextControl: 614 ) (AVEnum.626 Name: "TEXTLINE_TYPE_ALL" ) (RButn.627 InternalName: "rbtUni1" Constraints: 0x55 Listening: 1 Label: "Universal (Linear Drift)" Click: "radioButton.Click" ) (RButn.628 InternalName: "rbtUni2" Constraints: 0x55 Listening: 1 Label: "Universal (Quadratic Drift)" Click: "radioButton.Click" ) (RectD.629 Left: 24.00000000000000 Top: 79.00000000000000 Right: 93.00000000000000 Bottom: 53.00000000000000 ) (RectD.630 Left: 24.00000000000000 Top: 116.00000000000000 Right: 110.00000000000000 Bottom: 81.00000000000000 ) (RectD.631 Left: 122.00000000000000 Top: 82.00000000000000 Right: 180.00000000000000 Bottom: 47.00000000000000 ) (RectD.632 Left: 122.00000000000000 Top: 123.00000000000000 Right: 197.00000000000000 Bottom: 73.00000000000000 ) (RectD.633 Left: 202.00000000000000 Top: 91.00000000000000 Right: 289.00000000000000 Bottom: 39.00000000000000 ) (RectD.634 Left: 210.00000000000000 Top: 109.00000000000000 Right: 292.00000000000000 Bottom: 89.00000000000000 ) (RectD.635 Left: 23.00000000000000 Top: 138.00000000000000 Right: 43.00000000000000 Bottom: 117.00000000000000 ) (RectD.636 Left: 52.00000000000000 Top: 139.00000000000000 Right: 295.00000000000000 Bottom: 119.00000000000000 ) (RectD.637 Left: 9.00000000000000 Top: 43.00000000000000 Right: 141.00000000000000 Bottom: 21.00000000000000 ) (RectD.638 Left: 159.00000000000000 Top: 43.00000000000000 Right: 305.00000000000000 Bottom: 21.00000000000000 ) (AVCBBox.639 InternalName: "cbxZValue" Help: "Value to Interpolate//Value from selected point theme to interpolate" NextControl: 614 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Z - Value" ) (AVCBBox.640 InternalName: "cbxPointTheme" Help: "Choose Point Theme//Theme containing sample points" NextControl: 614 ContentKind: 4 Constraints: 0x55 Listening: 1 Label: "Point Theme" Select: "Kriging.ZUpdate" ) (LButn.641 InternalName: "lbtOK" Help: "Use Current Settings to Make a Semi-Variogram or Interpolate a Surface" Update: "Kriging.OK.Update" Label: "OK" Click: "Kriging.OK.Click" ) (LButn.642 InternalName: "lbtClose" Help: "Close Dialog//Cancel the Kriging Dialog" Label: "Cancel" Click: "Kriging.lbtClose" ) (TextLabel.643 InternalName: "aTextLabel17" Constraints: 0x55 Label: "Identify the Point Theme and Z-Value for Interpolation :" Listening: 1 ) (CPanel.644 InternalName: "cplInterp" Help: "Interpolation Method//Choose an interpolation technique" Child: 645 Child: 646 Child: 647 Child: 648 Constraints: 0x55 ResBox: 649 ResBox: 650 ResBox: 651 ResBox: 652 Label: "Choose Interpolation Method:" VisibleBorder: 1 Listening: 1 ) (RButn.645 InternalName: "rbtIDW" Constraints: 0x55 Listening: 1 Label: "IDW" Click: "radioButton.Click" ) (RButn.646 InternalName: "rbtSpline" Constraints: 0x55 Listening: 1 Label: "Spline" Click: "radioButton.Click" ) (RButn.647 InternalName: "rbtKriging" Constraints: 0x55 Listening: 1 Label: "Kriging" Click: "radioButton.Click" ) (RButn.648 InternalName: "rbtTrend" Constraints: 0x55 Listening: 1 Label: "Trend" Click: "radioButton.Click" ) (RectD.649 Left: 20.00000000000000 Top: 37.00000000000000 Right: 82.00000000000000 Bottom: 17.00000000000000 ) (RectD.650 Left: 86.00000000000000 Top: 36.00000000000000 Right: 149.00000000000000 Bottom: 18.00000000000000 ) (RectD.651 Left: 227.00000000000000 Top: 36.00000000000000 Right: 295.00000000000000 Bottom: 18.00000000000000 ) (RectD.652 Left: 159.00000000000000 Top: 40.00000000000000 Right: 233.00000000000000 Bottom: 14.00000000000000 ) (RectD.653 Left: 4.00000000000000 Top: 297.00000000000000 Right: 320.00000000000000 Bottom: 145.00000000000000 ) (RectD.654 Left: 38.00000000000000 Top: 147.00000000000000 Right: 287.00000000000000 Bottom: 69.00000000000000 ) (RectD.655 Left: 23.00000000000000 Top: 112.00000000000000 Right: 286.00000000000000 Bottom: 36.00000000000000 ) (RectD.656 Left: 191.00000000000000 Top: 327.00000000000000 Right: 241.00000000000000 Bottom: 305.00000000000000 ) (RectD.657 Left: 249.00000000000000 Top: 327.00000000000000 Right: 300.00000000000000 Bottom: 305.00000000000000 ) (RectD.658 Left: 7.00000000000000 Top: 34.00000000000000 Right: 286.00000000000000 Bottom: 10.00000000000000 ) (RectD.659 Left: 3.00000000000000 Top: 137.00000000000000 Right: 321.00000000000000 Bottom: 92.00000000000000 ) (Nil.660 ) (RectD.661 Left: 0.79166666666667 Top: 4.37500000000000 Right: 4.13541666666667 Bottom: 0.87500000000000 ) (List.662 Child: 663 ) (List.663 Child: 664 Child: 668 Child: 670 ) (List.664 Child: 665 Child: 666 Child: 667 ) (AVStr.665 S: "View" ) (AVStr.666 S: "ButtonBar" ) (AVStr.667 S: "Kriging.StartDialog" ) (Butn.668 Disabled: 1 Help: "Surface Interpolation//Starts the 'Surface Interpolator' dialog" Update: "View.Kriging.Update" Icon: 669 Click: "Kriging.StartDialog" ) (AVIcon.669 Name: "Profile" Res: "Icons.Profile" ) (Numb.670 N: 24.00000000000000 ) (Script.671 Name: "dialog.Activate" SourceCode: "' Creator: Thad Tilton\n' Date: Fri Jul 17 13:46:12 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'dialog.Activate\n' ================================================== \n" ) (Script.672 Name: "Empty.Dialog" SourceCode: "' Creator: Thad Tilton\n' Date: Fri Jul 17 13:46:42 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Empty.Dialog\n' ================================================== \n" ) (Script.673 Name: "Kriging.Barrier.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 14:44:29 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.Barrier.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheMakeSurfaceRB = theDialog.FindByName(\"rbtMakeSurface\")\nif (theMakeSurfaceRB.IsSelected) then\n SELF.SetEnabled(true)\nelse\n SELF.GoRow(0)\n SELF.SetEnabled(false)\nend\nreturn nil\n" ) (Nil.674 ) (Script.675 Name: "Kriging.DocActivate" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 14:59:01 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.DocActivate\n' ================================================== \ntheCloseButton = SELF.FindByName(\"lbtClose\")\ntheCloseButton.Click" ) (Script.676 Name: "Kriging.lbtClose" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 13:44:18 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.lbtClose\n' ================================================== \n\ntheDialog = SELF.GetDialog\ntheDialog.SetServer(NIL)\ntheDialog.Close\n\nreturn NIL\n\n\n" ) (Script.677 Name: "Kriging.MethControlPanel.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Thu Jul 16 11:49:50 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.MethControlPanel.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheKrigingRB = theDialog.FindByName(\"rbtKriging\")\nSELF.SetEnabled(theKrigingRB.IsSelected)\nReturn NIL" ) (Script.678 Name: "Kriging.OK.Click" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 15:02:34 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.OK.Click\n' ================================================== \n\n'------------------------------------------------\n'---------> Identify Dialog Controls <-----------\n'------------------------------------------------\ntheDialog = SELF.GetDialog\n\n'-- Radio Buttons\ninterpIDW = theDialog.FindByName(\"rbtIDW\")\ninterpSpline = theDialog .FindByName(\"rbtSpline\")\ninterpTrend = theDialog.FindByName(\"rbtTrend\")\ninterpKriging = theDialog.FindByName(\"rbtKriging\")\n\nuni1 = theDialog.FindByName(\"rbtUni1\")\nuni2 = theDialog.FindByName(\"rbtUni2\")\nlinearButton = theDialog.FindByName(\"rbtLinear\")\nexponButton = theDialog.FindByName(\"rbtExponential\")\ncircularButton = theDialog.FindByName(\"rbtCircular\")\nsphericalButton = theDialog.FindByName(\"rbtSpherical\")\ngaussianButton = theDialog.FindByName(\"rbtGaussian\")\n\n'-- Combo Boxes\nthePointThemeCombo = theDialog .FindByName(\"cbxPointTheme\")\ntheZValueCombo = theDialog.FindByName(\"cbxZValue\")\n\n'-- Check Boxes\ntheSVGramCheck = theDialog.FindByName(\"ckbxSaveSVGram\")\n\n'-- Text Boxes\ntheDistanceTextBox = theDialog.FindByName(\"txtDistance\")\ntheSVGramTextBox = theDialog.FindByName(\"txtSVGramFile\")\n\n'-- Close Button \ntheCloseButton = theDialog.FindByName(\"lbtClose\")\n\n'-------------------------------------------------\n'----------> Return Control Values <--------------\n'-------------------------------------------------\n_thePo intTheme = thePointThemeCombo.GetCurrentValue\n_theZValue = theZValueCombo.GetCurrentValue\n\n'------------Find-Chosen-Interp----------------\n'-------Then-Open-Appropriate-Dialog-----------\n\nif (interpIDW.IsSelected) then\n av.GetProject.FindDialog(\"Dialog.MakeIDW\").Open\n theCloseButton.Click\n Return NIL\nelseif (interpSpline.IsSelected) then\n av.GetProject.FindDialog(\"Dialog.MakeSpline\").Open\n theCloseButton.Click\n Return NIL\nelseif (interpTrend.IsSelected) then\n av.GetProject.FindDialog(\"Dialog.MakeTren d\").Open\n theCloseButton.Click\n Return NIL\nend\n \n'--- The rest of the script should be executed only if Kriging \n'--- was selected !!\n\nthePointThemeName = _thePointTheme.GetName.AsString\nthePointFTab = _thePointTheme.GetFTab\n\n'--find which radio button (model) is selected \nif (linearButton.IsSelected) then\n theModel = \"#KRIGING_LINEAR\"\n _theModelName = \"Linear\"\nelseif (exponButton.IsSelected) then\n theModel = \"#KRIGING_EXPONENTIAL\"\n _theModelName = \"Exponential\"\nelseif (circularButton.IsSelected) the n\n theModel = \"#KRIGING_CIRCULAR\"\n _theModelName = \"Circular\"\nelseif (sphericalButton.IsSelected) then\n theModel = \"#KRIGING_SPHERICAL\"\n _theModelName = \"Spherical\"\nelseif (gaussianButton.IsSelected) then\n theModel = \"#KRIGING_GAUSSIAN\"\n _theModelName = \"Gaussian\"\nelseif (uni1.IsSelected) then\n _uniMod = \"#KRIGING_UNIVERSAL1\"\n _theModelName = \"Universal (linear drift)\"\nelseif (uni2.IsSelected) then\n _uniMod = \"#KRIGING_UNIVERSAL2\"\n _theModelName = \"Universal (quadratic drift)\"\nend\ntheDistanceText = theDistanceTextBox.GetText\n'--check for valid distance\nif ((theDistanceText = nil) or (theDistanceText.IsNumber.not)) then\n MsgBox.Warning(\"Non-Numeric Value Entered for Distance\", \"Error\")\n Return NIL\nelse\n _theDistanceNumber = theDistanceText.AsNumber\nend\nif ((uni1.IsSelected) or (uni2.IsSelected)) then\n av.GetProject.FindDialog(\"Dialog.MakeUni\").Open\n theCloseButton.Click\n Return NIL\nend\n\n'--> Rest of script should only be executed if an \"Ordinary\" Kriging\n'--> Type was chosen !!\n\n'-------------- --------------------------------------------------------\n'-----------> Make SVGram Then Open \"Interpolate Surface\" Dialog <-----\n'----------------------------------------------------------------------\n'-- CANNOT Delete SVGram INFO File!! \n'-- All Subsequent SVGrams written to Same INFO File, So...\n'-- 1st: Check for INFO Directory in CWD\n'-- 2nd: Check for existing SVGram File\n'-- 3rd: If exists, make VTab and delete ALL records\n'----------------------------------------------------------------------\n\nthe WorkDir = av.GetProject.GetWorkDir\ntheWorkDir.SetCWD\ntheINFODir = INFODir.Make(\"Info\".AsFileName)\n\nif ((theINFODir = nil).NOT) then\n\n theINFOFiles = theINFODir.GetFiles\n theSVGList = { }\n \n for each fle in theINFOFiles\n if (fle.GetExtension = (\"SVG\")) then\n theSVGList.Add(fle)\n end\n theSVGCount = theSVGList.Count\n end '-->for each INFO file ...\n \n if (theSVGCount > 0) then\n theOldSVG = theSVGList.Get(0)\n theSVGramVTab = VTab.Make(theOldSVG, false, false)\n theSVGramVTab.SetEdita ble(true)\n theBoolSheet = (theSVGramVTab.CanRemoveRecords)\n if (theBoolSheet) then\n theBitMap = theSVGramVTab.GetSelection\n theBitMap.SetAll\n theSVGramVTab.RemoveRecords(theBitMap)\n theSVGramVTab.SetEditable(false)\n else\n MsgBox.Error(\"Cannot Edit Semi-Variogram Table\", \" \")\n Exit\n end\n end '--> SVGram File Count > 0\nend '---> if INFODir is not nil \n\n'--------------------------------------------------------------\n'-----> Make New Semi-Va riogram Based on Dialog Inputs ...\n'--------------------------------------------------------------\ntheProjection = _theView.GetProjection\n_theSVGram = SVGram.Make(thePointFTab, theProjection, _theZValue, \n theModel.AsEnum, _theDistanceNumber)\ntheSVGramVTab = _theSVGram.GetVTab\n\n'--------------------------------------------------------------\n'-----> Save User Defined DBF File (if requested), Open Table...\n'--------------------------------------------------------------\nif (theSVGramChe ck.IsSelected) then\n theDbaseFileName = theSVGramTextBox.GetText.AsFileName\n if (File.Exists(theDbaseFileName)) then\n overWrite = MsgBox.YesNoCancel(\"Overwrite Existing File?\",\" \",true)\n if ((overWrite = nil) or (overWrite).NOT) then\n return NIL\n end\n end\n theDbaseVTab = theSVGramVTab.Export(theDbaseFileName, dBase, false)\n if (File.Exists(theDbaseFileName).Not) then\n MsgBox.Error(\"Unable to Write File\"++theDbaseFileName.AsString,\" \")\n Return NIL\n end\n theTable = Table.Make(theDbaseVTab)\n theTable.SetName(theDbaseVTab.GetName)\n theTable.GetWin.Open\nend\n\n'--------------------------------------------------------------------\n'---> Make a Graph (layout) from SVGram VTab \n'--------------------------------------------------------------------\n \n av.Run(\"Layout.MakeSVGram\", nil)\n \n'---------------------------------------------------------------------\n'-> Open Dialog that Prompts User to Interpolate Surface or Make New SVGram\n'------------------------- ---------------------------------------------\n\n_theView.GetWin.Activate\nav.GetProject.FindDialog(\"dialog.MakeSurface\").Open\n\nReturn NIL" ) (Script.679 Name: "Kriging.OK.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 14:33:35 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'Kriging.OK.Update\n'\n' ================================================== \ntheDialog = SELF.GetDialog\ntheMakeSVCheck = theDialog.FindByName(\"ckbxMakeSV\")\ntheMakeSurfaceCheck = theDialog.FindByName(\"ckbxMakeSurface\")\nSELF.SetEnabled((theMakeSVCheck.IsSelected)or(theMakeSurfaceCheck.IsSelected)) \nreturn nil\n" ) (Script.680 Name: "Kriging.Open" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 11:32:38 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.Open\n' ================================================== \n'Assigned to the open property of the dialog\n\n'---------------------------------------\n'-----> Reference Dialog controls <-----\n'---------------------------------------\n\n'-- Combo Boxes\nthePointThemeCombo = SELF.FindByName(\"cbxPointTheme\")\ntheZValueCombo = SELF.FindBy Name(\"cbxZValue\")\n\n'-- Radio Buttons\ninterpIDW = SELF.FindByName(\"rbtIDW\")\ninterpSpline = SELF.FindByName(\"rbtSpline\")\ninterpTrend = SELF.FindByName(\"rbtTrend\")\ninterpKriging = SELF.FindByName(\"rbtKriging\")\n\nlinearButton = SELF.FindByName(\"rbtLinear\")\nexponentialButton = SELF.FindByName(\"rbtExponential\")\ncircularButton = SELF.FindByName(\"rbtCircular\")\nsphericalButton = SELF.FindByName(\"rbtSpherical\")\ngaussianButton = SELF.FindByName(\"rbtGaussian\")\nuni1 = SELF.FindByName(\"rbtUni1\")\nuni2 = SELF.FindByName(\"rb tUni2\")\n\n'-- Check Box\ntheSaveSVGramCheck = SELF.FindByName(\"ckbxSaveSVGram\")\n\n'-- Text Boxes\ndistanceText = SELF.FindByName(\"txtDistance\")\ntheSaveSVGramTextBox = SELF.FindByName(\"txtSVGramFile\")\n\n'-- Control Panels\nmethCP = SELF.FindByName(\"cplMethod\")\ninterpCP = SELF.FindByName(\"cplInterp\")\n\n'-- Label Buttons\nokButton = SELF.FindByName(\"lbtOK\")\ncloseButton = SELF.FindByName(\"lbtClose\")\n\n'-----------------------\n'--> Set Listeners <----\n'-----------------------\nthePointThemeCombo.SetListeners( { theZValueC ombo,distanceText } )\ntheSaveSVGramCheck.SetListeners( {theSaveSVGramTextBox} )\n'--> it worked originally!! -->interpCP.SetListeners( {methCP} )\nmethCP.SetListeners( {theSaveSVGramCheck} )\ninterpIDW.SetListeners( {methCP, distanceText} )\ninterpSpline.SetListeners( {methCP, distanceText} )\ninterpTrend.SetListeners( {methCP, distanceText} )\ninterpKriging.SetListeners( {methCP, theSaveSVGramCheck, distanceText} )\nuni1.SetListeners( {theSaveSVGramCheck} )\nuni2.SetListeners( {theSaveSVGramCheck} )\nlinearButton.S etListeners( {theSaveSVGramCheck} )\nexponentialButton.SetListeners( {theSaveSVGramCheck} )\ncircularButton.SetListeners( {theSaveSVGramCheck} )\nsphericalButton.SetListeners( {theSaveSVGramCheck} )\ngaussianButton.SetListeners( {theSaveSVGramCheck} )\n\n\n'-------------------------------------\n'-----> Initialize Button State <-----\n'-------------------------------------\nokButton.SetEnabled(true)\ntheSaveSVGramCheck.SetSelected(false)\ntheSaveSVGramTextBox.Update\ninterpIDW.Select\n\ntheActiveDoc = av.GetActiveDoc\nif ( theActiveDoc.Is(View)) then\n _theView = av.GetActiveDoc\nend\n\n theThemeList = _theView.GetThemes\n thePointThemeList = { }\n for each thm in theThemeList\n if (thm.Is(FTheme)) then\n if ((thm.GetFTab.GetShapeClass.GetClassName) = \"Point\") then\n thePointThemeList.Add(thm)\n end\n end\n end\n\nif (_theSwitch > 0) then '--> Opened from Another Dialog\n\n thePointThemeList.Shuffle(_thePointTheme, 0)\n interpKriging.Select\n\nend '--> Switch is '1'\n \n theSelectedPointTheme = thePointThemeList.G et(0)\n theZValueFTab = theSelectedPointTheme.GetFTab\n theZValueFields = theZValueFTab.GetFields\n theZValueFieldList = { }\n \n for each fld in theZValueFields\n if (fld.IsTypeNumber) then\n if (fld.GetName <> \"Area\") then\n if (fld.GetName <> \"Perimeter\") then\n theZValueFieldList.Add(fld)\n end\n end\n end\n end\n\nif (_theSwitch > 0) then '--> Set Values to Previous choices\n\n theZValueFieldList.Shuffle(_theZValue, 0)\n distanceText.SetText(_theDistanceNumber.AsString)\n\n '-- Select previous model button --\n if (_theModelName = \"Linear\") then\n linearButton.Select\n elseif (_theModelName = \"Exponential\") then\n exponentialButton.Select\n elseif (_theModelName = \"Circular\") then\n circularButton.Select\n elseif (_theModelName = \"Spherical\") then\n sphericalButton.Select\n elseif (_theModelName = \"Gaussian\") then\n gaussianButton.Select\n end\n \n \nelse '--> If Opened from GUI Button (Switch = 0)\n\n linearButton.Select\n \nend 'If Switch is 0\n\nthePo intThemeCombo.DefineFromList(thePointThemeList)\ntheZValueCombo.DefineFromList(theZValueFieldList)\n\n'--> Force Updates\nmethCP.Update\ntheSaveSVGramCheck.Update\ntheSaveSVGramTextBox.Update\ndistanceText.Update\n\nreturn NIL\n" ) (Script.681 Name: "Kriging.RadControlPanel.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Tue Jul 14 17:41:24 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.RadControlPanel.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheMakeSurfaceRB = theDialog.FindByName(\"rbtMakeSurface\")\ntheVariableRB = theDialog.FindByName(\"rbtMakeVariable\")\ntheSampleTextBox = theDialog.FindByName(\"txtSamplePoints\")\ntheRadDistTB = theDialog.FindByName(\"txtRadius\")\nS ELF.SetEnabled(theMakeSurfaceRB.IsSelected)\nif (theMakeSurfaceRB.IsSelected) then\n\n theExtRect = _thePointTheme.ReturnExtent\n theExtWidth = theExtRect.GetWidth\n theExtHeight = theExtRect.GetHeight\n theMaxDim = theExtHeight MAX theExtWidth\n theDefDist = (theMaxDim/10).AsString\n\n theVariableRB.Select\n theRadDistTB.SetText(theDefDist)\n theSampleTextBox.SetText(\"12\")\nelse\n theSampleTextBox.SetText(\"\")\nend\nreturn NIL\n" ) (Script.682 Name: "Kriging.SaveChk.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Thu Jul 16 11:53:10 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.SaveChk.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheKrigingRB = theDialog.FindByName(\"rbtKriging\")\ntheUni1RB = theDialog.FindByName(\"rbtUni1\")\ntheUni2RB = theDialog.FindByName(\"rbtUni2\")\ntheBoolSheet = (theUni1RB.IsSelected.not)and(theUni2RB.IsSelected.not)\nSELF.SetEnabled (theBo olSheet)\nif (theBoolSheet.not) then\n SELF.SetSelected(false)\nend \nReturn NIL" ) (Script.683 Name: "Kriging.SaveSVFileBox.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Mon Jul 13 18:21:05 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'Kriging.SaveSVFileBox.Update\n'\n' ================================================== \ntheDialog = SELF.GetDialog\ntheSVFileCheck = theDialog.FindByName(\"ckbxSaveSVGram\")\nSELF.SetEnabled(theSVFileCheck.IsSelected)\nif (theSVFileCheck.IsSelected.NOT) then\n SELF.SetText(\"\")\nend\nReturn NIL" ) (Script.684 Name: "Kriging.SaveVarGridFileBox.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Mon Jul 13 18:27:44 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.SaveVarGridFileBox.Update\n' ================================================== \nSELF.SetEnabled(false)\ntheDialog = SELF.GetDialog\ntheVarGridFileCheck = theDialog.FindByName(\"ckbxSaveVarGrid\")\ntheMakeSurfaceRB = theDialog.FindByName(\"rbtMakeSurface\")\n\nif (theMakeSurfaceRB = nil) then\n SELF.SetEnabled(theVarGridFileCheck.IsSel ected)\n if (SELF.IsEnabled.not) then\n SELF.SetText(\"\")\n end\n Return NIL\nend\nif (theMakeSurfaceRB.IsSelected) then\n SELF.SetEnabled(theVarGridFileCheck.IsSelected)\nelse\n theVarGridFileCheck.SetSelected(false)\n SELF.SetText(\"\")\nend\nReturn NIL" ) (Script.685 Name: "Kriging.Text.Empty" SourceCode: "' Creator: Thad Tilton\n' Date: Mon Jul 13 17:26:10 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.Text.Empty\n' ================================================== \ntheDialog = SELF.GetDialog\n\ntheOKButton = theDialog.FindByName(\"lbtOK\")\ntheOKButton.SetEnabled(false)\nreturn NIL" ) (Script.686 Name: "Kriging.Text.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 15 09:47:54 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.Text.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheMakeSurfRB = theDialog.FindByName(\"rbtMakeSurface\")\nSELF.SetEnabled(theMakeSurfRB.IsSelected)" ) (Script.687 Name: "Kriging.txtRadius.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Mon Jul 13 16:40:25 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.txtRadius.Update\n' ================================================== \ntheDialog = SELF.GetDialog\ntheMakeSurfaceRB = theDialog.FindByName(\"rbtMakeSurface\")\nif (theMakeSurfaceRB.IsSelected) then\n SELF.SetEnabled(true)\n SELF.SetText(\"100\")\nelse\n SELF.SetText(\" \")\n SELF.SetEnabled(false)\nend\nreturn nil\n" ) (Script.688 Name: "Kriging.ZUpdate" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 08 14:21:52 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Kriging.ZUpdate\n' ================================================== \n\n'Assign this script to the select property of thePointThemeCombo\n\n'Reference objects\n\ntheDialog = SELF.GetDialog\ntheZValueCombo = theDialog.FindByName(\"cbxZValue\" )\nthePointThemeSelection = SELF.GetSelection\n\n\n'Test to see that there is a selection in the \n'combo box\n\nif ( thePointThemeSelection = NIL ) then\n MsgBox.Error (\n \"Theme Selection Error\",\n \"Kriging.ZUpdate.Click\")\n return NIL\nend\n\n'Set the z-value combo to contain the FTab fields\n\ntheZValueFtab = thePointThemeSelection.GetFTab\n'\n'\n'\ntheZValueFields = theZValueFTab.GetFields\ntheZValueFieldList = { }\nfor each fld in theZValueFields\n if (fld.IsTypeNumber) then\n if (fld.GetName <> \"Area\") then\n if (fld.GetName <> \"Perimeter\") then\n theZValueFieldList.Add(fld)\n end\n end\n end\n end\ntheZValueCombo.DefineFromList(theZValueFieldList)\n'\n'\n'\n'\nSELF.BroadcastUpdate\n\nreturn NIL\n\n" ) (Script.689 Name: "KrigingComboSelect" SourceCode: "' Creator: Thad Tilton\n' Date: Mon Jul 13 15:54:44 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'KrigingComboSelect\n' ================================================== \nSELF.BroadcastUpdate\nReturn NIL" ) (Script.690 Name: "Layout.MakeSVGram" SourceCode: "' Creator: Thad Tilton\n' Date: Wed Jul 15 17:18:16 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'Layout.MakeSVGram\n' ================================================== \n \n'-----------------------------------------------------------------------\n'---------> Script is called from KrigingOK.Click if an Ordinary <------\n'---------> Kriging method was chosen <---------------------------------\n\n '--> Create a layout to display semivar iogram, use Landscape template,\n '--> set properties of the layout \n theLayout = Layout.Make\n theTemplates = TemplateMgr.GetTemplates\n for each tmplate in theTemplates\n if (tmplate.GetName = \"Landscape\") then\n theLayout.UseTemplate(tmplate)\n break\n end\n end\n theLayout.GetGraphics.Empty\n\n theLayout.SetName(\"Semivariogram:\"+ _thePointTheme.GetName+\"(\"+_theZValue.AsString+\")\")\n \n '--> Get display and margins of layout for later use\n thePageDisp = theLayout.Get Display\n theMarginRect = thePageDisp.ReturnMarginExtent\n theMarginOrigin = theMarginRect.ReturnOrigin\n theMarginWidth = theMarginRect.GetWidth\n theMarginHeight = theMarginRect.GetHeight\n \n '--> Create rectangle for semivariogram\n theOrigin = Point.Make(theMarginOrigin.GetX + 3, theMarginOrigin.GetY + 1)\n theSize = Point.Make(6,6) \n theExt = Rect.Make(theOrigin, theSize)\n \n '--> Add rectangle to layout\n theGList = theLayout.GetGraphics\n theGrapRect = GraphicShape.Make(theExt) \n theGList.Add(theGrapRect)\n \n'---------------------------------------------------------------------------------\n'.................................................................................\n'--------------------------------------------------------------------------------- \n thePenList = av.GetSymbolWin.GetPalette.GetList(#PALETTE_LIST_PEN)\n \n '-->Make Rect For Graph\n theGList = theLayout.GetGraphics\n theExt = Rect.Make(theOrigin, theSize) \n theGrapRect = GraphicShape.Make(theExt)\n theGList.Add(theGrapRect)\n \n 'Get bounds and size of rectangle / graph for later use \n theExtMinX = theExt.GetLeft\n theExtMinY = theExt.GetBottom\n theExtMaxX = theExt.GetRight\n theExtMaxY = theExt.GetTop\n theExtOrigin = theExt.ReturnOrigin\n theExtHeight = theExt.GetHeight\n theExtWidth = theExt.GetWidth\n sp = Point.Make(theExt.GetLeft + 2, theExt.GetTop + 0.25)\n disTextPnt = Point.Make(theExt.GetLeft + 3, theExt.GetBottom -0 .85)\n svTextPnt = Point.Make(theExt.GetLeft - 3, theExt.GetTop - 3)\n \n '--> Make Text (Title, \"Distance\", \"Semi-Variance\")\n theTitle = _theModelName\n theGTitle = GraphicText.Make(theTitle, sp)\n theGTitle.GetSymbol.GetFont.SetStyle(\"Bold\")\n theGTitle.GetSymbol.SetSize(40)\n theGList.Add(theGTitle)\n \n theDistText = \"Distance\"\n theGDistTxt = GraphicText.Make(theDistText, disTextPnt)\n theGDistTxt.GetSymbol.GetFont.SetStyle(\"Bold\")\n theGDistTxt.GetSymbol .SetSize(28)\n theGList.Add(theGDistTxt)\n \n theSVText = \"Semi\"+NL+\"Variance\"\n theGSVTxt = GraphicText.Make(theSVText, svTextPnt)\n theGSVTxt.GetSymbol.GetFont.SetStyle(\"Bold\")\n theGSVTxt.GetSymbol.SetSize(28)\n theGList.Add(theGSVTxt)\n \n '--> Get 'ACTUAL' values from SVGram VTab\n theSVtab = _theSVGram.GetVTab\n theBitMap = theSVtab.GetSelection\n theTypeF = theSVtab.FindField(\"Type\")\n theDistanceF = theSVtab.FindField(\"Distance\")\n theSemiVarF = t heSVtab.FindField(\"Semivariance\")\n \n'-----------------------------------------------------------------------------------------\n '--> Select only the ACTUAL records\n theQuery = \"([Type] = \" + 34.AsChar + \"ACTUAL\" + 34.AsChar + \")\"\n theSVtab.Query (theQuery, theBitMap, #VTAB_SELTYPE_NEW)\n theSVtab.UpdateSelection\n\n 'Initialise lists for storing distances and semivariances\n theADXList = {}\n theAZList = {}\n theFDXList = {}\n theFZList = {}\n \n 'Add zero to t he actual list because these are not part of the semivariogram file\n theADXList.Add(0)\n theAZList.Add(0)\n \n '--> Loop through selected (actual) records, add dist and semi-v values for each \n '--> record to their respective list\n for each rec in theBitMap\n theActDistX = theSVtab.ReturnValue(theDistanceF, rec)\n theActualZ = theSVtab.ReturnValue(theSemiVarF, rec)\n theADXList.Add(theActDistX)\n theAZList.Add(theActualZ)\n theAZList.SetName(\"ActualZ\")\n end \n \n '--> Select only the FITTED records\n theQuery = \"([Type] = \" + 34.AsChar + \"FITTED\" + 34.AsChar + \")\"\n theSVtab.Query (theQuery, theBitMap, #VTAB_SELTYPE_NEW)\n theSVtab.UpdateSelection\n \n '--> Loop through selected (fitted) records, add dist and semi-v values for each \n '--> record to their respective list \n for each rec in theBitMap\n theFitDistX = theSVtab.ReturnValue(theDistanceF, rec)\n theFittedZ = theSVtab.ReturnValue(theSemiVarF, re c)\n theFDXList.Add(theFitDistX)\n theFZList.Add(theFittedZ)\n theFZList.SetName(\"FittedZ\")\n end\n \n '--> Lists of Lists :(\n theDistances = {theADXList, theFDXList}\n theZvalues = {theAZList, theFZList}\n \n theStoreList = {} 'a list of lists of Z-values\n \n firstZ = true\n \n '--> Sort the actual and the fitted semi-v lists, grab the min and max of each,\n '--> then compare to find the overall min and max for graph extent\n for each theZV als in theZvalues\n tmpList = theZvals.Clone\n tmpList.Sort(true)\n if (firstZ) then\n minZ = tmpList.Get(0) '--> lowest ACTUAL sv value\n maxZ = tmpList.Get(tmpList.Count - 1) '--> highest ACTUAL sv value\n firstZ = false\n else\n tmpMin = tmpList.Get(0) '--> lowest FITTED sv value\n tmpmax = tmpList.Get(tmpList.Count - 1) '--> highest FITTED sv value\n minZ = tmpMin Min minZ '--> Min is request, find the lowest overall sv value\n maxZ = tmpMax Max maxZ '--> Max is request, find the highest overall sv value\n end\n \n '--> Add the sorted lists to a list {ActualSV, FittedSV}\n theStoreList.Add(theZvals)\n end\n \n csListLine = {}\n \n 'Create actual and fitted graph - lines\n for each theZvals in theStoreList \n \n ' initilize the xz point coordinate list\n xzListLine = {}\n \n ' create a line to represent the trend in the variance\n xzListLine.Add(theExtO rigin)\n \n '--> First process ACTUAL distances, then FITTED\n if (theZvals.GetName = \"ActualZ\")'--> then theZvals = {ActualSV}\n then\n theDist = theDistances.Get(0) '--> theDistances = {ActualDist, FittedDist} <-lists\n else\n theDist = theDistances.Get(1)\n end\n \n for each index in 0..(theZvals.Count - 1) '--> for each item in current list\n x = theExtMinX + ((theDist.Get(index) / theDist.Get(theDist.Count - 1)) * theExtWidth)\n z = theZvals.Get(index)\n '--> Make a point with distance and SV, add it to list\n xzListLine.Add(Point.Make(x,z))\n end\n \n 'Set Name by using name of zvals object\n xzListLine.SetName(theZvals.GetName)\n \n ' add this x-z data to the semivariogram list --> 2 lists in csListLine? (act, fitt?)\n csListLine.Add(xzListLine)\n end\n \n ' determine the scale factor for drawing the z values as y coordinates\n theZRange = maxZ - minZ\n sf = theExtHeight / theZRange\n \n ' create each of the semivariogram - graphics\n csNum = 0\n for each cs in csListLine\n theGList.UnSelectAll\n \n ' scale the z values to fit into the semivariogram\n pntList = {}\n pntList.Add(cs.Get(0)) '--> first value in each list is coord point (0,0)\n zVal = cs.Get(1).GetY '--> items in list are points, GetY\n for each pnt in 1..(cs.Count-1)\n x = cs.Get(pnt).GetX\n z = cs.Get(pnt).GetY\n y = theExtMinY + ((z - minZ) * sf)\n zVal = z Max zVal\n pntList.Add(Point.Make(x, y))\n end\n theSemivar = PolyLine.Make({pntList})\n theGSemivar = GraphicShape.Make(theSemivar)\n if (cs.GetName = \"ActualZ\")\n then\n theGSemivar.GetSymbol.SetColor(Color.GetRed)\n end\n theGSemivar.GetSymbol.SetSize(0.5)\n theGList.Add(theGSemivar)\n csNum = csNum + 1\n end\n \n ' add a scale for the z values to the left hand si de of the semivariogram\n theGList.UnSelectAll\n theYstep = theZRange / 5\n x0 = theExtMinX - 0.07\n x1 = theExtMinX\n textX = theExtMinX - 0.8\n for each y in 0..5\n theZval = minZ + (y * theYstep) \n \n ' create the tick mark\n y1 = theExtMinY + ((y * theYstep) * sf)\n theLine = Line.Make(Point.Make(x0, y1), Point.Make(x1, y1))\n theGLine = GraphicShape.Make(theLine)\n theGLine.SetSelected(true)\n theGList.Add(theGLine)\n \n ' create the label\n if (theZRange <= 10)\n then\n theText = theZval.SetFormat(\"d.dd\").AsString\n elseif (theZRange <= 50)\n then\n theText = theZval.SetFormat(\"d.d\").AsString\n else\n theText = theZval.SetFormat(\"dd\").AsString\n end\n \n theGText = GraphicText.Make(theText, Point.Make(textX-0.35, (y1 - 0.02)))\n theGText.GetSymbol.SetSize(24)\n theGText.SetSelected(true)\n theGList.Add(theGText)\n \n ' add light gray lines across the cross-section as elevation reference\n if (y <> 0) then\n zRefLine = Line.Make(theExtMinX@y1, theExtMaxX@y1)\n zRefGLine = GraphicShape.Make(zRefLine)\n zRefGLine.SetSymbol(thePenList.Get(1).Clone)\n zRefGLine.GetSymbol.SetColor(Color.GetGray)\n zRefGLine.GetSymbol.SetSize(0.5)\n zRefGLine.SetSelected(true)\n theGList.Add(zRefGLine)\n end\n \n end\n \n ' add a scale for the x values a t the underside of the cross-section\n thePlinelength = theFDXList.Get(theFDXList.Count - 1) - theFDXList.Get(0)\n theGList.UnSelectAll\n theFac = (theExtMaxX - theExtMinX)/(theExtMaxY - theExtMinY)\n \n if (theFac >= 2) \n then\n theStep = 10 \n else\n theStep = 5\n end\n \n theXstep = (theExtMaxX - theExtMinX) / theStep\n theXsf = thePlineLength / (theExtMaxX - theExtMinX)\n y0 = theExtMinY\n y1 = theExtMinY - 0.07\n \n for each x in 0..theStep\n theXval = x * theXstep * theXsf \n ' create the tick mark\n x = theExtMinX + (x * theXstep)\n theLine = Line.Make(Point.Make(x, y0), Point.Make(x, y1))\n theGLine = GraphicShape.Make(theLine)\n theGLine.SetSelected(true)\n theGList.Add(theGLine)\n \n ' create the label\n if (thePlineLength <= 10)\n then\n theText = theXval.SetFormat(\"d.dd\").AsString\n elseif (thePlineLength <= 50)\n then\n theText = theXval.SetFormat(\"d.d\").AsString\n else\n theText = theXval.SetFormat(\"dd\").AsString\n end\n theGText = GraphicText.Make(theText, Point.Make(x, (y0 - 0.4)))\n theGText.GetSymbol.SetSize(24)\n theGText.SetSelected(true)\n theGList.Add(theGText)\n end\n \n ' group the tick marks and their labels\n theGlist.GroupSelected\n \n 'Deselect all records\n theBitMap.ClearAll\n theSVtab.UpdateSelection\n \n 'Unselect all gra phic objects on layout\n theGlist.UnSelectAll\n \n theLayoutWin = theLayout.GetWin\n theLODisplay = theLayout.GetDisplay\n theLODisplay.Flush\n theLODisplay.SetGridVisible(false)\n theLODisplay.SetMarginVisible(false)\n theZoomExtent = Rect.Make((theOrigin.GetX-0.75)@(theOrigin.GetY-1),\n (theSize.GetX+1.5)@(theSize.GetY+2))\n theLayoutWin.Open\n theLODisplay.ZoomToRect(theZoomExtent)\n\n Return NIL \n \n " ) (Script.691 Name: "MakeIDW.OK.Click" SourceCode: "' Creator: Thad Tilton\n' Date: Thu Jul 16 13:37:34 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'\n'MakeIDW.OK.Click\n' ================================================== \n'--> Dialog Opens After IDW is Chosen from Main Dialog\n\n theDialog = SELF.GetDialog\n \n'----------------------------------------------------------\n'--------> Reference Controls <----------------------------\n'------------------------------------------------------- ---\n\n'-- Radio Buttons\n theMakeFixedRB = theDialog.FindByName(\"rbtMakeFixed\")\n theMakeVariableRB = theDialog.FindByName(\"rbtMakeVariable\")\n \n'-- Combo Boxes\n theExtentCombo = theDialog.FindByName(\"cbxGridExtent\")\n theCellSizeCombo = theDialog.FindByName(\"cbxCellSize\")\n theBarrierCombo = theDialog.FindByName(\"cbxBarrier\")\n \n'-- Text Boxes\n theCellSizeTextBox = theDialog.FindByName(\"txtCellSize\")\n theRadiusTextBox = theDialog.FindByName(\"txtRadius\")\n theSampleTB = theDialog.FindByName(\"txtSamplePoin ts\")\n \n'----------------------------------------------------------\n'--> Gather Needed Info for Interp <-----------------------\n'----------------------------------------------------------\n\n thePointFTab = _thePointTheme.GetFTab\n thePointThemeName = _thePointTheme.GetName\n theSurfaceGridName = thePointThemeName+\"(\"+_theZValue.AsString+\") IDW\"\n \n theExtentObj = theExtentCombo.GetCurrentValue\n if (theExtentObj.Is(Theme)) then\n theExtent = theExtentObj.ReturnExtent\n elseif (theExtentObj = \"All Themes in View\") then\n theExtent = _theView.ReturnExtent\n elseif (theExtentObj = \"Current View Display\") then\n theExtent = _theView.GetDisplay.ReturnExtent\n end '--> Extent\n \n theCellSizeChoice = theCellSizeCombo.GetCurrentValue\n if (theCellSizeChoice.Is(Theme).NOT) then '-->User Defined Cell Size\n theCellSizeTextBox = theDialog.FindByName(\"txtCellSize\")\n theCellSizeText = theCellSizeTextBox.GetText\n '--- check for valid cell size ---\n if ((theCellSizeText = nil) or (theCellSizeText. IsNumber.not)) then\n MsgBox.Warning(\"Non-Numeric Value Entered for Grid Cell Size!\", \"Error\")\n Return NIL\n end\n theCellSize = theCellSizeText.AsNumber \n else\n theCellSize = theCellSizeChoice.GetGrid.GetCellSize\n end '--> Cell Size\n \n theGridSize = {theCellSize, theExtent}\n theProjection = _theView.GetProjection\n theBarrierCombo = theDialog.FindByName(\"cbxBarrier\") \n theBarrierValue = theBarrierCombo.GetCurrentValue\n '-- check for barrier theme, otherwise use nil --\n if (theBarrierValue <> \"\") then\n theBarrierFTab = theBarrierValue.GetFTab\n else\n theBarrierFTab = nil\n end\n \n theRadiusText = theRadiusTextBox.GetText\n if ((theRadiusText = nil) or (theRadiusText.IsNumber).NOT) then\n MsgBox.Warning(\"Non-Numeric Value Entered for Radius!\", \"Error\")\n Return NIL \n end\n theRadiusNum = theRadiusText.AsNumber\n \n theSampleText = theSampleTB.GetText\n if ((theSampleText = nil) or (theSampleText.IsNumber).NOT) then\n MsgBox.Warni ng(\"Non-Numeric Value Entered for Number\"+NL+\"of Sample Points!\", \"Error\")\n Return NIL \n end\n theSampleNum = theSampleText.AsNumber\n\n if (theMakeFixedRB.IsSelected) then\n theRadius = Radius.MakeFixed(theRadiusNum, nil)'theSampleNum)\n else '--> (theMakeVariableRB.IsSelected) \n theRadius = Radius.MakeVariable(theSampleNum, nil)'theRadiusNum)\n end\n \n thePowerCombo = theDialog.FindByName(\"cbxPower\")\n thePower = thePowerCombo.GetCurrentValue\n\n'------------- INTERPOLATE SURFACE (IDW) -------- -----------------------\n\ntheInterp = Interp.MakeIDW(thePower,theRadius,theBarrierFTab)\ntheSurface = Grid.MakeByInterpolation (thePointFTab, theProjection, _theZValue, \n theInterp, theGridSize)\n\n'------------- MAKE GTheme - ADD TO VIEW ----------------------------------\n theGTheme = GTheme.Make(theSurface)\n theGTheme.SetName(theSurfaceGridName)\n _theView.AddTheme(theGTheme)\n \n'------------- CLOSE DIALOG -----------------\ntheDialog.FindByName(\"lbtClose\").Click\n" ) (Script.692 Name: "MakeIDW.Ok.Update" SourceCode: "' Creator: Thad Tilton\n' Date: Thu Jul 16 14:09:40 1998\n'\n' Organization: ESRI\n' Project: Avenue Study\n' Revisions: \n'\n'MakeIDW.Ok.Update\n'\n' ================================================== \ntheDialog = SELF.GetDialog\nSELF.SetEnabled(false)\n\ntheCellSizeBox = theDialog.FindByName(\"txtCellSize\")\ntheRadiusTextBox = theDialog.FindByName(\"txtRadius\")\ntheCellSizeCombo = theDialog.FindByName(\"cbxCellSize\")\ntheExtentCombo = theDialog.FindByName(\"cbxGridExten t\")\ntheSampleTB = theDialog.FindByName(\"txtSamplePoints\")\n\ntheCellSizeRow = theCellSizeCombo.GetCurrentRow\ntheCellSize = theCellSizeCombo.GetCurrentValue\ntheCellSizeText = theCellSizeBox.GetText\ntheRadius = theRadiusTextBox.GetText\ntheExtent = theExtentCombo.GetCurrentValue\n\nif (((theCellSizeRow > 1)) OR ((theCellSizeBox.IsEmpty).NOT)) then\n if ((theRadiusTextBox.IsEmpty).NOT) then\n if ((theExtent = \"\").NOT) then\n if ((theSampleTB.IsEmpty).NOT) then\n SELF.SetEnab