| EV | [Set system environmental variable] |
.SYSTEM COMMAND: ls *.OMM
[Enter the system command you want executed. This may also
be a Unix shell command file.
Substitution of do-loop indices, symbolic and register variables
is allowed anywhere in the command line.]
NOTES
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-- Sample loop for converting series of 1024 x 512 raw images
-- to SGI rgb format:
[nsam] = 1024 ; Nsam
[nrow] = 512 ; Nrow
DO I=1,5 ; Loop
VM ; Use "frombin" to convert images
frombin raw{***i}.$DATEXT sgi{***i}.rgb {****[nsam]} {***[nrow]}
ENDDO ; End loop
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-- Sample loop for renaming/renumbering series of SPIDER images:
[n]=33
DO I=1,4 ; Loop
VM ; System call for renumbering
cp jnk{***[n]}.dat jnk444{***I}.dat
[n]=[n]+1 ; Increment output file number counter
ENDDO ; End loop
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-- Sample loop for consecutively renaming/renumbering series of SPIDER
-- images while skipping any missing image numbers:
[num]=0 ; Initialize output file number counter
DO [it]=1,4 ; Loop
IQ FI [exists] ; Use "IQ FI" to see if file exists
jnk{***[it]} ; Filename
IF([exists].LE.0)CYCLE ; Skip if file not found
[num]=[num]+1 ; Increment output file number counter
VM ; System call for renaming/renumbering SPIDER images
cp jnk{***[it]}.dat jnk444{***[num]}.dat
ENDDO ; End loop
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
-- Sample showing symbolic parameter substitution within a procedure:
[var]=55 ; Set register variable outside of procedure
; (binding time for parameter substitution is
; before procedure is executed!)
@testvm ; Invoke testvm SPIDER procedure
doc ; Value given to: FILENAME PREFIX solicited
; by testvm procedure
Contents of invoked procedure testvm:
FR
?FILENAME PREFIX?[pre]
VM
rm [pre]{***[var]}.$DATEXT
Result of invoked procedure:
rm doc055.DAT
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx