/*
/*
/* Arguments:
/*
/* Routines:
/*
/* Globals:
/*
/*---------------------------------------------------------
/* Calls to sub AMLs:
/*---------------------------------------------------------
/* Notes:
/*---------------------------------------------------------
/* History:
/*=========================================================

&IF [SHOW Program] ne ARC &THEN
&RETURN &INFORM Please run this AML from the Arc: prompt.

&IF NOT [EXISTS drgcolor.lut -FILE] &THEN
&RETURN &INFORM Please make sure drgcolor.lut is in this directory.

&TYPE
&TYPE
&TYPE DRGMerge.aml                           Nathan A. Niemi    July 11, 2002
&TYPE
&TYPE An AML to seamlessly merge trimmed indexed color tiff DRGs
&TYPE
&SETVAR mergefile [RESPONSE 'Enter a name for the merged file, or <CR> to exit, or h for help' NULL]
&IF %mergefile% eq NULL &THEN
&RETURN &INFORM Leaving DRGMerge.aml

&IF %mergefile% eq h &THEN &DO
&TYPE
&TYPE This AML will display a menu of .tiff images in your current working directory.
&TYPE Continue to select DRG tiff images from the menu until you have selected
&TYPE all that you wish to merge. Then select '_none_' from the menu and press 
&TYPE 'OK'.  The AML will then merge all of the DRGs into a single, seamless
&TYPE image.  The program does assume that all of the DRGS are trimmed (have
&TYPE their collars removed).  This program will not perform that function for you.
&TYPE Other AMLs are available to trim DRGs.  The program also assumes the
&TYPE USGS 13 color DRG standard.  It will make allowances for the 14 color
&TYPE California color standard for 7.5' DRGs.  DRGs with a custom color
&TYPE standard, however, will display only the 13 USGS colors.
&TYPE

&SETVAR mergefile [RESPONSE 'Enter a name for the merged file, or <CR> to exit' NULL]
&IF %mergefile% eq NULL &THEN
&RETURN &INFORM Leaving DRGMerge.aml

&SETVAR filetemp = [BEFORE %mergefile% .]
&IF [EXISTS %filetemp%.tif -FILE] &THEN
&RETURN &INFORM %mergefile% already exists.

/*&TYPE %mergefile%
&TERMINAL 9999
&SETVAR i = 1
&TYPE
&DO &UNTIL %done%
&SETVAR filename [getimage * -tiff 'Select a DRG:' -NONE]
&SETVAR done = [NULL %filename%]
&IF NOT %done% &THEN
     &TYPE %filename%
     &SETVAR filename%i% = %filename%
     &SETVAR i = %i% + 1
&END

&SETVAR filenum = %i% - 2
&SETVAR mergestring = ,

&DO j = 1 &TO %filenum%
imagegrid [VALUE filename%j%] grid%j%
grid
DOCELL
varmax }= grid%j%
END
&SETVAR valnum = [SHOW varmax]
&IF %valnum% eq 12 &THEN &DO
     ngrid%j% = setnull(grid%j% eq 1, grid%j%)
     q
     kill grid%j%
     &SETVAR mergestring = %mergestring%ngrid%j%,
&END
&IF %valnum% eq 13 &THEN &DO
     &TYPE
     &TYPE WARNING! [VALUE filename%j%] does not conform
     &TYPE to the USGS DRG 13 color standard.  It has 14 colors.  Defaulting to the
     &TYPE California 14 color standard, however errors may occur.
     &TYPE
     temp = setnull(grid%j% eq 0, grid%j%)
     ngrid%j% = temp - 1
     kill temp
     q
     kill grid%j%
     &SETVAR mergestring = %mergestring%ngrid%j%,
&END
&IF %valnum% gt 13 &THEN &DO
     &TYPE
     &TYPE WARNING! [VALUE filename%j%] does not conform
     &TYPE to the USGS DRG 13 color standard.  It has %valnum% colors.
     &TYPE Some colors may not display properly.
     &TYPE
     ngrid%j% = setnull(grid%j% eq 1, grid%j%)
     q
     kill grid%j%
     &SETVAR mergestring = %mergestring%ngrid%j%,
&END
&END

&SETVAR mergestring = [TRIM %mergestring% -BOTH ,]

grid
tempmerge = merge(%mergestring%)
&DO j = 1 &TO %filenum%
kill ngrid%j%
&END
%mergefile% = con(isnull(tempmerge), 1, tempmerge)
kill tempmerge
q

gridimage %mergefile% drg13color.lut %filetemp%.tif TIFF none

grid
display 9999 1
mape %mergefile%
gridpaint %mergefile% value identity nowrap drg13color.lut

&RETURN