########################################
########################################
# make random copies of an object called "prototype"
########################################

set save_cwd = `execute("oppwf")`  # note where we were

opcf /ch/evolve

source copy_params.cmd  # fill static params with live values

# (re)initialize current generation count to 1
opparm params value6 ( 1 )

source change_pop_size.cmd  # modify pop size if required

# (re)initialize all genes
opparm switch1 index ( 0 )  # use initial random genes

# save current generation's genes into a file
opsave -f 1 `chop("params/num_genes")` genotypes Genes/genes.clip

opcf $save_cwd  # back to where we were before we got here

########################################
########################################