// begin of action.pl code file. // begin of unit action code. final class action_action_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: action(_G455, _G456) case 0: m.allocate (3); //m.success = m.get_y_value (1,1); /* Name */ m.get_y_value (2,2); /* Queue */ m.end_head (); break; case 1: // goal: script_threads m.call (6) /*2*/; /* script_threads_0 */ break; case 2: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 3: // goal: get_queue(_G456, _G471) m.put_y_value (2,1); /* 'Queue' */ m.put_y_value (0,2); /* 'Event' */ m.call (dlplib.get_queue_2); /*6*/ break; case 4: // goal: proces_event(_G455, _G471) m.put_y_value (1,1); /* 'Name' */ m.put_y_value (0,2); /* 'Event' */ m.call (1) /*2*/; /* proces_event_2 */ break; case 5: // goal: fail m.deallocate (); m.exec (dlplib.fail_0); break; case 6: m.end_rule (); break; } // switch return m.success; } // action:action/2 exec() // action:action/2 decls. // end of action:action/2 decls. public boolean init (DLP m) { return true; } // action:action/2 init() } // action:action/2 final class action_proces_event_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: proces_event(_G455, rot(_G461)) case 0: m.try_me_else (3); //m.success = m.get_x_varia (10,1); /* Name */ m.get_struct (rot__1,2); m.uni_x_varia (11); /* R */ m.end_head (); break; case 1: // goal: setRotation(_G455, 0, 1, 0, _G461) m.put_x_value (10,1); /* 'Name' */ m.put_float (0f,2); m.put_float (1f,3); m.put_float (0f,4); m.put_x_value (11,5); /* 'R' */ m.exec (7); /* setRotation_5 */ break; case 2: m.end_rule (); break; // head: proces_event(_G2375, walk(_G2381, _G2382, _G2383)) case 3: m.retry_me_else (6); //m.success = m.get_x_varia (10,1); /* Name */ m.get_struct (walk__3,2); m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.end_head (); break; case 4: // goal: process_script(walk(_G2375, _G2381, _G2382, _G2383)) m.put_struct (walk__4,1); m.set_x_value (10); /* 'Name' */ m.set_x_value (11); /* 'X' */ m.set_x_value (12); /* 'Y' */ m.set_x_value (13); /* 'Z' */ m.exec (8); /* process_script_1 */ break; case 5: m.end_rule (); break; // head: proces_event(_G4876, stand) case 6: m.trust_or_fail (); //m.success = m.get_x_varia (10,1); /* Name */ m.get_atom (stand__0,2); m.end_head (); break; case 7: // goal: process_script(stand(_G4876)) m.put_struct (stand__1,1); m.set_x_value (10); /* 'Name' */ m.exec (8); /* process_script_1 */ break; case 8: m.end_rule (); break; } // switch return m.success; } // action:proces_event/2 exec() // action:proces_event/2 decls. public SymbolDescriptor rot__1; public SymbolDescriptor walk__3; public SymbolDescriptor walk__4; public SymbolDescriptor stand__0; public SymbolDescriptor stand__1; // end of action:proces_event/2 decls. public boolean init (DLP m) { rot__1 = m.define_symbol ("rot".intern(), 1); walk__3 = m.define_symbol ("walk".intern(), 3); walk__4 = m.define_symbol ("walk".intern(), 4); stand__0 = m.define_symbol ("stand".intern(), 0); stand__1 = m.define_symbol ("stand".intern(), 1); return true; } // action:proces_event/2 init() } // action:proces_event/2 final class action_select_script_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: select_script(_G455, _G456) case 0: //m.success = m.get_x_varia (10,1); /* Name */ m.get_x_varia (11,2); /* Script */ m.end_head (); break; case 1: // goal: script(_G455, _G456) m.put_x_value (10,1); /* 'Name' */ m.put_x_value (11,2); /* 'Script' */ m.exec (9); /* script_2 */ break; case 2: m.end_rule (); break; } // switch return m.success; } // action:select_script/2 exec() // action:select_script/2 decls. // end of action:select_script/2 decls. public boolean init (DLP m) { return true; } // action:select_script/2 init() } // action:select_script/2 final class action_turn_body_part_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: turn_body_part(_G455, _G456, _G457, _G458) case 0: m.allocate (8); //m.success = m.get_x_varia (11,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (7,3); /* Direction */ m.get_y_value (5,4); /* Speed */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G468) m.put_x_value (11,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_y_value (3,3); /* 'Object' */ m.call (10) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getRotationParameter(_G456, _G457, _G475) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (7,2); /* 'Direction' */ m.put_y_value (2,3); /* 'Rotation' */ m.call (11) /*2*/; /* getRotationParameter_3 */ break; case 3: // goal: getSpeedParameter(_G456, _G458, _G482, _G483) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Speed' */ m.put_y_value (1,3); /* 'Beat' */ m.put_y_value (0,4); /* 'Interpolation' */ m.call (12) /*2*/; /* getSpeedParameter_4 */ break; case 4: // goal: ! m.cut_body (4); break; case 5: // goal: turn_object(_G468, _G475, _G482, _G483) m.put_y_value (3,1); /* 'Object' */ m.put_y_value (2,2); /* 'Rotation' */ m.put_y_value (1,3); /* 'Beat' */ m.put_y_value (0,4); /* 'Interpolation' */ m.deallocate (); m.exec (13); /* turn_object_4 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // action:turn_body_part/4 exec() // action:turn_body_part/4 decls. // end of action:turn_body_part/4 decls. public boolean init (DLP m) { return true; } // action:turn_body_part/4 init() } // action:turn_body_part/4 final class action_turn_body_part_init_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: turn_body_part_init(_G455, _G456, _G457) case 0: m.allocate (7); //m.success = m.get_x_varia (11,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (5,3); /* Direction */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G467) m.put_x_value (11,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_y_value (3,3); /* 'Object' */ m.call (10) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getRotationParameter(_G456, _G457, rotation(_G476, _G477, _G478, _G479)) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Direction' */ m.put_struct (rotation__4,3); m.set_y_value (2); /* 'X' */ m.set_y_value (1); /* 'Y' */ m.set_y_value (0); /* 'Z' */ m.set_v_varia (); /* 'Unknown' */ m.call (11) /*2*/; /* getRotationParameter_3 */ break; case 3: // goal: ! m.cut_body (4); break; case 4: // goal: setRotation(_G467, _G476, _G477, _G478, 0) m.put_y_value (3,1); /* 'Object' */ m.put_y_value (2,2); /* 'X' */ m.put_y_value (1,3); /* 'Y' */ m.put_y_value (0,4); /* 'Z' */ m.put_float (0f,5); m.deallocate (); m.exec (7); /* setRotation_5 */ break; case 5: m.end_rule (); break; } // switch return m.success; } // action:turn_body_part_init/3 exec() // action:turn_body_part_init/3 decls. public SymbolDescriptor rotation__4; // end of action:turn_body_part_init/3 decls. public boolean init (DLP m) { rotation__4 = m.define_symbol ("rotation".intern(), 4); return true; } // action:turn_body_part_init/3 init() } // action:turn_body_part_init/3 final class action_move_body_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: move_body(_G455, _G456, _G457, _G458) case 0: m.allocate (8); //m.success = m.get_y_value (3,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (7,3); /* Direction */ m.get_y_value (5,4); /* Speed */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G468) m.put_y_value (3,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_v_varia (3); /* 'Unknown' */ m.call (10) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getPositionParameter(_G456, _G457, _G475) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (7,2); /* 'Direction' */ m.put_y_value (2,3); /* 'Position' */ m.call (14) /*2*/; /* getPositionParameter_3 */ break; case 3: // goal: getSpeedParameter(_G456, _G458, _G482, _G483) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Speed' */ m.put_y_value (1,3); /* 'Beat' */ m.put_y_value (0,4); /* 'Interpolation' */ m.call (12) /*2*/; /* getSpeedParameter_4 */ break; case 4: // goal: ! m.cut_body (4); break; case 5: // goal: move_object(_G455, _G475, _G482, _G483) m.put_y_value (3,1); /* 'Agent' */ m.put_y_value (2,2); /* 'Position' */ m.put_y_value (1,3); /* 'Beat' */ m.put_y_value (0,4); /* 'Interpolation' */ m.deallocate (); m.exec (15); /* move_object_4 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // action:move_body/4 exec() // action:move_body/4 decls. // end of action:move_body/4 decls. public boolean init (DLP m) { return true; } // action:move_body/4 init() } // action:move_body/4 class action extends Code { public static ObjectDescriptor object; public static ObjectDescriptor _bcilib; public static ObjectDescriptor _do_script; public static ObjectDescriptor _gesturelib; public static MethodDescriptor action_2; public static MethodDescriptor proces_event_2; public static MethodDescriptor select_script_2; public static MethodDescriptor turn_body_part_4; public static MethodDescriptor turn_body_part_init_3; public static MethodDescriptor move_body_4; public static MethodDescriptor script_threads_0; public static MethodDescriptor setRotation_5; public static MethodDescriptor process_script_1; public static MethodDescriptor script_2; public static MethodDescriptor getBodyObjectName_3; public static MethodDescriptor getRotationParameter_3; public static MethodDescriptor getSpeedParameter_4; public static MethodDescriptor turn_object_4; public static MethodDescriptor getPositionParameter_3; public static MethodDescriptor move_object_4; public boolean init (DLP m) { object = m.define_object ("action".intern(), 3, 16, 0); _bcilib = m.header_object (object, "bcilib".intern(), 0); _do_script = m.header_object (object, "do_script".intern(), 1); _gesturelib = m.header_object (object, "gesturelib".intern(), 2); action_2 = m.define_method (object, 0, "action".intern(), 2); proces_event_2 = m.define_method (object, 1, "proces_event".intern(), 2); select_script_2 = m.define_method (object, 2, "select_script".intern(), 2); turn_body_part_4 = m.define_method (object, 3, "turn_body_part".intern(), 4); turn_body_part_init_3 = m.define_method (object, 4, "turn_body_part_init".intern(), 3); move_body_4 = m.define_method (object, 5, "move_body".intern(), 4); script_threads_0 = m.extern_method (object, 6, "script_threads".intern(), 0); setRotation_5 = m.extern_method (object, 7, "setRotation".intern(), 5); process_script_1 = m.extern_method (object, 8, "process_script".intern(), 1); script_2 = m.extern_method (object, 9, "script".intern(), 2); getBodyObjectName_3 = m.extern_method (object, 10, "getBodyObjectName".intern(), 3); getRotationParameter_3 = m.extern_method (object, 11, "getRotationParameter".intern(), 3); getSpeedParameter_4 = m.extern_method (object, 12, "getSpeedParameter".intern(), 4); turn_object_4 = m.extern_method (object, 13, "turn_object".intern(), 4); getPositionParameter_3 = m.extern_method (object, 14, "getPositionParameter".intern(), 3); move_object_4 = m.extern_method (object, 15, "move_object".intern(), 4); return true; } // action init() } // class action // end of unit action code. // begin of unit do_script code. final class do_script_script_threads_0 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: script_threads case 0: m.allocate (0); //m.success = m.end_head (); break; case 1: // goal: set_field(answer_entry, free) m.put_atom (answer_entry__0,1); m.put_atom (free__0,2); m.call (dlplib.set_field_2); /*6*/ break; case 2: // goal: set_field(thread_entry, free) m.put_atom (thread_entry__0,1); m.put_atom (free__0,2); m.call (dlplib.set_field_2); /*6*/ break; case 3: // goal: new_array(script, thread_entry, max_threads) m.put_atom (script__0,1); m.put_atom (thread_entry__0,2); m.put_z_value (2,3); /* max_threads */ m.call (dlplib.new_array_3); /*6*/ break; case 4: // goal: new_array(script, answer_entry, max_threads) m.put_atom (script__0,1); m.put_atom (answer_entry__0,2); m.put_z_value (2,3); /* max_threads */ m.call (dlplib.new_array_3); /*6*/ break; case 5: // goal: script_threads(max_threads) m.put_z_value (2,1); /* max_threads */ m.deallocate (); m.exec (1); /* script_threads_1 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // do_script:script_threads/0 exec() // do_script:script_threads/0 decls. public SymbolDescriptor answer_entry__0; public SymbolDescriptor free__0; public SymbolDescriptor thread_entry__0; public SymbolDescriptor script__0; // end of do_script:script_threads/0 decls. public boolean init (DLP m) { answer_entry__0 = m.define_symbol ("answer_entry".intern(), 0); free__0 = m.define_symbol ("free".intern(), 0); thread_entry__0 = m.define_symbol ("thread_entry".intern(), 0); script__0 = m.define_symbol ("script".intern(), 0); return true; } // do_script:script_threads/0 init() } // do_script:script_threads/0 final class do_script_script_threads_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: script_threads(0) case 0: m.try_me_else (2); //m.success = m.get_int (0,1); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: script_threads(_G1373) case 2: m.trust_or_fail (); m.allocate (2); //m.success = m.get_x_varia (10,1); /* I */ m.end_head (); break; case 3: // goal: is_eval(_G1373, _G1441) m.put_x_value (10,1); /* 'I' */ m.put_y_value (1,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 4: // goal: is_if_sub_i1(_G1441, _G1381) m.put_y_value (1,1); /* 'Unknown' */ m.put_y_value (0,2); /* 'N' */ m.call (dlplib.is_if_sub_i1_2); /*6*/ break; case 5: // goal: set_array(script, thread_entry, _G1381, free) m.put_atom (script__0,1); m.put_atom (thread_entry__0,2); m.put_y_value (0,3); /* 'N' */ m.put_atom (free__0,4); m.call (dlplib.set_array_4); /*6*/ break; case 6: // goal: set_array(script, answer_entry, _G1381, free) m.put_atom (script__0,1); m.put_atom (answer_entry__0,2); m.put_y_value (0,3); /* 'N' */ m.put_atom (free__0,4); m.call (dlplib.set_array_4); /*6*/ break; case 7: // goal: new(do_action(_G1381), _G1407) m.put_struct (do_action__1,1); m.set_y_value (0); /* 'N' */ m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.new_2); /*6*/ break; case 8: // goal: script_threads(_G1381) m.put_y_value (0,1); /* 'N' */ m.deallocate (); m.exec (1); /* script_threads_1 */ break; case 9: m.end_rule (); break; } // switch return m.success; } // do_script:script_threads/1 exec() // do_script:script_threads/1 decls. public SymbolDescriptor script__0; public SymbolDescriptor thread_entry__0; public SymbolDescriptor free__0; public SymbolDescriptor answer_entry__0; public SymbolDescriptor do_action__1; // end of do_script:script_threads/1 decls. public boolean init (DLP m) { script__0 = m.define_symbol ("script".intern(), 0); thread_entry__0 = m.define_symbol ("thread_entry".intern(), 0); free__0 = m.define_symbol ("free".intern(), 0); answer_entry__0 = m.define_symbol ("answer_entry".intern(), 0); do_action__1 = m.define_symbol ("do_action".intern(), 1); return true; } // do_script:script_threads/1 init() } // do_script:script_threads/1 final class do_script_select_entry_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: select_entry(_G449, _G450) case 0: m.allocate (4); //m.success = m.get_y_value (0,1); /* ArrayName */ m.get_y_value (1,2); /* ThreadID */ m.end_head (); break; case 1: // goal: get_field_event(_G449, _G459) m.put_y_value (0,1); /* 'ArrayName' */ m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.get_field_event_2); /*6*/ break; case 2: // goal: is_eval(max_threads, _G574) m.put_z_value (2,1); /* max_threads */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 3: // goal: is_if_sub_i1(_G574, _G464) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'NextThread' */ m.call (dlplib.is_if_sub_i1_2); /*6*/ break; case 4: // goal: select_entry(_G464, _G449, _G450) m.put_y_value (2,1); /* 'NextThread' */ m.put_y_value (0,2); /* 'ArrayName' */ m.put_y_value (1,3); /* 'ThreadID' */ m.call (3) /*2*/; /* select_entry_3 */ break; case 5: // goal: set_field(_G449, free) m.put_y_value (0,1); /* 'ArrayName' */ m.put_atom (free__0,2); m.deallocate (); m.exec (dlplib.set_field_2); break; case 6: m.end_rule (); break; } // switch return m.success; } // do_script:select_entry/2 exec() // do_script:select_entry/2 decls. public SymbolDescriptor free__0; // end of do_script:select_entry/2 decls. public boolean init (DLP m) { free__0 = m.define_symbol ("free".intern(), 0); return true; } // do_script:select_entry/2 init() } // do_script:select_entry/2 final class do_script_select_entry_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: select_entry(_G449, _G450, _G451) case 0: m.try_me_else (5); m.allocate (1); //m.success = m.get_x_varia (11,1); /* I */ m.get_v_varia (2); /* ArrayName */ m.get_v_varia (3); /* Unknown */ m.cut_level (0); m.end_head (); break; case 1: // goal: _G449<0 m.put_x_value (11,1); /* 'I' */ m.put_int (0,2); m.call (dlplib.op_cmp_lt_2); /*6*/ break; case 2: // goal: ! m.cut_body (0); break; case 3: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 4: m.end_rule (); break; // head: select_entry(_G2287, _G2288, _G2289) case 5: m.retry_me_else (12); m.allocate (5); //m.success = m.get_y_value (0,1); /* I */ m.get_y_value (2,2); /* ArrayName */ m.get_y_value (1,3); /* ThreadID */ m.cut_level (3); m.end_head (); break; case 6: // goal: get_array(script, _G2288, _G2287, _G2300) m.put_atom (script__0,1); m.put_y_value (2,2); /* 'ArrayName' */ m.put_y_value (0,3); /* 'I' */ m.put_y_value (4,4); /* 'State' */ m.call (dlplib.get_array_4); /*6*/ break; case 7: // goal: _G2300=free m.put_y_value (4,1); /* 'State' */ m.put_atom (free__0,2); m.call (dlplib.op_eq_2); /*6*/ break; case 8: // goal: ! m.cut_body (3); break; case 9: // goal: set_array(script, _G2288, _G2287, lock) m.put_atom (script__0,1); m.put_y_value (2,2); /* 'ArrayName' */ m.put_y_value (0,3); /* 'I' */ m.put_atom (lock__0,4); m.call (dlplib.set_array_4); /*6*/ break; case 10: // goal: _G2289=_G2287 m.put_y_value (1,1); /* 'ThreadID' */ m.put_y_value (0,2); /* 'I' */ m.deallocate (); m.exec (dlplib.op_eq_2); break; case 11: m.end_rule (); break; // head: select_entry(_G5553, _G5554, _G5555) case 12: m.trust_or_fail (); m.allocate (4); //m.success = m.get_x_varia (11,1); /* I */ m.get_y_value (1,2); /* ArrayName */ m.get_y_value (0,3); /* Thread */ m.end_head (); break; case 13: // goal: is_eval(_G5553, _G5646) m.put_x_value (11,1); /* 'I' */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 14: // goal: is_if_sub_i1(_G5646, _G5563) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'N' */ m.call (dlplib.is_if_sub_i1_2); /*6*/ break; case 15: // goal: select_entry(_G5563, _G5554, _G5555) m.put_y_value (2,1); /* 'N' */ m.put_y_value (1,2); /* 'ArrayName' */ m.put_y_value (0,3); /* 'Thread' */ m.deallocate (); m.exec (3); /* select_entry_3 */ break; case 16: m.end_rule (); break; } // switch return m.success; } // do_script:select_entry/3 exec() // do_script:select_entry/3 decls. public SymbolDescriptor script__0; public SymbolDescriptor free__0; public SymbolDescriptor lock__0; // end of do_script:select_entry/3 decls. public boolean init (DLP m) { script__0 = m.define_symbol ("script".intern(), 0); free__0 = m.define_symbol ("free".intern(), 0); lock__0 = m.define_symbol ("lock".intern(), 0); return true; } // do_script:select_entry/3 init() } // do_script:select_entry/3 final class do_script_release_entry_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: release_entry(_G449, _G450) case 0: m.allocate (2); //m.success = m.get_y_value (1,1); /* I */ m.get_y_value (0,2); /* ArrayName */ m.end_head (); break; case 1: // goal: get_field_event(_G450, _G459) m.put_y_value (0,1); /* 'ArrayName' */ m.put_v_varia (2); /* 'Flag' */ m.call (dlplib.get_field_event_2); /*6*/ break; case 2: // goal: set_array(script, _G450, _G449, free) m.put_atom (script__0,1); m.put_y_value (0,2); /* 'ArrayName' */ m.put_y_value (1,3); /* 'I' */ m.put_atom (free__0,4); m.call (dlplib.set_array_4); /*6*/ break; case 3: // goal: set_field(_G450, free) m.put_y_value (0,1); /* 'ArrayName' */ m.put_atom (free__0,2); m.deallocate (); m.exec (dlplib.set_field_2); break; case 4: m.end_rule (); break; } // switch return m.success; } // do_script:release_entry/2 exec() // do_script:release_entry/2 decls. public SymbolDescriptor script__0; public SymbolDescriptor free__0; // end of do_script:release_entry/2 decls. public boolean init (DLP m) { script__0 = m.define_symbol ("script".intern(), 0); free__0 = m.define_symbol ("free".intern(), 0); return true; } // do_script:release_entry/2 init() } // do_script:release_entry/2 final class do_script_repeat_script_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: repeat_script(_G449, _G450) case 0: m.allocate (3); //m.success = m.get_y_value (2,1); /* ScriptName */ m.get_y_value (1,2); /* MaxCount */ m.cut_level (0); m.end_head (); break; case 1: // goal: assign_nlv_term(this, nreg, 1, 1) m.put_this (1); m.put_nreg (2); m.put_int (1,3); m.put_int (1,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 2: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 3: // goal: process_script(_G449) m.put_y_value (2,1); /* 'ScriptName' */ m.call (6) /*2*/; /* process_script_1 */ break; case 4: // goal: assign_nlv_expr(this, nreg, 1, repcnt+1) m.put_this (1); m.put_nreg (2); m.put_int (1,3); m.put_struct (op__add__2,4); m.set_z_value (1); /* repcnt */ m.set_int (1); m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 5: // goal: repcnt>_G450 m.put_z_value (1,1); /* repcnt */ m.put_y_value (1,2); /* 'MaxCount' */ m.call (dlplib.op_cmp_gt_2); /*6*/ break; case 6: // goal: ! m.cut_tail (0); m.deallocate (); break; case 7: m.end_rule (); break; } // switch return m.success; } // do_script:repeat_script/2 exec() // do_script:repeat_script/2 decls. public SymbolDescriptor op__add__2; // end of do_script:repeat_script/2 decls. public boolean init (DLP m) { op__add__2 = m.define_symbol ("+".intern(), 2); return true; } // do_script:repeat_script/2 init() } // do_script:repeat_script/2 final class do_script_process_script_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: process_script(_G449) case 0: m.allocate (1); //m.success = m.get_x_varia (10,1); /* ScriptName */ m.end_head (); break; case 1: // goal: select_script(_G449, _G458) m.put_x_value (10,1); /* 'ScriptName' */ m.put_y_value (0,2); /* 'ScriptCode' */ m.call (20) /*2*/; /* select_script_2 */ break; case 2: // goal: do_script(_G458) m.put_y_value (0,1); /* 'ScriptCode' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 3: m.end_rule (); break; } // switch return m.success; } // do_script:process_script/1 exec() // do_script:process_script/1 decls. // end of do_script:process_script/1 decls. public boolean init (DLP m) { return true; } // do_script:process_script/1 init() } // do_script:process_script/1 final class do_script_do_script_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: do_script([]) case 0: m.try_me_else (2); //m.success = m.get_nil (1); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: do_script([_G1515|_G1516]) case 2: m.retry_me_else (8); m.allocate (6); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (5); m.end_head (); break; case 3: // goal: _G1515=turn(_G1524, _G1525, _G1526, _G1527) m.put_x_value (10,1); /* 'Action' */ m.put_struct (turn__4,2); m.set_y_value (4); /* 'Agent' */ m.set_y_value (3); /* 'Object' */ m.set_y_value (2); /* 'Direction' */ m.set_y_value (1); /* 'Speed' */ m.call (dlplib.op_eq_2); /*6*/ break; case 4: // goal: ! m.cut_body (5); break; case 5: // goal: turn_body_part(_G1524, _G1525, _G1526, _G1527) m.put_y_value (4,1); /* 'Agent' */ m.put_y_value (3,2); /* 'Object' */ m.put_y_value (2,3); /* 'Direction' */ m.put_y_value (1,4); /* 'Speed' */ m.call (21) /*2*/; /* turn_body_part_4 */ break; case 6: // goal: do_script(_G1516) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 7: m.end_rule (); break; // head: do_script([_G5087|_G5088]) case 8: m.retry_me_else (14); m.allocate (5); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (4); m.end_head (); break; case 9: // goal: _G5087=turn_init(_G5096, _G5097, _G5098) m.put_x_value (10,1); /* 'Action' */ m.put_struct (turn_init__3,2); m.set_y_value (3); /* 'Agent' */ m.set_y_value (2); /* 'Object' */ m.set_y_value (1); /* 'Direction' */ m.call (dlplib.op_eq_2); /*6*/ break; case 10: // goal: ! m.cut_body (4); break; case 11: // goal: turn_body_part_init(_G5096, _G5097, _G5098) m.put_y_value (3,1); /* 'Agent' */ m.put_y_value (2,2); /* 'Object' */ m.put_y_value (1,3); /* 'Direction' */ m.call (22) /*2*/; /* turn_body_part_init_3 */ break; case 12: // goal: do_script(_G5088) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 13: m.end_rule (); break; // head: do_script([_G8505|_G8506]) case 14: m.retry_me_else (21); m.allocate (4); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (3); m.end_head (); break; case 15: // goal: _G8505=[_G8514|_G8515] m.put_x_value (10,1); /* 'Action' */ m.put_list (2); m.set_y_value (2); /* 'SubAction' */ m.set_y_value (1); /* 'SubActionList' */ m.call (dlplib.op_eq_2); /*6*/ break; case 16: // goal: ! m.cut_body (3); break; case 17: // goal: do_script([_G8514]) m.put_list (1); m.set_y_value (2); /* 'SubAction' */ m.set_nil (); m.call (7) /*2*/; /* do_script_1 */ break; case 18: // goal: do_script(_G8515) m.put_y_value (1,1); /* 'SubActionList' */ m.call (7) /*2*/; /* do_script_1 */ break; case 19: // goal: do_script(_G8506) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 20: m.end_rule (); break; // head: do_script([_G11299|_G11300]) case 21: m.retry_me_else (27); m.allocate (5); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (4); m.end_head (); break; case 22: // goal: _G11299=move(_G11308, _G11309, _G11310) m.put_x_value (10,1); /* 'Action' */ m.put_struct (move__3,2); m.set_y_value (3); /* 'Agent' */ m.set_y_value (2); /* 'Direction' */ m.set_y_value (1); /* 'Speed' */ m.call (dlplib.op_eq_2); /*6*/ break; case 23: // goal: ! m.cut_body (4); break; case 24: // goal: move_body(_G11308, humanoidroot, _G11309, _G11310) m.put_y_value (3,1); /* 'Agent' */ m.put_atom (humanoidroot__0,2); m.put_y_value (2,3); /* 'Direction' */ m.put_y_value (1,4); /* 'Speed' */ m.call (23) /*2*/; /* move_body_4 */ break; case 25: // goal: do_script(_G11300) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 26: m.end_rule (); break; // head: do_script([_G14577|_G14578]) case 27: m.retry_me_else (34); m.allocate (4); //m.success = m.get_list (1); m.uni_y_value (2); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (3); m.end_head (); break; case 28: // goal: _G14577=set_tempo(_G14586) m.put_y_value (2,1); /* 'Action' */ m.put_struct (set_tempo__1,2); m.set_y_value (1); /* 'Tempo' */ m.call (dlplib.op_eq_2); /*6*/ break; case 29: // goal: ! m.cut_body (3); break; case 30: // goal: format('gesture action: ~w~n', [_G14577]) m.put_atom (data__1__0,1); m.put_list (2); m.set_y_value (2); /* 'Action' */ m.set_nil (); m.call (dlplib.format_2); /*6*/ break; case 31: // goal: assign_nlv_term(this, nreg, 8, _G14586) m.put_this (1); m.put_nreg (2); m.put_int (8,3); m.put_y_value (1,4); /* 'Tempo' */ m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 32: // goal: do_script(_G14578) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 33: m.end_rule (); break; // head: do_script([_G17642|_G17643]) case 34: m.retry_me_else (42); m.allocate (5); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (4); m.end_head (); break; case 35: // goal: _G17642=wait(_G17651) m.put_x_value (10,1); /* 'Action' */ m.put_struct (wait__1,2); m.set_y_value (3); /* 'Time' */ m.call (dlplib.op_eq_2); /*6*/ break; case 36: // goal: ! m.cut_body (4); break; case 37: // goal: is_eval(_G17651, _G17894) m.put_y_value (3,1); /* 'Time' */ m.put_y_value (2,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 38: // goal: is_if_mul_iv(_G17894, _G17659, 1000) m.put_y_value (2,1); /* 'Unknown' */ m.put_y_value (1,2); /* 'SleepTime' */ m.put_int (1000,3); m.call (dlplib.is_if_mul_iv_3); /*6*/ break; case 39: // goal: sleep(_G17659) m.put_y_value (1,1); /* 'SleepTime' */ m.call (dlplib.sleep_1); /*6*/ break; case 40: // goal: do_script(_G17643) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 41: m.end_rule (); break; // head: do_script([_G20904|_G20905]) case 42: m.retry_me_else (48); m.allocate (2); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (1); m.end_head (); break; case 43: // goal: _G20904=skip(_G20913) m.put_x_value (10,1); /* 'Action' */ m.put_struct (skip__1,2); m.set_v_varia (); /* 'Unknown' */ m.call (dlplib.op_eq_2); /*6*/ break; case 44: // goal: ! m.cut_body (1); break; case 45: // goal: do_script(_G20905) m.put_y_value (0,1); /* 'Y' */ m.call (7) /*2*/; /* do_script_1 */ break; case 46: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 47: m.end_rule (); break; // head: do_script([_G23130|_G23131]) case 48: m.retry_me_else (54); m.allocate (2); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (1); m.end_head (); break; case 49: // goal: _G23130=skip m.put_x_value (10,1); /* 'Action' */ m.put_atom (skip__0,2); m.call (dlplib.op_eq_2); /*6*/ break; case 50: // goal: ! m.cut_body (1); break; case 51: // goal: do_script(_G23131) m.put_y_value (0,1); /* 'Y' */ m.call (7) /*2*/; /* do_script_1 */ break; case 52: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 53: m.end_rule (); break; // head: do_script([_G25234|_G25235]) case 54: m.retry_me_else (66); m.allocate (6); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (5); m.end_head (); break; case 55: // goal: _G25234=parallel(_G25243) m.put_x_value (10,1); /* 'Action' */ m.put_struct (parallel__1,2); m.set_y_value (3); /* 'ActionList' */ m.call (dlplib.op_eq_2); /*6*/ break; case 56: // goal: ! m.cut_body (5); break; case 57: // goal: length(_G25243, _G25252) m.put_y_value (3,1); /* 'ActionList' */ m.put_y_value (4,2); /* 'ActionListLength' */ m.call (dlplib.length_2); /*6*/ break; case 58: // goal: select_entry(answer_entry, _G25258) m.put_atom (answer_entry__0,1); m.put_y_value (1,2); /* 'Answer' */ m.call (2) /*2*/; /* select_entry_2 */ break; case 59: // goal: count_down_init(_G25258, _G25252) m.put_y_value (1,1); /* 'Answer' */ m.put_y_value (4,2); /* 'ActionListLength' */ m.call (12) /*2*/; /* count_down_init_2 */ break; case 60: // goal: process_parallel_action(_G25243, _G25258) m.put_y_value (3,1); /* 'ActionList' */ m.put_y_value (1,2); /* 'Answer' */ m.call (17) /*2*/; /* process_parallel_action_2 */ break; case 61: // goal: format_to_atom(_G25275, 'parent_~w', [_G25258]) m.put_y_value (2,1); /* 'Parent' */ m.put_atom (data__2__0,2); m.put_list (3); m.set_y_value (1); /* 'Answer' */ m.set_nil (); m.call (dlplib.format_to_atom_3); /*6*/ break; case 62: // goal: get_field_event(_G25275, _G25286) m.put_y_value (2,1); /* 'Parent' */ m.put_v_varia (2); /* 'ReplyValue' */ m.call (dlplib.get_field_event_2); /*6*/ break; case 63: // goal: release_entry(_G25258, answer_entry) m.put_y_value (1,1); /* 'Answer' */ m.put_atom (answer_entry__0,2); m.call (4) /*2*/; /* release_entry_2 */ break; case 64: // goal: do_script(_G25235) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 65: m.end_rule (); break; // head: do_script([_G31199|_G31200]) case 66: m.retry_me_else (72); m.allocate (3); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (2); m.end_head (); break; case 67: // goal: _G31199=script(_G31208) m.put_x_value (10,1); /* 'Action' */ m.put_struct (script__1,2); m.set_y_value (1); /* 'ScriptName' */ m.call (dlplib.op_eq_2); /*6*/ break; case 68: // goal: ! m.cut_body (2); break; case 69: // goal: process_script(_G31208) m.put_y_value (1,1); /* 'ScriptName' */ m.call (6) /*2*/; /* process_script_1 */ break; case 70: // goal: do_script(_G31200) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 71: m.end_rule (); break; // head: do_script([_G33708|_G33709]) case 72: m.retry_me_else (78); m.allocate (4); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (3); m.end_head (); break; case 73: // goal: _G33708=repeat(_G33717, _G33718) m.put_x_value (10,1); /* 'Action' */ m.put_struct (repeat__2,2); m.set_y_value (2); /* 'Script' */ m.set_y_value (1); /* 'Times' */ m.call (dlplib.op_eq_2); /*6*/ break; case 74: // goal: ! m.cut_body (3); break; case 75: // goal: repeat_script(_G33717, _G33718) m.put_y_value (2,1); /* 'Script' */ m.put_y_value (1,2); /* 'Times' */ m.call (5) /*2*/; /* repeat_script_2 */ break; case 76: // goal: do_script(_G33709) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 77: m.end_rule (); break; // head: do_script([_G36426|_G36427]) case 78: m.retry_me_else (84); m.allocate (3); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (2); m.end_head (); break; case 79: // goal: _G36426=choice([_G36437]) m.put_list (11); m.set_y_value (1); /* 'Actions' */ m.set_nil (); m.put_x_value (10,1); /* 'Action' */ m.put_struct (choice__1,2); m.set_x_value (11); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 80: // goal: ! m.cut_body (2); break; case 81: // goal: process_choice([_G36437]) m.put_list (1); m.set_y_value (1); /* 'Actions' */ m.set_nil (); m.call (8) /*2*/; /* process_choice_1 */ break; case 82: // goal: do_script(_G36427) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 83: m.end_rule (); break; // head: do_script([_G39124|_G39125]) case 84: m.retry_me_else (91); m.allocate (3); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (2); m.end_head (); break; case 85: // goal: _G39124=do(_G39133) m.put_x_value (10,1); /* 'Action' */ m.put_struct (do__1,2); m.set_y_value (1); /* 'Goal' */ m.call (dlplib.op_eq_2); /*6*/ break; case 86: // goal: ! m.cut_body (2); break; case 87: // goal: inspect_goal(_G39133) m.put_y_value (1,1); /* 'Goal' */ m.call (10) /*2*/; /* inspect_goal_1 */ break; case 88: // goal: do_script(_G39125) m.put_y_value (0,1); /* 'Y' */ m.call (7) /*2*/; /* do_script_1 */ break; case 89: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 90: m.end_rule (); break; // head: do_script([_G41688|_G41689]) case 91: m.retry_me_else (98); m.allocate (3); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (2); m.end_head (); break; case 92: // goal: _G41688=test(_G41697) m.put_x_value (10,1); /* 'Action' */ m.put_struct (test__1,2); m.set_y_value (1); /* 'State' */ m.call (dlplib.op_eq_2); /*6*/ break; case 93: // goal: ! m.cut_body (2); break; case 94: // goal: inspect_goal(_G41697) m.put_y_value (1,1); /* 'State' */ m.call (10) /*2*/; /* inspect_goal_1 */ break; case 95: // goal: do_script(_G41689) m.put_y_value (0,1); /* 'Y' */ m.call (7) /*2*/; /* do_script_1 */ break; case 96: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 97: m.end_rule (); break; // head: do_script([_G44282|_G44283]) case 98: m.retry_me_else (105); m.allocate (3); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_level (2); m.end_head (); break; case 99: // goal: _G44282=star(_G44291) m.put_x_value (10,1); /* 'Action' */ m.put_struct (star__1,2); m.set_y_value (1); /* 'Action1' */ m.call (dlplib.op_eq_2); /*6*/ break; case 100: // goal: ! m.cut_body (2); break; case 101: // goal: process_star(_G44291) m.put_y_value (1,1); /* 'Action1' */ m.call (9) /*2*/; /* process_star_1 */ break; case 102: // goal: do_script(_G44283) m.put_y_value (0,1); /* 'Y' */ m.call (7) /*2*/; /* do_script_1 */ break; case 103: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 104: m.end_rule (); break; // head: do_script([_G46876|_G46877]) case 105: m.retry_me_else (109); m.allocate (1); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_y_value (0); /* Y */ m.cut_neck (); m.end_head (); break; case 106: // goal: format('unknown gesture action: ~w~n', [_G46876]) m.put_atom (data__3__0,1); m.put_list (2); m.set_x_value (10); /* 'Action' */ m.set_nil (); m.call (dlplib.format_2); /*6*/ break; case 107: // goal: do_script(_G46877) m.put_y_value (0,1); /* 'Y' */ m.deallocate (); m.exec (7); /* do_script_1 */ break; case 108: m.end_rule (); break; // head: do_script(_G48772) case 109: m.trust_or_fail (); //m.success = m.get_x_varia (10,1); /* Action */ m.end_head (); break; case 110: // goal: format('unknown gesture action:~w (not a list)~n', [_G48772]) m.put_atom (data__4__0,1); m.put_list (2); m.set_x_value (10); /* 'Action' */ m.set_nil (); m.exec (dlplib.format_2); break; case 111: m.end_rule (); break; } // switch return m.success; } // do_script:do_script/1 exec() // do_script:do_script/1 decls. public SymbolDescriptor sl_sr__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor turn__4; public SymbolDescriptor turn_init__3; public SymbolDescriptor move__3; public SymbolDescriptor humanoidroot__0; public SymbolDescriptor set_tempo__1; public SymbolDescriptor data__1__0; public SymbolDescriptor wait__1; public SymbolDescriptor skip__1; public SymbolDescriptor skip__0; public SymbolDescriptor parallel__1; public SymbolDescriptor answer_entry__0; public SymbolDescriptor data__2__0; public SymbolDescriptor script__1; public SymbolDescriptor repeat__2; public SymbolDescriptor choice__1; public SymbolDescriptor do__1; public SymbolDescriptor test__1; public SymbolDescriptor star__1; public SymbolDescriptor data__3__0; public SymbolDescriptor data__4__0; // end of do_script:do_script/1 decls. public boolean init (DLP m) { sl_sr__0 = m.define_symbol ("[]".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); turn__4 = m.define_symbol ("turn".intern(), 4); turn_init__3 = m.define_symbol ("turn_init".intern(), 3); move__3 = m.define_symbol ("move".intern(), 3); humanoidroot__0 = m.define_symbol ("humanoidroot".intern(), 0); set_tempo__1 = m.define_symbol ("set_tempo".intern(), 1); data__1__0 = m.define_symbol ("gesture action: ~w~n".intern(), 0); wait__1 = m.define_symbol ("wait".intern(), 1); skip__1 = m.define_symbol ("skip".intern(), 1); skip__0 = m.define_symbol ("skip".intern(), 0); parallel__1 = m.define_symbol ("parallel".intern(), 1); answer_entry__0 = m.define_symbol ("answer_entry".intern(), 0); data__2__0 = m.define_symbol ("parent_~w".intern(), 0); script__1 = m.define_symbol ("script".intern(), 1); repeat__2 = m.define_symbol ("repeat".intern(), 2); choice__1 = m.define_symbol ("choice".intern(), 1); do__1 = m.define_symbol ("do".intern(), 1); test__1 = m.define_symbol ("test".intern(), 1); star__1 = m.define_symbol ("star".intern(), 1); data__3__0 = m.define_symbol ("unknown gesture action: ~w~n".intern(), 0); data__4__0 = m.define_symbol ("unknown gesture action:~w (not a list)~n".intern(), 0); return true; } // do_script:do_script/1 init() } // do_script:do_script/1 final class do_script_process_choice_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: process_choice([]) case 0: m.try_me_else (2); //m.success = m.get_nil (1); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: process_choice([_G1515|_G1516]) case 2: m.retry_me_else (6); m.allocate (1); //m.success = m.get_list (1); m.uni_x_varia (10); /* Action */ m.uni_v_varia (); /* Unknown */ m.cut_level (0); m.end_head (); break; case 3: // goal: do_script(_G1515) m.put_x_value (10,1); /* 'Action' */ m.call (7) /*2*/; /* do_script_1 */ break; case 4: // goal: ! m.cut_tail (0); m.deallocate (); break; case 5: m.end_rule (); break; // head: process_choice([_G3233|_G3234]) case 6: m.trust_or_fail (); m.allocate (1); //m.success = m.get_list (1); m.uni_v_varia (); /* Unknown */ m.uni_x_varia (11); /* Y */ m.cut_level (0); m.end_head (); break; case 7: // goal: process_choice(_G3234) m.put_x_value (11,1); /* 'Y' */ m.call (8) /*2*/; /* process_choice_1 */ break; case 8: // goal: ! m.cut_tail (0); m.deallocate (); break; case 9: m.end_rule (); break; } // switch return m.success; } // do_script:process_choice/1 exec() // do_script:process_choice/1 decls. public SymbolDescriptor sl_sr__0; public SymbolDescriptor op__dot__2; // end of do_script:process_choice/1 decls. public boolean init (DLP m) { sl_sr__0 = m.define_symbol ("[]".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); return true; } // do_script:process_choice/1 init() } // do_script:process_choice/1 final class do_script_process_star_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: process_star(_G449) case 0: m.try_me_else (4); m.allocate (1); //m.success = m.get_x_varia (10,1); /* Action */ m.cut_level (0); m.end_head (); break; case 1: // goal: do_script(_G449) m.put_x_value (10,1); /* 'Action' */ m.call (7) /*2*/; /* do_script_1 */ break; case 2: // goal: ! m.cut_tail (0); m.deallocate (); break; case 3: m.end_rule (); break; // head: process_star(_G1915) case 4: m.trust_or_fail (); m.allocate (0); //m.success = m.get_x_varia (10,1); /* Action */ m.cut_neck (); m.end_head (); break; case 5: // goal: process_star(_G1915) m.put_x_value (10,1); /* 'Action' */ m.call (9) /*2*/; /* process_star_1 */ break; case 6: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 7: m.end_rule (); break; } // switch return m.success; } // do_script:process_star/1 exec() // do_script:process_star/1 decls. // end of do_script:process_star/1 decls. public boolean init (DLP m) { return true; } // do_script:process_star/1 init() } // do_script:process_star/1 final class do_script_inspect_goal_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: inspect_goal((_G454, _G455)) case 0: m.try_me_else (4); m.allocate (1); //m.success = m.get_struct (op__com__2,1); m.uni_x_varia (10); /* Goal1 */ m.uni_y_value (0); /* Goal2 */ m.cut_neck (); m.end_head (); break; case 1: // goal: do_goal(_G454) m.put_x_value (10,1); /* 'Goal1' */ m.call (11) /*2*/; /* do_goal_1 */ break; case 2: // goal: inspect_goal(_G455) m.put_y_value (0,1); /* 'Goal2' */ m.deallocate (); m.exec (10); /* inspect_goal_1 */ break; case 3: m.end_rule (); break; // head: inspect_goal(_G2356) case 4: m.trust_or_fail (); //m.success = m.get_x_varia (10,1); /* Goal */ m.end_head (); break; case 5: // goal: do_goal(_G2356) m.put_x_value (10,1); /* 'Goal' */ m.exec (11); /* do_goal_1 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // do_script:inspect_goal/1 exec() // do_script:inspect_goal/1 decls. public SymbolDescriptor op__com__2; // end of do_script:inspect_goal/1 decls. public boolean init (DLP m) { op__com__2 = m.define_symbol (",".intern(), 2); return true; } // do_script:inspect_goal/1 init() } // do_script:inspect_goal/1 final class do_script_do_goal_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: do_goal(setRotation(_G454, _G455, _G456, _G457, _G458)) case 0: m.try_me_else (3); //m.success = m.get_struct (setRotation__5,1); m.uni_x_varia (10); /* O */ m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.uni_x_varia (14); /* R */ m.cut_neck (); m.end_head (); break; case 1: // goal: setRotation(_G454, _G455, _G456, _G457, _G458) m.put_x_value (10,1); /* 'O' */ m.put_x_value (11,2); /* 'X' */ m.put_x_value (12,3); /* 'Y' */ m.put_x_value (13,4); /* 'Z' */ m.put_x_value (14,5); /* 'R' */ m.exec (24); /* setRotation_5 */ break; case 2: m.end_rule (); break; // head: do_goal(getRotation(_G3103, _G3104, _G3105, _G3106, _G3107)) case 3: m.retry_me_else (6); //m.success = m.get_struct (getRotation__5,1); m.uni_x_varia (10); /* O */ m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.uni_x_varia (14); /* R */ m.cut_neck (); m.end_head (); break; case 4: // goal: getRotation(_G3103, _G3104, _G3105, _G3106, _G3107) m.put_x_value (10,1); /* 'O' */ m.put_x_value (11,2); /* 'X' */ m.put_x_value (12,3); /* 'Y' */ m.put_x_value (13,4); /* 'Z' */ m.put_x_value (14,5); /* 'R' */ m.exec (25); /* getRotation_5 */ break; case 5: m.end_rule (); break; // head: do_goal(setPosition(_G5752, _G5753, _G5754, _G5755)) case 6: m.retry_me_else (9); //m.success = m.get_struct (setPosition__4,1); m.uni_x_varia (10); /* O */ m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.cut_neck (); m.end_head (); break; case 7: // goal: setPosition(_G5752, _G5753, _G5754, _G5755) m.put_x_value (10,1); /* 'O' */ m.put_x_value (11,2); /* 'X' */ m.put_x_value (12,3); /* 'Y' */ m.put_x_value (13,4); /* 'Z' */ m.exec (26); /* setPosition_4 */ break; case 8: m.end_rule (); break; // head: do_goal(getPosition(_G8160, _G8161, _G8162, _G8163)) case 9: m.retry_me_else (12); //m.success = m.get_struct (getPosition__4,1); m.uni_x_varia (10); /* O */ m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.cut_neck (); m.end_head (); break; case 10: // goal: getPosition(_G8160, _G8161, _G8162, _G8163) m.put_x_value (10,1); /* 'O' */ m.put_x_value (11,2); /* 'X' */ m.put_x_value (12,3); /* 'Y' */ m.put_x_value (13,4); /* 'Z' */ m.exec (27); /* getPosition_4 */ break; case 11: m.end_rule (); break; // head: do_goal(getBodyObjectName(_G10568, _G10569, _G10570)) case 12: m.retry_me_else (15); //m.success = m.get_struct (getBodyObjectName__3,1); m.uni_x_varia (10); /* A */ m.uni_x_varia (11); /* O */ m.uni_x_varia (12); /* N */ m.cut_neck (); m.end_head (); break; case 13: // goal: <-(this, gesturelib, getBodyObjectName(_G10568, _G10569, _G10570)) m.put_this (1); m.put_atom (gesturelib__0,2); m.put_struct (getBodyObjectName__3,3); m.set_x_value (10); /* 'A' */ m.set_x_value (11); /* 'O' */ m.set_x_value (12); /* 'N' */ m.exec (dlplib.op_call_3); break; case 14: m.end_rule (); break; // head: do_goal(_G12902) case 15: m.trust_or_fail (); //m.success = m.get_x_varia (10,1); /* Goal */ m.end_head (); break; case 16: // goal: call(this, _G12902) m.put_this (1); m.put_x_value (10,2); /* 'Goal' */ m.exec (dlplib.call_2); break; case 17: m.end_rule (); break; } // switch return m.success; } // do_script:do_goal/1 exec() // do_script:do_goal/1 decls. public SymbolDescriptor setRotation__5; public SymbolDescriptor getRotation__5; public SymbolDescriptor setPosition__4; public SymbolDescriptor getPosition__4; public SymbolDescriptor getBodyObjectName__3; public SymbolDescriptor this__0; public SymbolDescriptor gesturelib__0; // end of do_script:do_goal/1 decls. public boolean init (DLP m) { setRotation__5 = m.define_symbol ("setRotation".intern(), 5); getRotation__5 = m.define_symbol ("getRotation".intern(), 5); setPosition__4 = m.define_symbol ("setPosition".intern(), 4); getPosition__4 = m.define_symbol ("getPosition".intern(), 4); getBodyObjectName__3 = m.define_symbol ("getBodyObjectName".intern(), 3); this__0 = m.define_symbol ("this".intern(), 0); gesturelib__0 = m.define_symbol ("gesturelib".intern(), 0); return true; } // do_script:do_goal/1 init() } // do_script:do_goal/1 final class do_script_count_down_init_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: count_down_init(_G449, _G450) case 0: //m.success = m.get_x_varia (10,1); /* Answer */ m.get_x_varia (11,2); /* Counter */ m.end_head (); break; case 1: // goal: set_array(script, answer_entry, _G449, _G450) m.put_atom (script__0,1); m.put_atom (answer_entry__0,2); m.put_x_value (10,3); /* 'Answer' */ m.put_x_value (11,4); /* 'Counter' */ m.exec (dlplib.set_array_4); break; case 2: m.end_rule (); break; } // switch return m.success; } // do_script:count_down_init/2 exec() // do_script:count_down_init/2 decls. public SymbolDescriptor script__0; public SymbolDescriptor answer_entry__0; // end of do_script:count_down_init/2 decls. public boolean init (DLP m) { script__0 = m.define_symbol ("script".intern(), 0); answer_entry__0 = m.define_symbol ("answer_entry".intern(), 0); return true; } // do_script:count_down_init/2 init() } // do_script:count_down_init/2 final class do_script_count_down_join_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: count_down_join(_G449, _G450) case 0: m.allocate (4); //m.success = m.get_y_value (0,1); /* Answer */ m.get_v_varia (2); /* ThreadID */ m.end_head (); break; case 1: // goal: get_field_event(answer_entry, _G459) m.put_atom (answer_entry__0,1); m.put_v_varia (2); /* 'Unknown' */ m.call (dlplib.get_field_event_2); /*6*/ break; case 2: // goal: get_array(script, answer_entry, _G449, _G467) m.put_atom (script__0,1); m.put_atom (answer_entry__0,2); m.put_y_value (0,3); /* 'Answer' */ m.put_y_value (3,4); /* 'C' */ m.call (dlplib.get_array_4); /*6*/ break; case 3: // goal: is_eval(_G467, _G977) m.put_y_value (3,1); /* 'C' */ m.put_y_value (2,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 4: // goal: is_if_sub_i1(_G977, _G472) m.put_y_value (2,1); /* 'Unknown' */ m.put_y_value (1,2); /* 'C1' */ m.call (dlplib.is_if_sub_i1_2); /*6*/ break; case 5: // goal: set_array(script, answer_entry, _G449, _G472) m.put_atom (script__0,1); m.put_atom (answer_entry__0,2); m.put_y_value (0,3); /* 'Answer' */ m.put_y_value (1,4); /* 'C1' */ m.call (dlplib.set_array_4); /*6*/ break; case 6: // goal: set_field(answer_entry, free) m.put_atom (answer_entry__0,1); m.put_atom (free__0,2); m.call (dlplib.set_field_2); /*6*/ break; case 7: // goal: count_down_last(_G472, _G449) m.put_y_value (1,1); /* 'C1' */ m.put_y_value (0,2); /* 'Answer' */ m.deallocate (); m.exec (14); /* count_down_last_2 */ break; case 8: m.end_rule (); break; } // switch return m.success; } // do_script:count_down_join/2 exec() // do_script:count_down_join/2 decls. public SymbolDescriptor answer_entry__0; public SymbolDescriptor script__0; public SymbolDescriptor free__0; // end of do_script:count_down_join/2 decls. public boolean init (DLP m) { answer_entry__0 = m.define_symbol ("answer_entry".intern(), 0); script__0 = m.define_symbol ("script".intern(), 0); free__0 = m.define_symbol ("free".intern(), 0); return true; } // do_script:count_down_join/2 init() } // do_script:count_down_join/2 final class do_script_count_down_last_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: count_down_last(_G449, _G450) case 0: m.try_me_else (6); m.allocate (3); //m.success = m.get_x_varia (10,1); /* C */ m.get_y_value (1,2); /* Answer */ m.cut_level (2); m.end_head (); break; case 1: // goal: _G449=<0 m.put_x_value (10,1); /* 'C' */ m.put_int (0,2); m.call (dlplib.op_cmp_le_2); /*6*/ break; case 2: // goal: ! m.cut_body (2); break; case 3: // goal: format_to_atom(_G467, 'parent_~w', [_G450]) m.put_y_value (0,1); /* 'Parent' */ m.put_atom (data__5__0,2); m.put_list (3); m.set_y_value (1); /* 'Answer' */ m.set_nil (); m.call (dlplib.format_to_atom_3); /*6*/ break; case 4: // goal: set_field(_G467, done) m.put_y_value (0,1); /* 'Parent' */ m.put_atom (done__0,2); m.deallocate (); m.exec (dlplib.set_field_2); break; case 5: m.end_rule (); break; // head: count_down_last(_G3413, _G3414) case 6: m.trust_or_fail (); //m.success = m.get_v_varia (1); /* Unknown */ m.get_v_varia (2); /* Unknown */ m.end_head (); break; case 7: m.end_fact (); break; } // switch return m.success; } // do_script:count_down_last/2 exec() // do_script:count_down_last/2 decls. public SymbolDescriptor data__5__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; public SymbolDescriptor done__0; // end of do_script:count_down_last/2 decls. public boolean init (DLP m) { data__5__0 = m.define_symbol ("parent_~w".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); done__0 = m.define_symbol ("done".intern(), 0); return true; } // do_script:count_down_last/2 init() } // do_script:count_down_last/2 final class do_script_turn_object_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: turn_object(_G449, rotation(_G457, _G458, _G459, _G460), _G451, _G452) case 0: m.allocate (36); //m.success = m.get_y_value (5,1); /* Object */ m.get_struct (rotation__4,2); m.uni_y_value (4); /* X */ m.uni_y_value (3); /* Y */ m.uni_y_value (2); /* Z */ m.uni_y_value (1); /* R */ m.get_y_value (35,3); /* Time */ m.get_y_value (34,4); /* Interpolation */ m.cut_level (0); m.end_head (); break; case 1: // goal: getRotation(_G449, _G466, _G467, _G468, _G469) m.put_y_value (5,1); /* 'Object' */ m.put_y_value (27,2); /* 'X1' */ m.put_y_value (21,3); /* 'Y1' */ m.put_y_value (15,4); /* 'Z1' */ m.put_y_value (33,5); /* 'R1' */ m.call (25) /*2*/; /* getRotation_5 */ break; case 2: // goal: assign_nlv_term(this, nreg, 0, 0) m.put_this (1); m.put_nreg (2); m.put_int (0,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 3: // goal: assign_nlv_expr(this, nreg, 3, (_G460-_G469)/_G452) m.put_struct (op__sub__2,11); m.set_y_value (1); /* 'R' */ m.set_y_value (33); /* 'R1' */ m.put_this (1); m.put_nreg (2); m.put_int (3,3); m.put_struct (op__div__2,4); m.set_x_value (11); /* 'Xtmp' */ m.set_y_value (34); /* 'Interpolation' */ m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 4: // goal: assign_nlv_expr(this, nreg, 5, (_G457-_G466)/_G452) m.put_struct (op__sub__2,12); m.set_y_value (4); /* 'X' */ m.set_y_value (27); /* 'X1' */ m.put_this (1); m.put_nreg (2); m.put_int (5,3); m.put_struct (op__div__2,4); m.set_x_value (12); /* 'Xtmp' */ m.set_y_value (34); /* 'Interpolation' */ m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 5: // goal: assign_nlv_expr(this, nreg, 6, (_G458-_G467)/_G452) m.put_struct (op__sub__2,13); m.set_y_value (3); /* 'Y' */ m.set_y_value (21); /* 'Y1' */ m.put_this (1); m.put_nreg (2); m.put_int (6,3); m.put_struct (op__div__2,4); m.set_x_value (13); /* 'Xtmp' */ m.set_y_value (34); /* 'Interpolation' */ m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 6: // goal: assign_nlv_expr(this, nreg, 7, (_G459-_G468)/_G452) m.put_struct (op__sub__2,14); m.set_y_value (2); /* 'Z' */ m.set_y_value (15); /* 'Z1' */ m.put_this (1); m.put_nreg (2); m.put_int (7,3); m.put_struct (op__div__2,4); m.set_x_value (14); /* 'Xtmp' */ m.set_y_value (34); /* 'Interpolation' */ m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 7: // goal: assign_nlv_expr(this, nreg, 4, 60/tempo*_G451*1000/_G452) m.put_struct (op__div__2,15); m.set_int (60); m.set_z_value (8); /* tempo */ m.put_struct (op__mul__2,16); m.set_x_value (15); /* 'Xtmp' */ m.set_y_value (35); /* 'Time' */ m.put_struct (op__mul__2,17); m.set_x_value (16); /* 'Xtmp' */ m.set_int (1000); m.put_this (1); m.put_nreg (2); m.put_int (4,3); m.put_struct (op__div__2,4); m.set_x_value (17); /* 'Xtmp' */ m.set_y_value (34); /* 'Interpolation' */ m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 8: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 9: // goal: is_eval(_G469, _G2240) m.put_y_value (33,1); /* 'R1' */ m.put_y_value (29,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 10: // goal: is_eval(incrementr, _G2243) m.put_z_value (3,1); /* incrementr */ m.put_y_value (31,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 11: // goal: is_eval(count, _G2246) m.put_z_value (0,1); /* count */ m.put_y_value (32,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 12: // goal: is_if_add_i1(_G2246, _G2252) m.put_y_value (32,1); /* 'Unknown' */ m.put_y_value (30,2); /* 'Unknown' */ m.call (dlplib.is_if_add_i1_2); /*6*/ break; case 13: // goal: is_if_mul_if(_G2243, _G2252, _G2262) m.put_y_value (31,1); /* 'Unknown' */ m.put_y_value (30,2); /* 'Unknown' */ m.put_y_value (28,3); /* 'Unknown' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 14: // goal: is_if_add_if(_G2240, _G2262, _G549) m.put_y_value (29,1); /* 'Unknown' */ m.put_y_value (28,2); /* 'Unknown' */ m.put_y_value (6,3); /* 'Rnew' */ m.call (dlplib.is_if_add_if_3); /*6*/ break; case 15: // goal: is_eval(_G466, _G2813) m.put_y_value (27,1); /* 'X1' */ m.put_y_value (23,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 16: // goal: is_eval(incrementx, _G2816) m.put_z_value (5,1); /* incrementx */ m.put_y_value (25,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 17: // goal: is_eval(count, _G2819) m.put_z_value (0,1); /* count */ m.put_y_value (26,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 18: // goal: is_if_add_i1(_G2819, _G2825) m.put_y_value (26,1); /* 'Unknown' */ m.put_y_value (24,2); /* 'Unknown' */ m.call (dlplib.is_if_add_i1_2); /*6*/ break; case 19: // goal: is_if_mul_if(_G2816, _G2825, _G2835) m.put_y_value (25,1); /* 'Unknown' */ m.put_y_value (24,2); /* 'Unknown' */ m.put_y_value (22,3); /* 'Unknown' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 20: // goal: is_if_add_if(_G2813, _G2835, _G564) m.put_y_value (23,1); /* 'Unknown' */ m.put_y_value (22,2); /* 'Unknown' */ m.put_y_value (9,3); /* 'Xnew' */ m.call (dlplib.is_if_add_if_3); /*6*/ break; case 21: // goal: is_eval(_G467, _G3509) m.put_y_value (21,1); /* 'Y1' */ m.put_y_value (17,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 22: // goal: is_eval(incrementy, _G3512) m.put_z_value (6,1); /* incrementy */ m.put_y_value (19,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 23: // goal: is_eval(count, _G3515) m.put_z_value (0,1); /* count */ m.put_y_value (20,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 24: // goal: is_if_add_i1(_G3515, _G3521) m.put_y_value (20,1); /* 'Unknown' */ m.put_y_value (18,2); /* 'Unknown' */ m.call (dlplib.is_if_add_i1_2); /*6*/ break; case 25: // goal: is_if_mul_if(_G3512, _G3521, _G3531) m.put_y_value (19,1); /* 'Unknown' */ m.put_y_value (18,2); /* 'Unknown' */ m.put_y_value (16,3); /* 'Unknown' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 26: // goal: is_if_add_if(_G3509, _G3531, _G579) m.put_y_value (17,1); /* 'Unknown' */ m.put_y_value (16,2); /* 'Unknown' */ m.put_y_value (8,3); /* 'Ynew' */ m.call (dlplib.is_if_add_if_3); /*6*/ break; case 27: // goal: is_eval(_G468, _G4328) m.put_y_value (15,1); /* 'Z1' */ m.put_y_value (11,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 28: // goal: is_eval(incrementz, _G4331) m.put_z_value (7,1); /* incrementz */ m.put_y_value (13,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 29: // goal: is_eval(count, _G4334) m.put_z_value (0,1); /* count */ m.put_y_value (14,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 30: // goal: is_if_add_i1(_G4334, _G4340) m.put_y_value (14,1); /* 'Unknown' */ m.put_y_value (12,2); /* 'Unknown' */ m.call (dlplib.is_if_add_i1_2); /*6*/ break; case 31: // goal: is_if_mul_if(_G4331, _G4340, _G4350) m.put_y_value (13,1); /* 'Unknown' */ m.put_y_value (12,2); /* 'Unknown' */ m.put_y_value (10,3); /* 'Unknown' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 32: // goal: is_if_add_if(_G4328, _G4350, _G594) m.put_y_value (11,1); /* 'Unknown' */ m.put_y_value (10,2); /* 'Unknown' */ m.put_y_value (7,3); /* 'Znew' */ m.call (dlplib.is_if_add_if_3); /*6*/ break; case 33: // goal: setRotation(_G449, _G564, _G579, _G594, _G549) m.put_y_value (5,1); /* 'Object' */ m.put_y_value (9,2); /* 'Xnew' */ m.put_y_value (8,3); /* 'Ynew' */ m.put_y_value (7,4); /* 'Znew' */ m.put_y_value (6,5); /* 'Rnew' */ m.call (24) /*2*/; /* setRotation_5 */ break; case 34: // goal: sleep(sleeptime) m.put_z_value (4,1); /* sleeptime */ m.call (dlplib.sleep_1); /*6*/ break; case 35: // goal: assign_nlv_expr(this, nreg, 0, count+1) m.put_this (1); m.put_nreg (2); m.put_int (0,3); m.put_struct (op__add__2,4); m.set_z_value (0); /* count */ m.set_int (1); m.call (dlplib.assign_nlv_expr_4); /*6*/ break; case 36: // goal: abs(_G549-_G460)==_G452 m.put_z_value (0,1); /* count */ m.put_y_value (1,2); /* 'Interpolation' */ m.call (dlplib.op_cmp_ge_2); /*6*/ break; case 30: // goal: ! m.cut_tail (0); m.deallocate (); break; case 31: m.end_rule (); break; } // switch return m.success; } // do_script:move_object/4 exec() // do_script:move_object/4 decls. public SymbolDescriptor increment__3; public SymbolDescriptor translation__0; public SymbolDescriptor op__div__2; public SymbolDescriptor op__mul__2; public SymbolDescriptor op__add__2; // end of do_script:move_object/4 decls. public boolean init (DLP m) { increment__3 = m.define_symbol ("increment".intern(), 3); translation__0 = m.define_symbol ("translation".intern(), 0); op__div__2 = m.define_symbol ("/".intern(), 2); op__mul__2 = m.define_symbol ("*".intern(), 2); op__add__2 = m.define_symbol ("+".intern(), 2); return true; } // do_script:move_object/4 init() } // do_script:move_object/4 final class do_script_process_parallel_action_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: process_parallel_action([], _G450) case 0: m.try_me_else (2); //m.success = m.get_nil (1); m.get_v_varia (2); /* Unknown */ m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: process_parallel_action([_G1609|_G1610], _G1604) case 2: m.trust_or_fail (); m.allocate (5); //m.success = m.get_list (1); m.uni_y_value (2); /* Action */ m.uni_y_value (1); /* List */ m.get_y_value (0,2); /* Answer */ m.end_head (); break; case 3: // goal: select_entry(thread_entry, _G1616) m.put_atom (thread_entry__0,1); m.put_y_value (4,2); /* 'I' */ m.call (2) /*2*/; /* select_entry_2 */ break; case 4: // goal: format_to_atom(_G1621, 'queue_~w', [_G1616]) m.put_y_value (3,1); /* 'Queue' */ m.put_atom (data__6__0,2); m.put_list (3); m.set_y_value (4); /* 'I' */ m.set_nil (); m.call (dlplib.format_to_atom_3); /*6*/ break; case 5: // goal: set_queue(_G1621, task(_G1609, _G1604)) m.put_y_value (3,1); /* 'Queue' */ m.put_struct (task__2,2); m.set_y_value (2); /* 'Action' */ m.set_y_value (0); /* 'Answer' */ m.call (dlplib.set_queue_2); /*6*/ break; case 6: // goal: process_parallel_action(_G1610, _G1604) m.put_y_value (1,1); /* 'List' */ m.put_y_value (0,2); /* 'Answer' */ m.deallocate (); m.exec (17); /* process_parallel_action_2 */ break; case 7: m.end_rule (); break; } // switch return m.success; } // do_script:process_parallel_action/2 exec() // do_script:process_parallel_action/2 decls. public SymbolDescriptor sl_sr__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor thread_entry__0; public SymbolDescriptor data__6__0; public SymbolDescriptor task__2; // end of do_script:process_parallel_action/2 decls. public boolean init (DLP m) { sl_sr__0 = m.define_symbol ("[]".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); thread_entry__0 = m.define_symbol ("thread_entry".intern(), 0); data__6__0 = m.define_symbol ("queue_~w".intern(), 0); task__2 = m.define_symbol ("task".intern(), 2); return true; } // do_script:process_parallel_action/2 init() } // do_script:process_parallel_action/2 final class do_script_look_at_audience_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: look_at_audience(_G449, _G450) case 0: m.allocate (3); //m.success = m.get_y_value (2,1); /* Agent */ m.get_x_varia (10,2); /* Viewpoint */ m.end_head (); break; case 1: // goal: getSFVec3f(_G450, position, _G460, _G461, _G462) m.put_x_value (10,1); /* 'Viewpoint' */ m.put_atom (position__0,2); m.put_y_value (1,3); /* 'X' */ m.put_v_varia (4); /* 'Unknown' */ m.put_y_value (0,5); /* 'Z' */ m.call (28) /*2*/; /* getSFVec3f_5 */ break; case 2: // goal: look_at_position(_G449, _G460, _G462) m.put_y_value (2,1); /* 'Agent' */ m.put_y_value (1,2); /* 'X' */ m.put_y_value (0,3); /* 'Z' */ m.call (19) /*2*/; /* look_at_position_3 */ break; case 3: // goal: true m.deallocate (); m.exec (dlplib.true_0); break; case 4: m.end_rule (); break; } // switch return m.success; } // do_script:look_at_audience/2 exec() // do_script:look_at_audience/2 decls. public SymbolDescriptor position__0; // end of do_script:look_at_audience/2 decls. public boolean init (DLP m) { position__0 = m.define_symbol ("position".intern(), 0); return true; } // do_script:look_at_audience/2 init() } // do_script:look_at_audience/2 final class do_script_look_at_position_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: look_at_position(_G449, _G450, _G451) case 0: m.try_me_else (17); m.allocate (17); //m.success = m.get_y_value (1,1); /* Agent */ m.get_y_value (6,2); /* X1 */ m.get_y_value (13,3); /* Z1 */ m.cut_level (16); m.end_head (); break; case 1: // goal: getSFVec3f(_G449, translation, _G461, _G462, _G463) m.put_y_value (1,1); /* 'Agent' */ m.put_atom (translation__0,2); m.put_y_value (7,3); /* 'X' */ m.put_v_varia (4); /* 'Unknown' */ m.put_y_value (12,5); /* 'Z' */ m.call (28) /*2*/; /* getSFVec3f_5 */ break; case 2: // goal: _G461=\=_G450 m.put_y_value (7,1); /* 'X' */ m.put_y_value (6,2); /* 'X1' */ m.call (dlplib.op_cmp_ne_2); /*6*/ break; case 3: // goal: ! m.cut_body (16); break; case 4: // goal: is_eval(_G461, _G1034) m.put_y_value (7,1); /* 'X' */ m.put_y_value (15,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 5: // goal: is_eval(_G450, _G1037) m.put_y_value (6,1); /* 'X1' */ m.put_y_value (14,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 6: // goal: is_if_sub_if(_G1034, _G1037, _G477) m.put_y_value (15,1); /* 'Unknown' */ m.put_y_value (14,2); /* 'Unknown' */ m.put_y_value (8,3); /* 'Xdif' */ m.call (dlplib.is_if_sub_if_3); /*6*/ break; case 7: // goal: is_eval(_G451, _G1285) m.put_y_value (13,1); /* 'Z1' */ m.put_y_value (11,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 8: // goal: is_eval(_G463, _G1288) m.put_y_value (12,1); /* 'Z' */ m.put_y_value (10,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 9: // goal: is_if_sub_if(_G1285, _G1288, _G486) m.put_y_value (11,1); /* 'Unknown' */ m.put_y_value (10,2); /* 'Unknown' */ m.put_y_value (9,3); /* 'Zdif' */ m.call (dlplib.is_if_sub_if_3); /*6*/ break; case 10: // goal: is_eval(atan(_G486/_G477), _G1599) m.put_struct (op__div__2,12); m.set_y_value (9); /* 'Zdif' */ m.set_y_value (8); /* 'Xdif' */ m.put_struct (atan__1,1); m.set_x_value (12); /* 'Xtmp' */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 11: // goal: is_eval(sign(_G461-_G450), _G1602) m.put_struct (op__sub__2,13); m.set_y_value (7); /* 'X' */ m.set_y_value (6); /* 'X1' */ m.put_struct (sign__1,1); m.set_x_value (13); /* 'Xtmp' */ m.put_y_value (5,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 12: // goal: is_eval(1.5708, _G1605) m.put_float (1.5708f,1); m.put_y_value (4,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 13: // goal: is_if_mul_if(_G1602, _G1605, _G1615) m.put_y_value (5,1); /* 'Unknown' */ m.put_y_value (4,2); /* 'Unknown' */ m.put_y_value (2,3); /* 'Unknown' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 14: // goal: is_if_sub_if(_G1599, _G1615, _G495) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'Unknown' */ m.put_y_value (0,3); /* 'R' */ m.call (dlplib.is_if_sub_if_3); /*6*/ break; case 15: // goal: setRotation(_G449, 0, 1, 0, _G495) m.put_y_value (1,1); /* 'Agent' */ m.put_float (0f,2); m.put_float (1f,3); m.put_float (0f,4); m.put_y_value (0,5); /* 'R' */ m.deallocate (); m.exec (24); /* setRotation_5 */ break; case 16: m.end_rule (); break; // head: look_at_position(_G10784, _G10785, _G10786) case 17: m.trust_or_fail (); //m.success = m.get_v_varia (1); /* Unknown */ m.get_v_varia (2); /* Unknown */ m.get_v_varia (3); /* Unknown */ m.end_head (); break; case 18: m.end_fact (); break; } // switch return m.success; } // do_script:look_at_position/3 exec() // do_script:look_at_position/3 decls. public SymbolDescriptor translation__0; public SymbolDescriptor atan__1; public SymbolDescriptor op__div__2; public SymbolDescriptor sign__1; public SymbolDescriptor op__sub__2; // end of do_script:look_at_position/3 decls. public boolean init (DLP m) { translation__0 = m.define_symbol ("translation".intern(), 0); atan__1 = m.define_symbol ("atan".intern(), 1); op__div__2 = m.define_symbol ("/".intern(), 2); sign__1 = m.define_symbol ("sign".intern(), 1); op__sub__2 = m.define_symbol ("-".intern(), 2); return true; } // do_script:look_at_position/3 init() } // do_script:look_at_position/3 final class do_script_init_vars_0 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: init_vars case 0: m.allocate (0); //m.success = m.end_head (); break; case 1: // goal: assign_nlv_term(this, nreg, 0, 0) m.put_this (1); m.put_nreg (2); m.put_int (0,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 2: // goal: assign_nlv_term(this, nreg, 1, 0) m.put_this (1); m.put_nreg (2); m.put_int (1,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 3: // goal: assign_nlv_term(this, nreg, 2, 12) m.put_this (1); m.put_nreg (2); m.put_int (2,3); m.put_int (12,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 4: // goal: assign_nlv_term(this, nreg, 3, 0) m.put_this (1); m.put_nreg (2); m.put_int (3,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 5: // goal: assign_nlv_term(this, nreg, 4, 0) m.put_this (1); m.put_nreg (2); m.put_int (4,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 6: // goal: assign_nlv_term(this, nreg, 5, 0) m.put_this (1); m.put_nreg (2); m.put_int (5,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 7: // goal: assign_nlv_term(this, nreg, 6, 0) m.put_this (1); m.put_nreg (2); m.put_int (6,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 8: // goal: assign_nlv_term(this, nreg, 7, 0) m.put_this (1); m.put_nreg (2); m.put_int (7,3); m.put_int (0,4); m.call (dlplib.assign_nlv_term_4); /*6*/ break; case 9: // goal: assign_nlv_term(this, nreg, 8, 60) m.put_this (1); m.put_nreg (2); m.put_int (8,3); m.put_int (60,4); m.deallocate (); m.exec (dlplib.assign_nlv_term_4); break; case 10: m.end_rule (); break; } // switch return m.success; } // do_script:init_vars/0 exec() // do_script:init_vars/0 decls. // end of do_script:init_vars/0 decls. public boolean init (DLP m) { return true; } // do_script:init_vars/0 init() } // do_script:init_vars/0 class do_script extends Code { public static ObjectDescriptor object; public static ObjectDescriptor _bcilib; public static MethodDescriptor script_threads_0; public static MethodDescriptor script_threads_1; public static MethodDescriptor select_entry_2; public static MethodDescriptor select_entry_3; public static MethodDescriptor release_entry_2; public static MethodDescriptor repeat_script_2; public static MethodDescriptor process_script_1; public static MethodDescriptor do_script_1; public static MethodDescriptor process_choice_1; public static MethodDescriptor process_star_1; public static MethodDescriptor inspect_goal_1; public static MethodDescriptor do_goal_1; public static MethodDescriptor count_down_init_2; public static MethodDescriptor count_down_join_2; public static MethodDescriptor count_down_last_2; public static MethodDescriptor turn_object_4; public static MethodDescriptor move_object_4; public static MethodDescriptor process_parallel_action_2; public static MethodDescriptor look_at_audience_2; public static MethodDescriptor look_at_position_3; public static MethodDescriptor select_script_2; public static MethodDescriptor turn_body_part_4; public static MethodDescriptor turn_body_part_init_3; public static MethodDescriptor move_body_4; public static MethodDescriptor setRotation_5; public static MethodDescriptor getRotation_5; public static MethodDescriptor setPosition_4; public static MethodDescriptor getPosition_4; public static MethodDescriptor getSFVec3f_5; public static MethodDescriptor setSFVec3f_5; public boolean init (DLP m) { object = m.define_object ("do_script".intern(), 1, 30, 9); _bcilib = m.header_object (object, "bcilib".intern(), 0); script_threads_0 = m.define_method (object, 0, "script_threads".intern(), 0); script_threads_1 = m.define_method (object, 1, "script_threads".intern(), 1); select_entry_2 = m.define_method (object, 2, "select_entry".intern(), 2); select_entry_3 = m.define_method (object, 3, "select_entry".intern(), 3); release_entry_2 = m.define_method (object, 4, "release_entry".intern(), 2); repeat_script_2 = m.define_method (object, 5, "repeat_script".intern(), 2); process_script_1 = m.define_method (object, 6, "process_script".intern(), 1); do_script_1 = m.define_method (object, 7, "do_script".intern(), 1); process_choice_1 = m.define_method (object, 8, "process_choice".intern(), 1); process_star_1 = m.define_method (object, 9, "process_star".intern(), 1); inspect_goal_1 = m.define_method (object, 10, "inspect_goal".intern(), 1); do_goal_1 = m.define_method (object, 11, "do_goal".intern(), 1); count_down_init_2 = m.define_method (object, 12, "count_down_init".intern(), 2); count_down_join_2 = m.define_method (object, 13, "count_down_join".intern(), 2); count_down_last_2 = m.define_method (object, 14, "count_down_last".intern(), 2); turn_object_4 = m.define_method (object, 15, "turn_object".intern(), 4); move_object_4 = m.define_method (object, 16, "move_object".intern(), 4); process_parallel_action_2 = m.define_method (object, 17, "process_parallel_action".intern(), 2); look_at_audience_2 = m.define_method (object, 18, "look_at_audience".intern(), 2); look_at_position_3 = m.define_method (object, 19, "look_at_position".intern(), 3); select_script_2 = m.extern_method (object, 20, "select_script".intern(), 2); turn_body_part_4 = m.extern_method (object, 21, "turn_body_part".intern(), 4); turn_body_part_init_3 = m.extern_method (object, 22, "turn_body_part_init".intern(), 3); move_body_4 = m.extern_method (object, 23, "move_body".intern(), 4); setRotation_5 = m.extern_method (object, 24, "setRotation".intern(), 5); getRotation_5 = m.extern_method (object, 25, "getRotation".intern(), 5); setPosition_4 = m.extern_method (object, 26, "setPosition".intern(), 4); getPosition_4 = m.extern_method (object, 27, "getPosition".intern(), 4); getSFVec3f_5 = m.extern_method (object, 28, "getSFVec3f".intern(), 5); setSFVec3f_5 = m.extern_method (object, 29, "setSFVec3f".intern(), 5); m.define_nonlog (object, "count".intern(), 0); m.define_nonlog (object, "repcnt".intern(), 1); m.define_nonlog (object, "max_threads".intern(), 2); m.define_nonlog (object, "incrementr".intern(), 3); m.define_nonlog (object, "sleeptime".intern(), 4); m.define_nonlog (object, "incrementx".intern(), 5); m.define_nonlog (object, "incrementy".intern(), 6); m.define_nonlog (object, "incrementz".intern(), 7); m.define_nonlog (object, "tempo".intern(), 8); return true; } // do_script init() } // class do_script // end of unit do_script code. // begin of unit do_action code. final class do_action_do_action_1 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: do_action(_G455) case 0: m.allocate (4); //m.success = m.get_y_value (0,1); /* ThreadID */ m.end_head (); break; case 1: // goal: format_to_atom(_G463, 'queue_~w', [_G455]) m.put_y_value (3,1); /* 'Queue' */ m.put_atom (data__7__0,2); m.put_list (3); m.set_y_value (0); /* 'ThreadID' */ m.set_nil (); m.call (dlplib.format_to_atom_3); /*6*/ break; case 2: // goal: repeat m.call (dlplib.repeat_0); /*6*/ break; case 3: // goal: get_queue(_G463, task(_G479, _G480)) m.put_y_value (3,1); /* 'Queue' */ m.put_struct (task__2,2); m.set_y_value (2); /* 'Action' */ m.set_y_value (1); /* 'Answer' */ m.call (dlplib.get_queue_2); /*6*/ break; case 4: // goal: do_script([_G479]) m.put_list (1); m.set_y_value (2); /* 'Action' */ m.set_nil (); m.call (5) /*2*/; /* do_script_1 */ break; case 5: // goal: count_down_join(_G480, _G455) m.put_y_value (1,1); /* 'Answer' */ m.put_y_value (0,2); /* 'ThreadID' */ m.call (6) /*2*/; /* count_down_join_2 */ break; case 6: // goal: release_entry(_G455, thread_entry) m.put_y_value (0,1); /* 'ThreadID' */ m.put_atom (thread_entry__0,2); m.call (7) /*2*/; /* release_entry_2 */ break; case 7: // goal: fail m.deallocate (); m.exec (dlplib.fail_0); break; case 8: m.end_rule (); break; } // switch return m.success; } // do_action:do_action/1 exec() // do_action:do_action/1 decls. public SymbolDescriptor data__7__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; public SymbolDescriptor task__2; public SymbolDescriptor thread_entry__0; // end of do_action:do_action/1 decls. public boolean init (DLP m) { data__7__0 = m.define_symbol ("queue_~w".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); task__2 = m.define_symbol ("task".intern(), 2); thread_entry__0 = m.define_symbol ("thread_entry".intern(), 0); return true; } // do_action:do_action/1 init() } // do_action:do_action/1 final class do_action_select_script_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: select_script(_G455, _G456) case 0: //m.success = m.get_x_varia (10,1); /* Name */ m.get_x_varia (11,2); /* Script */ m.end_head (); break; case 1: // goal: script(_G455, _G456) m.put_x_value (10,1); /* 'Name' */ m.put_x_value (11,2); /* 'Script' */ m.exec (8); /* script_2 */ break; case 2: m.end_rule (); break; } // switch return m.success; } // do_action:select_script/2 exec() // do_action:select_script/2 decls. // end of do_action:select_script/2 decls. public boolean init (DLP m) { return true; } // do_action:select_script/2 init() } // do_action:select_script/2 final class do_action_turn_body_part_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: turn_body_part(_G455, _G456, _G457, _G458) case 0: m.allocate (8); //m.success = m.get_x_varia (11,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (7,3); /* PoserR */ m.get_y_value (5,4); /* Speed */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G468) m.put_x_value (11,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_y_value (3,3); /* 'Object' */ m.call (9) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getRotationParameter(_G456, _G457, _G475) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (7,2); /* 'PoserR' */ m.put_y_value (2,3); /* 'Rotation' */ m.call (10) /*2*/; /* getRotationParameter_3 */ break; case 3: // goal: getSpeedParameter(_G456, _G458, _G482, _G483) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Speed' */ m.put_y_value (1,3); /* 'Time' */ m.put_y_value (0,4); /* 'Interpolation' */ m.call (11) /*2*/; /* getSpeedParameter_4 */ break; case 4: // goal: ! m.cut_body (4); break; case 5: // goal: turn_object(_G468, _G475, _G482, _G483) m.put_y_value (3,1); /* 'Object' */ m.put_y_value (2,2); /* 'Rotation' */ m.put_y_value (1,3); /* 'Time' */ m.put_y_value (0,4); /* 'Interpolation' */ m.deallocate (); m.exec (12); /* turn_object_4 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // do_action:turn_body_part/4 exec() // do_action:turn_body_part/4 decls. // end of do_action:turn_body_part/4 decls. public boolean init (DLP m) { return true; } // do_action:turn_body_part/4 init() } // do_action:turn_body_part/4 final class do_action_turn_body_part_init_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: turn_body_part_init(_G455, _G456, _G457) case 0: m.allocate (7); //m.success = m.get_x_varia (11,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (5,3); /* Direction */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G467) m.put_x_value (11,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_y_value (3,3); /* 'Object' */ m.call (9) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getRotationParameter(_G456, _G457, rotation(_G476, _G477, _G478, _G479)) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Direction' */ m.put_struct (rotation__4,3); m.set_y_value (2); /* 'X' */ m.set_y_value (1); /* 'Y' */ m.set_y_value (0); /* 'Z' */ m.set_v_varia (); /* 'Unknown' */ m.call (10) /*2*/; /* getRotationParameter_3 */ break; case 3: // goal: ! m.cut_body (4); break; case 4: // goal: setRotation(_G467, _G476, _G477, _G478, 0) m.put_y_value (3,1); /* 'Object' */ m.put_y_value (2,2); /* 'X' */ m.put_y_value (1,3); /* 'Y' */ m.put_y_value (0,4); /* 'Z' */ m.put_float (0f,5); m.deallocate (); m.exec (13); /* setRotation_5 */ break; case 5: m.end_rule (); break; } // switch return m.success; } // do_action:turn_body_part_init/3 exec() // do_action:turn_body_part_init/3 decls. public SymbolDescriptor rotation__4; // end of do_action:turn_body_part_init/3 decls. public boolean init (DLP m) { rotation__4 = m.define_symbol ("rotation".intern(), 4); return true; } // do_action:turn_body_part_init/3 init() } // do_action:turn_body_part_init/3 final class do_action_move_body_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: move_body(_G455, _G456, _G457, _G458) case 0: m.allocate (8); //m.success = m.get_y_value (3,1); /* Agent */ m.get_y_value (6,2); /* Body */ m.get_y_value (7,3); /* Direction */ m.get_y_value (5,4); /* Speed */ m.cut_level (4); m.end_head (); break; case 1: // goal: getBodyObjectName(_G455, _G456, _G468) m.put_y_value (3,1); /* 'Agent' */ m.put_y_value (6,2); /* 'Body' */ m.put_v_varia (3); /* 'Unknown' */ m.call (9) /*2*/; /* getBodyObjectName_3 */ break; case 2: // goal: getPositionParameter(_G456, _G457, _G475) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (7,2); /* 'Direction' */ m.put_y_value (2,3); /* 'Position' */ m.call (14) /*2*/; /* getPositionParameter_3 */ break; case 3: // goal: getSpeedParameter(_G456, _G458, _G482, _G483) m.put_y_value (6,1); /* 'Body' */ m.put_y_value (5,2); /* 'Speed' */ m.put_y_value (1,3); /* 'Time' */ m.put_y_value (0,4); /* 'Interpolation' */ m.call (11) /*2*/; /* getSpeedParameter_4 */ break; case 4: // goal: ! m.cut_body (4); break; case 5: // goal: move_object(_G455, _G475, _G482, _G483) m.put_y_value (3,1); /* 'Agent' */ m.put_y_value (2,2); /* 'Position' */ m.put_y_value (1,3); /* 'Time' */ m.put_y_value (0,4); /* 'Interpolation' */ m.deallocate (); m.exec (15); /* move_object_4 */ break; case 6: m.end_rule (); break; } // switch return m.success; } // do_action:move_body/4 exec() // do_action:move_body/4 decls. // end of do_action:move_body/4 decls. public boolean init (DLP m) { return true; } // do_action:move_body/4 init() } // do_action:move_body/4 class do_action extends Code { public static ObjectDescriptor object; public static ObjectDescriptor _bcilib; public static ObjectDescriptor _do_script; public static ObjectDescriptor _gesturelib; public static MethodDescriptor do_action_1; public static MethodDescriptor select_script_2; public static MethodDescriptor turn_body_part_4; public static MethodDescriptor turn_body_part_init_3; public static MethodDescriptor move_body_4; public static MethodDescriptor do_script_1; public static MethodDescriptor count_down_join_2; public static MethodDescriptor release_entry_2; public static MethodDescriptor script_2; public static MethodDescriptor getBodyObjectName_3; public static MethodDescriptor getRotationParameter_3; public static MethodDescriptor getSpeedParameter_4; public static MethodDescriptor turn_object_4; public static MethodDescriptor setRotation_5; public static MethodDescriptor getPositionParameter_3; public static MethodDescriptor move_object_4; public boolean init (DLP m) { object = m.define_object ("do_action".intern(), 3, 16, 0); _bcilib = m.header_object (object, "bcilib".intern(), 0); _do_script = m.header_object (object, "do_script".intern(), 1); _gesturelib = m.header_object (object, "gesturelib".intern(), 2); do_action_1 = m.define_method (object, 0, "do_action".intern(), 1); select_script_2 = m.define_method (object, 1, "select_script".intern(), 2); turn_body_part_4 = m.define_method (object, 2, "turn_body_part".intern(), 4); turn_body_part_init_3 = m.define_method (object, 3, "turn_body_part_init".intern(), 3); move_body_4 = m.define_method (object, 4, "move_body".intern(), 4); do_script_1 = m.extern_method (object, 5, "do_script".intern(), 1); count_down_join_2 = m.extern_method (object, 6, "count_down_join".intern(), 2); release_entry_2 = m.extern_method (object, 7, "release_entry".intern(), 2); script_2 = m.extern_method (object, 8, "script".intern(), 2); getBodyObjectName_3 = m.extern_method (object, 9, "getBodyObjectName".intern(), 3); getRotationParameter_3 = m.extern_method (object, 10, "getRotationParameter".intern(), 3); getSpeedParameter_4 = m.extern_method (object, 11, "getSpeedParameter".intern(), 4); turn_object_4 = m.extern_method (object, 12, "turn_object".intern(), 4); setRotation_5 = m.extern_method (object, 13, "setRotation".intern(), 5); getPositionParameter_3 = m.extern_method (object, 14, "getPositionParameter".intern(), 3); move_object_4 = m.extern_method (object, 15, "move_object".intern(), 4); return true; } // do_action init() } // class do_action // end of unit do_action code. // begin of unit gesturelib code. final class gesturelib_script_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: script(walk(_G452), _G447) case 0: m.try_me_else (4); m.allocate (1); //m.success = m.get_struct (walk__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 1: // goal: _G447=[parallel([turn(_G452, r_shoulder, back_down2, fast), turn(_G452, r_hip, front_down2, fast), turn(_G452, l_shoulder, front_down2, fast), turn(_G452, l_hip, back_down2, fast)]), parallel([turn(_G452, l_shoulder, back_down2, fast), turn(_G452, l_hip, front_down2, fast), turn(_G452, r_shoulder, front_down2, fast), turn(_G452, r_hip, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (24); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,29); m.set_x_value (28); /* 'Xtmp' */ m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 2: // goal: ! m.cut_tail (0); m.deallocate (); break; case 3: m.end_rule (); break; // head: script(walk(_G8034, _G8035, _G8036, _G8037), _G8029) case 4: m.retry_me_else (8); m.allocate (1); //m.success = m.get_struct (walk__4,1); m.uni_x_varia (10); /* Agent */ m.uni_x_varia (11); /* X */ m.uni_x_varia (12); /* Y */ m.uni_x_varia (13); /* Z */ m.get_x_varia (14,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 5: // goal: _G8029=[parallel([turn(_G8034, r_shoulder, back_down2, fast), turn(_G8034, r_hip, front_down2, fast), move(_G8034, increment(_G8035, _G8036, _G8037), fast), turn(_G8034, l_shoulder, front_down2, fast), turn(_G8034, l_hip, back_down2, fast)]), parallel([turn(_G8034, l_shoulder, back_down2, fast), turn(_G8034, l_hip, front_down2, fast), move(_G8034, increment(_G8035, _G8036, _G8037), fast), turn(_G8034, r_shoulder, front_down2, fast), turn(_G8034, r_hip, back_down2, fast)])] m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (15); /* 'Xtmp' */ m.set_nil (); m.put_struct (increment__3,19); m.set_x_value (11); /* 'X' */ m.set_x_value (12); /* 'Y' */ m.set_x_value (13); /* 'Z' */ m.put_struct (move__3,20); m.set_x_value (10); /* 'Agent' */ m.set_x_value (19); /* 'Xtmp' */ m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.put_list (23); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_struct (increment__3,24); m.set_x_value (11); /* 'X' */ m.set_x_value (12); /* 'Y' */ m.set_x_value (13); /* 'Z' */ m.put_struct (move__3,25); m.set_x_value (10); /* 'Agent' */ m.set_x_value (24); /* 'Xtmp' */ m.set_atom (fast__0); m.put_struct (turn__4,26); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (27); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_list (28); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,29); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,30); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (31); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (27); /* 'Xtmp' */ m.put_list (32); m.set_x_value (26); /* 'Xtmp' */ m.set_x_value (28); /* 'Xtmp' */ m.put_list (33); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (32); /* 'Xtmp' */ m.put_struct (turn__4,34); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (35); m.set_x_value (30); /* 'Xtmp' */ m.set_x_value (31); /* 'Xtmp' */ m.put_struct (parallel__1,36); m.set_x_value (33); /* 'Xtmp' */ m.put_list (37); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (35); /* 'Xtmp' */ m.put_struct (parallel__1,38); m.set_x_value (37); /* 'Xtmp' */ m.put_list (39); m.set_x_value (36); /* 'Xtmp' */ m.set_nil (); m.put_x_value (14,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (38); /* 'Xtmp' */ m.set_x_value (39); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 6: // goal: ! m.cut_tail (0); m.deallocate (); break; case 7: m.end_rule (); break; // head: script(walk(_G17182, _G17183), _G17177) case 8: m.retry_me_else (12); m.allocate (1); //m.success = m.get_struct (walk__2,1); m.uni_x_varia (10); /* Agent */ m.uni_x_varia (11); /* StepLength */ m.get_x_varia (12,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 9: // goal: _G17177=[parallel([turn(_G17182, r_shoulder, back_down2, fast), turn(_G17182, r_hip, front_down2, fast), move(_G17182, increment(0, 0, _G17183), fast), turn(_G17182, l_shoulder, front_down2, fast), turn(_G17182, l_hip, back_down2, fast)]), parallel([turn(_G17182, l_shoulder, back_down2, fast), turn(_G17182, l_hip, front_down2, fast), move(_G17182, increment(0, 0, _G17183), fast), turn(_G17182, r_shoulder, front_down2, fast), turn(_G17182, r_hip, back_down2, fast)])] m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (16); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_struct (increment__3,17); m.set_int (0); m.set_int (0); m.set_x_value (11); /* 'StepLength' */ m.put_struct (move__3,18); m.set_x_value (10); /* 'Agent' */ m.set_x_value (17); /* 'Xtmp' */ m.set_atom (fast__0); m.put_struct (turn__4,19); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (20); m.set_x_value (14); /* 'Xtmp' */ m.set_nil (); m.put_list (21); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_struct (increment__3,22); m.set_float (0f); m.set_float (0f); m.set_x_value (11); /* 'StepLength' */ m.put_struct (move__3,23); m.set_x_value (10); /* 'Agent' */ m.set_x_value (22); /* 'Xtmp' */ m.set_atom (fast__0); m.put_struct (turn__4,24); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (25); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (20); /* 'Xtmp' */ m.put_list (26); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (21); /* 'Xtmp' */ m.put_struct (turn__4,27); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,28); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (29); m.set_x_value (23); /* 'Xtmp' */ m.set_x_value (25); /* 'Xtmp' */ m.put_list (30); m.set_x_value (24); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_list (31); m.set_x_value (27); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.put_struct (turn__4,32); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (33); m.set_x_value (28); /* 'Xtmp' */ m.set_x_value (29); /* 'Xtmp' */ m.put_struct (parallel__1,34); m.set_x_value (31); /* 'Xtmp' */ m.put_list (35); m.set_x_value (32); /* 'Xtmp' */ m.set_x_value (33); /* 'Xtmp' */ m.put_struct (parallel__1,36); m.set_x_value (35); /* 'Xtmp' */ m.put_list (37); m.set_x_value (34); /* 'Xtmp' */ m.set_nil (); m.put_x_value (12,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (36); /* 'Xtmp' */ m.set_x_value (37); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 10: // goal: ! m.cut_tail (0); m.deallocate (); break; case 11: m.end_rule (); break; // head: script(get_adjustY(_G25231, _G25232), _G25226) case 12: m.retry_me_else (16); m.allocate (1); //m.success = m.get_struct (get_adjustY__2,1); m.uni_x_varia (10); /* Agent */ m.uni_x_varia (11); /* Y */ m.get_x_varia (12,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 13: // goal: _G25226=[do(getBodyObjectName(_G25231, l_ankle, _G25247)), do(getPosition(_G25247, _G25255, _G25256, _G25257)), turn(_G25231, l_hip, back_down2, fast), do(getPosition(_G25247, _G25273, _G25274, _G25275)), do(_G25232 is _G25274-_G25256), turn(_G25231, l_hip, down, fast)] m.put_struct (op__sub__2,13); m.set_x_varia (14); /* 'Y2' */ m.set_x_varia (15); /* 'Y1' */ m.put_struct (is__2,16); m.set_x_value (11); /* 'Y' */ m.set_x_value (13); /* 'Xtmp' */ m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (do__1,18); m.set_x_value (16); /* 'Xtmp' */ m.put_struct (getPosition__4,19); m.set_x_varia (20); /* 'ObjectName' */ m.set_v_varia (); /* 'Unknown' */ m.set_x_value (14); /* 'Y2' */ m.set_v_varia (); /* 'Unknown' */ m.put_list (23); m.set_x_value (17); /* 'Xtmp' */ m.set_nil (); m.put_struct (do__1,24); m.set_x_value (19); /* 'Xtmp' */ m.put_list (25); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (getPosition__4,26); m.set_x_value (20); /* 'ObjectName' */ m.set_v_varia (); /* 'Unknown' */ m.set_x_value (15); /* 'Y1' */ m.set_v_varia (); /* 'Unknown' */ m.put_struct (turn__4,29); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (30); m.set_x_value (24); /* 'Xtmp' */ m.set_x_value (25); /* 'Xtmp' */ m.put_struct (do__1,31); m.set_x_value (26); /* 'Xtmp' */ m.put_struct (getBodyObjectName__3,32); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_ankle__0); m.set_x_value (20); /* 'ObjectName' */ m.put_list (33); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.put_struct (do__1,34); m.set_x_value (32); /* 'Xtmp' */ m.put_list (35); m.set_x_value (31); /* 'Xtmp' */ m.set_x_value (33); /* 'Xtmp' */ m.put_x_value (12,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (35); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 14: // goal: ! m.cut_tail (0); m.deallocate (); break; case 15: m.end_rule (); break; // head: script(walk_adjustY(_G33196, _G33197, _G33198), _G33191) case 16: m.retry_me_else (20); m.allocate (1); //m.success = m.get_struct (walk_adjustY__3,1); m.uni_x_varia (10); /* Agent */ m.uni_x_varia (11); /* Y */ m.uni_x_varia (12); /* StepLength */ m.get_x_varia (13,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 17: // goal: _G33191=[do(_G33211 is-_G33197), parallel([script(walk(_G33196)), [move(_G33196, increment(0, _G33197, _G33198), very_fast), move(_G33196, increment(0, _G33211, _G33198), very_fast)]])] m.put_struct (increment__3,14); m.set_float (0f); m.set_x_varia (15); /* 'Y1' */ m.set_x_value (12); /* 'StepLength' */ m.put_struct (move__3,16); m.set_x_value (10); /* 'Agent' */ m.set_x_value (14); /* 'Xtmp' */ m.set_atom (very_fast__0); m.put_struct (increment__3,17); m.set_float (0f); m.set_x_value (11); /* 'Y' */ m.set_x_value (12); /* 'StepLength' */ m.put_struct (move__3,18); m.set_x_value (10); /* 'Agent' */ m.set_x_value (17); /* 'Xtmp' */ m.set_atom (very_fast__0); m.put_list (19); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.put_struct (walk__1,20); m.set_x_value (10); /* 'Agent' */ m.put_list (21); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_struct (script__1,22); m.set_x_value (20); /* 'Xtmp' */ m.put_list (23); m.set_x_value (21); /* 'Xtmp' */ m.set_nil (); m.put_list (24); m.set_x_value (22); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (op__sub__1,25); m.set_x_value (11); /* 'Y' */ m.put_struct (parallel__1,26); m.set_x_value (24); /* 'Xtmp' */ m.put_struct (is__2,27); m.set_x_value (15); /* 'Y1' */ m.set_x_value (25); /* 'Xtmp' */ m.put_struct (do__1,28); m.set_x_value (27); /* 'Xtmp' */ m.put_list (29); m.set_x_value (26); /* 'Xtmp' */ m.set_nil (); m.put_x_value (13,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (28); /* 'Xtmp' */ m.set_x_value (29); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 18: // goal: ! m.cut_tail (0); m.deallocate (); break; case 19: m.end_rule (); break; // head: script(fast_walk(_G39193), _G39188) case 20: m.retry_me_else (24); m.allocate (1); //m.success = m.get_struct (fast_walk__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 21: // goal: _G39188=[set_tempo(300), parallel([turn(_G39193, r_shoulder, back_down2, fast), turn(_G39193, r_hip, front_down2, fast), turn(_G39193, l_shoulder, front_down2, fast), turn(_G39193, l_hip, back_down2, fast)]), parallel([turn(_G39193, l_shoulder, back_down2, fast), turn(_G39193, l_hip, front_down2, fast), turn(_G39193, r_shoulder, front_down2, fast), turn(_G39193, r_hip, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (24); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,29); m.set_x_value (28); /* 'Xtmp' */ m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_nil (); m.put_struct (set_tempo__1,31); m.set_int (300); m.put_list (32); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (31); /* 'Xtmp' */ m.set_x_value (32); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 22: // goal: ! m.cut_tail (0); m.deallocate (); break; case 23: m.end_rule (); break; // head: script(walk_front(_G45841), _G45836) case 24: m.retry_me_else (28); m.allocate (1); //m.success = m.get_struct (walk_front__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 25: // goal: _G45836=[parallel([turn(_G45841, r_shoulder, back_down2, fast), turn(_G45841, r_hip, front_down2, fast), move(_G45841, front, fast), turn(_G45841, l_shoulder, front_down2, fast), turn(_G45841, l_hip, back_down2, fast)]), parallel([turn(_G45841, l_shoulder, back_down2, fast), turn(_G45841, l_hip, front_down2, fast), move(_G45841, front, fast), turn(_G45841, r_shoulder, front_down2, fast), turn(_G45841, r_hip, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (move__3,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (move__3,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_struct (turn__4,24); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_list (27); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_list (28); m.set_x_value (24); /* 'Xtmp' */ m.set_x_value (27); /* 'Xtmp' */ m.put_struct (turn__4,29); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (30); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,31); m.set_x_value (28); /* 'Xtmp' */ m.put_list (32); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.put_struct (parallel__1,33); m.set_x_value (32); /* 'Xtmp' */ m.put_list (34); m.set_x_value (31); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (33); /* 'Xtmp' */ m.set_x_value (34); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 26: // goal: ! m.cut_tail (0); m.deallocate (); break; case 27: m.end_rule (); break; // head: script(jump(_G15131), _G15126) case 28: m.retry_me_else (32); m.allocate (1); //m.success = m.get_struct (jump__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 29: // goal: _G15126=[turn_init(_G15131, l_shoulder, up), parallel([turn(_G15131, r_knee, back, fast), turn(_G15131, r_hip, front_down, fast), move(_G15131, down, fast), turn(_G15131, r_shoulder, up, fast), turn(_G15131, l_shoulder, up, fast), turn(_G15131, l_knee, back, fast), turn(_G15131, l_hip, front_down, fast)]), turn_init(_G15131, l_shoulder, left), parallel([turn(_G15131, l_knee, down, fast), turn(_G15131, l_hip, down, fast), move(_G15131, up, fast), turn(_G15131, r_shoulder, right, fast), turn(_G15131, l_shoulder, left, fast), turn(_G15131, r_knee, down, fast), turn(_G15131, r_hip, down, fast)]), turn_init(_G15131, l_shoulder, down_from_front), parallel([move(_G15131, up, fast), turn(_G15131, r_shoulder, down_from_front, fast), turn(_G15131, l_shoulder, down_from_front, fast)]), move(_G15131, down, fast)] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down__0); m.set_atom (fast__0); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (down_from_front__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (turn__4,19); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back__0); m.set_atom (fast__0); m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (down_from_front__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (15); /* 'Xtmp' */ m.set_nil (); m.put_list (23); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (24); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.put_struct (move__3,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (up__0); m.set_atom (fast__0); m.put_struct (move__3,26); m.set_x_value (10); /* 'Agent' */ m.set_atom (up__0); m.set_atom (fast__0); m.put_struct (turn__4,27); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (up__0); m.set_atom (fast__0); m.put_list (28); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_list (29); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_list (30); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (24); /* 'Xtmp' */ m.put_list (31); m.set_x_value (26); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.put_struct (move__3,32); m.set_x_value (10); /* 'Agent' */ m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,33); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,34); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (up__0); m.set_atom (fast__0); m.put_list (35); m.set_x_value (27); /* 'Xtmp' */ m.set_x_value (28); /* 'Xtmp' */ m.put_list (36); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (29); /* 'Xtmp' */ m.put_struct (parallel__1,37); m.set_x_value (31); /* 'Xtmp' */ m.put_struct (move__3,38); m.set_x_value (10); /* 'Agent' */ m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,39); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (40); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (35); /* 'Xtmp' */ m.put_list (41); m.set_x_value (33); /* 'Xtmp' */ m.set_x_value (36); /* 'Xtmp' */ m.put_list (42); m.set_x_value (32); /* 'Xtmp' */ m.set_nil (); m.put_list (43); m.set_x_value (39); /* 'Xtmp' */ m.set_x_value (41); /* 'Xtmp' */ m.put_struct (turn_init__3,44); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (down_from_front__0); m.put_struct (turn__4,45); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down__0); m.set_atom (fast__0); m.put_list (46); m.set_x_value (38); /* 'Xtmp' */ m.set_x_value (40); /* 'Xtmp' */ m.put_list (47); m.set_x_value (37); /* 'Xtmp' */ m.set_x_value (42); /* 'Xtmp' */ m.put_struct (parallel__1,48); m.set_x_value (43); /* 'Xtmp' */ m.put_struct (turn__4,49); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back__0); m.set_atom (fast__0); m.put_list (50); m.set_x_value (45); /* 'Xtmp' */ m.set_x_value (46); /* 'Xtmp' */ m.put_list (51); m.set_x_value (44); /* 'Xtmp' */ m.set_x_value (47); /* 'Xtmp' */ m.put_list (52); m.set_x_value (49); /* 'Xtmp' */ m.set_x_value (50); /* 'Xtmp' */ m.put_struct (turn_init__3,53); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left__0); m.put_list (54); m.set_x_value (48); /* 'Xtmp' */ m.set_x_value (51); /* 'Xtmp' */ m.put_struct (parallel__1,55); m.set_x_value (52); /* 'Xtmp' */ m.put_list (56); m.set_x_value (53); /* 'Xtmp' */ m.set_x_value (54); /* 'Xtmp' */ m.put_struct (turn_init__3,57); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (up__0); m.put_list (58); m.set_x_value (55); /* 'Xtmp' */ m.set_x_value (56); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (57); /* 'Xtmp' */ m.set_x_value (58); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 30: // goal: ! m.cut_tail (0); m.deallocate (); break; case 31: m.end_rule (); break; // head: script(stand(_G31810), _G31805) case 32: m.retry_me_else (36); m.allocate (1); //m.success = m.get_struct (stand__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 33: // goal: _G31805=[parallel([turn(_G31810, l_shoulder, down, fast), turn(_G31810, r_shoulder, down, fast), turn(_G31810, l_hip, down, fast), turn(_G31810, r_hip, down, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (16); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_list (19); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_struct (parallel__1,20); m.set_x_value (19); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (20); /* 'Xtmp' */ m.set_nil (); m.call (dlplib.op_eq_2); /*6*/ break; case 34: // goal: ! m.cut_tail (0); m.deallocate (); break; case 35: m.end_rule (); break; // head: script(stand2(_G35367), _G35362) case 36: m.retry_me_else (40); m.allocate (1); //m.success = m.get_struct (stand2__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 37: // goal: _G35362=[turn_init(_G35367, r_shoulder, down), parallel([turn(_G35367, l_shoulder, down, fast), turn(_G35367, r_shoulder, down, fast), turn(_G35367, skullbase, front, fast), turn(_G35367, l_hip, down, fast), turn(_G35367, r_hip, down, fast)]), parallel([turn(_G35367, l_knee, down, fast), turn(_G35367, r_knee, down, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (skullbase__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_list (17); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (turn__4,18); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_struct (turn__4,19); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (20); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (17); /* 'Xtmp' */ m.put_list (21); m.set_x_value (15); /* 'Xtmp' */ m.set_nil (); m.put_list (22); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (21); /* 'Xtmp' */ m.put_struct (turn__4,23); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (down__0); m.set_atom (fast__0); m.put_list (24); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (20); /* 'Xtmp' */ m.put_struct (parallel__1,25); m.set_x_value (22); /* 'Xtmp' */ m.put_list (26); m.set_x_value (23); /* 'Xtmp' */ m.set_x_value (24); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (26); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn_init__3,29); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (down__0); m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_x_value (28); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 38: // goal: ! m.cut_tail (0); m.deallocate (); break; case 39: m.end_rule (); break; // head: script(kicking(_G41538), _G41533) case 40: m.retry_me_else (44); m.allocate (1); //m.success = m.get_struct (kicking__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 41: // goal: _G41533=[parallel([turn(_G41538, r_hip, back_down, fast), turn(_G41538, r_knee, back, fast), turn(_G41538, r_shoulder, front_down2, fast), turn(_G41538, l_shoulder, back_down2, fast)]), parallel([turn(_G41538, r_hip, front, fast), turn(_G41538, r_knee, front_down2, fast), turn(_G41538, l_shoulder, front_down2, fast), turn(_G41538, r_shoulder, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (24); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,29); m.set_x_value (28); /* 'Xtmp' */ m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 42: // goal: ! m.cut_tail (0); m.deallocate (); break; case 43: m.end_rule (); break; // head: script(kneeing(_G47750), _G47745) case 44: m.retry_me_else (48); m.allocate (1); //m.success = m.get_struct (kneeing__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 45: // goal: _G47745=[parallel([turn(_G47750, r_elbow, front, fast), turn(_G47750, l_elbow, front, fast)]), parallel([turn(_G47750, l_hip, front_down2, fast), turn(_G47750, r_hip, front_down2, fast), turn(_G47750, l_knee, back, fast), turn(_G47750, r_knee, back, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (16); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,18); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (19); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_list (20); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_nil (); m.put_struct (parallel__1,23); m.set_x_value (20); /* 'Xtmp' */ m.put_list (24); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,25); m.set_x_value (24); /* 'Xtmp' */ m.put_list (26); m.set_x_value (23); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 46: // goal: ! m.cut_tail (0); m.deallocate (); break; case 47: m.end_rule (); break; // head: script(start_run(_G52965), _G52960) case 48: m.retry_me_else (52); m.allocate (1); //m.success = m.get_struct (start_run__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 49: // goal: _G52960=[parallel([turn(_G52965, r_elbow, front, fast), turn(_G52965, l_elbow, front, fast)]), parallel([turn(_G52965, l_hip, front_down2, fast), turn(_G52965, r_hip, front_down2, fast), turn(_G52965, l_knee, back_down, fast), turn(_G52965, r_knee, back_down, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back_down__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back_down__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (16); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,18); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (19); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_list (20); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_nil (); m.put_struct (parallel__1,23); m.set_x_value (20); /* 'Xtmp' */ m.put_list (24); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,25); m.set_x_value (24); /* 'Xtmp' */ m.put_list (26); m.set_x_value (23); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 50: // goal: ! m.cut_tail (0); m.deallocate (); break; case 51: m.end_rule (); break; // head: script(run1(_G57930), _G57925) case 52: m.retry_me_else (56); m.allocate (1); //m.success = m.get_struct (run1__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 53: // goal: _G57925=[parallel([turn(_G57930, r_shoulder, back_down2, fast), turn(_G57930, r_hip, front, fast), turn(_G57930, l_shoulder, front_down2, fast), turn(_G57930, l_hip, back_down2, fast)]), parallel([turn(_G57930, l_shoulder, back_down2, fast), turn(_G57930, l_hip, front, fast), turn(_G57930, r_shoulder, front_down2, fast), turn(_G57930, r_hip, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (24); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,29); m.set_x_value (28); /* 'Xtmp' */ m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 54: // goal: ! m.cut_tail (0); m.deallocate (); break; case 55: m.end_rule (); break; // head: script(run(_G63927), _G63922) case 56: m.retry_me_else (60); m.allocate (1); //m.success = m.get_struct (run__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 57: // goal: _G63922=[parallel([turn(_G63927, r_shoulder, back_down2, fast), turn(_G63927, r_hip, front_down, fast), turn(_G63927, l_shoulder, front_down2, fast), turn(_G63927, l_hip, back_down2, fast)]), parallel([turn(_G63927, l_shoulder, back_down2, fast), turn(_G63927, l_hip, front_down, fast), turn(_G63927, r_shoulder, front_down2, fast), turn(_G63927, r_hip, back_down2, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down__0); m.set_atom (fast__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down2__0); m.set_atom (fast__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (front_down__0); m.set_atom (fast__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (24); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (back_down2__0); m.set_atom (fast__0); m.put_list (26); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_struct (parallel__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_list (28); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (parallel__1,29); m.set_x_value (28); /* 'Xtmp' */ m.put_list (30); m.set_x_value (27); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (29); /* 'Xtmp' */ m.set_x_value (30); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 58: // goal: ! m.cut_tail (0); m.deallocate (); break; case 59: m.end_rule (); break; // head: script(l_wave(_G69909), _G69904) case 60: m.retry_me_else (64); m.allocate (1); //m.success = m.get_struct (l_wave__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 61: // goal: _G69904=[turn(_G69909, l_shoulder, left_front_up, fast), turn(_G69909, l_shoulder, left_front2_up, fast)] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left_front2_up__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left_front_up__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 62: // goal: ! m.cut_tail (0); m.deallocate (); break; case 63: m.end_rule (); break; // head: script(l_wave2(_G72755), _G72750) case 64: m.retry_me_else (68); m.allocate (1); //m.success = m.get_struct (l_wave2__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 65: // goal: _G72750=[turn(_G72755, l_shoulder, left_front_up, fast), turn(_G72755, l_shoulder, up_turn_90, fast)] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (up_turn_90__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left_front_up__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 66: // goal: ! m.cut_tail (0); m.deallocate (); break; case 67: m.end_rule (); break; // head: script(r_wave(_G75326), _G75321) case 68: m.retry_me_else (72); m.allocate (1); //m.success = m.get_struct (r_wave__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 69: // goal: _G75321=[turn(_G75326, r_shoulder, right_front_up, fast), turn(_G75326, r_shoulder, right_front2_up, fast)] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right_front2_up__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right_front_up__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 70: // goal: ! m.cut_tail (0); m.deallocate (); break; case 71: m.end_rule (); break; // head: script(r_wave2(_G78202), _G78197) case 72: m.retry_me_else (76); m.allocate (1); //m.success = m.get_struct (r_wave2__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 73: // goal: _G78197=[turn(_G78202, r_shoulder, right_front_up, fast), turn(_G78202, r_shoulder, up_turn_90, fast)] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (up_turn_90__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right_front_up__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 74: // goal: ! m.cut_tail (0); m.deallocate (); break; case 75: m.end_rule (); break; // head: script(greeting(_G80588), _G80583) case 76: m.retry_me_else (80); m.allocate (1); //m.success = m.get_struct (greeting__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 77: // goal: _G80583=[parallel([turn_init(_G80588, r_shoulder, right_front_up), repeat(l_wave2(_G80588), 8), repeat(r_wave2(_G80588), 8)]), script(stand2(_G80588)), wait(1)] m.put_struct (r_wave2__1,12); m.set_x_value (10); /* 'Agent' */ m.put_struct (l_wave2__1,13); m.set_x_value (10); /* 'Agent' */ m.put_struct (repeat__2,14); m.set_x_value (12); /* 'Xtmp' */ m.set_int (8); m.put_struct (repeat__2,15); m.set_x_value (13); /* 'Xtmp' */ m.set_int (8); m.put_list (16); m.set_x_value (14); /* 'Xtmp' */ m.set_nil (); m.put_struct (stand2__1,17); m.set_x_value (10); /* 'Agent' */ m.put_struct (wait__1,18); m.set_float (1f); m.put_struct (turn_init__3,19); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right_front_up__0); m.put_list (20); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_struct (script__1,21); m.set_x_value (17); /* 'Xtmp' */ m.put_list (22); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (20); /* 'Xtmp' */ m.put_list (23); m.set_x_value (18); /* 'Xtmp' */ m.set_nil (); m.put_struct (parallel__1,24); m.set_x_value (22); /* 'Xtmp' */ m.put_list (25); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (24); /* 'Xtmp' */ m.set_x_value (25); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 78: // goal: ! m.cut_tail (0); m.deallocate (); break; case 79: m.end_rule (); break; // head: script(open_leg1(_G85185), _G85180) case 80: m.retry_me_else (84); m.allocate (1); //m.success = m.get_struct (open_leg1__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 81: // goal: _G85180=[parallel([turn(_G85185, l_hip, side1_down, fast), turn(_G85185, r_hip, side1_down, fast)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (side1_down__0); m.set_atom (fast__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (side1_down__0); m.set_atom (fast__0); m.put_list (14); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_list (15); m.set_x_value (13); /* 'Xtmp' */ m.set_x_value (14); /* 'Xtmp' */ m.put_struct (parallel__1,16); m.set_x_value (15); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.call (dlplib.op_eq_2); /*6*/ break; case 82: // goal: ! m.cut_tail (0); m.deallocate (); break; case 83: m.end_rule (); break; // head: script(test(_G88087), _G88082) case 84: m.retry_me_else (88); m.allocate (1); //m.success = m.get_struct (test__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 85: // goal: _G88082=[do(format('Agent action: walking~n')), repeat(walk(_G88087), 6), do(format('Agent action: kicking~n')), repeat(kicking(_G88087), 6), script(stand1(_G88087)), do(format('Agent action: running~n')), script(start_run(_G88087)), repeat(run(_G88087), 6), script(stand1(_G88087)), do(format('Agent action: jumping~n')), repeat(jump(_G88087), 6), script(stand1(_G88087)), do(format('Agent action: greeting~n')), repeat(greeting(_G88087), 3), script(stand1(_G88087))] m.put_struct (stand1__1,12); m.set_x_value (10); /* 'Agent' */ m.put_struct (greeting__1,13); m.set_x_value (10); /* 'Agent' */ m.put_struct (script__1,14); m.set_x_value (12); /* 'Xtmp' */ m.put_struct (format__1,15); m.set_atom (data__12__0); m.put_struct (repeat__2,16); m.set_x_value (13); /* 'Xtmp' */ m.set_int (3); m.put_list (17); m.set_x_value (14); /* 'Xtmp' */ m.set_nil (); m.put_struct (do__1,18); m.set_x_value (15); /* 'Xtmp' */ m.put_struct (stand1__1,19); m.set_x_value (10); /* 'Agent' */ m.put_list (20); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (17); /* 'Xtmp' */ m.put_struct (jump__1,21); m.set_x_value (10); /* 'Agent' */ m.put_struct (script__1,22); m.set_x_value (19); /* 'Xtmp' */ m.put_list (23); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (20); /* 'Xtmp' */ m.put_struct (format__1,24); m.set_atom (data__11__0); m.put_struct (repeat__2,25); m.set_x_value (21); /* 'Xtmp' */ m.set_int (6); m.put_list (26); m.set_x_value (22); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (do__1,27); m.set_x_value (24); /* 'Xtmp' */ m.put_struct (stand1__1,28); m.set_x_value (10); /* 'Agent' */ m.put_list (29); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_struct (run__1,30); m.set_x_value (10); /* 'Agent' */ m.put_struct (script__1,31); m.set_x_value (28); /* 'Xtmp' */ m.put_list (32); m.set_x_value (27); /* 'Xtmp' */ m.set_x_value (29); /* 'Xtmp' */ m.put_struct (start_run__1,33); m.set_x_value (10); /* 'Agent' */ m.put_struct (repeat__2,34); m.set_x_value (30); /* 'Xtmp' */ m.set_int (6); m.put_list (35); m.set_x_value (31); /* 'Xtmp' */ m.set_x_value (32); /* 'Xtmp' */ m.put_struct (format__1,36); m.set_atom (data__10__0); m.put_struct (script__1,37); m.set_x_value (33); /* 'Xtmp' */ m.put_list (38); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (35); /* 'Xtmp' */ m.put_struct (do__1,39); m.set_x_value (36); /* 'Xtmp' */ m.put_struct (stand1__1,40); m.set_x_value (10); /* 'Agent' */ m.put_list (41); m.set_x_value (37); /* 'Xtmp' */ m.set_x_value (38); /* 'Xtmp' */ m.put_struct (kicking__1,42); m.set_x_value (10); /* 'Agent' */ m.put_struct (script__1,43); m.set_x_value (40); /* 'Xtmp' */ m.put_list (44); m.set_x_value (39); /* 'Xtmp' */ m.set_x_value (41); /* 'Xtmp' */ m.put_struct (format__1,45); m.set_atom (data__9__0); m.put_struct (repeat__2,46); m.set_x_value (42); /* 'Xtmp' */ m.set_int (6); m.put_list (47); m.set_x_value (43); /* 'Xtmp' */ m.set_x_value (44); /* 'Xtmp' */ m.put_struct (do__1,48); m.set_x_value (45); /* 'Xtmp' */ m.put_struct (walk__1,49); m.set_x_value (10); /* 'Agent' */ m.put_list (50); m.set_x_value (46); /* 'Xtmp' */ m.set_x_value (47); /* 'Xtmp' */ m.put_struct (format__1,51); m.set_atom (data__8__0); m.put_struct (repeat__2,52); m.set_x_value (49); /* 'Xtmp' */ m.set_int (6); m.put_list (53); m.set_x_value (48); /* 'Xtmp' */ m.set_x_value (50); /* 'Xtmp' */ m.put_struct (do__1,54); m.set_x_value (51); /* 'Xtmp' */ m.put_list (55); m.set_x_value (52); /* 'Xtmp' */ m.set_x_value (53); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (54); /* 'Xtmp' */ m.set_x_value (55); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 86: // goal: ! m.cut_tail (0); m.deallocate (); break; case 87: m.end_rule (); break; // head: script(taichi(_G24295), _G24290) case 88: m.retry_me_else (92); m.allocate (1); //m.success = m.get_struct (taichi__1,1); m.uni_x_varia (10); /* Agent */ m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 89: // goal: _G24290=[do(format('Agent action: taichi~n')), script(taichi(_G24295, stage1)), script(stand1(_G24295))] m.put_struct (stand1__1,12); m.set_x_value (10); /* 'Agent' */ m.put_struct (script__1,13); m.set_x_value (12); /* 'Xtmp' */ m.put_struct (taichi__2,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (stage1__0); m.put_struct (format__1,15); m.set_atom (data__13__0); m.put_struct (script__1,16); m.set_x_value (14); /* 'Xtmp' */ m.put_list (17); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_struct (do__1,18); m.set_x_value (15); /* 'Xtmp' */ m.put_list (19); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (17); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (18); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 90: // goal: ! m.cut_tail (0); m.deallocate (); break; case 91: m.end_rule (); break; // head: script(taichi(_G27756, stage1), _G27751) case 92: m.retry_me_else (96); m.allocate (1); //m.success = m.get_struct (taichi__2,1); m.uni_x_varia (10); /* Agent */ m.uni_atom (stage1__0); m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 93: // goal: _G27751=[turn(_G27756, l_hip, side1_down, fast), turn(_G27756, r_hip, side1_down, fast), turn_init(_G27756, l_shoulder, front), turn_init(_G27756, r_shoulder, front), parallel([turn(_G27756, l_shoulder, front, slow), turn(_G27756, r_shoulder, front, slow)]), turn_init(_G27756, l_elbow, front_right2), parallel([turn(_G27756, l_shoulder, front_down, slow), turn(_G27756, r_shoulder, front_down, slow), turn(_G27756, l_elbow, front_right2, slow), turn(_G27756, r_elbow, front_left2, slow)]), turn_init(_G27756, l_hip, left_front_down), turn_init(_G27756, r_hip, right_front_down), turn_init(_G27756, l_knee, back2_down), turn_init(_G27756, r_knee, back2_down), turn_init(_G27756, l_elbow, right_front_down), parallel([move(_G27756, increment(0, -0.1, 0), slow), turn(_G27756, l_hip, left_front_down, slow), turn(_G27756, r_hip, right_front_down, slow), turn(_G27756, l_elbow, right_front_down, slow), turn(_G27756, r_shoulder, front_down2, slow), turn(_G27756, l_knee, back2_down, slow), turn(_G27756, r_knee, back2_down, slow)]), turn_init(_G27756, l_shoulder, left_front_up2), turn_init(_G27756, r_elbow, front), parallel([turn(_G27756, l_shoulder, left_front_up2, very_slow), turn(_G27756, r_wrist, turn_n45, slow), turn(_G27756, r_elbow, front, slow), turn(_G27756, r_shoulder, front_left, very_slow)]), parallel([turn(_G27756, l_wrist, turn_90, slow), turn(_G27756, r_wrist, turn_90, slow)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back2_down__0); m.set_atom (slow__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_left__0); m.set_atom (very_slow__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back2_down__0); m.set_atom (slow__0); m.put_struct (turn__4,15); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_wrist__0); m.set_atom (turn_90__0); m.set_atom (slow__0); m.put_list (17); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,19); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_wrist__0); m.set_atom (turn_90__0); m.set_atom (slow__0); m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down2__0); m.set_atom (slow__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_wrist__0); m.set_atom (turn_n45__0); m.set_atom (slow__0); m.put_list (22); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (17); /* 'Xtmp' */ m.put_list (23); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (24); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.put_list (25); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (24); /* 'Xtmp' */ m.put_struct (turn__4,26); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (right_front_down__0); m.set_atom (slow__0); m.put_struct (turn__4,27); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left_front_up2__0); m.set_atom (very_slow__0); m.put_list (28); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_list (29); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (parallel__1,30); m.set_x_value (25); /* 'Xtmp' */ m.put_list (31); m.set_x_value (27); /* 'Xtmp' */ m.set_x_value (29); /* 'Xtmp' */ m.put_struct (turn__4,32); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (right_front_down__0); m.set_atom (slow__0); m.put_list (33); m.set_x_value (26); /* 'Xtmp' */ m.set_x_value (28); /* 'Xtmp' */ m.put_struct (parallel__1,34); m.set_x_value (31); /* 'Xtmp' */ m.put_struct (turn__4,35); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (left_front_down__0); m.set_atom (slow__0); m.put_list (36); m.set_x_value (32); /* 'Xtmp' */ m.set_x_value (33); /* 'Xtmp' */ m.put_list (37); m.set_x_value (30); /* 'Xtmp' */ m.set_nil (); m.put_struct (increment__3,38); m.set_float (0f); m.set_float (-0.1f); m.set_float (0f); m.put_struct (move__3,39); m.set_x_value (10); /* 'Agent' */ m.set_x_value (38); /* 'Xtmp' */ m.set_atom (slow__0); m.put_struct (turn_init__3,40); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front__0); m.put_list (41); m.set_x_value (35); /* 'Xtmp' */ m.set_x_value (36); /* 'Xtmp' */ m.put_list (42); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (37); /* 'Xtmp' */ m.put_list (43); m.set_x_value (39); /* 'Xtmp' */ m.set_x_value (41); /* 'Xtmp' */ m.put_struct (turn_init__3,44); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (left_front_up2__0); m.put_list (45); m.set_x_value (40); /* 'Xtmp' */ m.set_x_value (42); /* 'Xtmp' */ m.put_struct (parallel__1,46); m.set_x_value (43); /* 'Xtmp' */ m.put_list (47); m.set_x_value (44); /* 'Xtmp' */ m.set_x_value (45); /* 'Xtmp' */ m.put_struct (turn_init__3,48); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (right_front_down__0); m.put_struct (turn__4,49); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front_left2__0); m.set_atom (slow__0); m.put_list (50); m.set_x_value (46); /* 'Xtmp' */ m.set_x_value (47); /* 'Xtmp' */ m.put_struct (turn_init__3,51); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back2_down__0); m.put_struct (turn__4,52); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front_right2__0); m.set_atom (slow__0); m.put_list (53); m.set_x_value (49); /* 'Xtmp' */ m.set_nil (); m.put_list (54); m.set_x_value (48); /* 'Xtmp' */ m.set_x_value (50); /* 'Xtmp' */ m.put_struct (turn_init__3,55); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back2_down__0); m.put_struct (turn__4,56); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down__0); m.set_atom (slow__0); m.put_list (57); m.set_x_value (52); /* 'Xtmp' */ m.set_x_value (53); /* 'Xtmp' */ m.put_list (58); m.set_x_value (51); /* 'Xtmp' */ m.set_x_value (54); /* 'Xtmp' */ m.put_struct (turn_init__3,59); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (right_front_down__0); m.put_struct (turn__4,60); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down__0); m.set_atom (slow__0); m.put_list (61); m.set_x_value (56); /* 'Xtmp' */ m.set_x_value (57); /* 'Xtmp' */ m.put_list (62); m.set_x_value (55); /* 'Xtmp' */ m.set_x_value (58); /* 'Xtmp' */ m.put_list (63); m.set_x_value (60); /* 'Xtmp' */ m.set_x_value (61); /* 'Xtmp' */ m.put_struct (turn_init__3,64); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (left_front_down__0); m.put_struct (turn__4,65); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_list (66); m.set_x_value (59); /* 'Xtmp' */ m.set_x_value (62); /* 'Xtmp' */ m.put_struct (parallel__1,67); m.set_x_value (63); /* 'Xtmp' */ m.put_struct (turn__4,68); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_list (69); m.set_x_value (65); /* 'Xtmp' */ m.set_nil (); m.put_list (70); m.set_x_value (64); /* 'Xtmp' */ m.set_x_value (66); /* 'Xtmp' */ m.put_list (71); m.set_x_value (68); /* 'Xtmp' */ m.set_x_value (69); /* 'Xtmp' */ m.put_struct (turn_init__3,72); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front_right2__0); m.put_list (73); m.set_x_value (67); /* 'Xtmp' */ m.set_x_value (70); /* 'Xtmp' */ m.put_struct (parallel__1,74); m.set_x_value (71); /* 'Xtmp' */ m.put_list (75); m.set_x_value (72); /* 'Xtmp' */ m.set_x_value (73); /* 'Xtmp' */ m.put_struct (turn_init__3,76); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front__0); m.put_list (77); m.set_x_value (74); /* 'Xtmp' */ m.set_x_value (75); /* 'Xtmp' */ m.put_struct (turn_init__3,78); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front__0); m.put_list (79); m.set_x_value (76); /* 'Xtmp' */ m.set_x_value (77); /* 'Xtmp' */ m.put_struct (turn__4,80); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_hip__0); m.set_atom (side1_down__0); m.set_atom (fast__0); m.put_list (81); m.set_x_value (78); /* 'Xtmp' */ m.set_x_value (79); /* 'Xtmp' */ m.put_struct (turn__4,82); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (side1_down__0); m.set_atom (fast__0); m.put_list (83); m.set_x_value (80); /* 'Xtmp' */ m.set_x_value (81); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (82); /* 'Xtmp' */ m.set_x_value (83); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 94: // goal: ! m.cut_tail (0); m.deallocate (); break; case 95: m.end_rule (); break; // head: script(taichi(_G56511, stage2), _G56506) case 96: m.retry_me_else (100); m.allocate (1); //m.success = m.get_struct (taichi__2,1); m.uni_x_varia (10); /* Agent */ m.uni_atom (stage2__0); m.get_x_varia (11,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 97: // goal: _G56506=[turn_init(_G56511, humanoidroot, turn_n45), parallel([turn(_G56511, humanoidroot, turn_n45, very_slow), turn(_G56511, r_shoulder, right_front_down, very_slow), turn(_G56511, r_knee, back_down2, very_slow)]), parallel([turn(_G56511, l_shoulder, right_front_down, fast), turn(_G56511, l_elbow, front, fast)]), turn_init(_G56511, l_hip, front_down1), parallel([turn(_G56511, r_knee, back, slow), turn(_G56511, l_knee, back, slow), turn(_G56511, l_hip, front_down1, slow)]), parallel([turn(_G56511, l_hip, left_down, slow), turn(_G56511, l_shoulder, front, slow), turn(_G56511, r_shoulder, front, slow), turn(_G56511, l_elbow, down, slow), turn(_G56511, r_elbow, down, slow), turn(_G56511, l_knee, down, slow)]), parallel([turn(_G56511, l_hip, front_down, slow), turn(_G56511, l_shoulder, front_down, slow), turn(_G56511, r_shoulder, front_down, slow), turn(_G56511, l_elbow, front, slow), turn(_G56511, r_elbow, front, slow), turn(_G56511, l_knee, back, slow)])] m.put_struct (turn__4,12); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back__0); m.set_atom (slow__0); m.put_struct (turn__4,13); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (down__0); m.set_atom (slow__0); m.put_struct (turn__4,14); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_list (15); m.set_x_value (12); /* 'Xtmp' */ m.set_nil (); m.put_struct (turn__4,16); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_struct (turn__4,17); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_elbow__0); m.set_atom (down__0); m.set_atom (slow__0); m.put_list (18); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (19); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_struct (turn__4,20); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (down__0); m.set_atom (slow__0); m.put_struct (turn__4,21); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front_down__0); m.set_atom (slow__0); m.put_list (22); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (23); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_struct (turn__4,24); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front_down__0); m.set_atom (slow__0); m.put_struct (turn__4,25); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_list (26); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (22); /* 'Xtmp' */ m.put_list (27); m.set_x_value (21); /* 'Xtmp' */ m.set_x_value (23); /* 'Xtmp' */ m.put_struct (turn__4,28); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down__0); m.set_atom (slow__0); m.put_struct (turn__4,29); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down1__0); m.set_atom (slow__0); m.put_struct (turn__4,30); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (front__0); m.set_atom (slow__0); m.put_list (31); m.set_x_value (25); /* 'Xtmp' */ m.set_x_value (26); /* 'Xtmp' */ m.put_list (32); m.set_x_value (24); /* 'Xtmp' */ m.set_x_value (27); /* 'Xtmp' */ m.put_list (33); m.set_x_value (28); /* 'Xtmp' */ m.set_x_value (32); /* 'Xtmp' */ m.put_struct (turn__4,34); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (left_down__0); m.set_atom (slow__0); m.put_struct (turn__4,35); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_knee__0); m.set_atom (back__0); m.set_atom (slow__0); m.put_list (36); m.set_x_value (29); /* 'Xtmp' */ m.set_nil (); m.put_list (37); m.set_x_value (30); /* 'Xtmp' */ m.set_x_value (31); /* 'Xtmp' */ m.put_struct (parallel__1,38); m.set_x_value (33); /* 'Xtmp' */ m.put_list (39); m.set_x_value (34); /* 'Xtmp' */ m.set_x_value (37); /* 'Xtmp' */ m.put_struct (turn__4,40); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back__0); m.set_atom (slow__0); m.put_list (41); m.set_x_value (35); /* 'Xtmp' */ m.set_x_value (36); /* 'Xtmp' */ m.put_struct (parallel__1,42); m.set_x_value (39); /* 'Xtmp' */ m.put_list (43); m.set_x_value (40); /* 'Xtmp' */ m.set_x_value (41); /* 'Xtmp' */ m.put_struct (turn__4,44); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_elbow__0); m.set_atom (front__0); m.set_atom (fast__0); m.put_struct (turn__4,45); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_knee__0); m.set_atom (back_down2__0); m.set_atom (very_slow__0); m.put_list (46); m.set_x_value (38); /* 'Xtmp' */ m.set_nil (); m.put_struct (parallel__1,47); m.set_x_value (43); /* 'Xtmp' */ m.put_struct (turn__4,48); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_shoulder__0); m.set_atom (right_front_down__0); m.set_atom (fast__0); m.put_struct (turn__4,49); m.set_x_value (10); /* 'Agent' */ m.set_atom (r_shoulder__0); m.set_atom (right_front_down__0); m.set_atom (very_slow__0); m.put_list (50); m.set_x_value (45); /* 'Xtmp' */ m.set_nil (); m.put_list (51); m.set_x_value (44); /* 'Xtmp' */ m.set_nil (); m.put_list (52); m.set_x_value (42); /* 'Xtmp' */ m.set_x_value (46); /* 'Xtmp' */ m.put_list (53); m.set_x_value (48); /* 'Xtmp' */ m.set_x_value (51); /* 'Xtmp' */ m.put_struct (turn_init__3,54); m.set_x_value (10); /* 'Agent' */ m.set_atom (l_hip__0); m.set_atom (front_down1__0); m.put_struct (turn__4,55); m.set_x_value (10); /* 'Agent' */ m.set_atom (humanoidroot__0); m.set_atom (turn_n45__0); m.set_atom (very_slow__0); m.put_list (56); m.set_x_value (49); /* 'Xtmp' */ m.set_x_value (50); /* 'Xtmp' */ m.put_list (57); m.set_x_value (47); /* 'Xtmp' */ m.set_x_value (52); /* 'Xtmp' */ m.put_struct (parallel__1,58); m.set_x_value (53); /* 'Xtmp' */ m.put_list (59); m.set_x_value (55); /* 'Xtmp' */ m.set_x_value (56); /* 'Xtmp' */ m.put_list (60); m.set_x_value (54); /* 'Xtmp' */ m.set_x_value (57); /* 'Xtmp' */ m.put_struct (parallel__1,61); m.set_x_value (59); /* 'Xtmp' */ m.put_list (62); m.set_x_value (58); /* 'Xtmp' */ m.set_x_value (60); /* 'Xtmp' */ m.put_struct (turn_init__3,63); m.set_x_value (10); /* 'Agent' */ m.set_atom (humanoidroot__0); m.set_atom (turn_n45__0); m.put_list (64); m.set_x_value (61); /* 'Xtmp' */ m.set_x_value (62); /* 'Xtmp' */ m.put_x_value (11,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (63); /* 'Xtmp' */ m.set_x_value (64); /* 'Xtmp' */ m.call (dlplib.op_eq_2); /*6*/ break; case 98: // goal: ! m.cut_tail (0); m.deallocate (); break; case 99: m.end_rule (); break; // head: script(if_then_else(_G74698, _G74699, _G74700), _G74693) case 100: m.retry_me_else (104); m.allocate (1); //m.success = m.get_struct (if_then_else__3,1); m.uni_x_varia (10); /* Condition */ m.uni_x_varia (11); /* Then */ m.uni_x_varia (12); /* Else */ m.get_x_varia (13,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 101: // goal: _G74693=[choice([[test(_G74698), _G74699], [test(not(_G74698)), _G74700]])] m.put_struct (not__1,14); m.set_x_value (10); /* 'Condition' */ m.put_struct (test__1,15); m.set_x_value (14); /* 'Xtmp' */ m.put_list (16); m.set_x_value (12); /* 'Else' */ m.set_nil (); m.put_struct (test__1,17); m.set_x_value (10); /* 'Condition' */ m.put_list (18); m.set_x_value (15); /* 'Xtmp' */ m.set_x_value (16); /* 'Xtmp' */ m.put_list (19); m.set_x_value (11); /* 'Then' */ m.set_nil (); m.put_list (20); m.set_x_value (17); /* 'Xtmp' */ m.set_x_value (19); /* 'Xtmp' */ m.put_list (21); m.set_x_value (18); /* 'Xtmp' */ m.set_nil (); m.put_list (22); m.set_x_value (20); /* 'Xtmp' */ m.set_x_value (21); /* 'Xtmp' */ m.put_struct (choice__1,23); m.set_x_value (22); /* 'Xtmp' */ m.put_x_value (13,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (23); /* 'Xtmp' */ m.set_nil (); m.call (dlplib.op_eq_2); /*6*/ break; case 102: // goal: ! m.cut_tail (0); m.deallocate (); break; case 103: m.end_rule (); break; // head: script(if_then(_G78909, _G78910), _G78904) case 104: m.retry_me_else (108); m.allocate (1); //m.success = m.get_struct (if_then__2,1); m.uni_x_varia (10); /* Condition */ m.uni_x_varia (11); /* Then */ m.get_x_varia (12,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 105: // goal: _G78904=[choice([[test(_G78909), _G78910], [test(not(_G78909)), skip]])] m.put_struct (not__1,13); m.set_x_value (10); /* 'Condition' */ m.put_struct (test__1,14); m.set_x_value (13); /* 'Xtmp' */ m.put_list (15); m.set_atom (skip__0); m.set_nil (); m.put_struct (test__1,16); m.set_x_value (10); /* 'Condition' */ m.put_list (17); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_list (18); m.set_x_value (11); /* 'Then' */ m.set_nil (); m.put_list (19); m.set_x_value (16); /* 'Xtmp' */ m.set_x_value (18); /* 'Xtmp' */ m.put_list (20); m.set_x_value (17); /* 'Xtmp' */ m.set_nil (); m.put_list (21); m.set_x_value (19); /* 'Xtmp' */ m.set_x_value (20); /* 'Xtmp' */ m.put_struct (choice__1,22); m.set_x_value (21); /* 'Xtmp' */ m.put_x_value (12,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (22); /* 'Xtmp' */ m.set_nil (); m.call (dlplib.op_eq_2); /*6*/ break; case 106: // goal: ! m.cut_tail (0); m.deallocate (); break; case 107: m.end_rule (); break; // head: script(until(_G82681, _G82682), _G82676) case 108: m.trust_or_fail (); m.allocate (1); //m.success = m.get_struct (until__2,1); m.uni_x_varia (10); /* Action */ m.uni_x_varia (11); /* Condition */ m.get_x_varia (12,2); /* ActionList */ m.cut_level (0); m.end_head (); break; case 109: // goal: _G82676=[[star(_G82681), test(_G82682)]] m.put_struct (test__1,13); m.set_x_value (11); /* 'Condition' */ m.put_struct (star__1,14); m.set_x_value (10); /* 'Action' */ m.put_list (15); m.set_x_value (13); /* 'Xtmp' */ m.set_nil (); m.put_list (16); m.set_x_value (14); /* 'Xtmp' */ m.set_x_value (15); /* 'Xtmp' */ m.put_x_value (12,1); /* 'ActionList' */ m.put_list (2); m.set_x_value (16); /* 'Xtmp' */ m.set_nil (); m.call (dlplib.op_eq_2); /*6*/ break; case 110: // goal: ! m.cut_tail (0); m.deallocate (); break; case 111: m.end_rule (); break; } // switch return m.success; } // gesturelib:script/2 exec() // gesturelib:script/2 decls. public SymbolDescriptor walk__1; public SymbolDescriptor op__dot__2; public SymbolDescriptor parallel__1; public SymbolDescriptor turn__4; public SymbolDescriptor r_shoulder__0; public SymbolDescriptor back_down2__0; public SymbolDescriptor fast__0; public SymbolDescriptor r_hip__0; public SymbolDescriptor front_down2__0; public SymbolDescriptor l_shoulder__0; public SymbolDescriptor l_hip__0; public SymbolDescriptor sl_sr__0; public SymbolDescriptor walk__4; public SymbolDescriptor move__3; public SymbolDescriptor increment__3; public SymbolDescriptor walk__2; public SymbolDescriptor get_adjustY__2; public SymbolDescriptor do__1; public SymbolDescriptor getBodyObjectName__3; public SymbolDescriptor l_ankle__0; public SymbolDescriptor getPosition__4; public SymbolDescriptor is__2; public SymbolDescriptor op__sub__2; public SymbolDescriptor down__0; public SymbolDescriptor walk_adjustY__3; public SymbolDescriptor op__sub__1; public SymbolDescriptor script__1; public SymbolDescriptor very_fast__0; public SymbolDescriptor fast_walk__1; public SymbolDescriptor set_tempo__1; public SymbolDescriptor walk_front__1; public SymbolDescriptor front__0; public SymbolDescriptor jump__1; public SymbolDescriptor turn_init__3; public SymbolDescriptor up__0; public SymbolDescriptor r_knee__0; public SymbolDescriptor back__0; public SymbolDescriptor front_down__0; public SymbolDescriptor l_knee__0; public SymbolDescriptor left__0; public SymbolDescriptor right__0; public SymbolDescriptor down_from_front__0; public SymbolDescriptor stand__1; public SymbolDescriptor stand2__1; public SymbolDescriptor skullbase__0; public SymbolDescriptor kicking__1; public SymbolDescriptor back_down__0; public SymbolDescriptor kneeing__1; public SymbolDescriptor r_elbow__0; public SymbolDescriptor l_elbow__0; public SymbolDescriptor start_run__1; public SymbolDescriptor run1__1; public SymbolDescriptor run__1; public SymbolDescriptor l_wave__1; public SymbolDescriptor left_front_up__0; public SymbolDescriptor left_front2_up__0; public SymbolDescriptor l_wave2__1; public SymbolDescriptor up_turn_90__0; public SymbolDescriptor r_wave__1; public SymbolDescriptor right_front_up__0; public SymbolDescriptor right_front2_up__0; public SymbolDescriptor r_wave2__1; public SymbolDescriptor greeting__1; public SymbolDescriptor repeat__2; public SymbolDescriptor wait__1; public SymbolDescriptor open_leg1__1; public SymbolDescriptor side1_down__0; public SymbolDescriptor test__1; public SymbolDescriptor format__1; public SymbolDescriptor data__8__0; public SymbolDescriptor data__9__0; public SymbolDescriptor stand1__1; public SymbolDescriptor data__10__0; public SymbolDescriptor data__11__0; public SymbolDescriptor data__12__0; public SymbolDescriptor taichi__1; public SymbolDescriptor data__13__0; public SymbolDescriptor taichi__2; public SymbolDescriptor stage1__0; public SymbolDescriptor slow__0; public SymbolDescriptor front_right2__0; public SymbolDescriptor front_left2__0; public SymbolDescriptor left_front_down__0; public SymbolDescriptor right_front_down__0; public SymbolDescriptor back2_down__0; public SymbolDescriptor left_front_up2__0; public SymbolDescriptor very_slow__0; public SymbolDescriptor r_wrist__0; public SymbolDescriptor turn_n45__0; public SymbolDescriptor front_left__0; public SymbolDescriptor l_wrist__0; public SymbolDescriptor turn_90__0; public SymbolDescriptor stage2__0; public SymbolDescriptor humanoidroot__0; public SymbolDescriptor front_down1__0; public SymbolDescriptor left_down__0; public SymbolDescriptor if_then_else__3; public SymbolDescriptor choice__1; public SymbolDescriptor not__1; public SymbolDescriptor if_then__2; public SymbolDescriptor skip__0; public SymbolDescriptor until__2; public SymbolDescriptor star__1; // end of gesturelib:script/2 decls. public boolean init (DLP m) { walk__1 = m.define_symbol ("walk".intern(), 1); op__dot__2 = m.define_symbol (".".intern(), 2); parallel__1 = m.define_symbol ("parallel".intern(), 1); turn__4 = m.define_symbol ("turn".intern(), 4); r_shoulder__0 = m.define_symbol ("r_shoulder".intern(), 0); back_down2__0 = m.define_symbol ("back_down2".intern(), 0); fast__0 = m.define_symbol ("fast".intern(), 0); r_hip__0 = m.define_symbol ("r_hip".intern(), 0); front_down2__0 = m.define_symbol ("front_down2".intern(), 0); l_shoulder__0 = m.define_symbol ("l_shoulder".intern(), 0); l_hip__0 = m.define_symbol ("l_hip".intern(), 0); sl_sr__0 = m.define_symbol ("[]".intern(), 0); walk__4 = m.define_symbol ("walk".intern(), 4); move__3 = m.define_symbol ("move".intern(), 3); increment__3 = m.define_symbol ("increment".intern(), 3); walk__2 = m.define_symbol ("walk".intern(), 2); get_adjustY__2 = m.define_symbol ("get_adjustY".intern(), 2); do__1 = m.define_symbol ("do".intern(), 1); getBodyObjectName__3 = m.define_symbol ("getBodyObjectName".intern(), 3); l_ankle__0 = m.define_symbol ("l_ankle".intern(), 0); getPosition__4 = m.define_symbol ("getPosition".intern(), 4); is__2 = m.define_symbol ("is".intern(), 2); op__sub__2 = m.define_symbol ("-".intern(), 2); down__0 = m.define_symbol ("down".intern(), 0); walk_adjustY__3 = m.define_symbol ("walk_adjustY".intern(), 3); op__sub__1 = m.define_symbol ("-".intern(), 1); script__1 = m.define_symbol ("script".intern(), 1); very_fast__0 = m.define_symbol ("very_fast".intern(), 0); fast_walk__1 = m.define_symbol ("fast_walk".intern(), 1); set_tempo__1 = m.define_symbol ("set_tempo".intern(), 1); walk_front__1 = m.define_symbol ("walk_front".intern(), 1); front__0 = m.define_symbol ("front".intern(), 0); jump__1 = m.define_symbol ("jump".intern(), 1); turn_init__3 = m.define_symbol ("turn_init".intern(), 3); up__0 = m.define_symbol ("up".intern(), 0); r_knee__0 = m.define_symbol ("r_knee".intern(), 0); back__0 = m.define_symbol ("back".intern(), 0); front_down__0 = m.define_symbol ("front_down".intern(), 0); l_knee__0 = m.define_symbol ("l_knee".intern(), 0); left__0 = m.define_symbol ("left".intern(), 0); right__0 = m.define_symbol ("right".intern(), 0); down_from_front__0 = m.define_symbol ("down_from_front".intern(), 0); stand__1 = m.define_symbol ("stand".intern(), 1); stand2__1 = m.define_symbol ("stand2".intern(), 1); skullbase__0 = m.define_symbol ("skullbase".intern(), 0); kicking__1 = m.define_symbol ("kicking".intern(), 1); back_down__0 = m.define_symbol ("back_down".intern(), 0); kneeing__1 = m.define_symbol ("kneeing".intern(), 1); r_elbow__0 = m.define_symbol ("r_elbow".intern(), 0); l_elbow__0 = m.define_symbol ("l_elbow".intern(), 0); start_run__1 = m.define_symbol ("start_run".intern(), 1); run1__1 = m.define_symbol ("run1".intern(), 1); run__1 = m.define_symbol ("run".intern(), 1); l_wave__1 = m.define_symbol ("l_wave".intern(), 1); left_front_up__0 = m.define_symbol ("left_front_up".intern(), 0); left_front2_up__0 = m.define_symbol ("left_front2_up".intern(), 0); l_wave2__1 = m.define_symbol ("l_wave2".intern(), 1); up_turn_90__0 = m.define_symbol ("up_turn_90".intern(), 0); r_wave__1 = m.define_symbol ("r_wave".intern(), 1); right_front_up__0 = m.define_symbol ("right_front_up".intern(), 0); right_front2_up__0 = m.define_symbol ("right_front2_up".intern(), 0); r_wave2__1 = m.define_symbol ("r_wave2".intern(), 1); greeting__1 = m.define_symbol ("greeting".intern(), 1); repeat__2 = m.define_symbol ("repeat".intern(), 2); wait__1 = m.define_symbol ("wait".intern(), 1); open_leg1__1 = m.define_symbol ("open_leg1".intern(), 1); side1_down__0 = m.define_symbol ("side1_down".intern(), 0); test__1 = m.define_symbol ("test".intern(), 1); format__1 = m.define_symbol ("format".intern(), 1); data__8__0 = m.define_symbol ("Agent action: walking~n".intern(), 0); data__9__0 = m.define_symbol ("Agent action: kicking~n".intern(), 0); stand1__1 = m.define_symbol ("stand1".intern(), 1); data__10__0 = m.define_symbol ("Agent action: running~n".intern(), 0); data__11__0 = m.define_symbol ("Agent action: jumping~n".intern(), 0); data__12__0 = m.define_symbol ("Agent action: greeting~n".intern(), 0); taichi__1 = m.define_symbol ("taichi".intern(), 1); data__13__0 = m.define_symbol ("Agent action: taichi~n".intern(), 0); taichi__2 = m.define_symbol ("taichi".intern(), 2); stage1__0 = m.define_symbol ("stage1".intern(), 0); slow__0 = m.define_symbol ("slow".intern(), 0); front_right2__0 = m.define_symbol ("front_right2".intern(), 0); front_left2__0 = m.define_symbol ("front_left2".intern(), 0); left_front_down__0 = m.define_symbol ("left_front_down".intern(), 0); right_front_down__0 = m.define_symbol ("right_front_down".intern(), 0); back2_down__0 = m.define_symbol ("back2_down".intern(), 0); left_front_up2__0 = m.define_symbol ("left_front_up2".intern(), 0); very_slow__0 = m.define_symbol ("very_slow".intern(), 0); r_wrist__0 = m.define_symbol ("r_wrist".intern(), 0); turn_n45__0 = m.define_symbol ("turn_n45".intern(), 0); front_left__0 = m.define_symbol ("front_left".intern(), 0); l_wrist__0 = m.define_symbol ("l_wrist".intern(), 0); turn_90__0 = m.define_symbol ("turn_90".intern(), 0); stage2__0 = m.define_symbol ("stage2".intern(), 0); humanoidroot__0 = m.define_symbol ("humanoidroot".intern(), 0); front_down1__0 = m.define_symbol ("front_down1".intern(), 0); left_down__0 = m.define_symbol ("left_down".intern(), 0); if_then_else__3 = m.define_symbol ("if_then_else".intern(), 3); choice__1 = m.define_symbol ("choice".intern(), 1); not__1 = m.define_symbol ("not".intern(), 1); if_then__2 = m.define_symbol ("if_then".intern(), 2); skip__0 = m.define_symbol ("skip".intern(), 0); until__2 = m.define_symbol ("until".intern(), 2); star__1 = m.define_symbol ("star".intern(), 1); return true; } // gesturelib:script/2 init() } // gesturelib:script/2 final class gesturelib_getBodyObjectName_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: getBodyObjectName(humanoid, l_shoulder, hanim_l_shoulder) case 0: m.try_me_else (2); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_shoulder__0,2); m.get_atom (hanim_l_shoulder__0,3); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_shoulder, hanim_r_shoulder) case 2: m.retry_me_else (4); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_shoulder__0,2); m.get_atom (hanim_r_shoulder__0,3); m.cut_neck (); m.end_head (); break; case 3: m.end_fact (); break; // head: getBodyObjectName(humanoid, l_elbow, hanim_l_elbow) case 4: m.retry_me_else (6); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_elbow__0,2); m.get_atom (hanim_l_elbow__0,3); m.cut_neck (); m.end_head (); break; case 5: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_elbow, hanim_r_elbow) case 6: m.retry_me_else (8); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_elbow__0,2); m.get_atom (hanim_r_elbow__0,3); m.cut_neck (); m.end_head (); break; case 7: m.end_fact (); break; // head: getBodyObjectName(humanoid, l_hip, hanim_l_hip) case 8: m.retry_me_else (10); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_hip__0,2); m.get_atom (hanim_l_hip__0,3); m.cut_neck (); m.end_head (); break; case 9: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_hip, hanim_r_hip) case 10: m.retry_me_else (12); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_hip__0,2); m.get_atom (hanim_r_hip__0,3); m.cut_neck (); m.end_head (); break; case 11: m.end_fact (); break; // head: getBodyObjectName(humanoid, l_ankle, hanim_l_ankle) case 12: m.retry_me_else (14); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_ankle__0,2); m.get_atom (hanim_l_ankle__0,3); m.cut_neck (); m.end_head (); break; case 13: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_ankle, hanim_r_ankle) case 14: m.retry_me_else (16); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_ankle__0,2); m.get_atom (hanim_r_ankle__0,3); m.cut_neck (); m.end_head (); break; case 15: m.end_fact (); break; // head: getBodyObjectName(humanoid, l_knee, hanim_l_knee) case 16: m.retry_me_else (18); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_knee__0,2); m.get_atom (hanim_l_knee__0,3); m.cut_neck (); m.end_head (); break; case 17: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_knee, hanim_r_knee) case 18: m.retry_me_else (20); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_knee__0,2); m.get_atom (hanim_r_knee__0,3); m.cut_neck (); m.end_head (); break; case 19: m.end_fact (); break; // head: getBodyObjectName(humanoid, l_wrist, hanim_l_wrist) case 20: m.retry_me_else (22); //m.success = m.get_atom (humanoid__0,1); m.get_atom (l_wrist__0,2); m.get_atom (hanim_l_wrist__0,3); m.cut_neck (); m.end_head (); break; case 21: m.end_fact (); break; // head: getBodyObjectName(humanoid, r_wrist, hanim_r_wrist) case 22: m.retry_me_else (24); //m.success = m.get_atom (humanoid__0,1); m.get_atom (r_wrist__0,2); m.get_atom (hanim_r_wrist__0,3); m.cut_neck (); m.end_head (); break; case 23: m.end_fact (); break; // head: getBodyObjectName(humanoid, vl5, hanim_vl5) case 24: m.retry_me_else (26); //m.success = m.get_atom (humanoid__0,1); m.get_atom (vl5__0,2); m.get_atom (hanim_vl5__0,3); m.cut_neck (); m.end_head (); break; case 25: m.end_fact (); break; // head: getBodyObjectName(humanoid, skullbase, hanim_skullbase) case 26: m.retry_me_else (28); //m.success = m.get_atom (humanoid__0,1); m.get_atom (skullbase__0,2); m.get_atom (hanim_skullbase__0,3); m.cut_neck (); m.end_head (); break; case 27: m.end_fact (); break; // head: getBodyObjectName(humanoid, humanoidroot, hanim_HumanoidRoot) case 28: m.retry_me_else (30); //m.success = m.get_atom (humanoid__0,1); m.get_atom (humanoidroot__0,2); m.get_atom (hanim_HumanoidRoot__0,3); m.cut_neck (); m.end_head (); break; case 29: m.end_fact (); break; // head: getBodyObjectName(humanoid, sacroiliac, hanim_sacroiliac) case 30: m.retry_me_else (32); //m.success = m.get_atom (humanoid__0,1); m.get_atom (sacroiliac__0,2); m.get_atom (hanim_sacroiliac__0,3); m.cut_neck (); m.end_head (); break; case 31: m.end_fact (); break; // head: getBodyObjectName(_G21760, _G21761, _G21762) case 32: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* H */ m.get_x_varia (12,2); /* B */ m.get_x_varia (13,3); /* N */ m.end_head (); break; case 33: // goal: format('invalid name : H=~w, B=~w, N=~w~n', [_G21760, _G21761, _G21762]) m.put_list (14); m.set_x_value (13); /* 'N' */ m.set_nil (); m.put_list (15); m.set_x_value (12); /* 'B' */ m.set_x_value (14); /* 'Xtmp' */ m.put_atom (data__14__0,1); m.put_list (2); m.set_x_value (11); /* 'H' */ m.set_x_value (15); /* 'Xtmp' */ m.exec (dlplib.format_2); break; case 34: m.end_rule (); break; } // switch return m.success; } // gesturelib:getBodyObjectName/3 exec() // gesturelib:getBodyObjectName/3 decls. public SymbolDescriptor humanoid__0; public SymbolDescriptor l_shoulder__0; public SymbolDescriptor hanim_l_shoulder__0; public SymbolDescriptor r_shoulder__0; public SymbolDescriptor hanim_r_shoulder__0; public SymbolDescriptor l_elbow__0; public SymbolDescriptor hanim_l_elbow__0; public SymbolDescriptor r_elbow__0; public SymbolDescriptor hanim_r_elbow__0; public SymbolDescriptor l_hip__0; public SymbolDescriptor hanim_l_hip__0; public SymbolDescriptor r_hip__0; public SymbolDescriptor hanim_r_hip__0; public SymbolDescriptor l_ankle__0; public SymbolDescriptor hanim_l_ankle__0; public SymbolDescriptor r_ankle__0; public SymbolDescriptor hanim_r_ankle__0; public SymbolDescriptor l_knee__0; public SymbolDescriptor hanim_l_knee__0; public SymbolDescriptor r_knee__0; public SymbolDescriptor hanim_r_knee__0; public SymbolDescriptor l_wrist__0; public SymbolDescriptor hanim_l_wrist__0; public SymbolDescriptor r_wrist__0; public SymbolDescriptor hanim_r_wrist__0; public SymbolDescriptor vl5__0; public SymbolDescriptor hanim_vl5__0; public SymbolDescriptor skullbase__0; public SymbolDescriptor hanim_skullbase__0; public SymbolDescriptor humanoidroot__0; public SymbolDescriptor hanim_HumanoidRoot__0; public SymbolDescriptor sacroiliac__0; public SymbolDescriptor hanim_sacroiliac__0; public SymbolDescriptor data__14__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:getBodyObjectName/3 decls. public boolean init (DLP m) { humanoid__0 = m.define_symbol ("humanoid".intern(), 0); l_shoulder__0 = m.define_symbol ("l_shoulder".intern(), 0); hanim_l_shoulder__0 = m.define_symbol ("hanim_l_shoulder".intern(), 0); r_shoulder__0 = m.define_symbol ("r_shoulder".intern(), 0); hanim_r_shoulder__0 = m.define_symbol ("hanim_r_shoulder".intern(), 0); l_elbow__0 = m.define_symbol ("l_elbow".intern(), 0); hanim_l_elbow__0 = m.define_symbol ("hanim_l_elbow".intern(), 0); r_elbow__0 = m.define_symbol ("r_elbow".intern(), 0); hanim_r_elbow__0 = m.define_symbol ("hanim_r_elbow".intern(), 0); l_hip__0 = m.define_symbol ("l_hip".intern(), 0); hanim_l_hip__0 = m.define_symbol ("hanim_l_hip".intern(), 0); r_hip__0 = m.define_symbol ("r_hip".intern(), 0); hanim_r_hip__0 = m.define_symbol ("hanim_r_hip".intern(), 0); l_ankle__0 = m.define_symbol ("l_ankle".intern(), 0); hanim_l_ankle__0 = m.define_symbol ("hanim_l_ankle".intern(), 0); r_ankle__0 = m.define_symbol ("r_ankle".intern(), 0); hanim_r_ankle__0 = m.define_symbol ("hanim_r_ankle".intern(), 0); l_knee__0 = m.define_symbol ("l_knee".intern(), 0); hanim_l_knee__0 = m.define_symbol ("hanim_l_knee".intern(), 0); r_knee__0 = m.define_symbol ("r_knee".intern(), 0); hanim_r_knee__0 = m.define_symbol ("hanim_r_knee".intern(), 0); l_wrist__0 = m.define_symbol ("l_wrist".intern(), 0); hanim_l_wrist__0 = m.define_symbol ("hanim_l_wrist".intern(), 0); r_wrist__0 = m.define_symbol ("r_wrist".intern(), 0); hanim_r_wrist__0 = m.define_symbol ("hanim_r_wrist".intern(), 0); vl5__0 = m.define_symbol ("vl5".intern(), 0); hanim_vl5__0 = m.define_symbol ("hanim_vl5".intern(), 0); skullbase__0 = m.define_symbol ("skullbase".intern(), 0); hanim_skullbase__0 = m.define_symbol ("hanim_skullbase".intern(), 0); humanoidroot__0 = m.define_symbol ("humanoidroot".intern(), 0); hanim_HumanoidRoot__0 = m.define_symbol ("hanim_HumanoidRoot".intern(), 0); sacroiliac__0 = m.define_symbol ("sacroiliac".intern(), 0); hanim_sacroiliac__0 = m.define_symbol ("hanim_sacroiliac".intern(), 0); data__14__0 = m.define_symbol ("invalid name : H=~w, B=~w, N=~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:getBodyObjectName/3 init() } // gesturelib:getBodyObjectName/3 final class gesturelib_object_class_2 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: object_class(l, l_shoulder) case 0: m.try_me_else (2); //m.success = m.get_atom (l__0,1); m.get_atom (l_shoulder__0,2); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: object_class(r, r_shoulder) case 2: m.retry_me_else (4); //m.success = m.get_atom (r__0,1); m.get_atom (r_shoulder__0,2); m.cut_neck (); m.end_head (); break; case 3: m.end_fact (); break; // head: object_class(l, l_elbow) case 4: m.retry_me_else (6); //m.success = m.get_atom (l__0,1); m.get_atom (l_elbow__0,2); m.cut_neck (); m.end_head (); break; case 5: m.end_fact (); break; // head: object_class(r, r_elbow) case 6: m.retry_me_else (8); //m.success = m.get_atom (r__0,1); m.get_atom (r_elbow__0,2); m.cut_neck (); m.end_head (); break; case 7: m.end_fact (); break; // head: object_class(l, l_hip) case 8: m.retry_me_else (10); //m.success = m.get_atom (l__0,1); m.get_atom (l_hip__0,2); m.cut_neck (); m.end_head (); break; case 9: m.end_fact (); break; // head: object_class(r, r_hip) case 10: m.retry_me_else (12); //m.success = m.get_atom (r__0,1); m.get_atom (r_hip__0,2); m.cut_neck (); m.end_head (); break; case 11: m.end_fact (); break; // head: object_class(l, l_ankle) case 12: m.retry_me_else (14); //m.success = m.get_atom (l__0,1); m.get_atom (l_ankle__0,2); m.cut_neck (); m.end_head (); break; case 13: m.end_fact (); break; // head: object_class(r, r_ankle) case 14: m.retry_me_else (16); //m.success = m.get_atom (r__0,1); m.get_atom (r_ankle__0,2); m.cut_neck (); m.end_head (); break; case 15: m.end_fact (); break; // head: object_class(l, l_knee) case 16: m.retry_me_else (18); //m.success = m.get_atom (l__0,1); m.get_atom (l_knee__0,2); m.cut_neck (); m.end_head (); break; case 17: m.end_fact (); break; // head: object_class(r, r_knee) case 18: m.retry_me_else (20); //m.success = m.get_atom (r__0,1); m.get_atom (r_knee__0,2); m.cut_neck (); m.end_head (); break; case 19: m.end_fact (); break; // head: object_class(l, l_wrist) case 20: m.retry_me_else (22); //m.success = m.get_atom (l__0,1); m.get_atom (l_wrist__0,2); m.cut_neck (); m.end_head (); break; case 21: m.end_fact (); break; // head: object_class(r, r_wrist) case 22: m.retry_me_else (24); //m.success = m.get_atom (r__0,1); m.get_atom (r_wrist__0,2); m.cut_neck (); m.end_head (); break; case 23: m.end_fact (); break; // head: object_class(c, vl5) case 24: m.retry_me_else (26); //m.success = m.get_atom (c__0,1); m.get_atom (vl5__0,2); m.cut_neck (); m.end_head (); break; case 25: m.end_fact (); break; // head: object_class(c, skullbase) case 26: m.retry_me_else (28); //m.success = m.get_atom (c__0,1); m.get_atom (skullbase__0,2); m.cut_neck (); m.end_head (); break; case 27: m.end_fact (); break; // head: object_class(c, root) case 28: m.retry_me_else (30); //m.success = m.get_atom (c__0,1); m.get_atom (root__0,2); m.cut_neck (); m.end_head (); break; case 29: m.end_fact (); break; // head: object_class(c, sacroiliac) case 30: m.retry_me_else (32); //m.success = m.get_atom (c__0,1); m.get_atom (sacroiliac__0,2); m.cut_neck (); m.end_head (); break; case 31: m.end_fact (); break; // head: object_class(c, humanoidroot) case 32: m.retry_me_else (34); //m.success = m.get_atom (c__0,1); m.get_atom (humanoidroot__0,2); m.cut_neck (); m.end_head (); break; case 33: m.end_fact (); break; // head: object_class(_G18704, _G18705) case 34: m.trust_or_fail (); //m.success = m.get_x_varia (10,1); /* C */ m.get_x_varia (11,2); /* B */ m.end_head (); break; case 35: // goal: format('object class error : C=~w, B=~w~n', [_G18704, _G18705]) m.put_list (12); m.set_x_value (11); /* 'B' */ m.set_nil (); m.put_atom (data__15__0,1); m.put_list (2); m.set_x_value (10); /* 'C' */ m.set_x_value (12); /* 'Xtmp' */ m.exec (dlplib.format_2); break; case 36: m.end_rule (); break; } // switch return m.success; } // gesturelib:object_class/2 exec() // gesturelib:object_class/2 decls. public SymbolDescriptor l__0; public SymbolDescriptor l_shoulder__0; public SymbolDescriptor r__0; public SymbolDescriptor r_shoulder__0; public SymbolDescriptor l_elbow__0; public SymbolDescriptor r_elbow__0; public SymbolDescriptor l_hip__0; public SymbolDescriptor r_hip__0; public SymbolDescriptor l_ankle__0; public SymbolDescriptor r_ankle__0; public SymbolDescriptor l_knee__0; public SymbolDescriptor r_knee__0; public SymbolDescriptor l_wrist__0; public SymbolDescriptor r_wrist__0; public SymbolDescriptor c__0; public SymbolDescriptor vl5__0; public SymbolDescriptor skullbase__0; public SymbolDescriptor root__0; public SymbolDescriptor sacroiliac__0; public SymbolDescriptor humanoidroot__0; public SymbolDescriptor data__15__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:object_class/2 decls. public boolean init (DLP m) { l__0 = m.define_symbol ("l".intern(), 0); l_shoulder__0 = m.define_symbol ("l_shoulder".intern(), 0); r__0 = m.define_symbol ("r".intern(), 0); r_shoulder__0 = m.define_symbol ("r_shoulder".intern(), 0); l_elbow__0 = m.define_symbol ("l_elbow".intern(), 0); r_elbow__0 = m.define_symbol ("r_elbow".intern(), 0); l_hip__0 = m.define_symbol ("l_hip".intern(), 0); r_hip__0 = m.define_symbol ("r_hip".intern(), 0); l_ankle__0 = m.define_symbol ("l_ankle".intern(), 0); r_ankle__0 = m.define_symbol ("r_ankle".intern(), 0); l_knee__0 = m.define_symbol ("l_knee".intern(), 0); r_knee__0 = m.define_symbol ("r_knee".intern(), 0); l_wrist__0 = m.define_symbol ("l_wrist".intern(), 0); r_wrist__0 = m.define_symbol ("r_wrist".intern(), 0); c__0 = m.define_symbol ("c".intern(), 0); vl5__0 = m.define_symbol ("vl5".intern(), 0); skullbase__0 = m.define_symbol ("skullbase".intern(), 0); root__0 = m.define_symbol ("root".intern(), 0); sacroiliac__0 = m.define_symbol ("sacroiliac".intern(), 0); humanoidroot__0 = m.define_symbol ("humanoidroot".intern(), 0); data__15__0 = m.define_symbol ("object class error : C=~w, B=~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:object_class/2 init() } // gesturelib:object_class/2 final class gesturelib_getRotationParameter_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: getRotationParameter(_G81, rotation(_G88, _G89, _G90, _G91), rotation(_G88, _G89, _G90, _G91)) case 0: m.try_me_else (2); //m.success = m.get_v_varia (1); /* Unknown */ m.get_struct (rotation__4,2); m.uni_x_varia (12); /* X */ m.uni_x_varia (13); /* Y */ m.uni_x_varia (14); /* Z */ m.uni_x_varia (15); /* R0 */ m.get_struct (rotation__4,3); m.uni_x_value (12); /* X */ m.uni_x_value (13); /* Y */ m.uni_x_value (14); /* Z */ m.uni_x_value (15); /* R0 */ m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: getRotationParameter(_G2103, _G2104, _G2105) case 2: m.retry_me_else (7); m.allocate (4); //m.success = m.get_x_varia (11,1); /* Object */ m.get_y_value (2,2); /* Direction */ m.get_y_value (1,3); /* R */ m.cut_level (0); m.end_head (); break; case 3: // goal: object_class(_G2113, _G2103) m.put_y_value (3,1); /* 'ObjectClass' */ m.put_x_value (11,2); /* 'Object' */ m.call (2) /*2*/; /* object_class_2 */ break; case 4: // goal: rotation_parameter(_G2113, _G2104, _G2105) m.put_y_value (3,1); /* 'ObjectClass' */ m.put_y_value (2,2); /* 'Direction' */ m.put_y_value (1,3); /* 'R' */ m.call (4) /*2*/; /* rotation_parameter_3 */ break; case 5: // goal: ! m.cut_tail (0); m.deallocate (); break; case 6: m.end_rule (); break; // head: getRotationParameter(_G4634, _G4635, _G4636) case 7: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* Object */ m.get_v_varia (2); /* Unknown */ m.get_v_varia (3); /* Unknown */ m.end_head (); break; case 8: // goal: format('rotation parameter error for ~w~n', [_G4634]) m.put_atom (data__16__0,1); m.put_list (2); m.set_x_value (11); /* 'Object' */ m.set_nil (); m.exec (dlplib.format_2); break; case 9: m.end_rule (); break; } // switch return m.success; } // gesturelib:getRotationParameter/3 exec() // gesturelib:getRotationParameter/3 decls. public SymbolDescriptor rotation__4; public SymbolDescriptor data__16__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:getRotationParameter/3 decls. public boolean init (DLP m) { rotation__4 = m.define_symbol ("rotation".intern(), 4); data__16__0 = m.define_symbol ("rotation parameter error for ~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:getRotationParameter/3 init() } // gesturelib:getRotationParameter/3 final class gesturelib_rotation_parameter_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: rotation_parameter(l, front, rotation(1, 0, 0, -1.57)) case 0: m.try_me_else (2); //m.success = m.get_atom (l__0,1); m.get_atom (front__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: rotation_parameter(l, back, rotation(1, 0, 0, 1.57)) case 2: m.retry_me_else (4); //m.success = m.get_atom (l__0,1); m.get_atom (back__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 3: m.end_fact (); break; // head: rotation_parameter(l, back_down2, rotation(1, 0, 0, 0.4)) case 4: m.retry_me_else (6); //m.success = m.get_atom (l__0,1); m.get_atom (back_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.4f); m.cut_neck (); m.end_head (); break; case 5: m.end_fact (); break; // head: rotation_parameter(l, front_down2, rotation(1, 0, 0, -0.4)) case 6: m.retry_me_else (8); //m.success = m.get_atom (l__0,1); m.get_atom (front_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.4f); m.cut_neck (); m.end_head (); break; case 7: m.end_fact (); break; // head: rotation_parameter(l, back_down, rotation(1, 0, 0, 0.77)) case 8: m.retry_me_else (10); //m.success = m.get_atom (l__0,1); m.get_atom (back_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 9: m.end_fact (); break; // head: rotation_parameter(l, back2_down, rotation(1, 0, 0, 1.17)) case 10: m.retry_me_else (12); //m.success = m.get_atom (l__0,1); m.get_atom (back2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (1.17f); m.cut_neck (); m.end_head (); break; case 11: m.end_fact (); break; // head: rotation_parameter(l, front_down, rotation(1, 0, 0, -0.77)) case 12: m.retry_me_else (14); //m.success = m.get_atom (l__0,1); m.get_atom (front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 13: m.end_fact (); break; // head: rotation_parameter(l, front_down1, rotation(1, 0, 0, -1.37)) case 14: m.retry_me_else (16); //m.success = m.get_atom (l__0,1); m.get_atom (front_down1__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-1.37f); m.cut_neck (); m.end_head (); break; case 15: m.end_fact (); break; // head: rotation_parameter(l, back_up, rotation(1, 0, 0, -2.34)) case 16: m.retry_me_else (18); //m.success = m.get_atom (l__0,1); m.get_atom (back_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 17: m.end_fact (); break; // head: rotation_parameter(l, front_up, rotation(1, 0, 0, 2.34)) case 18: m.retry_me_else (20); //m.success = m.get_atom (l__0,1); m.get_atom (front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 19: m.end_fact (); break; // head: rotation_parameter(l, up_via_back, rotation(1, 0, 0, 3.14)) case 20: m.retry_me_else (22); //m.success = m.get_atom (l__0,1); m.get_atom (up_via_back__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 21: m.end_fact (); break; // head: rotation_parameter(l, up, rotation(1, 0, 0, -3.14)) case 22: m.retry_me_else (24); //m.success = m.get_atom (l__0,1); m.get_atom (up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 23: m.end_fact (); break; // head: rotation_parameter(l, turn_90, rotation(0, 1, 0, 1.57)) case 24: m.retry_me_else (26); //m.success = m.get_atom (l__0,1); m.get_atom (turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 25: m.end_fact (); break; // head: rotation_parameter(l, turn_n90, rotation(0, 1, 0, -1.57)) case 26: m.retry_me_else (28); //m.success = m.get_atom (l__0,1); m.get_atom (turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 27: m.end_fact (); break; // head: rotation_parameter(l, turn_45, rotation(0, 1, 0, 0.79)) case 28: m.retry_me_else (30); //m.success = m.get_atom (l__0,1); m.get_atom (turn_45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0.79f); m.cut_neck (); m.end_head (); break; case 29: m.end_fact (); break; // head: rotation_parameter(l, turn_n45, rotation(0, 1, 0, -0.79)) case 30: m.retry_me_else (32); //m.success = m.get_atom (l__0,1); m.get_atom (turn_n45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-0.79f); m.cut_neck (); m.end_head (); break; case 31: m.end_fact (); break; // head: rotation_parameter(l, turn_180, rotation(0, 1, 0, 3.14)) case 32: m.retry_me_else (34); //m.success = m.get_atom (l__0,1); m.get_atom (turn_180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 33: m.end_fact (); break; // head: rotation_parameter(l, turn_n180, rotation(0, 1, 0, -3.14)) case 34: m.retry_me_else (36); //m.success = m.get_atom (l__0,1); m.get_atom (turn_n180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 35: m.end_fact (); break; // head: rotation_parameter(l, turn_270, rotation(0, 1, 0, 4.71)) case 36: m.retry_me_else (38); //m.success = m.get_atom (l__0,1); m.get_atom (turn_270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (4.71f); m.cut_neck (); m.end_head (); break; case 37: m.end_fact (); break; // head: rotation_parameter(l, turn_n270, rotation(0, 1, 0, -4.71)) case 38: m.retry_me_else (40); //m.success = m.get_atom (l__0,1); m.get_atom (turn_n270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-4.71f); m.cut_neck (); m.end_head (); break; case 39: m.end_fact (); break; // head: rotation_parameter(l, turn_360, rotation(0, 1, 0, 6.28)) case 40: m.retry_me_else (42); //m.success = m.get_atom (l__0,1); m.get_atom (turn_360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (6.28f); m.cut_neck (); m.end_head (); break; case 41: m.end_fact (); break; // head: rotation_parameter(l, turn_n360, rotation(0, 1, 0, -6.28)) case 42: m.retry_me_else (44); //m.success = m.get_atom (l__0,1); m.get_atom (turn_n360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-6.28f); m.cut_neck (); m.end_head (); break; case 43: m.end_fact (); break; // head: rotation_parameter(l, turn_reset, rotation(0, 1, 0, 0)) case 44: m.retry_me_else (46); //m.success = m.get_atom (l__0,1); m.get_atom (turn_reset__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 45: m.end_fact (); break; // head: rotation_parameter(l, front_right, rotation(1, 1, 0, -1.57)) case 46: m.retry_me_else (48); //m.success = m.get_atom (l__0,1); m.get_atom (front_right__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 47: m.end_fact (); break; // head: rotation_parameter(l, front_right2, rotation(1, 1, 0, -1.3)) case 48: m.retry_me_else (50); //m.success = m.get_atom (l__0,1); m.get_atom (front_right2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.3f); m.cut_neck (); m.end_head (); break; case 49: m.end_fact (); break; // head: rotation_parameter(l, front_right1, rotation(1, 1, 0, -1)) case 50: m.retry_me_else (52); //m.success = m.get_atom (l__0,1); m.get_atom (front_right1__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1f); m.cut_neck (); m.end_head (); break; case 51: m.end_fact (); break; // head: rotation_parameter(l, back_down_turn_90, rotation(1, 1, 0, 1.57)) case 52: m.retry_me_else (54); //m.success = m.get_atom (l__0,1); m.get_atom (back_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 53: m.end_fact (); break; // head: rotation_parameter(l, left_back_down_turn_90, rotation(0, 1, 1, 1.57)) case 54: m.retry_me_else (56); //m.success = m.get_atom (l__0,1); m.get_atom (left_back_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 55: m.end_fact (); break; // head: rotation_parameter(l, right_back_down_turn_n90, rotation(0, 1, 1, -1.57)) case 56: m.retry_me_else (58); //m.success = m.get_atom (l__0,1); m.get_atom (right_back_down_turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 57: m.end_fact (); break; // head: rotation_parameter(l, left_front_down_turn_90, rotation(0, 1, 1, 1.57)) case 58: m.retry_me_else (60); //m.success = m.get_atom (l__0,1); m.get_atom (left_front_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 59: m.end_fact (); break; // head: rotation_parameter(l, left_front_down, rotation(-0.97, 0.09, 0.23, 0.79)) case 60: m.retry_me_else (62); //m.success = m.get_atom (l__0,1); m.get_atom (left_front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.97f); m.uni_float (0.09f); m.uni_float (0.23f); m.uni_float (0.79f); m.cut_neck (); m.end_head (); break; case 61: m.end_fact (); break; // head: rotation_parameter(l, right_front_down, rotation(-0.37, -0.86, 0.35, 1.13)) case 62: m.retry_me_else (64); //m.success = m.get_atom (l__0,1); m.get_atom (right_front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.37f); m.uni_float (-0.86f); m.uni_float (0.35f); m.uni_float (1.13f); m.cut_neck (); m.end_head (); break; case 63: m.end_fact (); break; // head: rotation_parameter(l, down, rotation(0, 0, 1, 0)) case 64: m.retry_me_else (66); //m.success = m.get_atom (l__0,1); m.get_atom (down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 65: m.end_fact (); break; // head: rotation_parameter(l, down_from_front, rotation(1, 0, 0, 0)) case 66: m.retry_me_else (68); //m.success = m.get_atom (l__0,1); m.get_atom (down_from_front__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 67: m.end_fact (); break; // head: rotation_parameter(l, up_via_center, rotation(0, 0, 1, 3.14)) case 68: m.retry_me_else (70); //m.success = m.get_atom (l__0,1); m.get_atom (up_via_center__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 69: m.end_fact (); break; // head: rotation_parameter(l, up_via_right, rotation(0, 0, 1, 3.14)) case 70: m.retry_me_else (72); //m.success = m.get_atom (l__0,1); m.get_atom (up_via_right__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 71: m.end_fact (); break; // head: rotation_parameter(l, up_via_side, rotation(0, 0, 1, -3.14)) case 72: m.retry_me_else (74); //m.success = m.get_atom (l__0,1); m.get_atom (up_via_side__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 73: m.end_fact (); break; // head: rotation_parameter(l, up_via_left, rotation(0, 0, 1, -3.14)) case 74: m.retry_me_else (76); //m.success = m.get_atom (l__0,1); m.get_atom (up_via_left__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 75: m.end_fact (); break; // head: rotation_parameter(l, side_up, rotation(0, 0, 1, 2.34)) case 76: m.retry_me_else (78); //m.success = m.get_atom (l__0,1); m.get_atom (side_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 77: m.end_fact (); break; // head: rotation_parameter(l, side, rotation(0, 0, 1, 1.57)) case 78: m.retry_me_else (80); //m.success = m.get_atom (l__0,1); m.get_atom (side__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 79: m.end_fact (); break; // head: rotation_parameter(l, left_up, rotation(0, 0, 1, 2.34)) case 80: m.retry_me_else (82); //m.success = m.get_atom (l__0,1); m.get_atom (left_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 81: m.end_fact (); break; // head: rotation_parameter(l, left, rotation(0, 0, 1, 1.57)) case 82: m.retry_me_else (84); //m.success = m.get_atom (l__0,1); m.get_atom (left__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 83: m.end_fact (); break; // head: rotation_parameter(l, side_down, rotation(0, 0, 1, 0.77)) case 84: m.retry_me_else (86); //m.success = m.get_atom (l__0,1); m.get_atom (side_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 85: m.end_fact (); break; // head: rotation_parameter(l, left_down, rotation(0, 0, 1, 0.77)) case 86: m.retry_me_else (88); //m.success = m.get_atom (l__0,1); m.get_atom (left_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 87: m.end_fact (); break; // head: rotation_parameter(l, side2_down, rotation(0, 0, 1, 0.38)) case 88: m.retry_me_else (90); //m.success = m.get_atom (l__0,1); m.get_atom (side2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.38f); m.cut_neck (); m.end_head (); break; case 89: m.end_fact (); break; // head: rotation_parameter(l, left2_down, rotation(0, 0, 1, 0.38)) case 90: m.retry_me_else (92); //m.success = m.get_atom (l__0,1); m.get_atom (left2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.38f); m.cut_neck (); m.end_head (); break; case 91: m.end_fact (); break; // head: rotation_parameter(l, side1_down, rotation(0, 0, 1, 0.19)) case 92: m.retry_me_else (94); //m.success = m.get_atom (l__0,1); m.get_atom (side1_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.19f); m.cut_neck (); m.end_head (); break; case 93: m.end_fact (); break; // head: rotation_parameter(l, left1_down, rotation(0, 0, 1, 0.19)) case 94: m.retry_me_else (96); //m.success = m.get_atom (l__0,1); m.get_atom (left1_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.19f); m.cut_neck (); m.end_head (); break; case 95: m.end_fact (); break; // head: rotation_parameter(l, center_up, rotation(0, 0, 1, -2.34)) case 96: m.retry_me_else (98); //m.success = m.get_atom (l__0,1); m.get_atom (center_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 97: m.end_fact (); break; // head: rotation_parameter(l, right_up, rotation(0, 0, 1, -2.34)) case 98: m.retry_me_else (100); //m.success = m.get_atom (l__0,1); m.get_atom (right_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 99: m.end_fact (); break; // head: rotation_parameter(l, left_front2_up, rotation(-1, 0, 1, 2.34)) case 100: m.retry_me_else (102); //m.success = m.get_atom (l__0,1); m.get_atom (left_front2_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 101: m.end_fact (); break; // head: rotation_parameter(l, left_front_up2, rotation(-1, 0, 1, 1.57)) case 102: m.retry_me_else (104); //m.success = m.get_atom (l__0,1); m.get_atom (left_front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 103: m.end_fact (); break; // head: rotation_parameter(l, side_front2_up, rotation(-1, 0, 1, 2.34)) case 104: m.retry_me_else (106); //m.success = m.get_atom (l__0,1); m.get_atom (side_front2_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 105: m.end_fact (); break; // head: rotation_parameter(l, side_front_up2, rotation(-1, 0, 1, 1.57)) case 106: m.retry_me_else (108); //m.success = m.get_atom (l__0,1); m.get_atom (side_front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 107: m.end_fact (); break; // head: rotation_parameter(l, left_front_up, rotation(-0.38, -0.16, 0.91, 2.4)) case 108: m.retry_me_else (110); //m.success = m.get_atom (l__0,1); m.get_atom (left_front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.38f); m.uni_float (-0.16f); m.uni_float (0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 109: m.end_fact (); break; // head: rotation_parameter(l, side_front_up, rotation(-0.38, -0.16, 0.91, 2.4)) case 110: m.retry_me_else (112); //m.success = m.get_atom (l__0,1); m.get_atom (side_front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.38f); m.uni_float (-0.16f); m.uni_float (0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 111: m.end_fact (); break; // head: rotation_parameter(l, up_turn_n90, rotation(-0.71, 0, -0.71, 3.14)) case 112: m.retry_me_else (114); //m.success = m.get_atom (l__0,1); m.get_atom (up_turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.71f); m.uni_int (0); m.uni_float (-0.71f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 113: m.end_fact (); break; // head: rotation_parameter(l, up_turn_90, rotation(-0.71, 0, 0.71, 3.14)) case 114: m.retry_me_else (116); //m.success = m.get_atom (l__0,1); m.get_atom (up_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.71f); m.uni_int (0); m.uni_float (0.71f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 115: m.end_fact (); break; // head: rotation_parameter(l, front_turn_90, rotation(-0.58, 0.58, -0.58, 2)) case 116: m.retry_me_else (118); //m.success = m.get_atom (l__0,1); m.get_atom (front_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.58f); m.uni_float (0.58f); m.uni_float (-0.58f); m.uni_float (2f); m.cut_neck (); m.end_head (); break; case 117: m.end_fact (); break; // head: rotation_parameter(l, center, rotation(0, 0, 1, -1.57)) case 118: m.retry_me_else (120); //m.success = m.get_atom (l__0,1); m.get_atom (center__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 119: m.end_fact (); break; // head: rotation_parameter(l, right, rotation(0, 0, 1, -1.57)) case 120: m.retry_me_else (122); //m.success = m.get_atom (l__0,1); m.get_atom (right__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 121: m.end_fact (); break; // head: rotation_parameter(l, center_down, rotation(0, 0, 1, -0.77)) case 122: m.retry_me_else (124); //m.success = m.get_atom (l__0,1); m.get_atom (center_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 123: m.end_fact (); break; // head: rotation_parameter(l, right_down, rotation(0, 0, 1, -0.77)) case 124: m.retry_me_else (126); //m.success = m.get_atom (l__0,1); m.get_atom (right_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 125: m.end_fact (); break; // head: rotation_parameter(r, front, rotation(1, 0, 0, -1.57)) case 126: m.retry_me_else (128); //m.success = m.get_atom (r__0,1); m.get_atom (front__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 127: m.end_fact (); break; // head: rotation_parameter(r, back, rotation(1, 0, 0, 1.57)) case 128: m.retry_me_else (130); //m.success = m.get_atom (r__0,1); m.get_atom (back__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 129: m.end_fact (); break; // head: rotation_parameter(r, front_down2, rotation(1, 0, 0, -0.4)) case 130: m.retry_me_else (132); //m.success = m.get_atom (r__0,1); m.get_atom (front_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.4f); m.cut_neck (); m.end_head (); break; case 131: m.end_fact (); break; // head: rotation_parameter(r, back_down2, rotation(1, 0, 0, 0.4)) case 132: m.retry_me_else (134); //m.success = m.get_atom (r__0,1); m.get_atom (back_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.4f); m.cut_neck (); m.end_head (); break; case 133: m.end_fact (); break; // head: rotation_parameter(r, back2_down, rotation(1, 0, 0, 1.17)) case 134: m.retry_me_else (136); //m.success = m.get_atom (r__0,1); m.get_atom (back2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (1.17f); m.cut_neck (); m.end_head (); break; case 135: m.end_fact (); break; // head: rotation_parameter(r, front_down, rotation(1, 0, 0, -0.77)) case 136: m.retry_me_else (138); //m.success = m.get_atom (r__0,1); m.get_atom (front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 137: m.end_fact (); break; // head: rotation_parameter(r, front_down1, rotation(1, 0, 0, -1.37)) case 138: m.retry_me_else (140); //m.success = m.get_atom (r__0,1); m.get_atom (front_down1__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-1.37f); m.cut_neck (); m.end_head (); break; case 139: m.end_fact (); break; // head: rotation_parameter(r, back_down, rotation(1, 0, 0, 0.77)) case 140: m.retry_me_else (142); //m.success = m.get_atom (r__0,1); m.get_atom (back_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 141: m.end_fact (); break; // head: rotation_parameter(r, up_via_back, rotation(1, 0, 0, 3.14)) case 142: m.retry_me_else (144); //m.success = m.get_atom (r__0,1); m.get_atom (up_via_back__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 143: m.end_fact (); break; // head: rotation_parameter(r, up, rotation(1, 0, 0, -3.14)) case 144: m.retry_me_else (146); //m.success = m.get_atom (r__0,1); m.get_atom (up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 145: m.end_fact (); break; // head: rotation_parameter(r, turn_90, rotation(0, 1, 0, 1.57)) case 146: m.retry_me_else (148); //m.success = m.get_atom (r__0,1); m.get_atom (turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 147: m.end_fact (); break; // head: rotation_parameter(r, turn_n90, rotation(0, 1, 0, -1.57)) case 148: m.retry_me_else (150); //m.success = m.get_atom (r__0,1); m.get_atom (turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 149: m.end_fact (); break; // head: rotation_parameter(r, turn_45, rotation(0, 1, 0, 0.79)) case 150: m.retry_me_else (152); //m.success = m.get_atom (r__0,1); m.get_atom (turn_45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0.79f); m.cut_neck (); m.end_head (); break; case 151: m.end_fact (); break; // head: rotation_parameter(r, turn_n45, rotation(0, 1, 0, -0.79)) case 152: m.retry_me_else (154); //m.success = m.get_atom (r__0,1); m.get_atom (turn_n45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-0.79f); m.cut_neck (); m.end_head (); break; case 153: m.end_fact (); break; // head: rotation_parameter(r, turn_180, rotation(0, 1, 0, 3.14)) case 154: m.retry_me_else (156); //m.success = m.get_atom (r__0,1); m.get_atom (turn_180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 155: m.end_fact (); break; // head: rotation_parameter(r, turn_n180, rotation(0, 1, 0, -3.14)) case 156: m.retry_me_else (158); //m.success = m.get_atom (r__0,1); m.get_atom (turn_n180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 157: m.end_fact (); break; // head: rotation_parameter(r, turn_270, rotation(0, 1, 0, 4.71)) case 158: m.retry_me_else (160); //m.success = m.get_atom (r__0,1); m.get_atom (turn_270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (4.71f); m.cut_neck (); m.end_head (); break; case 159: m.end_fact (); break; // head: rotation_parameter(r, turn_n270, rotation(0, 1, 0, -4.71)) case 160: m.retry_me_else (162); //m.success = m.get_atom (r__0,1); m.get_atom (turn_n270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-4.71f); m.cut_neck (); m.end_head (); break; case 161: m.end_fact (); break; // head: rotation_parameter(r, turn_360, rotation(0, 1, 0, 6.28)) case 162: m.retry_me_else (164); //m.success = m.get_atom (r__0,1); m.get_atom (turn_360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (6.28f); m.cut_neck (); m.end_head (); break; case 163: m.end_fact (); break; // head: rotation_parameter(r, turn_n360, rotation(0, 1, 0, -6.28)) case 164: m.retry_me_else (166); //m.success = m.get_atom (r__0,1); m.get_atom (turn_n360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-6.28f); m.cut_neck (); m.end_head (); break; case 165: m.end_fact (); break; // head: rotation_parameter(r, turn_reset, rotation(0, 1, 0, 0)) case 166: m.retry_me_else (168); //m.success = m.get_atom (r__0,1); m.get_atom (turn_reset__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 167: m.end_fact (); break; // head: rotation_parameter(r, front_right, rotation(1, 1, 0, -1.57)) case 168: m.retry_me_else (170); //m.success = m.get_atom (r__0,1); m.get_atom (front_right__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 169: m.end_fact (); break; // head: rotation_parameter(r, front_left, rotation(-1, 1, 0, 1.57)) case 170: m.retry_me_else (172); //m.success = m.get_atom (r__0,1); m.get_atom (front_left__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 171: m.end_fact (); break; // head: rotation_parameter(r, front_left2, rotation(-1, 1, 0, 1.3)) case 172: m.retry_me_else (174); //m.success = m.get_atom (r__0,1); m.get_atom (front_left2__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.3f); m.cut_neck (); m.end_head (); break; case 173: m.end_fact (); break; // head: rotation_parameter(r, front_left1, rotation(-1, 1, 0, 1)) case 174: m.retry_me_else (176); //m.success = m.get_atom (r__0,1); m.get_atom (front_left1__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1f); m.cut_neck (); m.end_head (); break; case 175: m.end_fact (); break; // head: rotation_parameter(r, back_down_turn_90, rotation(1, 1, 0, 1.57)) case 176: m.retry_me_else (178); //m.success = m.get_atom (r__0,1); m.get_atom (back_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 177: m.end_fact (); break; // head: rotation_parameter(r, left_back_down_turn_90, rotation(0, 1, 1, 1.57)) case 178: m.retry_me_else (180); //m.success = m.get_atom (r__0,1); m.get_atom (left_back_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 179: m.end_fact (); break; // head: rotation_parameter(r, right_back_down_turn_n90, rotation(0, 1, 1, -1.57)) case 180: m.retry_me_else (182); //m.success = m.get_atom (r__0,1); m.get_atom (right_back_down_turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 181: m.end_fact (); break; // head: rotation_parameter(r, left_front_down_turn_90, rotation(-1, 1, 0, 1.57)) case 182: m.retry_me_else (184); //m.success = m.get_atom (r__0,1); m.get_atom (left_front_down_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 183: m.end_fact (); break; // head: rotation_parameter(r, down, rotation(0, 0, 1, 0)) case 184: m.retry_me_else (186); //m.success = m.get_atom (r__0,1); m.get_atom (down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 185: m.end_fact (); break; // head: rotation_parameter(r, down_from_front, rotation(1, 0, 0, 0)) case 186: m.retry_me_else (188); //m.success = m.get_atom (r__0,1); m.get_atom (down_from_front__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 187: m.end_fact (); break; // head: rotation_parameter(r, up_via_side, rotation(0, 0, 1, 3.14)) case 188: m.retry_me_else (190); //m.success = m.get_atom (r__0,1); m.get_atom (up_via_side__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 189: m.end_fact (); break; // head: rotation_parameter(r, up_via_left, rotation(0, 0, 1, 3.14)) case 190: m.retry_me_else (192); //m.success = m.get_atom (r__0,1); m.get_atom (up_via_left__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 191: m.end_fact (); break; // head: rotation_parameter(r, up_via_center, rotation(0, 0, 1, -3.14)) case 192: m.retry_me_else (194); //m.success = m.get_atom (r__0,1); m.get_atom (up_via_center__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 193: m.end_fact (); break; // head: rotation_parameter(r, up_via_left, rotation(0, 0, 1, -3.14)) case 194: m.retry_me_else (196); //m.success = m.get_atom (r__0,1); m.get_atom (up_via_left__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 195: m.end_fact (); break; // head: rotation_parameter(r, side_up, rotation(0, 0, 1, -2.34)) case 196: m.retry_me_else (198); //m.success = m.get_atom (r__0,1); m.get_atom (side_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 197: m.end_fact (); break; // head: rotation_parameter(r, side, rotation(0, 0, 1, -1.57)) case 198: m.retry_me_else (200); //m.success = m.get_atom (r__0,1); m.get_atom (side__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 199: m.end_fact (); break; // head: rotation_parameter(r, right_up, rotation(0, 0, 1, -2.34)) case 200: m.retry_me_else (202); //m.success = m.get_atom (r__0,1); m.get_atom (right_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 201: m.end_fact (); break; // head: rotation_parameter(r, right, rotation(0, 0, 1, -1.57)) case 202: m.retry_me_else (204); //m.success = m.get_atom (r__0,1); m.get_atom (right__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 203: m.end_fact (); break; // head: rotation_parameter(r, side_down, rotation(0, 0, 1, -0.77)) case 204: m.retry_me_else (206); //m.success = m.get_atom (r__0,1); m.get_atom (side_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 205: m.end_fact (); break; // head: rotation_parameter(r, right_down, rotation(0, 0, 1, -0.77)) case 206: m.retry_me_else (208); //m.success = m.get_atom (r__0,1); m.get_atom (right_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 207: m.end_fact (); break; // head: rotation_parameter(r, side2_down, rotation(0, 0, 1, -0.38)) case 208: m.retry_me_else (210); //m.success = m.get_atom (r__0,1); m.get_atom (side2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.38f); m.cut_neck (); m.end_head (); break; case 209: m.end_fact (); break; // head: rotation_parameter(r, left2_down, rotation(0, 0, 1, -0.38)) case 210: m.retry_me_else (212); //m.success = m.get_atom (r__0,1); m.get_atom (left2_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.38f); m.cut_neck (); m.end_head (); break; case 211: m.end_fact (); break; // head: rotation_parameter(r, side1_down, rotation(0, 0, 1, -0.19)) case 212: m.retry_me_else (214); //m.success = m.get_atom (r__0,1); m.get_atom (side1_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.19f); m.cut_neck (); m.end_head (); break; case 213: m.end_fact (); break; // head: rotation_parameter(r, left1_down, rotation(0, 0, 1, -0.19)) case 214: m.retry_me_else (216); //m.success = m.get_atom (r__0,1); m.get_atom (left1_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.19f); m.cut_neck (); m.end_head (); break; case 215: m.end_fact (); break; // head: rotation_parameter(r, center, rotation(0, 0, 1, 1.57)) case 216: m.retry_me_else (218); //m.success = m.get_atom (r__0,1); m.get_atom (center__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 217: m.end_fact (); break; // head: rotation_parameter(r, left, rotation(0, 0, 1, 1.57)) case 218: m.retry_me_else (220); //m.success = m.get_atom (r__0,1); m.get_atom (left__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 219: m.end_fact (); break; // head: rotation_parameter(r, center_down, rotation(0, 0, 1, 0.77)) case 220: m.retry_me_else (222); //m.success = m.get_atom (r__0,1); m.get_atom (center_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 221: m.end_fact (); break; // head: rotation_parameter(r, left_down, rotation(0, 0, 1, 0.77)) case 222: m.retry_me_else (224); //m.success = m.get_atom (r__0,1); m.get_atom (left_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 223: m.end_fact (); break; // head: rotation_parameter(r, center_up, rotation(0, 0, 1, 2.34)) case 224: m.retry_me_else (226); //m.success = m.get_atom (r__0,1); m.get_atom (center_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 225: m.end_fact (); break; // head: rotation_parameter(r, left_up, rotation(0, 0, 1, 2.34)) case 226: m.retry_me_else (228); //m.success = m.get_atom (r__0,1); m.get_atom (left_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 227: m.end_fact (); break; // head: rotation_parameter(r, right_front2_up, rotation(-1, 0, -1, 2.34)) case 228: m.retry_me_else (230); //m.success = m.get_atom (r__0,1); m.get_atom (right_front2_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (-1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 229: m.end_fact (); break; // head: rotation_parameter(r, right_front_up2, rotation(-1, 0, -1, 1.57)) case 230: m.retry_me_else (232); //m.success = m.get_atom (r__0,1); m.get_atom (right_front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (-1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 231: m.end_fact (); break; // head: rotation_parameter(r, right_front_down, rotation(-0.97, -0.09, -0.23, 0.79)) case 232: m.retry_me_else (234); //m.success = m.get_atom (r__0,1); m.get_atom (right_front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.97f); m.uni_float (-0.09f); m.uni_float (-0.23f); m.uni_float (0.79f); m.cut_neck (); m.end_head (); break; case 233: m.end_fact (); break; // head: rotation_parameter(r, side_front2_up, rotation(-1, 0, -1, 2.34)) case 234: m.retry_me_else (236); //m.success = m.get_atom (r__0,1); m.get_atom (side_front2_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (-1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 235: m.end_fact (); break; // head: rotation_parameter(r, side_front_up2, rotation(-1, 0, -1, 1.57)) case 236: m.retry_me_else (238); //m.success = m.get_atom (r__0,1); m.get_atom (side_front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (-1f); m.uni_float (0f); m.uni_float (-1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 237: m.end_fact (); break; // head: rotation_parameter(r, right_front_up, rotation(-0.38, 0.16, -0.91, 2.4)) case 238: m.retry_me_else (240); //m.success = m.get_atom (r__0,1); m.get_atom (right_front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.38f); m.uni_float (0.16f); m.uni_float (-0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 239: m.end_fact (); break; // head: rotation_parameter(r, side_front_up, rotation(-0.38, 0.16, -0.91, 2.4)) case 240: m.retry_me_else (242); //m.success = m.get_atom (r__0,1); m.get_atom (side_front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.38f); m.uni_float (0.16f); m.uni_float (-0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 241: m.end_fact (); break; // head: rotation_parameter(r, up_turn_n90, rotation(-0.71, 0, 0.71, 3.14)) case 242: m.retry_me_else (244); //m.success = m.get_atom (r__0,1); m.get_atom (up_turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.71f); m.uni_int (0); m.uni_float (0.71f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 243: m.end_fact (); break; // head: rotation_parameter(r, up_turn_90, rotation(-0.71, 0, -0.71, 3.14)) case 244: m.retry_me_else (246); //m.success = m.get_atom (r__0,1); m.get_atom (up_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.71f); m.uni_int (0); m.uni_float (-0.71f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 245: m.end_fact (); break; // head: rotation_parameter(r, front_turn_90, rotation(-0.58, -0.58, 0.58, 2)) case 246: m.retry_me_else (248); //m.success = m.get_atom (r__0,1); m.get_atom (front_turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.58f); m.uni_float (-0.58f); m.uni_float (0.58f); m.uni_float (2f); m.cut_neck (); m.end_head (); break; case 247: m.end_fact (); break; // head: rotation_parameter(r, back_up, rotation(1, 0, 0, 2.34)) case 248: m.retry_me_else (250); //m.success = m.get_atom (r__0,1); m.get_atom (back_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 249: m.end_fact (); break; // head: rotation_parameter(r, side_up2, rotation(1, 0, 0, -2.34)) case 250: m.retry_me_else (252); //m.success = m.get_atom (r__0,1); m.get_atom (side_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 251: m.end_fact (); break; // head: rotation_parameter(r, right_up2, rotation(1, 0, 0, -2.34)) case 252: m.retry_me_else (254); //m.success = m.get_atom (r__0,1); m.get_atom (right_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 253: m.end_fact (); break; // head: rotation_parameter(c, right, rotation(0, 0, 1, 1.47)) case 254: m.retry_me_else (256); //m.success = m.get_atom (c__0,1); m.get_atom (right__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.47f); m.cut_neck (); m.end_head (); break; case 255: m.end_fact (); break; // head: rotation_parameter(c, up, rotation(1, 0, 0, -1.57)) case 256: m.retry_me_else (258); //m.success = m.get_atom (c__0,1); m.get_atom (up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 257: m.end_fact (); break; // head: rotation_parameter(c, right_down, rotation(0, 0, 1, 3)) case 258: m.retry_me_else (260); //m.success = m.get_atom (c__0,1); m.get_atom (right_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (3f); m.cut_neck (); m.end_head (); break; case 259: m.end_fact (); break; // head: rotation_parameter(c, left_down, rotation(0, 0, 1, -3)) case 260: m.retry_me_else (262); //m.success = m.get_atom (c__0,1); m.get_atom (left_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-3f); m.cut_neck (); m.end_head (); break; case 261: m.end_fact (); break; // head: rotation_parameter(c, down, rotation(1, 0, 0, 1.57)) case 262: m.retry_me_else (264); //m.success = m.get_atom (c__0,1); m.get_atom (down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 263: m.end_fact (); break; // head: rotation_parameter(c, left_turn, rotation(0, 1, 0, 1.57)) case 264: m.retry_me_else (266); //m.success = m.get_atom (c__0,1); m.get_atom (left_turn__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 265: m.end_fact (); break; // head: rotation_parameter(c, right_turn, rotation(0, 1, 0, -1.57)) case 266: m.retry_me_else (268); //m.success = m.get_atom (c__0,1); m.get_atom (right_turn__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 267: m.end_fact (); break; // head: rotation_parameter(c, front, rotation(0, 0, 1, 0)) case 268: m.retry_me_else (270); //m.success = m.get_atom (c__0,1); m.get_atom (front__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 269: m.end_fact (); break; // head: rotation_parameter(c, right_down2, rotation(0, 0, 1, 2.34)) case 270: m.retry_me_else (272); //m.success = m.get_atom (c__0,1); m.get_atom (right_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 271: m.end_fact (); break; // head: rotation_parameter(c, left_down2, rotation(0, 0, 1, -2.34)) case 272: m.retry_me_else (274); //m.success = m.get_atom (c__0,1); m.get_atom (left_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 273: m.end_fact (); break; // head: rotation_parameter(c, left_down1, rotation(0, 0, 1, -1.57)) case 274: m.retry_me_else (276); //m.success = m.get_atom (c__0,1); m.get_atom (left_down1__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 275: m.end_fact (); break; // head: rotation_parameter(c, right_down1, rotation(0, 0, 1, 1.57)) case 276: m.retry_me_else (278); //m.success = m.get_atom (c__0,1); m.get_atom (right_down1__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (1f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 277: m.end_fact (); break; // head: rotation_parameter(c, front_down2, rotation(1, 0, 0, 0.4)) case 278: m.retry_me_else (280); //m.success = m.get_atom (c__0,1); m.get_atom (front_down2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.4f); m.cut_neck (); m.end_head (); break; case 279: m.end_fact (); break; // head: rotation_parameter(c, front_up2, rotation(1, 0, 0, -0.4)) case 280: m.retry_me_else (282); //m.success = m.get_atom (c__0,1); m.get_atom (front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.4f); m.cut_neck (); m.end_head (); break; case 281: m.end_fact (); break; // head: rotation_parameter(c, front_down, rotation(1, 0, 0, 0.77)) case 282: m.retry_me_else (284); //m.success = m.get_atom (c__0,1); m.get_atom (front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 283: m.end_fact (); break; // head: rotation_parameter(c, front_up, rotation(1, 0, 0, -0.77)) case 284: m.retry_me_else (286); //m.success = m.get_atom (c__0,1); m.get_atom (front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 285: m.end_fact (); break; // head: rotation_parameter(c, back_up, rotation(1, 0, 0, -2.34)) case 286: m.retry_me_else (288); //m.success = m.get_atom (c__0,1); m.get_atom (back_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (-2.34f); m.cut_neck (); m.end_head (); break; case 287: m.end_fact (); break; // head: rotation_parameter(c, front_down3, rotation(1, 0, 0, 2.34)) case 288: m.retry_me_else (290); //m.success = m.get_atom (c__0,1); m.get_atom (front_down3__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.uni_float (2.34f); m.cut_neck (); m.end_head (); break; case 289: m.end_fact (); break; // head: rotation_parameter(c, front_left_down, rotation(1, 1, 0, 0.77)) case 290: m.retry_me_else (292); //m.success = m.get_atom (c__0,1); m.get_atom (front_left_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 291: m.end_fact (); break; // head: rotation_parameter(c, front_right_up, rotation(1, 1, 0, -0.77)) case 292: m.retry_me_else (294); //m.success = m.get_atom (c__0,1); m.get_atom (front_right_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 293: m.end_fact (); break; // head: rotation_parameter(c, front_right_down, rotation(1, 0, 1, 0.77)) case 294: m.retry_me_else (296); //m.success = m.get_atom (c__0,1); m.get_atom (front_right_down__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 295: m.end_fact (); break; // head: rotation_parameter(c, front_left_up, rotation(1, 0, 1, -0.77)) case 296: m.retry_me_else (298); //m.success = m.get_atom (c__0,1); m.get_atom (front_left_up__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (0f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 297: m.end_fact (); break; // head: rotation_parameter(c, front_left_up_turn, rotation(0, 1, 1, 0.77)) case 298: m.retry_me_else (300); //m.success = m.get_atom (c__0,1); m.get_atom (front_left_up_turn__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (0.77f); m.cut_neck (); m.end_head (); break; case 299: m.end_fact (); break; // head: rotation_parameter(c, front_left_down_turn, rotation(0, 1, 1, -0.77)) case 300: m.retry_me_else (302); //m.success = m.get_atom (c__0,1); m.get_atom (front_left_down_turn__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (1f); m.uni_float (-0.77f); m.cut_neck (); m.end_head (); break; case 301: m.end_fact (); break; // head: rotation_parameter(c, turn_22, rotation(0, 1, 0, 0.38)) case 302: m.retry_me_else (304); //m.success = m.get_atom (c__0,1); m.get_atom (turn_22__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0.38f); m.cut_neck (); m.end_head (); break; case 303: m.end_fact (); break; // head: rotation_parameter(c, turn_n22, rotation(0, 1, 0, -0.38)) case 304: m.retry_me_else (306); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n22__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-0.38f); m.cut_neck (); m.end_head (); break; case 305: m.end_fact (); break; // head: rotation_parameter(c, turn_45, rotation(0, 1, 0, 0.79)) case 306: m.retry_me_else (308); //m.success = m.get_atom (c__0,1); m.get_atom (turn_45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0.79f); m.cut_neck (); m.end_head (); break; case 307: m.end_fact (); break; // head: rotation_parameter(c, turn_n45, rotation(0, 1, 0, -0.79)) case 308: m.retry_me_else (310); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n45__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-0.79f); m.cut_neck (); m.end_head (); break; case 309: m.end_fact (); break; // head: rotation_parameter(c, turn_90, rotation(0, 1, 0, 1.57)) case 310: m.retry_me_else (312); //m.success = m.get_atom (c__0,1); m.get_atom (turn_90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (1.57f); m.cut_neck (); m.end_head (); break; case 311: m.end_fact (); break; // head: rotation_parameter(c, turn_n90, rotation(0, 1, 0, -1.57)) case 312: m.retry_me_else (314); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n90__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-1.57f); m.cut_neck (); m.end_head (); break; case 313: m.end_fact (); break; // head: rotation_parameter(c, turn_180, rotation(0, 1, 0, 3.14)) case 314: m.retry_me_else (316); //m.success = m.get_atom (c__0,1); m.get_atom (turn_180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (3.14f); m.cut_neck (); m.end_head (); break; case 315: m.end_fact (); break; // head: rotation_parameter(c, turn_n180, rotation(0, 1, 0, -3.14)) case 316: m.retry_me_else (318); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n180__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-3.14f); m.cut_neck (); m.end_head (); break; case 317: m.end_fact (); break; // head: rotation_parameter(c, turn_270, rotation(0, 1, 0, 4.71)) case 318: m.retry_me_else (320); //m.success = m.get_atom (c__0,1); m.get_atom (turn_270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (4.71f); m.cut_neck (); m.end_head (); break; case 319: m.end_fact (); break; // head: rotation_parameter(c, turn_n270, rotation(0, 1, 0, -4.71)) case 320: m.retry_me_else (322); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n270__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-4.71f); m.cut_neck (); m.end_head (); break; case 321: m.end_fact (); break; // head: rotation_parameter(c, turn_360, rotation(0, 1, 0, 6.28)) case 322: m.retry_me_else (324); //m.success = m.get_atom (c__0,1); m.get_atom (turn_360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (6.28f); m.cut_neck (); m.end_head (); break; case 323: m.end_fact (); break; // head: rotation_parameter(c, turn_n360, rotation(0, 1, 0, -6.28)) case 324: m.retry_me_else (326); //m.success = m.get_atom (c__0,1); m.get_atom (turn_n360__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (-6.28f); m.cut_neck (); m.end_head (); break; case 325: m.end_fact (); break; // head: rotation_parameter(c, turn_reset, rotation(0, 1, 0, 0)) case 326: m.retry_me_else (328); //m.success = m.get_atom (c__0,1); m.get_atom (turn_reset__0,2); m.get_struct (rotation__4,3); m.uni_float (0f); m.uni_float (1f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 327: m.end_fact (); break; // head: rotation_parameter(c, right_front_up, rotation(0.38, -0.16, 0.91, 0.4)) case 328: m.retry_me_else (330); //m.success = m.get_atom (c__0,1); m.get_atom (right_front_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0.38f); m.uni_float (-0.16f); m.uni_float (0.91f); m.uni_float (0.4f); m.cut_neck (); m.end_head (); break; case 329: m.end_fact (); break; // head: rotation_parameter(c, right_back_down, rotation(-0.38, -0.16, 0.91, 2.4)) case 330: m.retry_me_else (332); //m.success = m.get_atom (c__0,1); m.get_atom (right_back_down__0,2); m.get_struct (rotation__4,3); m.uni_float (-0.38f); m.uni_float (-0.16f); m.uni_float (0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 331: m.end_fact (); break; // head: rotation_parameter(c, right_front_down, rotation(0.38, 0.16, 0.91, 2.4)) case 332: m.retry_me_else (334); //m.success = m.get_atom (c__0,1); m.get_atom (right_front_down__0,2); m.get_struct (rotation__4,3); m.uni_float (0.38f); m.uni_float (0.16f); m.uni_float (0.91f); m.uni_float (2.4f); m.cut_neck (); m.end_head (); break; case 333: m.end_fact (); break; // head: rotation_parameter(c, left_back_up, rotation(0.38, -0.16, -0.91, 0.4)) case 334: m.retry_me_else (336); //m.success = m.get_atom (c__0,1); m.get_atom (left_back_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0.38f); m.uni_float (-0.16f); m.uni_float (-0.91f); m.uni_float (0.4f); m.cut_neck (); m.end_head (); break; case 335: m.end_fact (); break; // head: rotation_parameter(c, right_back_up, rotation(0.38, -0.16, -0.91, -0.4)) case 336: m.retry_me_else (338); //m.success = m.get_atom (c__0,1); m.get_atom (right_back_up__0,2); m.get_struct (rotation__4,3); m.uni_float (0.38f); m.uni_float (-0.16f); m.uni_float (-0.91f); m.uni_float (-0.4f); m.cut_neck (); m.end_head (); break; case 337: m.end_fact (); break; // head: rotation_parameter(c, right_front_up2, rotation(1, 1, 1, 0.1)) case 338: m.retry_me_else (340); //m.success = m.get_atom (c__0,1); m.get_atom (right_front_up2__0,2); m.get_struct (rotation__4,3); m.uni_float (1f); m.uni_float (1f); m.uni_float (1f); m.uni_float (0.1f); m.cut_neck (); m.end_head (); break; case 339: m.end_fact (); break; // head: rotation_parameter(_G39857, _G39858, _G39859) case 340: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* C */ m.get_x_varia (12,2); /* Po */ m.get_x_varia (13,3); /* R */ m.end_head (); break; case 341: // goal: format('rotation error : C=~w, Po=~w, R=~w~n', [_G39857, _G39858, _G39859]) m.put_list (14); m.set_x_value (13); /* 'R' */ m.set_nil (); m.put_list (15); m.set_x_value (12); /* 'Po' */ m.set_x_value (14); /* 'Xtmp' */ m.put_atom (data__17__0,1); m.put_list (2); m.set_x_value (11); /* 'C' */ m.set_x_value (15); /* 'Xtmp' */ m.exec (dlplib.format_2); break; case 342: m.end_rule (); break; } // switch return m.success; } // gesturelib:rotation_parameter/3 exec() // gesturelib:rotation_parameter/3 decls. public SymbolDescriptor l__0; public SymbolDescriptor front__0; public SymbolDescriptor rotation__4; public SymbolDescriptor back__0; public SymbolDescriptor back_down2__0; public SymbolDescriptor front_down2__0; public SymbolDescriptor back_down__0; public SymbolDescriptor back2_down__0; public SymbolDescriptor front_down__0; public SymbolDescriptor front_down1__0; public SymbolDescriptor back_up__0; public SymbolDescriptor front_up__0; public SymbolDescriptor up_via_back__0; public SymbolDescriptor up__0; public SymbolDescriptor turn_90__0; public SymbolDescriptor turn_n90__0; public SymbolDescriptor turn_45__0; public SymbolDescriptor turn_n45__0; public SymbolDescriptor turn_180__0; public SymbolDescriptor turn_n180__0; public SymbolDescriptor turn_270__0; public SymbolDescriptor turn_n270__0; public SymbolDescriptor turn_360__0; public SymbolDescriptor turn_n360__0; public SymbolDescriptor turn_reset__0; public SymbolDescriptor front_right__0; public SymbolDescriptor front_right2__0; public SymbolDescriptor front_right1__0; public SymbolDescriptor back_down_turn_90__0; public SymbolDescriptor left_back_down_turn_90__0; public SymbolDescriptor right_back_down_turn_n90__0; public SymbolDescriptor left_front_down_turn_90__0; public SymbolDescriptor left_front_down__0; public SymbolDescriptor right_front_down__0; public SymbolDescriptor down__0; public SymbolDescriptor down_from_front__0; public SymbolDescriptor up_via_center__0; public SymbolDescriptor up_via_right__0; public SymbolDescriptor up_via_side__0; public SymbolDescriptor up_via_left__0; public SymbolDescriptor side_up__0; public SymbolDescriptor side__0; public SymbolDescriptor left_up__0; public SymbolDescriptor left__0; public SymbolDescriptor side_down__0; public SymbolDescriptor left_down__0; public SymbolDescriptor side2_down__0; public SymbolDescriptor left2_down__0; public SymbolDescriptor side1_down__0; public SymbolDescriptor left1_down__0; public SymbolDescriptor center_up__0; public SymbolDescriptor right_up__0; public SymbolDescriptor left_front2_up__0; public SymbolDescriptor left_front_up2__0; public SymbolDescriptor side_front2_up__0; public SymbolDescriptor side_front_up2__0; public SymbolDescriptor left_front_up__0; public SymbolDescriptor side_front_up__0; public SymbolDescriptor up_turn_n90__0; public SymbolDescriptor up_turn_90__0; public SymbolDescriptor front_turn_90__0; public SymbolDescriptor center__0; public SymbolDescriptor right__0; public SymbolDescriptor center_down__0; public SymbolDescriptor right_down__0; public SymbolDescriptor r__0; public SymbolDescriptor front_left__0; public SymbolDescriptor front_left2__0; public SymbolDescriptor front_left1__0; public SymbolDescriptor right_front2_up__0; public SymbolDescriptor right_front_up2__0; public SymbolDescriptor right_front_up__0; public SymbolDescriptor side_up2__0; public SymbolDescriptor right_up2__0; public SymbolDescriptor c__0; public SymbolDescriptor left_turn__0; public SymbolDescriptor right_turn__0; public SymbolDescriptor right_down2__0; public SymbolDescriptor left_down2__0; public SymbolDescriptor left_down1__0; public SymbolDescriptor right_down1__0; public SymbolDescriptor front_up2__0; public SymbolDescriptor front_down3__0; public SymbolDescriptor front_left_down__0; public SymbolDescriptor front_right_up__0; public SymbolDescriptor front_right_down__0; public SymbolDescriptor front_left_up__0; public SymbolDescriptor front_left_up_turn__0; public SymbolDescriptor front_left_down_turn__0; public SymbolDescriptor turn_22__0; public SymbolDescriptor turn_n22__0; public SymbolDescriptor right_back_down__0; public SymbolDescriptor left_back_up__0; public SymbolDescriptor right_back_up__0; public SymbolDescriptor data__17__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:rotation_parameter/3 decls. public boolean init (DLP m) { l__0 = m.define_symbol ("l".intern(), 0); front__0 = m.define_symbol ("front".intern(), 0); rotation__4 = m.define_symbol ("rotation".intern(), 4); back__0 = m.define_symbol ("back".intern(), 0); back_down2__0 = m.define_symbol ("back_down2".intern(), 0); front_down2__0 = m.define_symbol ("front_down2".intern(), 0); back_down__0 = m.define_symbol ("back_down".intern(), 0); back2_down__0 = m.define_symbol ("back2_down".intern(), 0); front_down__0 = m.define_symbol ("front_down".intern(), 0); front_down1__0 = m.define_symbol ("front_down1".intern(), 0); back_up__0 = m.define_symbol ("back_up".intern(), 0); front_up__0 = m.define_symbol ("front_up".intern(), 0); up_via_back__0 = m.define_symbol ("up_via_back".intern(), 0); up__0 = m.define_symbol ("up".intern(), 0); turn_90__0 = m.define_symbol ("turn_90".intern(), 0); turn_n90__0 = m.define_symbol ("turn_n90".intern(), 0); turn_45__0 = m.define_symbol ("turn_45".intern(), 0); turn_n45__0 = m.define_symbol ("turn_n45".intern(), 0); turn_180__0 = m.define_symbol ("turn_180".intern(), 0); turn_n180__0 = m.define_symbol ("turn_n180".intern(), 0); turn_270__0 = m.define_symbol ("turn_270".intern(), 0); turn_n270__0 = m.define_symbol ("turn_n270".intern(), 0); turn_360__0 = m.define_symbol ("turn_360".intern(), 0); turn_n360__0 = m.define_symbol ("turn_n360".intern(), 0); turn_reset__0 = m.define_symbol ("turn_reset".intern(), 0); front_right__0 = m.define_symbol ("front_right".intern(), 0); front_right2__0 = m.define_symbol ("front_right2".intern(), 0); front_right1__0 = m.define_symbol ("front_right1".intern(), 0); back_down_turn_90__0 = m.define_symbol ("back_down_turn_90".intern(), 0); left_back_down_turn_90__0 = m.define_symbol ("left_back_down_turn_90".intern(), 0); right_back_down_turn_n90__0 = m.define_symbol ("right_back_down_turn_n90".intern(), 0); left_front_down_turn_90__0 = m.define_symbol ("left_front_down_turn_90".intern(), 0); left_front_down__0 = m.define_symbol ("left_front_down".intern(), 0); right_front_down__0 = m.define_symbol ("right_front_down".intern(), 0); down__0 = m.define_symbol ("down".intern(), 0); down_from_front__0 = m.define_symbol ("down_from_front".intern(), 0); up_via_center__0 = m.define_symbol ("up_via_center".intern(), 0); up_via_right__0 = m.define_symbol ("up_via_right".intern(), 0); up_via_side__0 = m.define_symbol ("up_via_side".intern(), 0); up_via_left__0 = m.define_symbol ("up_via_left".intern(), 0); side_up__0 = m.define_symbol ("side_up".intern(), 0); side__0 = m.define_symbol ("side".intern(), 0); left_up__0 = m.define_symbol ("left_up".intern(), 0); left__0 = m.define_symbol ("left".intern(), 0); side_down__0 = m.define_symbol ("side_down".intern(), 0); left_down__0 = m.define_symbol ("left_down".intern(), 0); side2_down__0 = m.define_symbol ("side2_down".intern(), 0); left2_down__0 = m.define_symbol ("left2_down".intern(), 0); side1_down__0 = m.define_symbol ("side1_down".intern(), 0); left1_down__0 = m.define_symbol ("left1_down".intern(), 0); center_up__0 = m.define_symbol ("center_up".intern(), 0); right_up__0 = m.define_symbol ("right_up".intern(), 0); left_front2_up__0 = m.define_symbol ("left_front2_up".intern(), 0); left_front_up2__0 = m.define_symbol ("left_front_up2".intern(), 0); side_front2_up__0 = m.define_symbol ("side_front2_up".intern(), 0); side_front_up2__0 = m.define_symbol ("side_front_up2".intern(), 0); left_front_up__0 = m.define_symbol ("left_front_up".intern(), 0); side_front_up__0 = m.define_symbol ("side_front_up".intern(), 0); up_turn_n90__0 = m.define_symbol ("up_turn_n90".intern(), 0); up_turn_90__0 = m.define_symbol ("up_turn_90".intern(), 0); front_turn_90__0 = m.define_symbol ("front_turn_90".intern(), 0); center__0 = m.define_symbol ("center".intern(), 0); right__0 = m.define_symbol ("right".intern(), 0); center_down__0 = m.define_symbol ("center_down".intern(), 0); right_down__0 = m.define_symbol ("right_down".intern(), 0); r__0 = m.define_symbol ("r".intern(), 0); front_left__0 = m.define_symbol ("front_left".intern(), 0); front_left2__0 = m.define_symbol ("front_left2".intern(), 0); front_left1__0 = m.define_symbol ("front_left1".intern(), 0); right_front2_up__0 = m.define_symbol ("right_front2_up".intern(), 0); right_front_up2__0 = m.define_symbol ("right_front_up2".intern(), 0); right_front_up__0 = m.define_symbol ("right_front_up".intern(), 0); side_up2__0 = m.define_symbol ("side_up2".intern(), 0); right_up2__0 = m.define_symbol ("right_up2".intern(), 0); c__0 = m.define_symbol ("c".intern(), 0); left_turn__0 = m.define_symbol ("left_turn".intern(), 0); right_turn__0 = m.define_symbol ("right_turn".intern(), 0); right_down2__0 = m.define_symbol ("right_down2".intern(), 0); left_down2__0 = m.define_symbol ("left_down2".intern(), 0); left_down1__0 = m.define_symbol ("left_down1".intern(), 0); right_down1__0 = m.define_symbol ("right_down1".intern(), 0); front_up2__0 = m.define_symbol ("front_up2".intern(), 0); front_down3__0 = m.define_symbol ("front_down3".intern(), 0); front_left_down__0 = m.define_symbol ("front_left_down".intern(), 0); front_right_up__0 = m.define_symbol ("front_right_up".intern(), 0); front_right_down__0 = m.define_symbol ("front_right_down".intern(), 0); front_left_up__0 = m.define_symbol ("front_left_up".intern(), 0); front_left_up_turn__0 = m.define_symbol ("front_left_up_turn".intern(), 0); front_left_down_turn__0 = m.define_symbol ("front_left_down_turn".intern(), 0); turn_22__0 = m.define_symbol ("turn_22".intern(), 0); turn_n22__0 = m.define_symbol ("turn_n22".intern(), 0); right_back_down__0 = m.define_symbol ("right_back_down".intern(), 0); left_back_up__0 = m.define_symbol ("left_back_up".intern(), 0); right_back_up__0 = m.define_symbol ("right_back_up".intern(), 0); data__17__0 = m.define_symbol ("rotation error : C=~w, Po=~w, R=~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:rotation_parameter/3 init() } // gesturelib:rotation_parameter/3 final class gesturelib_position_parameter_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: position_parameter(c, front, increment(0, 0, 0.7)) case 0: m.try_me_else (2); //m.success = m.get_atom (c__0,1); m.get_atom (front__0,2); m.get_struct (increment__3,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (0.7f); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: position_parameter(c, back, increment(0, 0, -0.7)) case 2: m.retry_me_else (4); //m.success = m.get_atom (c__0,1); m.get_atom (back__0,2); m.get_struct (increment__3,3); m.uni_float (0f); m.uni_float (0f); m.uni_float (-0.7f); m.cut_neck (); m.end_head (); break; case 3: m.end_fact (); break; // head: position_parameter(c, left, increment(0.7, 0, 0)) case 4: m.retry_me_else (6); //m.success = m.get_atom (c__0,1); m.get_atom (left__0,2); m.get_struct (increment__3,3); m.uni_float (0.7f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 5: m.end_fact (); break; // head: position_parameter(c, right, increment(-0.7, 0, 0)) case 6: m.retry_me_else (8); //m.success = m.get_atom (c__0,1); m.get_atom (right__0,2); m.get_struct (increment__3,3); m.uni_float (-0.7f); m.uni_float (0f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 7: m.end_fact (); break; // head: position_parameter(c, up, increment(0, 0.5, 0)) case 8: m.retry_me_else (10); //m.success = m.get_atom (c__0,1); m.get_atom (up__0,2); m.get_struct (increment__3,3); m.uni_float (0f); m.uni_float (0.5f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 9: m.end_fact (); break; // head: position_parameter(c, down, increment(0, -0.5, 0)) case 10: m.retry_me_else (12); //m.success = m.get_atom (c__0,1); m.get_atom (down__0,2); m.get_struct (increment__3,3); m.uni_float (0f); m.uni_float (-0.5f); m.uni_float (0f); m.cut_neck (); m.end_head (); break; case 11: m.end_fact (); break; // head: position_parameter(_G7081, _G7082, _G7083) case 12: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* C */ m.get_x_varia (12,2); /* Po */ m.get_x_varia (13,3); /* P */ m.end_head (); break; case 13: // goal: format('position error : C=~w, Po=~w, P=~w~n', [_G7081, _G7082, _G7083]) m.put_list (14); m.set_x_value (13); /* 'P' */ m.set_nil (); m.put_list (15); m.set_x_value (12); /* 'Po' */ m.set_x_value (14); /* 'Xtmp' */ m.put_atom (data__18__0,1); m.put_list (2); m.set_x_value (11); /* 'C' */ m.set_x_value (15); /* 'Xtmp' */ m.exec (dlplib.format_2); break; case 14: m.end_rule (); break; } // switch return m.success; } // gesturelib:position_parameter/3 exec() // gesturelib:position_parameter/3 decls. public SymbolDescriptor c__0; public SymbolDescriptor front__0; public SymbolDescriptor increment__3; public SymbolDescriptor back__0; public SymbolDescriptor left__0; public SymbolDescriptor right__0; public SymbolDescriptor up__0; public SymbolDescriptor down__0; public SymbolDescriptor data__18__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:position_parameter/3 decls. public boolean init (DLP m) { c__0 = m.define_symbol ("c".intern(), 0); front__0 = m.define_symbol ("front".intern(), 0); increment__3 = m.define_symbol ("increment".intern(), 3); back__0 = m.define_symbol ("back".intern(), 0); left__0 = m.define_symbol ("left".intern(), 0); right__0 = m.define_symbol ("right".intern(), 0); up__0 = m.define_symbol ("up".intern(), 0); down__0 = m.define_symbol ("down".intern(), 0); data__18__0 = m.define_symbol ("position error : C=~w, Po=~w, P=~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:position_parameter/3 init() } // gesturelib:position_parameter/3 final class gesturelib_getPositionParameter_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: getPositionParameter(_G81, increment(_G88, _G89, _G90), increment(_G88, _G89, _G90)) case 0: m.try_me_else (2); //m.success = m.get_v_varia (1); /* Unknown */ m.get_struct (increment__3,2); m.uni_x_varia (12); /* X */ m.uni_x_varia (13); /* Y */ m.uni_x_varia (14); /* Z */ m.get_struct (increment__3,3); m.uni_x_value (12); /* X */ m.uni_x_value (13); /* Y */ m.uni_x_value (14); /* Z */ m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: getPositionParameter(_G1892, _G1893, _G1894) case 2: m.trust_or_fail (); m.allocate (3); //m.success = m.get_x_varia (11,1); /* Object */ m.get_y_value (1,2); /* Direction */ m.get_y_value (0,3); /* Position */ m.end_head (); break; case 3: // goal: object_class(_G1902, _G1892) m.put_y_value (2,1); /* 'ObjectClass' */ m.put_x_value (11,2); /* 'Object' */ m.call (2) /*2*/; /* object_class_2 */ break; case 4: // goal: position_parameter(_G1902, _G1893, _G1894) m.put_y_value (2,1); /* 'ObjectClass' */ m.put_y_value (1,2); /* 'Direction' */ m.put_y_value (0,3); /* 'Position' */ m.deallocate (); m.exec (5); /* position_parameter_3 */ break; case 5: m.end_rule (); break; } // switch return m.success; } // gesturelib:getPositionParameter/3 exec() // gesturelib:getPositionParameter/3 decls. public SymbolDescriptor increment__3; // end of gesturelib:getPositionParameter/3 decls. public boolean init (DLP m) { increment__3 = m.define_symbol ("increment".intern(), 3); return true; } // gesturelib:getPositionParameter/3 init() } // gesturelib:getPositionParameter/3 final class gesturelib_getSpeedParameter_4 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: getSpeedParameter(_G81, beat(_G83), _G83, _G84) case 0: m.try_me_else (6); m.allocate (5); //m.success = m.get_v_varia (1); /* Unknown */ m.get_struct (beat__1,2); m.uni_y_value (4); /* Beat */ m.get_y_value (4,3); /* Beat */ m.get_y_value (1,4); /* Interpolation */ m.cut_level (0); m.end_head (); break; case 1: // goal: is_eval(unit_interpolation, _G280) m.put_z_value (0,1); /* unit_interpolation */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 2: // goal: is_eval(_G83, _G283) m.put_y_value (4,1); /* 'Beat' */ m.put_y_value (2,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 3: // goal: is_if_mul_if(_G280, _G283, _G84) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'Unknown' */ m.put_y_value (1,3); /* 'Interpolation' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 4: // goal: ! m.cut_tail (0); m.deallocate (); break; case 5: m.end_rule (); break; // head: getSpeedParameter(_G2972, time(_G2980, second), _G2974, _G2975) case 6: m.retry_me_else (13); m.allocate (5); //m.success = m.get_v_varia (1); /* Unknown */ m.get_struct (time__2,2); m.uni_x_varia (12); /* Time */ m.uni_atom (second__0); m.get_y_value (4,3); /* Beat */ m.get_y_value (1,4); /* Interpolation */ m.cut_level (0); m.end_head (); break; case 7: // goal: is_eval(_G2980, _G2974) m.put_x_value (12,1); /* 'Time' */ m.put_y_value (4,2); /* 'Beat' */ m.call (dlplib.is_eval_2); /*6*/ break; case 8: // goal: is_eval(unit_interpolation, _G3372) m.put_z_value (0,1); /* unit_interpolation */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 9: // goal: is_eval(_G2974, _G3375) m.put_y_value (4,1); /* 'Beat' */ m.put_y_value (2,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 10: // goal: is_if_mul_if(_G3372, _G3375, _G2975) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'Unknown' */ m.put_y_value (1,3); /* 'Interpolation' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 11: // goal: ! m.cut_tail (0); m.deallocate (); break; case 12: m.end_rule (); break; // head: getSpeedParameter(_G6447, _G6448, _G6449, _G6450) case 13: m.retry_me_else (21); m.allocate (7); //m.success = m.get_x_varia (11,1); /* Object */ m.get_y_value (5,2); /* Speed */ m.get_y_value (4,3); /* Beat */ m.get_y_value (1,4); /* Interpolation */ m.cut_level (0); m.end_head (); break; case 14: // goal: object_class(_G6458, _G6447) m.put_y_value (6,1); /* 'ObjectClass' */ m.put_x_value (11,2); /* 'Object' */ m.call (2) /*2*/; /* object_class_2 */ break; case 15: // goal: speed_parameter(_G6458, _G6448, _G6449) m.put_y_value (6,1); /* 'ObjectClass' */ m.put_y_value (5,2); /* 'Speed' */ m.put_y_value (4,3); /* 'Beat' */ m.call (8) /*2*/; /* speed_parameter_3 */ break; case 16: // goal: is_eval(unit_interpolation, _G6730) m.put_z_value (0,1); /* unit_interpolation */ m.put_y_value (3,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 17: // goal: is_eval(_G6449, _G6733) m.put_y_value (4,1); /* 'Beat' */ m.put_y_value (2,2); /* 'Unknown' */ m.call (dlplib.is_eval_2); /*6*/ break; case 18: // goal: is_if_mul_if(_G6730, _G6733, _G6450) m.put_y_value (3,1); /* 'Unknown' */ m.put_y_value (2,2); /* 'Unknown' */ m.put_y_value (1,3); /* 'Interpolation' */ m.call (dlplib.is_if_mul_if_3); /*6*/ break; case 19: // goal: ! m.cut_tail (0); m.deallocate (); break; case 20: m.end_rule (); break; // head: getSpeedParameter(_G10441, _G10442, _G10443, _G10444) case 21: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* Object */ m.get_v_varia (2); /* Unknown */ m.get_v_varia (3); /* Unknown */ m.get_v_varia (4); /* Unknown */ m.end_head (); break; case 22: // goal: format('speed parameter error for ~w~n', [_G10441]) m.put_atom (data__19__0,1); m.put_list (2); m.set_x_value (11); /* 'Object' */ m.set_nil (); m.exec (dlplib.format_2); break; case 23: m.end_rule (); break; } // switch return m.success; } // gesturelib:getSpeedParameter/4 exec() // gesturelib:getSpeedParameter/4 decls. public SymbolDescriptor beat__1; public SymbolDescriptor time__2; public SymbolDescriptor second__0; public SymbolDescriptor data__19__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:getSpeedParameter/4 decls. public boolean init (DLP m) { beat__1 = m.define_symbol ("beat".intern(), 1); time__2 = m.define_symbol ("time".intern(), 2); second__0 = m.define_symbol ("second".intern(), 0); data__19__0 = m.define_symbol ("speed parameter error for ~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:getSpeedParameter/4 init() } // gesturelib:getSpeedParameter/4 final class gesturelib_speed_parameter_3 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: speed_parameter(l, slow, 3) case 0: m.try_me_else (2); //m.success = m.get_atom (l__0,1); m.get_atom (slow__0,2); m.get_int (3,3); m.cut_neck (); m.end_head (); break; case 1: m.end_fact (); break; // head: speed_parameter(l, very_slow, 5) case 2: m.retry_me_else (4); //m.success = m.get_atom (l__0,1); m.get_atom (very_slow__0,2); m.get_int (5,3); m.cut_neck (); m.end_head (); break; case 3: m.end_fact (); break; // head: speed_parameter(l, intermedia, 2) case 4: m.retry_me_else (6); //m.success = m.get_atom (l__0,1); m.get_atom (intermedia__0,2); m.get_int (2,3); m.cut_neck (); m.end_head (); break; case 5: m.end_fact (); break; // head: speed_parameter(l, fast, 1) case 6: m.retry_me_else (8); //m.success = m.get_atom (l__0,1); m.get_atom (fast__0,2); m.get_int (1,3); m.cut_neck (); m.end_head (); break; case 7: m.end_fact (); break; // head: speed_parameter(l, very_fast, 0.5) case 8: m.retry_me_else (10); //m.success = m.get_atom (l__0,1); m.get_atom (very_fast__0,2); m.get_float (0.5f,3); m.cut_neck (); m.end_head (); break; case 9: m.end_fact (); break; // head: speed_parameter(r, slow, 3) case 10: m.retry_me_else (12); //m.success = m.get_atom (r__0,1); m.get_atom (slow__0,2); m.get_int (3,3); m.cut_neck (); m.end_head (); break; case 11: m.end_fact (); break; // head: speed_parameter(r, very_slow, 5) case 12: m.retry_me_else (14); //m.success = m.get_atom (r__0,1); m.get_atom (very_slow__0,2); m.get_int (5,3); m.cut_neck (); m.end_head (); break; case 13: m.end_fact (); break; // head: speed_parameter(r, intermedia, 2) case 14: m.retry_me_else (16); //m.success = m.get_atom (r__0,1); m.get_atom (intermedia__0,2); m.get_int (2,3); m.cut_neck (); m.end_head (); break; case 15: m.end_fact (); break; // head: speed_parameter(r, fast, 1) case 16: m.retry_me_else (18); //m.success = m.get_atom (r__0,1); m.get_atom (fast__0,2); m.get_int (1,3); m.cut_neck (); m.end_head (); break; case 17: m.end_fact (); break; // head: speed_parameter(r, very_fast, 0.5) case 18: m.retry_me_else (20); //m.success = m.get_atom (r__0,1); m.get_atom (very_fast__0,2); m.get_float (0.5f,3); m.cut_neck (); m.end_head (); break; case 19: m.end_fact (); break; // head: speed_parameter(c, slow, 3) case 20: m.retry_me_else (22); //m.success = m.get_atom (c__0,1); m.get_atom (slow__0,2); m.get_int (3,3); m.cut_neck (); m.end_head (); break; case 21: m.end_fact (); break; // head: speed_parameter(c, very_slow, 5) case 22: m.retry_me_else (24); //m.success = m.get_atom (c__0,1); m.get_atom (very_slow__0,2); m.get_int (5,3); m.cut_neck (); m.end_head (); break; case 23: m.end_fact (); break; // head: speed_parameter(c, intermedia, 2) case 24: m.retry_me_else (26); //m.success = m.get_atom (c__0,1); m.get_atom (intermedia__0,2); m.get_int (2,3); m.cut_neck (); m.end_head (); break; case 25: m.end_fact (); break; // head: speed_parameter(c, fast, 1) case 26: m.retry_me_else (28); //m.success = m.get_atom (c__0,1); m.get_atom (fast__0,2); m.get_int (1,3); m.cut_neck (); m.end_head (); break; case 27: m.end_fact (); break; // head: speed_parameter(c, very_fast, 0.5) case 28: m.retry_me_else (30); //m.success = m.get_atom (c__0,1); m.get_atom (very_fast__0,2); m.get_float (0.5f,3); m.cut_neck (); m.end_head (); break; case 29: m.end_fact (); break; // head: speed_parameter(_G15418, _G15419, _G15420) case 30: m.trust_or_fail (); //m.success = m.get_x_varia (11,1); /* C */ m.get_x_varia (12,2); /* S */ m.get_x_varia (13,3); /* T */ m.end_head (); break; case 31: // goal: format('spped error : C=~w, S=~w, T=~w~n', [_G15418, _G15419, _G15420]) m.put_list (14); m.set_x_value (13); /* 'T' */ m.set_nil (); m.put_list (15); m.set_x_value (12); /* 'S' */ m.set_x_value (14); /* 'Xtmp' */ m.put_atom (data__20__0,1); m.put_list (2); m.set_x_value (11); /* 'C' */ m.set_x_value (15); /* 'Xtmp' */ m.exec (dlplib.format_2); break; case 32: m.end_rule (); break; } // switch return m.success; } // gesturelib:speed_parameter/3 exec() // gesturelib:speed_parameter/3 decls. public SymbolDescriptor l__0; public SymbolDescriptor slow__0; public SymbolDescriptor very_slow__0; public SymbolDescriptor intermedia__0; public SymbolDescriptor fast__0; public SymbolDescriptor very_fast__0; public SymbolDescriptor r__0; public SymbolDescriptor c__0; public SymbolDescriptor data__20__0; public SymbolDescriptor op__dot__2; public SymbolDescriptor sl_sr__0; // end of gesturelib:speed_parameter/3 decls. public boolean init (DLP m) { l__0 = m.define_symbol ("l".intern(), 0); slow__0 = m.define_symbol ("slow".intern(), 0); very_slow__0 = m.define_symbol ("very_slow".intern(), 0); intermedia__0 = m.define_symbol ("intermedia".intern(), 0); fast__0 = m.define_symbol ("fast".intern(), 0); very_fast__0 = m.define_symbol ("very_fast".intern(), 0); r__0 = m.define_symbol ("r".intern(), 0); c__0 = m.define_symbol ("c".intern(), 0); data__20__0 = m.define_symbol ("spped error : C=~w, S=~w, T=~w~n".intern(), 0); op__dot__2 = m.define_symbol (".".intern(), 2); sl_sr__0 = m.define_symbol ("[]".intern(), 0); return true; } // gesturelib:speed_parameter/3 init() } // gesturelib:speed_parameter/3 final class gesturelib_init_vars_0 extends Code { public boolean exec (DLP m) { switch (m.PSreg) { // head: init_vars case 0: //m.success = m.end_head (); break; case 1: // goal: assign_nlv_term(this, nreg, 0, 6) m.put_this (1); m.put_nreg (2); m.put_int (0,3); m.put_float (6f,4); m.exec (dlplib.assign_nlv_term_4); break; case 2: m.end_rule (); break; } // switch return m.success; } // gesturelib:init_vars/0 exec() // gesturelib:init_vars/0 decls. // end of gesturelib:init_vars/0 decls. public boolean init (DLP m) { return true; } // gesturelib:init_vars/0 init() } // gesturelib:init_vars/0 class gesturelib extends Code { public static ObjectDescriptor object; public static MethodDescriptor script_2; public static MethodDescriptor getBodyObjectName_3; public static MethodDescriptor object_class_2; public static MethodDescriptor getRotationParameter_3; public static MethodDescriptor rotation_parameter_3; public static MethodDescriptor position_parameter_3; public static MethodDescriptor getPositionParameter_3; public static MethodDescriptor getSpeedParameter_4; public static MethodDescriptor speed_parameter_3; public boolean init (DLP m) { object = m.define_object ("gesturelib".intern(), 0, 9, 1); script_2 = m.define_method (object, 0, "script".intern(), 2); getBodyObjectName_3 = m.define_method (object, 1, "getBodyObjectName".intern(), 3); object_class_2 = m.define_method (object, 2, "object_class".intern(), 2); getRotationParameter_3 = m.define_method (object, 3, "getRotationParameter".intern(), 3); rotation_parameter_3 = m.define_method (object, 4, "rotation_parameter".intern(), 3); position_parameter_3 = m.define_method (object, 5, "position_parameter".intern(), 3); getPositionParameter_3 = m.define_method (object, 6, "getPositionParameter".intern(), 3); getSpeedParameter_4 = m.define_method (object, 7, "getSpeedParameter".intern(), 4); speed_parameter_3 = m.define_method (object, 8, "speed_parameter".intern(), 3); m.define_nonlog (object, "unit_interpolation".intern(), 0); return true; } // gesturelib init() } // class gesturelib // end of unit gesturelib code. // end of action.pl code file.