######################### 
#				#
#   	soar.soar	#
#  				#
#########################

#   Load in the p.d. files.
#   Load in the graphical extensions to the user interface.
#   Run a number of soar commands to put Soar into the appropriate state,
#   ready to run.

# load in the soar model of p.d.

termTextSendCommand .tsw.t "source dilemma.soar"

# load in the tcl/tk simulation for p.d.

termTextSendCommand .tsw.t "source dilemma.tcl"

# turn bottom up learning on

learn -on -bottom-up

# remove any chunks from the previous run(s)

excise -chunks

# Reset the state ready to run.

init-soar

# Set up the watch format to minimise blank space whilst maintaining
# legibility

format-watch -stack -add s {%left[0,%dc]: %rsd[ ]==>S: %cs}
format-watch -stack -add o {%left[0,%dc]: %rsd[ ]   O: %co}