;-----
; casramontage.spi 
; PURPOSE: will create a montage of one varying factor
;          for X factors
;-----

;--- INPUTS ----
FR L
[caspre]data/control	; Prefix from CA S

[n]=3	                ; How many factors
x13=9	                ; How many/row also loop value

;--- OUTPUT -----
FR L
[montage]data/18fade	; Name of final montage

FR L
[garbage]adsfqwerty	; Name of garbage files to be deleted

;----- END BATCH HEADER

x12=1	                ; Image counter, use this in garbage files

DO  x20=1,[n]	        ; Loop for each factor, also # of rows
  
  x30=-0.2	        ; Lowest value per row, repeats each row, coordinate
  
  DO  x21=1,x13	        ; Loop each coordinate/vector, # of columns
    
    CA SRA
    [caspre]	        ; Input prefix
    x20		        ; Which factor
    x30		        ; Factor coordinate
    [garbage]{**x12}
    
    x30=x30 + 0.05	; Increase coordinate by 0.25
    x12=x12+1
  ENDDO
ENDDO

MN S   ; Montage them all
[garbage]**
1-27
9,5
2
[montage]


VM     ; Remove garbage
rm -f [garbage]**.$DATEXT

EN