Main Page   Files   Productions   Problem Spaces   Operators   Goal Hierarchy   Groups   Prod. By Type   Todo   All  


turn.soar

chase/
     turn.soar [src]

Go to the documentation for this file...

00001 echo "\nLoading chase/turn.soar "
00002 
00003 ################################
00004 ### Propose Turn operator if sound is not from front
00005 ################################
00006 
00007 ##!
00008 # @brief Proposes turn operator
00009 # 
00010 # Proposes turn operator if sound is not sensed forward
00011 #
00012 # @problem-space chase
00013 # @operator move-forward
00014 # @type proposal
00015 sp {chase*propose*turn
00016    (state <s> ^name chase
00017               ^io.input-link.sound {<< left right >> <direction>})
00018    -->
00019    (<s> ^operator <o> +)
00020    (<o> ^name turn
00021         ^actions.rotate.direction <direction>)}
00022 
00023 ################################
00024 ### Propose Turn operator if sound is from the back
00025 ################################
00026 
00027 ##!
00028 # @brief Proposes backward operator
00029 # 
00030 # Proposes backward (turn left twice) operator if sound is sensed behind
00031 #
00032 # @problem-space chase
00033 # @operator turn
00034 # @type proposal
00035 sp {chase*propose*backward
00036    (state <s> ^name chase
00037               ^io.input-link.sound backward)
00038    -->
00039    (<s> ^operator <o> +)
00040    (<o> ^name turn
00041         ^actions.rotate.direction left)}

Generated with SoarDoc on Wed Jun 25 18:02:44 2003 by ray