;pro makesquare

;To make the square that represents a 3x3 pixel region consisting of 
;the right colors

pro makesquare, XOff = XOff, YOff = YOff, $
		XWidth = XWidth, YWidth = YWidth, $
		TvFlag = TvFlag

;Offsets
If not keyword_set(XOff) then XOff = 0.90
If not keyword_set(YOff) then YOff = 0.800
If not keyword_set(XWidth) then XWidth = 0.025
If not keyword_set(YWidth) then YWidth = 0.025

If TvFlag eq 1 or TvFlag eq 2 then begin  

  TvImFlag = 0 

  ;lower left
  tvimage,[[[(replicate((fsc_color('orange',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('orange',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('orange',/triple,/row))[2],5,5))]]], $
	true =3, $
	position = [XOff, YOff, XOff+XWidth, YOff+YWidth],$
	/normal

  ;left
  tvimage,[[[(replicate((fsc_color('red',/triple,/row))[0],5,5))]],$
	[[(replicate((fsc_color('red',/triple,/row))[1],5,5))]],$
	[[(replicate((fsc_color('red',/triple,/row))[2],5,5))]]], $
	true =3, $
	position = [XOff,YOff+YWidth,XOff+XWidth,YOff+2*YWidth], $
	/normal

  ;upper left
  tvimage,[[[(replicate((fsc_color('blue',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('blue',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('blue',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff,YOff+2*YWidth,XOff+XWidth,YOff+3*YWidth],$
	/normal

  ;lower 
  tvimage,[[[(replicate((fsc_color('brown',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('brown',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('brown',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff+XWidth, YOff,XOff+2*XWidth,YOff+2*YWidth],$
	/normal
  ;middle
  tvimage,[[[(replicate((fsc_color('black',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('black',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('black',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff+XWidth,YOff+YWidth,XOff+2*XWidth,YOff+2*YWidth],$
	/normal

  ;upper
  tvimage,[[[(replicate((fsc_color('purple',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('purple',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('purple',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff+XWidth,YOff+2*YWidth,XOff+2*XWidth,YOff+3*YWidth], $
	/normal

  ;lower right
  tvimage,[[[(replicate((fsc_color('green',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('green',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('green',/triple,/row))[2],5,5))]]], $
        true =3, position = [XOff+2*XWidth,YOff,XOff+3*XWidth,YOff+YWidth], $
	/normal

  ;middle right
  tvimage,[[[(replicate((fsc_color('yellow',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('yellow',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('yellow',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff+2*XWidth,YOff+YWidth,XOff+3*XWidth,YOff+2*YWidth],$
	/normal

  ;upper right
  tvimage,[[[(replicate((fsc_color('pink',/triple,/row))[0],5,5))]],$
        [[(replicate((fsc_color('pink',/triple,/row))[1],5,5))]],$
        [[(replicate((fsc_color('pink',/triple,/row))[2],5,5))]]], $
        true =3, $
	position = [XOff+2*XWidth,YOff+2*YWidth,XOff+3*XWidth, YOff+3*YWidth],$
	/normal

Endif Else If TvFlag eq 3 then begin

  TvImFlag = 0

  ;lower left
  tvimage,[[(replicate((fsc_color('orange'))[0],5,5))]],$
        position = [XOff, YOff, XOff+XWidth, YOff+YWidth],$
        /normal, tv = TvImFlag
 
  ;left
  tvimage,[[(replicate((fsc_color('red'))[0],5,5))]],$
        position = [XOff,YOff+YWidth,XOff+XWidth,YOff+2*YWidth], $
        /normal, tv = TvImFlag
 
  ;upper left
  tvimage,[[(replicate((fsc_color('blue'))[0],5,5))]],$
        position = [XOff,YOff+2*YWidth,XOff+XWidth,YOff+3*YWidth],$
        /normal, tv = TvImFlag
 
  ;lower 
  tvimage,[[(replicate((fsc_color('brown'))[0],5,5))]],$
        position = [XOff+XWidth, YOff,XOff+2*XWidth,YOff+2*YWidth],$
        /normal, tv = TvImFlag
  ;middle
  tvimage,[[(replicate((fsc_color('black'))[0],5,5))]],$
        position = [XOff+XWidth,YOff+YWidth,XOff+2*XWidth,YOff+2*YWidth],$
        /normal, tv = TvImFlag
 
  ;upper
  tvimage,[[(replicate((fsc_color('purple'))[0],5,5))]],$
        position = [XOff+XWidth,YOff+2*YWidth,XOff+2*XWidth,YOff+3*YWidth], $
        /normal, tv = TvImFlag
 
  ;lower right
  tvimage,[[(replicate((fsc_color('green'))[0],5,5))]],$
        position = [XOff+2*XWidth,YOff,XOff+3*XWidth,YOff+YWidth], $
        /normal, tv = TvImFlag
 
  ;middle right
  tvimage,[[(replicate((fsc_color('yellow'))[0],5,5))]],$
        position = [XOff+2*XWidth,YOff+YWidth,XOff+3*XWidth,YOff+2*YWidth],$
        /normal, tv = TvImFlag
 
  ;upper right
  tvimage,[[(replicate((fsc_color('pink'))[0],5,5))]],$
        position = [XOff+2*XWidth,YOff+2*YWidth,XOff+3*XWidth, YOff+3*YWidth],$
        /normal, tv = TvImFlag

EndIf

end