/3.1
(Extension.1
	Name:	"Image Georeferencing Tools"
	Dependencies:	"$AVBIN/avdlog.dll\n"
	FirstRootClassName:	"AVDLog"
	Roots:	2
	Roots:	43
	Roots:	166
	Roots:	168
	Roots:	170
	Roots:	172
	Roots:	174
	Roots:	178
	Roots:	179
	Roots:	180
	Roots:	181
	Roots:	182
	Roots:	183
	Roots:	184
	Roots:	185
	Roots:	186
	Roots:	187
	Roots:	188
	Roots:	189
	Roots:	190
	Roots:	191
	Roots:	192
	Roots:	193
	Roots:	194
	Roots:	195
	Roots:	196
	Roots:	197
	Roots:	198
	Roots:	199
	Roots:	200
	Roots:	201
	Roots:	202
	Roots:	203
	Roots:	204
	Roots:	205
	Roots:	206
	Roots:	207
	Roots:	208
	Roots:	209
	Roots:	210
	Roots:	211
	Roots:	212
	Roots:	213
	Roots:	214
	Version:	31
	About:	"Image Georeferencing Tools (v1)"
	CanUnloadScript:	215
	UnloadScript:	216
	InstallScript:	217
	UninstallScript:	218
	ExtVersion:	1
)

(AVDLog.2
	Name:	"Dialog1"
	X:	213
	Y:	360
	W:	410
	H:	391
	ConstrainedControlNames:	3
	ConstrainedControlNames:	4
	Constraints:	5
	Constraints:	6
	Server:	7
	ControlPanel:	8
	Title:	"Create Image Georeferncing Information - Martin2.tif"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Activate:	"ImageGeoRef.StartNewHeaderFile"
	Open:	"ImageGeoRef.StartNewHeaderFile"
	DefaultButton:	42
)

(AVStr.3
	S:	"Saveit"
)

(AVStr.4
	S:	"aLabelButton5"
)

(Numb.5
	N:	85.00000000000000
)

(Numb.6
	N:	85.00000000000000
)

(Nil.7
)

(CPanel.8
	Child:	9
	Child:	13
	Child:	14
	Child:	15
	Child:	16
	Child:	17
	Child:	18
	Child:	19
	Child:	20
	Child:	21
	Child:	22
	Child:	23
	Child:	24
	Child:	25
	Child:	26
	ResBox:	27
	ResBox:	28
	ResBox:	29
	ResBox:	30
	ResBox:	31
	ResBox:	32
	ResBox:	33
	ResBox:	34
	ResBox:	35
	ResBox:	36
	ResBox:	37
	ResBox:	38
	ResBox:	39
	ResBox:	40
	ResBox:	41
	Listening:	1
)

(AVLBox.9
	InternalName:	"ChoicesList"
	NextControl:	7
	ContentKind:	4
	Value:	10
	Value:	11
	Constraints:	0x55
	ColumnCount:	1
	Listening:	1
	Select:	"ImageGeoRef.SelectFileType"
	SelectionStyle:	12
)

(AVStr.10
	S:	"World File"
)

(AVStr.11
	S:	"Header File"
)

(AVEnum.12
	Name:	"LISTBOX_SELECTION_SINGLECELL"
)

(TextLabel.13
	InternalName:	"aTextLabel7"
	Constraints:	0x55
	Label:	"Choose File Type :"
	Listening:	1
)

(TextBox.14
	InternalName:	"aTextBox9"
	Listening:	1
	ReadOnly:	1
	Text:	"Both world and header files are used by ArcView in georeferencing Image files.  Some image files, such as ERDAS, BSQ, BIL, BIP, GeoTIFF and grids contain information in header files.  Other image files use a world file for georeferencing.  Please see ArcView help under \"Georeferencing Images\" for addition information."
	Label:	"Please Note : "
	Constraints:	0x55
	NextControl:	7
)

(TextBox.15
	InternalName:	"TheFileStuff"
	Listening:	1
	Text:	"nrows \nncols \nnbands \nnbits \nbyteorder \nlayout \nskipbytes \nulxmap \nulymap \nxdim \nydim \nbandrowbytes \ntotalrowbytes \nbandgapbytes"
	Constraints:	0x55
	NextControl:	7
)

(TextLabel.16
	InternalName:	"FileBoxTop"
	Constraints:	0x55
	Label:	"Enter contents below, deleting unused keywords."
	Listening:	1
)

(TextLabel.17
	InternalName:	"xdim"
	Constraints:	0x55
	Listening:	1
)

(TextLabel.18
	InternalName:	"rotrow"
	Constraints:	0x55
	Listening:	1
)

(TextLabel.19
	InternalName:	"rotcol"
	Constraints:	0x55
	Listening:	1
)

(TextLabel.20
	InternalName:	"ydim"
	Constraints:	0x55
	Listening:	1
)

(TextLabel.21
	InternalName:	"xcor"
	Constraints:	0x55
	Listening:	1
)

(TextLabel.22
	InternalName:	"ycor"
	Constraints:	0x55
	Listening:	1
)

(LButn.23
	InternalName:	"Saveit"
	Label:	"Save"
	Click:	"ImageGeoRef.SaveNewInfo"
)

(TextLabel.24
	InternalName:	"Fname"
	Invisible:	1
	Constraints:	0x55
	Label:	"r:\\raber\\martin2.tif"
	Listening:	1
)

(LButn.25
	InternalName:	"aLabelButton5"
	Label:	"Close"
	Click:	"ImageGeoRef.CloseDialog"
)

(TextLabel.26
	InternalName:	"aTextLabel1"
	Constraints:	0x55
	Label:	"Warning!! Pressing Save will write over any current georeferencing information!"
	Listening:	1
)

(RectD.27
	Left:	38.00000000000000
	Top:	88.00000000000000
	Right:	134.00000000000000
	Bottom:	35.00000000000000
)

(RectD.28
	Left:	33.00000000000000
	Top:	46.00000000000000
	Right:	129.00000000000000
	Bottom:	18.00000000000000
)

(RectD.29
	Left:	147.00000000000000
	Top:	134.00000000000000
	Right:	388.00000000000000
	Bottom:	16.00000000000000
)

(RectD.30
	Left:	148.00000000000000
	Top:	366.00000000000000
	Right:	387.00000000000000
	Bottom:	153.00000000000000
)

(RectD.31
	Left:	148.00000000000000
	Top:	170.00000000000000
	Right:	385.00000000000000
	Bottom:	142.00000000000000
)

(RectD.32
	Left:	62.00000000000000
	Top:	175.00000000000000
	Right:	142.00000000000000
	Bottom:	159.00000000000000
)

(RectD.33
	Left:	49.00000000000000
	Top:	188.00000000000000
	Right:	146.00000000000000
	Bottom:	172.00000000000000
)

(RectD.34
	Left:	33.00000000000000
	Top:	201.00000000000000
	Right:	146.00000000000000
	Bottom:	185.00000000000000
)

(RectD.35
	Left:	10.00000000000000
	Top:	214.00000000000000
	Right:	143.00000000000000
	Bottom:	198.00000000000000
)

(RectD.36
	Left:	37.00000000000000
	Top:	227.00000000000000
	Right:	143.00000000000000
	Bottom:	211.00000000000000
)

(RectD.37
	Left:	37.00000000000000
	Top:	240.00000000000000
	Right:	143.00000000000000
	Bottom:	224.00000000000000
)

(RectD.38
	Left:	42.00000000000000
	Top:	361.00000000000000
	Right:	119.00000000000000
	Bottom:	333.00000000000000
)

(RectD.39
	Left:	14.00000000000000
	Top:	383.00000000000000
	Right:	383.00000000000000
	Bottom:	365.00000000000000
)

(RectD.40
	Left:	42.00000000000000
	Top:	325.00000000000000
	Right:	119.00000000000000
	Bottom:	297.00000000000000
)

(RectD.41
	Left:	18.00000000000000
	Top:	399.00000000000000
	Right:	395.00000000000000
	Bottom:	371.00000000000000
)

(Nil.42
)

(AVDLog.43
	Name:	"ImageShifter"
	X:	57
	Y:	52
	W:	336
	H:	192
	ConstrainedControlNames:	44
	ConstrainedControlNames:	45
	ConstrainedControlNames:	46
	ConstrainedControlNames:	47
	ConstrainedControlNames:	48
	ConstrainedControlNames:	49
	ConstrainedControlNames:	50
	ConstrainedControlNames:	51
	ConstrainedControlNames:	52
	ConstrainedControlNames:	53
	ConstrainedControlNames:	54
	ConstrainedControlNames:	55
	ConstrainedControlNames:	56
	ConstrainedControlNames:	57
	ConstrainedControlNames:	58
	ConstrainedControlNames:	59
	ConstrainedControlNames:	60
	ConstrainedControlNames:	61
	ConstrainedControlNames:	62
	Constraints:	63
	Constraints:	64
	Constraints:	65
	Constraints:	66
	Constraints:	67
	Constraints:	68
	Constraints:	69
	Constraints:	70
	Constraints:	71
	Constraints:	72
	Constraints:	73
	Constraints:	74
	Constraints:	75
	Constraints:	76
	Constraints:	77
	Constraints:	78
	Constraints:	79
	Constraints:	80
	Constraints:	81
	Server:	7
	ControlPanel:	82
	Title:	"Image Information For - Martin2.tif"
	EscapeEnabled:	1
	AlwaysOnTop:	1
	HasTitleBar:	1
	Closeable:	1
	Activate:	"ImageGeoRef.ChangeTheme"
	Open:	"ImageGeoRef.ChangeTheme"
	DefaultButton:	165
)

(AVStr.44
	S:	"GoSizeChange"
)

(AVStr.45
	S:	"aLabelButton17"
)

(AVStr.46
	S:	"ShiftImage"
)

(AVStr.47
	S:	"edFile"
)

(AVStr.48
	S:	"aLabelButton1"
)

(AVStr.49
	S:	"aLabelButton2"
)

(AVStr.50
	S:	"aLabelButton3"
)

(AVStr.51
	S:	"aLabelButton4"
)

(AVStr.52
	S:	"aLabelButton5"
)

(AVStr.53
	S:	"aLabelButton6"
)

(AVStr.54
	S:	"aLabelButton7"
)

(AVStr.55
	S:	"aLabelButton8"
)

(AVStr.56
	S:	"aLabelButton9"
)

(AVStr.57
	S:	"aLabelButton10"
)

(AVStr.58
	S:	"aLabelButton11"
)

(AVStr.59
	S:	"aLabelButton12"
)

(AVStr.60
	S:	"GoShift"
)

(AVStr.61
	S:	"GoCustomShift"
)

(AVStr.62
	S:	"ClearForm"
)

(Numb.63
	N:	85.00000000000000
)

(Numb.64
	N:	85.00000000000000
)

(Numb.65
	N:	85.00000000000000
)

(Numb.66
	N:	85.00000000000000
)

(Numb.67
	N:	85.00000000000000
)

(Numb.68
	N:	85.00000000000000
)

(Numb.69
	N:	85.00000000000000
)

(Numb.70
	N:	85.00000000000000
)

(Numb.71
	N:	85.00000000000000
)

(Numb.72
	N:	85.00000000000000
)

(Numb.73
	N:	85.00000000000000
)

(Numb.74
	N:	85.00000000000000
)

(Numb.75
	N:	85.00000000000000
)

(Numb.76
	N:	85.00000000000000
)

(Numb.77
	N:	85.00000000000000
)

(Numb.78
	N:	85.00000000000000
)

(Numb.79
	N:	85.00000000000000
)

(Numb.80
	N:	85.00000000000000
)

(Numb.81
	N:	85.00000000000000
)

(CPanel.82
	Child:	83
	Child:	110
	Child:	123
	Child:	150
	ResBox:	161
	ResBox:	162
	ResBox:	163
	ResBox:	164
	Listening:	1
)

(CPanel.83
	InternalName:	"aControlPanel5"
	Child:	84
	Child:	91
	Child:	98
	Child:	100
	Child:	102
	Child:	103
	Constraints:	0x55
	ResBox:	104
	ResBox:	105
	ResBox:	106
	ResBox:	107
	ResBox:	108
	ResBox:	109
	Label:	"Pixel Size Change"
	VisibleBorder:	1
	Listening:	1
)

(AVSlider.84
	InternalName:	"aSlider1"
	Constraints:	0x55
	NextControl:	7
	Listening:	1
	Horizontal:	1
	Value:	85
	Upper:	86
	Lower:	87
	ValueIncrement:	88
	MainIncrement:	89
	AuxIncrement:	90
	Drag:	"ImageGeoRef.Xdimshow"
)

(Numb.85
	InternalName:	"10000000.000000"
	N:	10000000.00000000000000
)

(Numb.86
	InternalName:	"20000000.000000"
	N:	20000000.00000000000000
)

(Numb.87
	InternalName:	"10.000000"
	N:	10.00000000000000
)

(Numb.88
	InternalName:	"0.000001"
	N:	0.00000100000000
)

(Numb.89
	InternalName:	"2000000.000000"
	N:	2000000.00000000000000
)

(Numb.90
	InternalName:	"0.000"
)

(AVSlider.91
	InternalName:	"aSlider2"
	Constraints:	0x55
	NextControl:	7
	Listening:	1
	Horizontal:	1
	Value:	92
	Upper:	93
	Lower:	94
	ValueIncrement:	95
	MainIncrement:	96
	AuxIncrement:	97
	Drag:	"ImageGeoRef.Xdimshow"
)

(Numb.92
	InternalName:	"10000000.000000"
	N:	10000000.00000000000000
)

(Numb.93
	InternalName:	"20000000.000000"
	N:	20000000.00000000000000
)

(Numb.94
	InternalName:	"10.000000"
	N:	10.00000000000000
)

(Numb.95
	InternalName:	"0.000001"
	N:	0.00000100000000
)

(Numb.96
	InternalName:	"2000000.000000"
	N:	2000000.00000000000000
)

(Numb.97
	InternalName:	"0.000"
)

(TextLine.98
	InternalName:	"xdims"
	Text:	"302.329"
	Label:	"x :"
	Constraints:	0x55
	Listening:	1
	TextType:	99
	NextControl:	7
)

(AVEnum.99
	Name:	"TEXTLINE_TYPE_ALL"
)

(TextLine.100
	InternalName:	"ydims"
	Text:	"-172.298"
	Label:	"y :"
	Constraints:	0x55
	Listening:	1
	TextType:	101
	NextControl:	7
)

(AVEnum.101
	Name:	"TEXTLINE_TYPE_ALL"
)

(LButn.102
	InternalName:	"GoSizeChange"
	Label:	"Go Size Change"
	Click:	"ImageGeoRef.UpdateSizeChange"
)

(AVCBox.103
	InternalName:	"Linksize"
	Listening:	1
	Label:	"Link Dimensions"
	Click:	"ImageGeoRef.LinkDimyesno"
	Constraints:	0x55
)

(RectD.104
	Left:	2.00000000000000
	Top:	40.00000000000000
	Right:	161.00000000000000
	Bottom:	12.00000000000000
)

(RectD.105
	Left:	2.00000000000000
	Top:	73.00000000000000
	Right:	160.00000000000000
	Bottom:	45.00000000000000
)

(RectD.106
	Left:	161.00000000000000
	Top:	38.00000000000000
	Right:	305.00000000000000
	Bottom:	18.00000000000000
)

(RectD.107
	Left:	161.00000000000000
	Top:	71.00000000000000
	Right:	305.00000000000000
	Bottom:	51.00000000000000
)

(RectD.108
	Left:	187.00000000000000
	Top:	115.00000000000000
	Right:	296.00000000000000
	Bottom:	82.00000000000000
)

(RectD.109
	Left:	40.00000000000000
	Top:	114.00000000000000
	Right:	151.00000000000000
	Bottom:	86.00000000000000
)

(CPanel.110
	InternalName:	"aControlPanel1"
	Child:	111
	Child:	112
	Child:	113
	Child:	114
	Child:	115
	Child:	116
	Constraints:	0x55
	ResBox:	117
	ResBox:	118
	ResBox:	119
	ResBox:	120
	ResBox:	121
	ResBox:	122
	VisibleBorder:	1
	Listening:	1
)

(LButn.111
	InternalName:	"aLabelButton17"
	Label:	"Close"
	Click:	"ImageGeoRef.CloseDialog"
)

(TextBox.112
	InternalName:	"FileTextBox"
	Listening:	1
	ReadOnly:	1
	Text:	"302.329\n0\n0\n-172.298\n343014.93096875033\n1035347.4148187507"
	Constraints:	0x55
	VerticalScroll:	1
	NextControl:	7
)

(TextLabel.113
	InternalName:	"Filelabel"
	Constraints:	0x55
	Label:	"r:\\raber\\martin2.tifw"
	Listening:	1
)

(TextLabel.114
	InternalName:	"FirstLab"
	Constraints:	0x55
	Label:	"World File :"
	Listening:	1
)

(LButn.115
	InternalName:	"ShiftImage"
	Label:	"Show Controls"
	Click:	"ImageGeoRef.ShowShiftControl"
)

(LButn.116
	InternalName:	"edFile"
	Label:	"Edit File"
	Click:	"ImageGeoRef.EditFile"
)

(RectD.117
	Left:	203.00000000000000
	Top:	153.00000000000000
	Right:	299.00000000000000
	Bottom:	125.00000000000000
)

(RectD.118
	Left:	11.00000000000000
	Top:	167.00000000000000
	Right:	188.00000000000000
	Bottom:	19.00000000000000
)

(RectD.119
	Left:	72.00000000000000
	Top:	35.00000000000000
	Right:	309.00000000000000
	Bottom:	7.00000000000000
)

(RectD.120
	Left:	7.00000000000000
	Top:	35.00000000000000
	Right:	103.00000000000000
	Bottom:	7.00000000000000
)

(RectD.121
	Left:	203.00000000000000
	Top:	68.00000000000000
	Right:	299.00000000000000
	Bottom:	40.00000000000000
)

(RectD.122
	Left:	202.00000000000000
	Top:	111.00000000000000
	Right:	298.00000000000000
	Bottom:	83.00000000000000
)

(CPanel.123
	InternalName:	"aControlPanel19"
	Child:	124
	Child:	125
	Child:	126
	Child:	127
	Child:	128
	Child:	129
	Child:	130
	Child:	131
	Child:	132
	Child:	133
	Child:	134
	Child:	135
	Child:	136
	Constraints:	0x55
	ResBox:	137
	ResBox:	138
	ResBox:	139
	ResBox:	140
	ResBox:	141
	ResBox:	142
	ResBox:	143
	ResBox:	144
	ResBox:	145
	ResBox:	146
	ResBox:	147
	ResBox:	148
	ResBox:	149
	Label:	"Control Shift"
	VisibleBorder:	1
	Listening:	1
)

(LButn.124
	InternalName:	"aLabelButton1"
	Label:	"+1"
	Click:	"ImageGeoRef.yplus1"
)

(LButn.125
	InternalName:	"aLabelButton2"
	Label:	"-1"
	Click:	"ImageGeoRef.yminus1"
)

(LButn.126
	InternalName:	"aLabelButton3"
	Label:	"+1"
	Click:	"ImageGeoRef.xplus1"
)

(LButn.127
	InternalName:	"aLabelButton4"
	Label:	"-1"
	Click:	"ImageGeoRef.xminus1"
)

(LButn.128
	InternalName:	"aLabelButton5"
	Label:	"+10"
	Click:	"ImageGeoRef.yplus10"
)

(LButn.129
	InternalName:	"aLabelButton6"
	Label:	"-10"
	Click:	"ImageGeoRef.yminus10"
)

(LButn.130
	InternalName:	"aLabelButton7"
	Label:	"+10"
	Click:	"ImageGeoRef.xplus10"
)

(LButn.131
	InternalName:	"aLabelButton8"
	Label:	"-10"
	Click:	"ImageGeoRef.xminus10"
)

(LButn.132
	InternalName:	"aLabelButton9"
	Label:	"+100"
	Click:	"ImageGeoRef.yplus100"
)

(LButn.133
	InternalName:	"aLabelButton10"
	Label:	"+100"
	Click:	"ImageGeoRef.xplus100"
)

(LButn.134
	InternalName:	"aLabelButton11"
	Label:	"-100"
	Click:	"ImageGeoRef.yminus100"
)

(LButn.135
	InternalName:	"aLabelButton12"
	Label:	"-100"
	Click:	"ImageGeoRef.xminus100"
)

(LButn.136
	InternalName:	"GoShift"
	Disabled:	1
	Label:	"Go!"
	Click:	"ImageGeoRef.UpdateIt"
)

(RectD.137
	Left:	144.00000000000000
	Top:	99.00000000000000
	Right:	175.00000000000000
	Bottom:	71.00000000000000
)

(RectD.138
	Left:	144.00000000000000
	Top:	156.00000000000000
	Right:	174.00000000000000
	Bottom:	128.00000000000000
)

(RectD.139
	Left:	175.00000000000000
	Top:	128.00000000000000
	Right:	205.00000000000000
	Bottom:	100.00000000000000
)

(RectD.140
	Left:	112.00000000000000
	Top:	128.00000000000000
	Right:	143.00000000000000
	Bottom:	100.00000000000000
)

(RectD.141
	Left:	144.00000000000000
	Top:	71.00000000000000
	Right:	175.00000000000000
	Bottom:	43.00000000000000
)

(RectD.142
	Left:	144.00000000000000
	Top:	184.00000000000000
	Right:	174.00000000000000
	Bottom:	156.00000000000000
)

(RectD.143
	Left:	205.00000000000000
	Top:	128.00000000000000
	Right:	235.00000000000000
	Bottom:	100.00000000000000
)

(RectD.144
	Left:	82.00000000000000
	Top:	128.00000000000000
	Right:	112.00000000000000
	Bottom:	100.00000000000000
)

(RectD.145
	Left:	144.00000000000000
	Top:	43.00000000000000
	Right:	175.00000000000000
	Bottom:	15.00000000000000
)

(RectD.146
	Left:	235.00000000000000
	Top:	128.00000000000000
	Right:	265.00000000000000
	Bottom:	100.00000000000000
)

(RectD.147
	Left:	144.00000000000000
	Top:	212.00000000000000
	Right:	174.00000000000000
	Bottom:	184.00000000000000
)

(RectD.148
	Left:	52.00000000000000
	Top:	128.00000000000000
	Right:	82.00000000000000
	Bottom:	100.00000000000000
)

(RectD.149
	Left:	143.00000000000000
	Top:	128.00000000000000
	Right:	175.00000000000000
	Bottom:	99.00000000000000
)

(CPanel.150
	InternalName:	"aControlPanel18"
	Child:	151
	Child:	153
	Child:	155
	Child:	156
	Constraints:	0x55
	ResBox:	157
	ResBox:	158
	ResBox:	159
	ResBox:	160
	Label:	"Custom Shift"
	VisibleBorder:	1
	Listening:	1
)

(TextLine.151
	InternalName:	"Xshift"
	Label:	"X Shift"
	Constraints:	0x55
	Listening:	1
	TextType:	152
	Changed:	"ImageGeoRef.XChange"
	NextControl:	7
)

(AVEnum.152
	Name:	"TEXTLINE_TYPE_ALL"
)

(TextLine.153
	InternalName:	"YShift"
	Label:	"Y Shift"
	Constraints:	0x55
	Listening:	1
	TextType:	154
	Changed:	"ImageGeoRef.YChange"
	NextControl:	7
)

(AVEnum.154
	Name:	"TEXTLINE_TYPE_ALL"
)

(LButn.155
	InternalName:	"GoCustomShift"
	Disabled:	1
	Label:	"Go Custom Shift"
	Click:	"ImageGeoRef.UpdateIt"
)

(LButn.156
	InternalName:	"ClearForm"
	Label:	"Clear Form"
	Click:	"ImageGeoRef.ClearXY"
)

(RectD.157
	Left:	10.00000000000000
	Top:	42.00000000000000
	Right:	154.00000000000000
	Bottom:	22.00000000000000
)

(RectD.158
	Left:	161.00000000000000
	Top:	42.00000000000000
	Right:	305.00000000000000
	Bottom:	22.00000000000000
)

(RectD.159
	Left:	176.00000000000000
	Top:	85.00000000000000
	Right:	272.00000000000000
	Bottom:	57.00000000000000
)

(RectD.160
	Left:	56.00000000000000
	Top:	85.00000000000000
	Right:	152.00000000000000
	Bottom:	57.00000000000000
)

(RectD.161
	Left:	11.00000000000000
	Top:	633.00000000000000
	Right:	326.00000000000000
	Bottom:	509.00000000000000
)

(RectD.162
	Left:	11.00000000000000
	Top:	184.00000000000000
	Right:	326.00000000000000
	Bottom:	7.00000000000000
)

(RectD.163
	Left:	12.00000000000000
	Top:	410.00000000000000
	Right:	326.00000000000000
	Bottom:	191.00000000000000
)

(RectD.164
	Left:	10.00000000000000
	Top:	507.00000000000000
	Right:	327.00000000000000
	Bottom:	412.00000000000000
)

(Nil.165
)

(Butn.166
	Help:	"Image Georeferencing Information//View and Update Image Georeferencing Information"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Icon:	167
	Click:	"ImageGeoRef.StartMainDialog"
)

(AVIcon.167
	Name:	"Graticule/Grid"
	Res:	"Icons.Graticule/Grid"

)

(Butn.168
	Help:	"Create Image Georeferencing Information// Creates Image Georeferencing Information by Creating a World or Header File"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Icon:	169
	Click:	"ImageGeoRef.OpenNewHeaderInfo"
)

(AVIcon.169
	Name:	"FrameText2"
	Res:	"Icons.FrameText2"

)

(Butn.170
	Help:	"Reload Image//Reloads Image"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Icon:	171
	Click:	"ImageGeoRef.HeaderReader"
)

(AVIcon.171
	Name:	"Execute"
	Res:	"Icons.Execute"

)

(Tool.172
	Help:	"Interactive Image Move//Moves an image by updating header or world file based on user line drawn."
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Icon:	173
	Cursor:	"Cursors.MoveAnyDir"
	Apply:	"ImageGeoRef.MoveImage"
)

(AVIcon.173
	Name:	"StyleRamp"
	Res:	"Icons.StyleRamp"

)

(PMenu.174
	Child:	175
	Child:	176
	Child:	177
	Label:	"&Image"
)

(Choice.175
	Help:	"View and Update Image Georeferencing Information"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Label:	"Image &Georeferencing Information"
	Click:	"ImageGeoRef.StartMainDialog"
	Shortcut:	"Keys.None"
)

(Choice.176
	Help:	"Creates Image Georeferencing Information by Creating a World or Header File"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Label:	"&Create Image Georeferencing Information"
	Click:	"ImageGeoRef.OpenNewHeaderInfo"
	Shortcut:	"Keys.None"
)

(Choice.177
	Help:	"Reloads Image"
	Update:	"ImageGeoRef.MoveInteractiveOK"
	Label:	"&Reload Image"
	Click:	"ImageGeoRef.HeaderReader"
	Shortcut:	"Keys.None"
)

(Choice.178
	Disabled:	1
	Help:	"Undo Image Georeference"
	Update:	"ImageGeoRef.CanUndoGeoRef"
	Label:	"Undo Image Georeference"
	Click:	"ImageGeoRef.UndoLastGeoRef"
	Shortcut:	"Keys.None"
)

(Choice.179
	Help:	"Redo Image Georeference"
	Update:	"ImageGeoRef.CanRedoGeoRef"
	Label:	"Redo Image Georeference"
	Click:	"ImageGeoRef.RedoLastUndoGeoRef"
	Shortcut:	"Keys.None"
)

(Script.180
	Name:	"ImageGeoRef.CanRedoGeoRef"
	SourceCode:	"if (_RedoStore.IsEmpty) then\nSelf.SetVisible(False)\nelse\n\ntheView = av.GetActiveDoc\n\nIf (theView.GetClass.GetClassName = \"View\") then\nnuminView = TheView.GetActiveThemes.Count\n\ncheck = theView.GetActiveThemes.Count\n\nif (check = 1) then\n\ncurrentT = theView.GetActiveThemes.Get(0)\nif ((currentT.GetClass.GetClassName = \"ITheme\") and (numinView = 1)) then\n\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nstrname = imagesrc.AsString\nlastfn = strname.Right(7)\nfirstfn = strname.Left(Strname.Count-7)
\nwheredot = lastfn.Indexof(\".\")\nif (wheredot = -1) then\nNewlastfn = strname\nelse\nnewlastfn = lastfn.Left(Wheredot)\nend\n\nUndothis = _RedoStore.Top\nll = Undothis.get(0)\nFname = Undothis.Get(1).AsString\n\nif (Fname.Contains(newLastfn)) then \nSelf.SetVisible(True)\nelse\nSelf.SetVisible(False)\nend\nelse\nSelf.SetVisible(False)\nend\nelse\nSelf.SetVisible(False)\nend\nelse\nSelf.SetVisible(False)\nend\n\n\nend"
)

(Script.181
	Name:	"ImageGeoRef.CanUndoGeoRef"
	SourceCode:	"if (_UndoStore.IsEmpty) then\nSelf.Setenabled(False)\nelse\n\ntheView = av.GetActiveDoc\n\nIf (theView.GetClass.GetClassName = \"View\") then\nnuminView = TheView.GetActiveThemes.Count\n\ncheck = theView.GetActiveThemes.Count\n\nif (check = 1) then\n\ncurrentT = theView.GetActiveThemes.Get(0)\nif ((currentT.GetClass.GetClassName = \"ITheme\") and (numinView = 1)) then\n\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nstrname = imagesrc.AsString\nlastfn = strname.Right(7)\nfirstfn = strname.Left(Strname.Count-7)
\nwheredot = lastfn.Indexof(\".\")\nif (wheredot = -1) then\nNewlastfn = strname\nelse\nnewlastfn = lastfn.Left(Wheredot)\nend\n\nUndothis = _UndoStore.Top\nll = Undothis.get(0)\nFname = Undothis.Get(1).AsString\n\nif (Fname.Contains(newLastfn)) then \nSelf.Setenabled(True)\nelse\nSelf.Setenabled(False)\nend\nelse\nSelf.Setenabled(False)\nend\nelse\nSelf.Setenabled(False)\nend\nelse\nSelf.Setenabled(False)\nend\n\n\nend"
)

(Script.182
	Name:	"ImageGeoRef.ChangeTheme"
	SourceCode:	"laber = self.FindbyName(\"FirstLab\")\nxc = self.Findbyname(\"XShift\")\nyc = self.Findbyname(\"YShift\")\nlab = self.FindbyName(\"FileLabel\")\n\nxslide = self.FindbyName(\"aSlider1\")\nyslide = self.FindbyName(\"aSlider2\")\nxdims = self.FindbyName(\"xdims\")\nydims = self.FindbyName(\"ydims\")\nlys = self.FindbyName(\"linksize\")\nshiftit = self.FindbyName(\"ShiftImage\")\nedfile = self.FindbyName(\"edfile\")\n\nTextB = Self.FindbyName(\"FileTextBox\")\nself.FindbyName(\"GoCustomShift\").Setenabled(False)\nself.FindbyName(\"GoShift\").Setenabled(
False)\n\n\nvgui = av.FindGUI( \"View\")\nav.GetProject.SetSelectedGUI (vgui)\nTheViewList = av.GetProject.GetSelectedDocs\nif (TheViewList.Count = 0) then self.close exit end \n\nTheView = TheViewList.Get(0)\n\nIf (theView.GetClass.GetClassName = \"View\") then \n\n'self.Resize(342,573)\n'self.Resize(342,217)\nxc = self.Findbyname(\"XShift\")\nyc = self.Findbyname(\"YShift\")\nlab = self.FindbyName(\"FileLabel\")\nTextB = Self.FindbyName(\"FileTextBox\")\nXc.setText(\"\")\nYc.SetText(\"\")\nTextB.SetText(\"\")\nself.FindbyName(\"GoShift\").Setena
bled(False)\n\ncheck = theView.GetActiveThemes.Count\n\nif (check = 1) then\n\ncurrentT = theView.GetActiveThemes.Get(0)\n\nif (currentT.GetClass.GetClassName = \"ITheme\") then\n\nshiftit.setenabled(True)\nedfile.setenabled(true)\n\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nstrname = imagesrc.AsString\nself.SetTitle(\"Image Information For - \" + CurrentT.Getname.AsString)\n\nlastfn = strname.Right(7)\nfirstfn = strname.Left(Strname.Count-7)\nwheredot = lastfn.Indexof(\".\")\nif (wheredot = -1) then\n msgbox.
error(\"Error Reading Header or World File\", \"\")\n self.close\n exit\n end\nnewlastfn = lastfn.Left(Wheredot+1)\nfirstlet = lastfn.Middle(Wheredot+1,1)\nlastlet = lastfn.Right(1)\n\nfilen1 = firstfn + newlastfn + \"hdr\"\nfilen2 = strname + \"w\"\nfilen3 = firstfn + newlastfn + \"wld\"\nfilen4 = firstfn + newlastfn + firstlet + lastlet + \"w\"\n\nhdrfile = LineFile.make(filen1.AsFileName, #FILE_PERM_READ)\nfiletype = 1\nif (hdrfile = nil) then\n  hdrfile = LineFile.make(filen4.AsFileName, #FILE_PERM_READ)\n  filetype = 4\n  end\n    i
f (hdrfile = nil) then\n    hdrfile = LineFile.make(filen3.AsFileName, #FILE_PERM_READ)\n    filetype = 3\n    end\n      if (hdrfile = nil) then\n      hdrfile = LineFile.make(filen2.AsFileName, #FILE_PERM_READ)\n      filetype = 2\n      end\n\nif (hdrfile = nil) then\n dothat = msgbox.yesno(\"There was an error reading the header or world file.\" + NL + \"              This may be because none exists.\" + NL +\"             Would you like to create one now?\",\"Missing or Bad File Information\", True)\n  if (dothat) then a
v.FindDialog(\"Dialog1\").open end\n self.close\n exit\n end\n\n\nlab.setLabel(hdrfile.GetFilename.GetFullName)\nif (filetype = 1) then laber.setLabel(\"Header File :\") \nelse laber.setLabel(\"World File :\") end \n\nTheFileContents = List.Make\nHdrFile.Read( TheFileContents, Hdrfile.GetSize )\n\nfor each i in 0..(Hdrfile.GetSize-1)\n  ThisLine = TheFileContents.Get(i) \n  if (i <> (Hdrfile.GetSize-1)) then TextB.InsertText(ThisLine + NL) \n  else TextB.InsertText(ThisLine) end\n  end\n  \n_FileAttribs.Remove (\"FileType\")\n_FileAtt
ribs.Remove (\"LineList\")\n\n_FileAttribs.Add (\"FileType\", filetype)\n_FileAttribs.Add (\"LineList\", TheFileContents)\n\nhdrfile.flush\nhdrfile.close\n\nedfile.SetLabel(\"Edit File\")\nTextB.SetReadOnly(True)\nif (self.ReturnExtent.getheight = 217) then shiftit.setLabel(\"Show Controls\") else shiftit.setLabel(\"Small View\") end\nxslide.setValue(10000000)\nyslide.setValue(10000000)\nyslide.setVisible(true)\nlys.setSelected(False)\n\nif (_FileAttribs.get(\"Filetype\") = 1) then\n  \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each cur
rentline in TheFileContents\n     if (currentline.left(4) = \"xdim\") then xpos = counter end \n     if (currentline.left(4) = \"ydim\") then ypos = counter end\n     counter = counter + 1\n     end\n \n  xsstr = TheFileContents.get(xpos)\n  xsnum = xsstr.BasicTrim(\"xdim\",\"\").trim\n\n  ysstr = TheFileContents.get(ypos)\n  ysnum = ysstr.BasicTrim(\"ydim\",\"\").trim\n  \n\nelse\n\n  xsnum = TheFileContents.get(0)\n\n\n  ysnum = TheFileContents.get(3)\n\nend\n\n\nxdims.setText(xsnum)\nydims.SetText(ysnum)\n\n\n    else\n      msgbox.Error(Curre
ntT.AsString ++ \"is not an image theme\", \"\")\n      xc.SetText(\"\")\n      yc.SetText(\"\")\n      lab.setlabel(\"Choose a Image Theme\")\n      laber.setLabel(\"\")\n      textB.SetText(\"\")\n      self.Resize(342,217)\n      self.SetTitle(\"Choose an Image Theme\")\n      shiftit.setenabled(False)\n      edfile.setenabled(False)\n      exit\nend\n\nelse\n  msgbox.error(\"No View Selected\", \"\")\n      xc.SetText(\"\")\n      yc.SetText(\"\")\n      lab.setlabel(\"Choose a Image Theme\")\n      laber.setLabel(\"\")\n      textB.SetText(\"\")\n    
  self.Resize(342,217)\n      self.SetTitle(\"Choose an Image Theme\")\n      shiftit.setenabled(False)\n      edfile.setenabled(False)\n      exit\n  end\nend\n"
)

(Script.183
	Name:	"ImageGeoRef.ClearXY"
	SourceCode:	"xc = self.GetDialog.Findbyname(\"XShift\")\nyc = self.GetDialog.Findbyname(\"YShift\")\nXc.setText(\"\")\nYc.SetText(\"\")\nSelf.GetDialog.FindbyName(\"GoCustomShift\").Setenabled(False)\nSelf.GetDialog.FindbyName(\"GoShift\").Setenabled(False)"
)

(Script.184
	Name:	"ImageGeoRef.CloseDialog"
	SourceCode:	"Self.GetDialog.Close"
)

(Script.185
	Name:	"ImageGeoRef.EditFile"
	SourceCode:	"dg = self.getdialog\ntextb = dg.findbyname(\"FileTextBox\")\n\nif (TextB.Isreadonly) then \n    self.SetLabel(\"Save File\")\n    TextB.SetReadOnly(False)\nelse\n    _RedoStore.Empty\n    theFile = dg.Findbyname(\"FileLabel\").getLabel\n    hdrfile = LineFile.make(TheFile.ASFilename, #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    _UndoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n    \n    hdrfile = Te
xtFile.make(TheFile.AsFileName, #FILE_PERM_WRITE)   \n    hdrfile.Write(textb.getText,TextB.GetText.Count)\n    hdrfile.flush\n    hdrfile.close\n    Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n    TextB.SetReadOnly(True)\n    self.SetLabel(\"Edit File\")\n    \n    hdrfile = LineFile.make(TheFile.ASFilename, #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    hdrfile.flush\n    hdrfile.close\n\n_FileAttribs.Remove (\"LineList\")\n_FileAttribs.Add (\"LineList\", TheFileConten
ts)\n\n \n    end\n"
)

(Script.186
	Name:	"ImageGeoRef.HeaderReader"
	SourceCode:	"vgui = av.FindGUI( \"View\")\nav.GetProject.SetSelectedGUI (vgui)\nTheViewList = av.GetProject.GetSelectedDocs\nTheView = TheViewList.Get(0)\n\ncurrentT = theView.GetActiveThemes.Get(0)\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nA = CurrentT.IsVisible\nThemelist = theView.GetThemes\ni = 1\nfor each thm in Themelist\nif (currentT = thm) then \n  found = i\n  Tname = thm.getname\n  break\n  end\n  i = i + 1  \nend\n\n\nTheView.DeleteTheme (CurrentT)\n\nimsrc = SrcName.Make(imagesrc)\nnewsrc = Imgsrc.Make(imsrc
)\nNewTheme = ITheme.Make(newsrc)\nTheView.AddTheme(newtheme)\nNewTheme.SetVisible(A)\nNewTheme.SetActive(True)\nNewTheme.SetName(Tname)\ntheView.getThemes.Shuffle (Newtheme, found)\nTheView.Invalidate\nTheView.InvalidateTOC (nil)\n\n"
)

(Script.187
	Name:	"ImageGeoRef.LinkDimyesno"
	SourceCode:	"yslider = self.Getdialog.Findbyname(\"aslider2\")\nxslider = self.Getdialog.Findbyname(\"aslider1\")\n\nxdims = self.Getdialog.Findbyname(\"xdims\")\nydims = self.Getdialog.Findbyname(\"ydims\")\n\nll = _FileAttribs.get(\"LineList\")\n\n\nif (self.isSelected) then\n  yslider.setVisible(false)\n  \n  if (_FileAttribs.get(\"Filetype\") = 1) then\n  \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each currentline in ll\n     if (currentline.left(4) = \"xdim\") then xpos = counter end \n     if (currentline.left(4) = \"ydim\") then ypos = count
er end\n     counter = counter + 1\n     end\n \n  xsstr = ll.get(xpos)\n  xsnum = xsstr.BasicTrim(\"xdim\",\"\").trim\n  xrnum = xsnum.AsNumber\n\n  ysstr = ll.get(ypos)\n  ysnum = ysstr.BasicTrim(\"ydim\",\"\").trim\n  yrnum = ysnum.AsNumber\n  \n  else\n\n  xsstr = ll.get(0)\n  xrnum = xsstr.AsNumber\n\n  ysstr = ll.get(3)\n  yrnum = ysstr.AsNumber\n\n end\n  \n \n  \n  ydims.setText((((xslider.GetValue) * 0.0000001) * yrnum).Asstring)\n  else\n  yslider.SetVisible(true)\n  end"
)

(Script.188
	Name:	"ImageGeoRef.MoveImage"
	SourceCode:	"TheView = av.GetActiveDoc\n\ncurrentT = theView.GetActiveThemes.Get(0)\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nstrname = imagesrc.AsString\n\nlastfn = strname.Right(7)\nfirstfn = strname.Left(Strname.Count-7)\nwheredot = lastfn.Indexof(\".\")\nif (wheredot = -1) then\n msgbox.error(\"Error Reading Header or World File\", \"\")\n self.close\n exit\n end\nnewlastfn = lastfn.Left(Wheredot+1)\nfirstlet = lastfn.Middle(Wheredot+1,1)\nlastlet = lastfn.Right(1)\n\nfilen1 = firstfn + newlastfn + \"hdr\"\nfilen2 = s
trname + \"w\"\nfilen3 = firstfn + newlastfn + \"wld\"\nfilen4 = firstfn + newlastfn + firstlet + lastlet + \"w\"\n\nhdrfile = LineFile.make(filen1.AsFileName, #FILE_PERM_READ) \nfiletype = 1\nif (hdrfile = nil) then\n  hdrfile = LineFile.make(filen4.AsFileName, #FILE_PERM_READ)\n  filetype = 4\n  end\n    if (hdrfile = nil) then\n    hdrfile = LineFile.make(filen3.AsFileName, #FILE_PERM_READ)\n    filetype = 3\n    end\n      if (hdrfile = nil) then\n      hdrfile = LineFile.make(filen2.AsFileName, #FILE_PERM_READ)\n      filet
ype = 2\n      end\n\nif (hdrfile = nil) then\n dothat = msgbox.yesno(\"There was an error reading the header or world file.\" + NL + \"              This may be because none exists.\" + NL +\"             Would you like to create one now?\",\"Missing or Bad File Information\", True)\n  if (dothat) then av.FindDialog(\"Dialog1\").open end\n exit\n end\n\n\nTheFileContents = List.Make\nHdrFile.Read( TheFileContents, Hdrfile.GetSize )\n\n_FileAttribs.Remove (\"FileType\")\n_FileAttribs.Remove (\"LineList\")\n_FileAttribs.Add (\"FileType\",
 filetype)\n_FileAttribs.Add (\"LineList\", TheFileContents)\n\nhdrfile.flush\nhdrfile.close\n\nTheLine = Line.MakeNull\nTheLine = TheView.ReturnUserLine\n\nif (TheLine.Returnend.AssTring <> \"Point: Null\") then\n\nll = _FileAttribs.get(\"LineList\")\nif (_FileAttribs.get(\"Filetype\") = 1) then\n  \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each currentline in ll\n     if (currentline.left(6) = \"ulxmap\") then xpos = counter end \n     if (currentline.left(6) = \"ulymap\") then ypos = counter end\n     counter = counter + 1\n     e
nd\n \n  xsstr = ll.get(xpos)\n  xsnum = xsstr.BasicTrim(\"ulxmap\",\"\").trim\n  xrnum = xsnum.AsNumber\n\n  ysstr = ll.get(ypos)\n  ysnum = ysstr.BasicTrim(\"ulymap\",\"\").trim\n  yrnum = ysnum.AsNumber\n\n  xrnum = xrnum + ((Theline.Returnend.GetX)-(Theline.Returnstart.GetX))\n  xnew = xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (xrnum < 0) then xnew = \"-\" + xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(xpos, \"ulxmap\" ++ xnew.BasicTri
m(\"\",\".\")) \n  \n  \n  yrnum = yrnum + ((Theline.Returnend.Gety)-(Theline.Returnstart.Gety))     \n  ynew = yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (yrnum < 0) then ynew = \"-\" + yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(ypos, \"ulymap\" ++ ynew.BasicTrim(\"\",\".\"))  \n\nelse\n\n  xsstr = ll.get(4)\n  xrnum = xsstr.AsNumber\n\n  ysstr = ll.get(5)\n  yrnum = ysstr.AsNumber\n\n  xrnum = xrnum + ((Theline.Returnend.GetX)-(Theline.Ret
urnstart.GetX))\n  xnew = xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (xrnum < 0) then xnew = \"-\" + xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(4, xnew.BasicTrim(\"\",\".\")) \n  \n  yrnum = yrnum + ((Theline.Returnend.Gety)-(Theline.Returnstart.Gety))       \n  ynew = yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (yrnum < 0) then ynew = \"-\" + yrnum.SetFormat( \"dddddddddddddd.ddddddddddd
ddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(5, ynew.BasicTrim(\"\",\".\"))  \n\nend\n\n\nif (filetype = 1) then hdrfile = LineFile.make(filen1.AsFileName, #FILE_PERM_READ) end\nif (filetype = 4) then hdrfile = LineFile.make(filen4.AsFileName, #FILE_PERM_READ) end\nif (filetype = 3) then hdrfile = LineFile.make(filen3.AsFileName, #FILE_PERM_READ) end\nif (filetype = 2) then hdrfile = LineFile.make(filen2.AsFileName, #FILE_PERM_READ) end \n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.Ge
tSize )\n    _UndoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n    \nif (filetype = 1) then hdrfile = LineFile.make(filen1.AsFileName, #FILE_PERM_WRITE) end\nif (filetype = 4) then hdrfile = LineFile.make(filen4.AsFileName, #FILE_PERM_WRITE) end\nif (filetype = 3) then hdrfile = LineFile.make(filen3.AsFileName, #FILE_PERM_WRITE) end\nif (filetype = 2) then hdrfile = LineFile.make(filen2.AsFileName, #FILE_PERM_WRITE) end   \n  for each i in 0..(ll.co
unt-1)\n  ThisLine = ll.Get(i) \n  hdrfile.writeElt(thisLine)\n  end\n  hdrfile.flush\n  hdrfile.close\n  \n   \n_FileAttribs.Remove (\"LineList\")\n_FileAttribs.Add (\"LineList\", ll)\n_RedoStore.Empty\n\n\n  Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n\nelse\nTheView.Invalidate\n\nend"
)

(Script.189
	Name:	"ImageGeoRef.MoveInteractiveOK"
	SourceCode:	"theView = av.GetActiveDoc\n\nIf (theView.GetClass.GetClassName = \"View\") then\nnuminView = TheView.GetActiveThemes.Count\n\ncheck = theView.GetActiveThemes.Count\n\nif (check = 1) then\n\ncurrentT = theView.GetActiveThemes.Get(0)\nif ((currentT.GetClass.GetClassName = \"ITheme\") and (numinView = 1)) then\nSelf.Setenabled(True)\nelse\nSelf.Setenabled(False)\nend\nelse\nSelf.Setenabled(False)\nend\nelse\nSelf.Setenabled(False)\nend\n"
)

(Script.190
	Name:	"ImageGeoRef.OpenNewHeaderInfo"
	SourceCode:	"av.FindDialog(\"Dialog1\").open"
)

(Script.191
	Name:	"ImageGeoRef.RedoLastUndoGeoRef"
	SourceCode:	"Undothis = _RedoStore.pop\nll = Undothis.get(0)\n\nhdrfile = LineFile.make(Undothis.Get(1), #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    _UndoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n\nhdrfile = LineFile.make(Undothis.Get(1), #FILE_PERM_WRITE) \n  for each i in 0..(ll.count-1)\n  ThisLine = ll.Get(i) \n  hdrfile.writeElt(thisLine)\n  end\n  hdrfile.flush\n  hdrfile.close\n  \ntheD = av.FindD
ialog(\"ImageShifter\")\n\nif (theD.IsOpen) then\n theD.close\n theD.open\nend\n\nAv.Run(\"ImageGeoRef.HeaderReader\", \"\")\n"
)

(Script.192
	Name:	"ImageGeoRef.SaveNewInfo"
	SourceCode:	"Thefile = self.GetDialog.Findbyname(\"Fname\").getlabel\nThefileinfo = self.GetDialog.Findbyname(\"TheFileStuff\").getText\ntheitem = self.Getdialog.Findbyname(\"ChoicesList\").getSelection.get(0)\n\ntext = TextFile.make((TheFile + \"w\").AsFileName, #FILE_PERM_READ)\n\nlastfn = Thefile.Right(7)\nfirstfn = Thefile.Left(Thefile.Count-7)\nwheredot = lastfn.Indexof(\".\")\nif (wheredot = -1) then\n msgbox.error(\"Source file must have extention\", \"\")\n self.close\n exit\n end\nnewlastfn = lastfn.Left(Wheredot+1)\nfirstlet = lastfn.Midd
le(Wheredot+1,1)\nlastlet = lastfn.Right(1)\n\nfilen1 = firstfn + newlastfn + \"hdr\"\n\ntext2 = TextFile.make(filen1.AsFileName, #FILE_PERM_READ)\n    \nif (theitem = \"World File\") then\n\n    doit = true\n    if ((text2 <> nil) or (text <> nil)) then\n    doit = msgbox.yesno(\"Overwrite existing georefrencing information? (Can not Undo)\",\"Georeferencing Information Already Exists\",  true)\n    end\n    if (doit) then\n    if (text2 <> nil) then\n    text2.close\n    end\n    if (text <> nil) then\n    text.close\n    end\n    h
drfile = TextFile.make((TheFile + \"w\").AsFileName, #FILE_PERM_WRITE)   \n    hdrfile.Write(theFileinfo,TheFileInfo.Count)\n    hdrfile.flush\n    hdrfile.close\n      Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n    else\n    exit\n    end\n\nelse\n\n\n    doit = true\n    if ((text2 <> nil) or (text <> nil)) then\n    doit = msgbox.yesno(\"Overwrite existing georefrencing information? (Can not Undo)\",\"Georeferencing Information Already Exists\",  true)\n    end\n    if (doit) then \n    if (text2 <> nil) then\n    text2.close\n    
end\n    if (text <> nil) then\n    text.close\n    end\n    hdrfile = TextFile.make(filen1.ASFileName, #FILE_PERM_WRITE)   \n    hdrfile.Write(theFileinfo,TheFileInfo.Count)  \n    hdrfile.flush\n    hdrfile.close\n    Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n    else\n    exit\n    end\n\n\nend\n\n\n"
)

(Script.193
	Name:	"ImageGeoRef.SelectFileType"
	SourceCode:	"theitem = self.getSelection.get(0)\ndg = self.getdialog\ntopb = dg.findbyname(\"FileBoxtop\")\nxdim = dg.findbyname(\"xdim\")\nrotrow = dg.findbyname(\"rotrow\")\nrotcol = dg.findbyname(\"rotcol\")\nydim = dg.findbyname(\"ydim\")\nxcor = dg.findbyname(\"xcor\")\nycor = dg.findbyname(\"ycor\")\nTFS = dg.findbyname(\"TheFileStuff\")\n\n\nif (theitem = \"World File\") then \n      topb.setlabel(\"Enter contents below, helps are on left of box.\")\n      xdim.setLabel(\"x pixel dimension\")\n      rotrow.setLabel(\"rotaion term for row\")\n      rotc
ol.setLabel(\"rotaion term for column\")\n      ydim.setLabel(\"y dimension - often negative\")\n      xcor.setLabel(\"upper left x coordinate\")\n      ycor.setLabel(\"upper left y coordinate\")\n      TFS.SetText(\"\")\n\nelse\n      topb.setLabel(\"Enter contents below, deleting unused keywords.\")\n      xdim.setLabel(\"\")\n      rotrow.setLabel(\"\")\n      rotcol.setLabel(\"\")\n      ydim.setLabel(\"\")\n      xcor.setLabel(\"\")\n      ycor.setLabel(\"\")\n      TFS.SetText(\"nrows\" ++ NL + \"ncols\" ++ NL + \"nbands\" ++ NL + \"nbits\" ++ NL
 + \"byteorder\" ++ NL + \"layout\" ++ NL + \"skipbytes\" ++ NL + \"ulxmap\" ++ NL + \"ulymap\" ++ NL + \"xdim\"  ++ NL + \"ydim\" ++ NL + \"bandrowbytes\" ++ NL + \"totalrowbytes\" ++ NL + \"bandgapbytes\")  \n\n\nend"
)

(Script.194
	Name:	"ImageGeoRef.ShowShiftControl"
	SourceCode:	"dg = self.getdialog\n\nif (dg.returnextent.Getheight = 217)\n  then dg.Resize(342,665)\n     self.setLabel(\"Small View\")\n  else\n  dg.resize(342,217)\n      self.setlabel(\"Show Controls\")\n  end"
)

(Script.195
	Name:	"ImageGeoRef.StartMainDialog"
	SourceCode:	"av.FindDialog(\"ImageShifter\").open\n\n\n\n\n\n"
)

(Script.196
	Name:	"ImageGeoRef.StartNewHeaderFile"
	SourceCode:	"vgui = av.FindGUI( \"View\")\nav.GetProject.SetSelectedGUI (vgui)\nTheViewList = av.GetProject.GetSelectedDocs\nTheView = TheViewList.Get(0)\nsaveyn = av.FindDialog(\"Dialog1\").Findbyname(\"Saveit\")\nfnameb = av.FindDialog(\"Dialog1\").Findbyname(\"fname\")\n\nIf (theView.GetClass.GetClassName = \"View\") then\ncurrentT = theView.GetActiveThemes.Get(0)\nif (currentT.GetClass.GetClassName = \"ITheme\") then\n\nsaveyn.Setenabled(true)\nthelb = av.FindDialog(\"Dialog1\").Findbyname(\"ChoicesList\")\nthelb.DefineFromList ({\"World File\", \"H
eader File\"})\nsel = rect.makexy(0,0,1,1)\nthelb.SetSelection(sel,true)\nthelb.select\n\nimagesrc = currentT.GetImgsrc.GetSrcName.GetFilename.GetFullname\nstrname = imagesrc.AsString\nav.FindDialog(\"Dialog1\").SetTitle(\"Create Image Georeferncing Information - \" + CurrentT.Getname.AsString)\nfnameb.setlabel(imagesrc)\n\nelse \nmsgbox.error(\"Not an Image Theme\", \"\")\nsaveyn.Setenabled(false)\nself.SetTitle(\"Not an Image Theme\")\nend\n\nelse\nsaveyn.Setenabled(false)\nself.SetTitle(\"Not an Image Theme\")\n\nend"
)

(Script.197
	Name:	"ImageGeoRef.UndoLastGeoRef"
	SourceCode:	"Undothis = _UndoStore.pop\nll = Undothis.get(0)\n\nhdrfile = LineFile.make(Undothis.Get(1), #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    _RedoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n\nhdrfile = LineFile.make(Undothis.Get(1), #FILE_PERM_WRITE) \n  for each i in 0..(ll.count-1)\n  ThisLine = ll.Get(i) \n  hdrfile.writeElt(thisLine)\n  end\n  hdrfile.flush\n  hdrfile.close\n  \ntheD = av.FindD
ialog(\"ImageShifter\")\n\nif (theD.IsOpen) then\n theD.close\n theD.open\nend\n\nAv.Run(\"ImageGeoRef.HeaderReader\", \"\")\n"
)

(Script.198
	Name:	"ImageGeoRef.UpdateIt"
	SourceCode:	"ll = _FileAttribs.get(\"LineList\")\ndg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\nyc = dg.Findbyname(\"YShift\")\ntheFile = dg.Findbyname(\"FileLabel\").getLabel\nTextB = dg.Findbyname(\"FileTextBox\")\nTextB.SetText(\"\")\n\nif (_FileAttribs.get(\"Filetype\") = 1) then\n  \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each currentline in ll\n     if (currentline.left(6) = \"ulxmap\") then xpos = counter end \n     if (currentline.left(6) = \"ulymap\") then ypos = counter end\n     counter = counter + 1\n     end\n \n  xsstr = ll.get
(xpos)\n  xsnum = xsstr.BasicTrim(\"ulxmap\",\"\").trim\n  xrnum = xsnum.AsNumber\n\n  ysstr = ll.get(ypos)\n  ysnum = ysstr.BasicTrim(\"ulymap\",\"\").trim\n  yrnum = ysnum.AsNumber\n\n  if (xc.getText.isNumber) then xrnum = xrnum + xc.gettext.AsNumber\n  xnew = xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (xrnum < 0) then xnew = \"-\" + xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(xpos, \"ulxmap\" ++ xnew.BasicTrim(\"\",\".\")) \n  end\n  \n  if
 (yc.getText.isNumber) then yrnum = yrnum + yc.gettext.AsNumber     \n  ynew = yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (yrnum < 0) then ynew = \"-\" + yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(ypos, \"ulymap\" ++ ynew.BasicTrim(\"\",\".\"))  \n  end\n\nelse\n\n  xsstr = ll.get(4)\n  xrnum = xsstr.AsNumber\n\n  ysstr = ll.get(5)\n  yrnum = ysstr.AsNumber\n\n  if (xc.getText.isNumber) then xrnum = xrnum + xc.gettext.AsNumber \n  xnew 
= xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (xrnum < 0) then xnew = \"-\" + xrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"-0\",\"0\") end\n  ll.set(4, xnew.BasicTrim(\"\",\".\")) \n  end\n  \n  if (yc.getText.isNumber) then yrnum = yrnum + yc.gettext.AsNumber     \n  ynew = yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicTrim(\"0\",\"0\")\n  if (yrnum < 0) then ynew = \"-\" + yrnum.SetFormat( \"dddddddddddddd.dddddddddddddddd\").AsString.BasicT
rim(\"-0\",\"0\") end\n  ll.set(5, ynew.BasicTrim(\"\",\".\"))  \n  end\n\nend\n\n\nhdrfile = LineFile.make(TheFile.ASFilename, #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    _UndoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n\n\nhdrfile = LineFile.make(TheFile.AsFileName, #FILE_PERM_WRITE)   \n  for each i in 0..(ll.count-1)\n  ThisLine = ll.Get(i) \n  if (i <> (ll.count-1)) then TextB.InsertText(ThisLine
 + NL) \n  else TextB.InsertText(ThisLine) end\n  hdrfile.writeElt(thisLine)\n  end\n  hdrfile.flush\n  hdrfile.close\n\n  \n_FileAttribs.Remove (\"LineList\")\n_FileAttribs.Add (\"LineList\", ll)\n_RedoStore.Empty\n\n\n  Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n"
)

(Script.199
	Name:	"ImageGeoRef.UpdateSizeChange"
	SourceCode:	"ll = _FileAttribs.get(\"LineList\")\ndg = self.GetDialog\nxc = dg.Findbyname(\"xdims\")\nyc = dg.Findbyname(\"ydims\")\ntheFile = dg.Findbyname(\"FileLabel\").getLabel\nTextB = dg.Findbyname(\"FileTextBox\")\nlinksize = dg.Findbyname(\"LinkSize\").IsSelected\nxslide = dg.Findbyname(\"aSlider1\")\nyslide = dg.Findbyname(\"aSlider2\")\n\n_UndoStore.Push({ll, TheFile.AsFileName})\nif ((xc.getText.isnumber) and (yc.getText.isNumber)) then\n\nnewx = xc.getText.Asnumber\nnewy = yc.getText.Asnumber\n\nif (_FileAttribs.get(\"Filetype\") = 1) then\n 
 \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each currentline in ll\n     if (currentline.left(4) = \"xdim\") then xpos = counter end \n     if (currentline.left(4) = \"ydim\") then ypos = counter end\n     counter = counter + 1\n     end\n \n  xnew = newx.AsString\n    ll.set(xpos, \"xdim\" ++ xnew) \n   \n  ynew = newy.AsString\n  ll.set(ypos, \"ydim\" ++ ynew)  \n\n\nelse\n\n  xnew = newx.AsString\n  ll.set(0, xnew) \n   \n  ynew = newy.AsString\n  ll.set(3, ynew)  \n\n \n\n\nend\n\nTextB.setText(\"\")\n\nhdrfile = LineFile.make(TheFile.ASF
ilename, #FILE_PERM_READ)\n    TheFileContents = List.Make\n    HdrFile.Read( TheFileContents, Hdrfile.GetSize )\n    _UndoStore.Push({TheFileContents, hdrfile.GetFilename.GetFullname.AsfileName})\n    hdrfile.flush\n    hdrfile.close\n    \n\n\nhdrfile = LineFile.make(TheFile.AsFileName, #FILE_PERM_WRITE)   \n  for each i in 0..(ll.count-1)\n  ThisLine = ll.Get(i) \n  if (i <> (ll.count-1)) then TextB.InsertText(ThisLine + NL) \n  else TextB.InsertText(ThisLine) end\n  hdrfile.writeElt(thisLine)\n  end\n  hdrfile.flush\n  
hdrfile.close\n  \nxslide.setValue(10000000)\nyslide.setValue(10000000)\n\n  \n_FileAttribs.Remove (\"LineList\")\n_FileAttribs.Add (\"LineList\", ll)\n_RedoStore.Empty\n\n  Av.Run(\"ImageGeoRef.HeaderReader\", \"\")\n  \nelse\nmsgbox.error(\"Dimension(s) are not valid numbers\" , \"\")\nend"
)

(Script.200
	Name:	"ImageGeoRef.XChange"
	SourceCode:	"dg = self.GetDialog\n\ninput = Self.GetText\ninputnum = input.IsNumber\n\nif (inputnum = False) then \ndg.FindbyName(\"GoCustomShift\").Setenabled(False)\ndg.FindbyName(\"GoShift\").Setenabled(False)\nif (dg.Findbyname(\"YShift\").GetText.IsNumber) then\n  if (input = \"\") then \n  dg.FindbyName(\"GoCustomShift\").Setenabled(True)\n  dg.FindbyName(\"GoShift\").Setenabled(True)\n  end\n  end\nelse \ndg.FindbyName(\"GoCustomShift\").Setenabled(True)\nend"
)

(Script.201
	Name:	"ImageGeoRef.Xdimshow"
	SourceCode:	"ll = _FileAttribs.get(\"LineList\")\ndg = self.GetDialog\nxc = dg.Findbyname(\"xdims\")\nyc = dg.Findbyname(\"ydims\")\ntheFile = dg.Findbyname(\"FileLabel\").getLabel\nTextB = dg.Findbyname(\"FileTextBox\")\nlinksize = dg.Findbyname(\"LinkSize\").IsSelected\nxslide = dg.Findbyname(\"aSlider1\")\nyslide = dg.Findbyname(\"aSlider2\")\n\nif (_FileAttribs.get(\"Filetype\") = 1) then\n  \n  xpos = -1\n  ypos = -1\n  counter = 0\n  for each currentline in ll\n     if (currentline.left(4) = \"xdim\") then xpos = counter end \n     if (currentline.le
ft(4) = \"ydim\") then ypos = counter end\n     counter = counter + 1\n     end\n \n  xsstr = ll.get(xpos)\n  xsnum = xsstr.BasicTrim(\"xdim\",\"\").trim\n  xrnum = xsnum.AsNumber\n\n  ysstr = ll.get(ypos)\n  ysnum = ysstr.BasicTrim(\"ydim\",\"\").trim\n  yrnum = ysnum.AsNumber\n  \n  \nif (linksize) then\n    xout = ((xslide.GetValue) * 0.0000001) * xrnum\n    yout = ((xslide.GetValue) * 0.0000001) * yrnum\n    yslide.SetValue(xslide.GetValue)\n    else\n    xout = ((xslide.GetValue) * 0.0000001) * xrnum\n    yout = ((yslide.GetValue)
 * 0.0000001) * yrnum\n    end\n  \n \n  xnew = xout.AsString \n  \n  ynew = yout.AsString\n \n\nelse\n\n  xsstr = ll.get(0)\n  xrnum = xsstr.AsNumber\n\n  ysstr = ll.get(3)\n  yrnum = ysstr.AsNumber\n\nif (linksize) then\n    xout = ((xslide.GetValue) * 0.0000001) * xrnum\n    yout = ((xslide.GetValue) * 0.0000001) * yrnum\n    yslide.SetValue(xslide.GetValue)\n    else\n    xout = ((xslide.GetValue) * 0.0000001) * xrnum\n    yout = ((yslide.GetValue) * 0.0000001) * yrnum\n    end\n  \n  \n  xnew = xout.AsString \n  \n  ynew = yout.As
String\n \n\nend\n\n\nxc.setText(xnew)\nyc.SetText(ynew)"
)

(Script.202
	Name:	"ImageGeoRef.xminus1"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 1\nxc.setText(num.asString)\nelse\nxc.setText(\"-1\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.203
	Name:	"ImageGeoRef.xminus10"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 10\nxc.setText(num.asString)\nelse\nxc.setText(\"-10\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.204
	Name:	"ImageGeoRef.xminus100"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 100\nxc.setText(num.asString)\nelse\nxc.setText(\"-100\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.205
	Name:	"ImageGeoRef.xplus1"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 1\nxc.setText(num.asString)\nelse\nxc.setText(\"1\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.206
	Name:	"ImageGeoRef.xplus10"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 10\nxc.setText(num.asString)\nelse\nxc.setText(\"10\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.207
	Name:	"ImageGeoRef.xplus100"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"XShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 100\nxc.setText(num.asString)\nelse\nxc.setText(\"100\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.208
	Name:	"ImageGeoRef.YChange"
	SourceCode:	"dg = self.GetDialog\n\ninput = Self.GetText\ninputnum = input.IsNumber\n\nif (inputnum = False) then \ndg.FindbyName(\"GoCustomShift\").Setenabled(False)\ndg.FindbyName(\"GoCustomShift\").Setenabled(False)\nif (dg.Findbyname(\"XShift\").GetText.IsNumber) then\n  if (input = \"\") then dg.FindbyName(\"GoCustomShift\").Setenabled(True)\n  dg.FindbyName(\"GoShift\").Setenabled(True)\n  end\n  end\nelse \ndg.FindbyName(\"GoCustomShift\").Setenabled(True)\nend"
)

(Script.209
	Name:	"ImageGeoRef.yminus1"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 1\nxc.setText(num.asString)\nelse\nxc.setText(\"-1\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.210
	Name:	"ImageGeoRef.yminus10"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 10\nxc.setText(num.asString)\nelse\nxc.setText(\"-10\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.211
	Name:	"ImageGeoRef.yminus100"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num - 100\nxc.setText(num.asString)\nelse\nxc.setText(\"-100\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.212
	Name:	"ImageGeoRef.yplus1"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 1\nxc.setText(num.asString)\nelse\nxc.setText(\"1\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.213
	Name:	"ImageGeoRef.yplus10"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 10\nxc.setText(num.asString)\nelse\nxc.setText(\"10\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.214
	Name:	"ImageGeoRef.yplus100"
	SourceCode:	"dg = self.GetDialog\nxc = dg.Findbyname(\"YShift\")\n\ninput = xc.getText\ninputnum = input.IsNumber\n\nif (inputnum) then\nnum = input.Asnumber\nnum = num + 100\nxc.setText(num.asString)\nelse\nxc.setText(\"100\")\nend\n\ngs = dg.Findbyname(\"GoShift\")\ngs.SetEnabled(True)"
)

(Script.215
	Name:	"ImageGeoRefExt.CanUnload"
	SourceCode:	"return (System.CanUnloadLibrary(self.GetDependencies.Get(0)))"
)

(Script.216
	Name:	"ImageGeoRefExt.Unload"
	SourceCode:	"Dialog.DetachFromExtension(self)"
)

(Script.217
	Name:	"ImageGeoRefExt.Install"
	SourceCode:	"if (av.GetProject = nil) then\n  return nil\n end\n\nViewGUI = av.GetProject.FindGUI(\"View\")\n\n_FileAttribs = dictionary.Make(2)\n_UndoStore = Stack.MakeShort ( 6 )\n_RedoStore = Stack.MakeShort ( 1 )\n\nbut1 = self.get(2)\nbut2 = self.get(3)\nbut3 = self.get(4)\nbut4 = self.get(5)\nbut5 = self.get(6)\nbut6 = self.get(7)\nbut7 = self.get(8)\nViewGUI.GetButtonBar.Add(space.Make, 999)\nViewGUI.GetButtonBar.Add(but1, 999)\nViewGUI.GetButtonBar.Add(but2, 999)\nViewGUI.GetButtonBar.Add(but3, 999)\nViewGUI.GetToolBar.Add(space.Make,
 999)\nViewGUI.GetToolBar.Add(but4, 999)\nViewGUI.GetMenuBar.Add(but5, 999)\nViewGUI.GetPopups.GetControls.Get(0).Add(space.Make, -1)\nViewGUI.GetPopups.GetControls.Get(0).Add(but7, -1)\nViewGUI.GetPopups.GetControls.Get(0).Add(but6, -1)\nfor each it in ViewGUI.GetMenuBar.GetControls\n  if ((it.getname = \"&Edit\") or (it.getname = \"Edit\")) then\n  it.add(space.Make, -1)\n  it.add(but7, -1)\n  it.Add(but6, -1)\n  end\nend\n\nViewGUI.SetModified(True)"
)

(Script.218
	Name:	"ImageGeoRefExt.UnInstall"
	SourceCode:	"if (av.GetProject = nil) then\n  return nil\n end\n\n\nif (Av.GetProject.IsClosing) then\n  return nil\n end\n\n\nTheButtonBar = Av.GetProject.FindGUI(\"View\").GetButtonBar\nTheMenuBar = Av.GetProject.FindGUI(\"View\").GetMenuBar\nTheToolBar = Av.GetProject.FindGUI(\"View\").GetToolBar\nTheFirstPopup = Av.GetProject.FindGUI(\"View\").GetPopups.GetControls.Get(0)\n\nTheButtonBar.Remove(self.Get(2))\nTheButtonBar.Remove(self.Get(3))\nTheButtonBar.Remove(self.Get(4))\nTheToolBar.Remove(Self.Get(5))\nTheMenuBar.Remove(self.Get(6))\nTheFi
rstPopup.Remove(self.get(8))\nTheFirstPopup.Remove(self.get(7))\n\n\nfor each it in TheMenuBar.GetControls\n  if ((it.getname = \"&Edit\") or (it.getname = \"Edit\")) then\n  it.Remove(Self.Get(7))\n  it.Remove(Self.Get(8))\n  end\nend\n\n\n\n"
)

