--- /dev/null
+/*
+ * Copyright Droids, Microb Technology (2008)
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *
+ * Revision : $Id: strat_building.c,v 1.5 2009-11-08 17:24:33 zer0 Exp $
+ *
+ * Olivier MATZ <zer0@droids-corp.org>
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <math.h>
+
+#include <aversive/pgmspace.h>
+#include <aversive/queue.h>
+#include <aversive/wait.h>
+#include <aversive/error.h>
+
+#include <ax12.h>
+#include <uart.h>
+#include <pwm_ng.h>
+#include <time.h>
+#include <spi.h>
+
+#include <pid.h>
+#include <quadramp.h>
+#include <control_system_manager.h>
+#include <trajectory_manager.h>
+#include <vect_base.h>
+#include <lines.h>
+#include <polygon.h>
+#include <obstacle_avoidance.h>
+#include <blocking_detection_manager.h>
+#include <robot_system.h>
+#include <position_manager.h>
+
+#include <rdline.h>
+#include <parse.h>
+
+
+#include "../common/i2c_commands.h"
+#include "main.h"
+#include "cmdline.h"
+#include "i2c_protocol.h"
+#include "strat.h"
+#include "strat_base.h"
+#include "strat_utils.h"
+#include "strat_avoid.h"
+#include "sensor.h"
+
+
+#define DISC_DIST_NEED_GOTO_AVOID 1000
+#define DISC_DIST_PREPARE_BUILD 700
+#define DISC_DIST_SLOW 500
+
+#define ERROUT(e) do { \
+ err = e; \
+ goto end; \
+ } while(0)
+
+static uint8_t is_ready_for_prepare_build(void)
+{
+ double d, a;
+ if (distance_from_robot(CENTER_X, CENTER_Y) >
+ DISC_DIST_PREPARE_BUILD)
+ return 0;
+ abs_xy_to_rel_da(CENTER_X, CENTER_Y, &d, &a);
+ if (a < RAD(-30))
+ return 0;
+ if (a > RAD(30))
+ return 0;
+ return 1;
+}
+
+/* go to the nearest place on the disc. Also prepare the arms for
+ * building at the correct level. If level==-1, don't move the
+ * arms. */
+uint8_t strat_goto_disc(int8_t level)
+{
+ uint8_t err;
+ uint16_t old_spdd, old_spda;
+ double d, a, x, y;
+
+ DEBUG(E_USER_STRAT, "%s()", __FUNCTION__);
+
+ strat_get_speed(&old_spdd, &old_spda);
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_FAST);
+
+ /* workaround for some static cols configurations */
+ if ((strat_infos.conf.flags & STRAT_CONF_EARLY_SCAN) == 0) {
+ if (time_get_s() > 15)
+ i2c_mechboard_mode_loaded();
+ }
+
+ /* if we are far from the disc, goto backward faster */
+ abs_xy_to_rel_da(CENTER_X, CENTER_Y, &d, &a);
+ if (d > DISC_DIST_NEED_GOTO_AVOID) {
+ rel_da_to_abs_xy(d - DISC_DIST_PREPARE_BUILD, a, &x, &y);
+ err = goto_and_avoid(x, y, TRAJ_FLAGS_STD,
+ TRAJ_FLAGS_NO_NEAR);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+ }
+
+#ifdef HOMOLOGATION
+ {
+ int16_t opp_d, opp_a;
+ trajectory_turnto_xy(&mainboard.traj,
+ CENTER_X, CENTER_Y);
+ err = wait_traj_end(TRAJ_FLAGS_NO_NEAR);
+
+ time_wait_ms(500);
+
+ err = get_opponent_da(&opp_d, &opp_a);
+ if (err == 0 && opp_d < 600 &&
+ (opp_a > 325 || opp_a < 35))
+ return END_ERROR;
+ }
+#endif
+
+ trajectory_goto_forward_xy_abs(&mainboard.traj,
+ CENTER_X, CENTER_Y);
+ err = WAIT_COND_OR_TRAJ_END(is_ready_for_prepare_build(),
+ TRAJ_FLAGS_NO_NEAR);
+
+ if (err == END_BLOCKING)
+ ERROUT(END_BLOCKING);
+ if (TRAJ_SUCCESS(err)) /* should not reach dest */
+ ERROUT(END_ERROR);
+
+ strat_set_speed(SPEED_DIST_SLOW, SPEED_ANGLE_SLOW);
+ if (level != -1)
+ i2c_mechboard_mode_prepare_build_both(level);
+
+ err = WAIT_COND_OR_TRAJ_END(distance_from_robot(CENTER_X,
+ CENTER_Y) < DISC_DIST_SLOW,
+ TRAJ_FLAGS_NO_NEAR);
+
+ if (err == END_BLOCKING)
+ ERROUT(END_BLOCKING);
+ if (TRAJ_SUCCESS(err)) /* should not reach dest */
+ ERROUT(END_ERROR);
+
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_VERY_SLOW);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+
+ if (err == END_BLOCKING)
+ ERROUT(END_TRAJ);
+ if (TRAJ_SUCCESS(err)) /* should not reach dest */
+ ERROUT(END_ERROR);
+
+ ERROUT(err);
+ end:
+ strat_set_speed(old_spdd, old_spda);
+ return err;
+}
+
+/* must be called from the checkpoint before zone 1. */
+static uint8_t strat_goto_build_zone1_near(uint8_t level)
+{
+ uint8_t err;
+
+ /* turn to build zone */
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_FAST);
+ trajectory_a_abs(&mainboard.traj, COLOR_A(90));
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ return err;
+
+ /* move forward to reach the build zone */
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_SLOW);
+ i2c_mechboard_mode_prepare_build_both(level);
+ err = strat_calib(500, TRAJ_FLAGS_SMALL_DIST);
+ if (err == END_BLOCKING) {
+ err = END_TRAJ;
+ }
+
+ DEBUG(E_USER_STRAT, "build zone reached");
+ return err;
+}
+
+/* must be called from the checkpoint before zone 0 */
+static uint8_t strat_goto_build_zone0_near(uint8_t level)
+{
+ uint8_t err;
+#ifdef OLD_STYLE
+ int16_t cur_y, diff_y, dst_y;
+#endif
+
+ /* turn to build zone */
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_FAST);
+ trajectory_a_abs(&mainboard.traj, COLOR_A(90));
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ return err;
+
+#ifdef OLD_STYLE
+ cur_y = position_get_y_s16(&mainboard.pos);
+ dst_y = COLOR_Y(AREA_Y - (ROBOT_LENGTH/2) - 100);
+ diff_y = ABS(cur_y - dst_y);
+
+ /* move forward to reach the build zone */
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_SLOW);
+ i2c_mechboard_mode_prepare_build_both(level);
+ trajectory_d_rel(&mainboard.traj, diff_y);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (err == END_BLOCKING) { /* not very good for z0 but... */
+ err = END_TRAJ;
+ }
+#else
+ /* move forward to reach the build zone */
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_SLOW);
+ i2c_mechboard_mode_prepare_build_both(level);
+ err = strat_calib(500, TRAJ_FLAGS_SMALL_DIST);
+ if (err == END_BLOCKING) {
+ err = END_TRAJ;
+ }
+#endif
+
+ DEBUG(E_USER_STRAT, "build zone reached");
+ return err;
+}
+
+/* Go to any build zone: disc, 1a or 1b. Doesn't work with zone 0 for
+ * now... */
+uint8_t strat_goto_build_zone(struct build_zone *zone, uint8_t level)
+{
+ uint8_t err = END_TRAJ;
+ uint16_t old_spdd, old_spda;
+ int16_t checkpoint_x, checkpoint_y;
+ int16_t errx;
+
+ zone->last_try_time = time_get_s();
+
+ if (zone->flags & ZONE_F_DISC)
+ return strat_goto_disc(level);
+
+ DEBUG(E_USER_STRAT, "goto build zone x=%d", zone->checkpoint_x);
+
+ /* workaround for some static cols configurations */
+ if (time_get_s() > 15)
+ i2c_mechboard_mode_loaded();
+
+ strat_get_speed(&old_spdd, &old_spda);
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_FAST);
+
+ checkpoint_x = zone->checkpoint_x;
+ checkpoint_y = COLOR_Y(zone->checkpoint_y);
+ errx = position_get_x_s16(&mainboard.pos) - checkpoint_x;
+
+ /* goto checkpoint if we are too far from it, or if error on x
+ * is too big. */
+ if (distance_from_robot(checkpoint_x, checkpoint_y) > 300 ||
+ ABS(errx) > 15) {
+ err = goto_and_avoid(checkpoint_x, checkpoint_y,
+ TRAJ_FLAGS_STD,
+ TRAJ_FLAGS_NO_NEAR);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+ }
+
+ if (zone->flags & ZONE_F_ZONE1)
+ err = strat_goto_build_zone1_near(level);
+ else if (zone->flags & ZONE_F_ZONE0)
+ err = strat_goto_build_zone0_near(level);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ end:
+ strat_set_speed(old_spdd, old_spda);
+ return err;
+}
+
+/* return a free temple structure */
+struct temple *strat_get_free_temple(void)
+{
+ uint8_t i;
+
+ for (i=0; i<MAX_TEMPLE; i++) {
+ if (!(strat_infos.temple_list[i].flags & TEMPLE_F_VALID))
+ return &strat_infos.temple_list[i];
+ }
+ return NULL;
+}
+
+uint8_t strat_can_build_on_temple(struct temple *temple)
+{
+ uint8_t col_l, col_r, max_col, lintel;
+
+ col_l = get_column_count_left();
+ col_r = get_column_count_right();
+ max_col = (col_l > col_r ? col_l : col_r);
+ lintel = (get_lintel_count() > 0);
+
+ if (strat_infos.conf.flags & STRAT_CONF_ONLY_ONE_ON_DISC) {
+ if ((temple->level_r > 5) &&
+ (temple->flags & TEMPLE_F_ON_DISC))
+ return 0;
+ }
+
+ /* return symetric temples only */
+ if (temple->level_l != temple->level_r)
+ return 0;
+
+ if ((time_get_s() - temple->last_try_time) < TEMPLE_DISABLE_TIME)
+ return 0;
+
+ /* we could do better to work on non-symetric temples */
+ if (temple->level_l + max_col + lintel > 9)
+ return 0;
+
+ if (temple->flags & TEMPLE_F_MONOCOL)
+ return 0;
+
+ /* XXX don't allow to build on opponent temple. For that we
+ * must support the little back_mm. */
+ if (temple->flags & TEMPLE_F_OPPONENT)
+ return 0;
+
+ return 1;
+}
+
+
+/* return the best existing temple for building */
+struct temple *strat_get_best_temple(void)
+{
+ uint8_t i;
+ struct temple *best = NULL;
+ struct temple *temple = NULL;
+
+ for (i=0; i<MAX_TEMPLE; i++) {
+ temple = &strat_infos.temple_list[i];
+
+ if (!(temple->flags & TEMPLE_F_VALID))
+ continue;
+
+ if (strat_can_build_on_temple(temple) == 0)
+ continue;
+
+ if (best == NULL) {
+ best = temple;
+ continue;
+ }
+
+ /* take the higher temple between 'best' and 'temple' */
+ if (best->level_l < temple->level_l)
+ best = temple;
+ }
+
+ DEBUG(E_USER_STRAT, "%s() return %p", __FUNCTION__, best);
+ return best;
+}
+
+/* return the temple we built on the disc if any. If valid == 1, the
+ * temple must be buildable. */
+struct temple *strat_get_our_temple_on_disc(uint8_t valid)
+{
+ uint8_t i;
+ struct temple *temple = NULL;
+
+ if (strat_infos.conf.flags & STRAT_CONF_ONLY_ONE_ON_DISC) {
+ return NULL;
+ }
+
+ for (i=0; i<MAX_TEMPLE; i++) {
+ temple = &strat_infos.temple_list[i];
+
+ if (!(temple->flags & TEMPLE_F_VALID))
+ continue;
+
+ if (valid == 1 && strat_can_build_on_temple(temple) == 0)
+ continue;
+
+ if (temple->flags & TEMPLE_F_ON_DISC)
+ return temple;
+ }
+ return NULL;
+}
+
+#define COL_MAX(x,y) (((x)>(y)) ? (x) : (y))
+
+#define TIME_FOR_LINTEL 3000L
+#define TIME_FOR_BUILD 0L
+#define TIME_FOR_COL 800L
+#define TIME_MARGIN 2000L
+
+#define CHECKPOINT_DISC_DIST 380
+#define CHECKPOINT_OTHER_DIST 200
+/* Grow a temple. It will update temple list. */
+uint8_t strat_grow_temple(struct temple *temple)
+{
+ double checkpoint_x, checkpoint_y;
+ uint8_t add_level = 0;
+ uint8_t do_lintel = 1;
+ uint8_t col_l, col_r, col_max;
+ uint8_t err;
+ uint16_t timeout;
+
+ /* XXX temple must be symetric */
+ uint8_t level = temple->level_l;
+
+ DEBUG(E_USER_STRAT, "%s()", __FUNCTION__);
+
+ if (temple->level_l >= 9)
+ return END_ERROR;
+
+ if ( (temple->zone->flags & ZONE_F_ZONE1) ||
+ (temple->zone->flags & ZONE_F_ZONE0) ) {
+ strat_set_speed(SPEED_DIST_SLOW, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, -17);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+
+ col_l = get_column_count_left();
+ col_r = get_column_count_right();
+
+ if (time_get_s() < 75) {
+ /* make temple symetric: if we have 1 col on left and 2 cols
+ * on right, only build one on both sides. */
+ if (col_l > col_r) {
+ col_r = col_l;
+ do_lintel = 0;
+ }
+ if (col_r > col_l) {
+ col_r = col_l;
+ do_lintel = 0;
+ }
+ if (get_lintel_count() == 0)
+ do_lintel = 0;
+ }
+ else if (col_l != col_r)
+ do_lintel = 0;
+
+ if (col_l == 0 || col_r == 0) {
+ if (temple->flags & TEMPLE_F_LINTEL)
+ do_lintel = 0;
+ }
+
+ if (col_l == 0 && col_r == 0 && do_lintel == 0) {
+ DEBUG(E_USER_STRAT, "nothing to do");
+ return END_ERROR;
+ }
+
+ add_level = do_lintel + col_l;
+ while (level + add_level > 9) {
+ if (do_lintel) {
+ do_lintel = 0;
+ add_level = do_lintel + col_l;
+ continue;
+ }
+ /* we know col_r and col_l are > 0 */
+ col_r--;
+ col_l--;
+ }
+
+ col_max = COL_MAX(col_r, col_l);
+
+ /* Reduce nb elts if we don't have time */
+ timeout = (!!col_max) * TIME_FOR_BUILD;
+ timeout += col_max * TIME_FOR_COL;
+ timeout += do_lintel * TIME_FOR_LINTEL;
+ if ((timeout / 1000L) + time_get_s() > 89 && do_lintel) {
+ do_lintel = 0;
+ timeout -= TIME_FOR_LINTEL;
+ }
+ if ((timeout / 1000L) + time_get_s() > 89 && col_max) {
+ if (col_r > 0)
+ col_r--;
+ if (col_l > 0)
+ col_l--;
+ col_max--;
+ timeout -= TIME_FOR_COL;
+ }
+
+ /* take a margin for timeout */
+ timeout += (!!col_max) * TIME_MARGIN;
+
+ if (col_l == 0 && col_r == 0 && do_lintel == 0) {
+ DEBUG(E_USER_STRAT, "nothing to do (2)");
+ return END_ERROR;
+ }
+
+ DEBUG(E_USER_STRAT, "Autobuild: left=%d,%d right=%d,%d lintel=%d",
+ level, col_l, level, col_r, do_lintel);
+
+ i2c_mechboard_mode_autobuild(level, col_l, I2C_AUTOBUILD_DEFAULT_DIST,
+ level, col_r, I2C_AUTOBUILD_DEFAULT_DIST,
+ do_lintel);
+ WAIT_COND_OR_TIMEOUT(get_mechboard_mode() ==
+ I2C_MECHBOARD_MODE_AUTOBUILD, 100);
+ err = WAIT_COND_OR_TIMEOUT(get_mechboard_mode() !=
+ I2C_MECHBOARD_MODE_AUTOBUILD, timeout);
+ if (err == 0) {
+ DEBUG(E_USER_STRAT, "timeout building temple (timeout was %d)", timeout);
+ temple->flags = 0; /* remove temple from list */
+ return END_TRAJ;
+ }
+ else
+ DEBUG(E_USER_STRAT, "temple built");
+
+ /* position of the robot when build the new temple */
+ temple->x = position_get_x_s16(&mainboard.pos);
+ temple->y = position_get_y_s16(&mainboard.pos);
+ temple->a = position_get_a_deg_s16(&mainboard.pos);
+
+ /* checkpoint is a bit behind us */
+ if (temple->zone->flags & ZONE_F_DISC) {
+ rel_da_to_abs_xy(CHECKPOINT_DISC_DIST, M_PI,
+ &checkpoint_x, &checkpoint_y);
+ }
+ else {
+ rel_da_to_abs_xy(CHECKPOINT_OTHER_DIST, M_PI,
+ &checkpoint_x, &checkpoint_y);
+ }
+ temple->checkpoint_x = checkpoint_x;
+ temple->checkpoint_y = checkpoint_y;
+
+ temple->level_l = level + add_level;
+ temple->dist_l = 0;
+ temple->angle_l = 0;
+
+ temple->level_r = level + add_level;
+ temple->dist_r = 0;
+ temple->angle_r = 0;
+
+ temple->flags = TEMPLE_F_VALID;
+
+ if (distance_from_robot(CENTER_X, CENTER_Y) < 400)
+ temple->flags |= TEMPLE_F_ON_DISC;
+
+ if (do_lintel)
+ temple->flags |= TEMPLE_F_LINTEL;
+
+ /* we must push the temple */
+ if ( ((temple->zone->flags & ZONE_F_ZONE1) ||
+ (temple->zone->flags & ZONE_F_ZONE0)) &&
+ level <= 1) {
+ strat_set_speed(SPEED_DIST_SLOW, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, -100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_push_temple(level);
+ time_wait_ms(400);
+ strat_set_speed(200, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, 100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+
+ /* Special case for big 3 */
+ if (strat_infos.col_in_boobs) {
+ uint16_t old_spdd, old_spda;
+ strat_get_speed(&old_spdd, &old_spda);
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_SLOW);
+ DEBUG(E_USER_STRAT, "%s() big 3", __FUNCTION__);
+ strat_infos.col_in_boobs = 0;
+ trajectory_d_rel(&mainboard.traj, -120);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_prepare_pickup_next(I2C_AUTO_SIDE,
+ I2C_MECHBOARD_MODE_CLEAR);
+ WAIT_COND_OR_TIMEOUT(get_column_count() >= 2, 4000L);
+ i2c_mechboard_mode_prepare_build_both(level + add_level);
+ time_wait_ms(800);
+ strat_set_speed(SPEED_DIST_SLOW, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, 120);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ err = strat_grow_temple(temple);
+ strat_set_speed(old_spdd, old_spda);
+ return err;
+ }
+
+ return END_TRAJ;
+}
+
+#define COL_BACK_DIST 70
+#define COL_ANGLE 20
+#define COL_ARM_DIST 220
+
+#define COL_BACK_DIST_ZONE1 35
+#define COL_ARM_DIST_ZONE1 230
+#define COL_ANGLE_ZONE1 19
+
+static uint8_t try_build_col(uint8_t l, uint8_t r,
+ uint8_t lp, uint8_t rp,
+ uint8_t lvl)
+{
+ uint8_t max_lvl = lvl + r + l;
+
+ if (l == 0 && r == 0)
+ return 0;
+ if (lp - l == 2 && rp - r == 0)
+ return 0;
+ if (lp - l == 0 && rp - r == 2)
+ return 0;
+ if (max_lvl > 9)
+ return 0;
+ if (max_lvl == 9 && rp == 2 && r == 1)
+ return 0;
+ return max_lvl;
+}
+
+/* Grow a temple by building a column on it. It will update temple
+ * list. */
+uint8_t strat_grow_temple_column(struct temple *temple)
+{
+ uint16_t old_spdd, old_spda;
+ double checkpoint_x, checkpoint_y;
+ uint8_t add_level = 0;
+ uint8_t col_l, col_r;
+ uint8_t col_l_before, col_r_before;
+ uint8_t err;
+ int16_t a_abs, a;
+ uint8_t level = temple->level_l;
+ uint8_t lvl_ok = 0, col_l_ok = 0, col_r_ok = 0;
+ uint8_t tmp_lvl;
+ int16_t col_arm_dist = COL_ARM_DIST;
+ int16_t col_back_dist = COL_BACK_DIST;
+ int16_t col_angle = COL_ANGLE;
+
+ DEBUG(E_USER_STRAT, "%s()", __FUNCTION__);
+
+ if (level >= 9)
+ return END_ERROR;
+
+ strat_get_speed(&old_spdd, &old_spda);
+
+ if ( (temple->zone->flags & ZONE_F_ZONE1) ||
+ (temple->zone->flags & ZONE_F_ZONE0) ) {
+ if (level == 1)
+ col_arm_dist = COL_ARM_DIST_ZONE1;
+ col_back_dist = COL_BACK_DIST_ZONE1;
+ col_angle = COL_ANGLE_ZONE1;
+ }
+
+ a_abs = position_get_a_deg_s16(&mainboard.pos);
+
+ col_l_before = get_column_count_left();
+ col_r_before = get_column_count_right();
+ col_l = col_l_before;
+ col_r = col_r_before;
+
+ /* check number of cols */
+ for (col_l = 0; col_l < col_l_before + 1; col_l++) {
+ for (col_r = 0; col_r < col_r_before + 1; col_r++) {
+ tmp_lvl = try_build_col(col_l, col_r,
+ col_l_before,
+ col_r_before, level);
+ if (tmp_lvl > lvl_ok) {
+ lvl_ok = tmp_lvl;
+ col_l_ok = col_l;
+ col_r_ok = col_r;
+ }
+ }
+ }
+
+ col_l = col_l_ok;
+ col_r = col_r_ok;
+ add_level = col_l + col_r;
+
+ strat_set_speed(SPEED_DIST_SLOW, SPEED_ANGLE_SLOW);
+
+ if (col_l == 0 && col_r == 0)
+ ERROUT(END_ERROR);
+
+ DEBUG(E_USER_STRAT, "Build col: left=%d right=%d",
+ col_l, col_r);
+
+ i2c_mechboard_mode_prepare_inside_both(level);
+ trajectory_d_rel(&mainboard.traj, -col_back_dist);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ /* build with left arm */
+ if (col_l) {
+ a = a_abs - col_angle;
+ if (a < -180)
+ a += 360;
+ trajectory_a_abs(&mainboard.traj, a);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ if (time_get_s() > 88)
+ return END_TIMER;
+
+ if (level >= 7 && get_column_count_left() == 2)
+ i2c_mechboard_mode_prepare_build_select(level+1, -1);
+ else
+ i2c_mechboard_mode_prepare_build_select(level, -1);
+ time_wait_ms(200);
+ i2c_mechboard_mode_autobuild(level, col_l, col_arm_dist,
+ 0, 0, col_arm_dist, 0);
+ while (get_mechboard_mode() != I2C_MECHBOARD_MODE_AUTOBUILD);
+ while (get_mechboard_mode() == I2C_MECHBOARD_MODE_AUTOBUILD);
+
+ if ((strat_infos.conf.flags & STRAT_CONF_PUSH_OPP_COLS) &&
+ (col_r == 0) &&
+ (temple->flags & TEMPLE_F_OPPONENT)) {
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_FAST);
+ trajectory_d_rel(&mainboard.traj, -100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_push_temple_disc(I2C_LEFT_SIDE);
+ time_wait_ms(500);
+ trajectory_d_rel(&mainboard.traj, 100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+ else if ((level == 1 || level == 0) && (col_r == 0)) {
+ trajectory_d_rel(&mainboard.traj, -100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_push_temple(level);
+ time_wait_ms(400);
+ strat_set_speed(200, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, 120);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+
+ i2c_mechboard_mode_prepare_inside_select(level+col_l, -1);
+ }
+
+ /* build with right arm */
+ if (col_r) {
+ a = a_abs + col_angle;
+ if (a > 180)
+ a -= 360;
+ trajectory_a_abs(&mainboard.traj, a);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ if (time_get_s() > 88)
+ return END_TIMER;
+
+ if ((level+col_l) >= 7 && get_column_count_right() == 2)
+ i2c_mechboard_mode_prepare_build_select(-1, level + col_l + 1);
+ else
+ i2c_mechboard_mode_prepare_build_select(-1, level + col_l);
+ time_wait_ms(200);
+ i2c_mechboard_mode_autobuild(0, 0, col_arm_dist,
+ level + col_l, col_r,
+ col_arm_dist, 0);
+ while (get_mechboard_mode() != I2C_MECHBOARD_MODE_AUTOBUILD);
+ while (get_mechboard_mode() == I2C_MECHBOARD_MODE_AUTOBUILD);
+
+ if ((strat_infos.conf.flags & STRAT_CONF_PUSH_OPP_COLS) &&
+ (temple->flags & TEMPLE_F_OPPONENT)) {
+ strat_set_speed(SPEED_DIST_VERY_SLOW, SPEED_ANGLE_FAST);
+ trajectory_d_rel(&mainboard.traj, -100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_push_temple_disc(I2C_RIGHT_SIDE);
+ time_wait_ms(500);
+ trajectory_d_rel(&mainboard.traj, 100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+ else if (level == 1 || level == 0) {
+ trajectory_d_rel(&mainboard.traj, -100);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ i2c_mechboard_mode_push_temple(level);
+ time_wait_ms(400);
+ strat_set_speed(200, SPEED_ANGLE_SLOW);
+ trajectory_d_rel(&mainboard.traj, 120);
+ wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ }
+
+ i2c_mechboard_mode_prepare_inside_select(-1, level + col_l + col_r);
+
+ }
+
+ trajectory_a_abs(&mainboard.traj, a_abs);
+ err = wait_traj_end(TRAJ_FLAGS_SMALL_DIST);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ /* position of the robot when build the new temple */
+ temple->x = position_get_x_s16(&mainboard.pos);
+ temple->y = position_get_y_s16(&mainboard.pos);
+ temple->a = position_get_a_deg_s16(&mainboard.pos);
+
+ /* checkpoint is a bit behind us */
+ if (temple->zone->flags | ZONE_F_DISC) {
+ rel_da_to_abs_xy(CHECKPOINT_DISC_DIST, M_PI,
+ &checkpoint_x, &checkpoint_y);
+ }
+ else {
+ rel_da_to_abs_xy(CHECKPOINT_OTHER_DIST, M_PI,
+ &checkpoint_x, &checkpoint_y);
+ }
+ temple->checkpoint_x = checkpoint_x;
+ temple->checkpoint_y = checkpoint_y;
+
+ temple->level_l = level + add_level;
+ temple->dist_l = 0; /* XXX */
+ temple->angle_l = 0;
+
+ temple->level_r = level + add_level;
+ temple->dist_r = 0;
+ temple->angle_r = 0;
+
+ temple->flags = TEMPLE_F_VALID | TEMPLE_F_MONOCOL;
+
+ if (distance_from_robot(CENTER_X, CENTER_Y) < 400)
+ temple->flags |= TEMPLE_F_ON_DISC;
+
+ if ( (temple->zone->flags & ZONE_F_ZONE1) ||
+ (temple->zone->flags & ZONE_F_ZONE0) ) {
+
+ }
+ return END_TRAJ;
+ end:
+ strat_set_speed(old_spdd, old_spda);
+ return err;
+}
+
+uint8_t strat_build_new_temple(struct build_zone *zone)
+{
+ struct temple *temple;
+ uint8_t level = zone->level;
+ uint8_t err;
+
+ /* create a dummy temple */
+ temple = strat_get_free_temple();
+ if (!temple)
+ return END_ERROR;
+
+ memset(temple, 0, sizeof(*temple));
+ temple->level_l = level;
+ temple->level_r = level;
+ temple->flags = TEMPLE_F_VALID | TEMPLE_F_LINTEL;
+ temple->zone = zone;
+
+ zone->flags |= ZONE_F_BUSY;
+
+ if (time_get_s() > 50 && time_get_s() < 85 &&
+ get_lintel_count() == 0)
+ err = strat_grow_temple_column(temple);
+ else
+ err = strat_grow_temple(temple);
+
+ if (!TRAJ_SUCCESS(err))
+ temple->flags = 0;
+ return err;
+}
+
+uint8_t strat_goto_temple(struct temple *temple)
+{
+ uint16_t old_spdd, old_spda;
+ uint8_t err;
+
+ DEBUG(E_USER_STRAT, "goto temple %p checkpoint=%d,%d",
+ temple, temple->checkpoint_x, temple->checkpoint_y);
+
+ temple->last_try_time = time_get_s();
+
+ strat_get_speed(&old_spdd, &old_spda);
+ strat_set_speed(SPEED_DIST_FAST, SPEED_ANGLE_FAST);
+
+ i2c_mechboard_mode_loaded();
+
+ err = goto_and_avoid(temple->checkpoint_x,
+ temple->checkpoint_y,
+ TRAJ_FLAGS_STD,
+ TRAJ_FLAGS_NO_NEAR);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ err = strat_goto_build_zone(temple->zone, temple->level_r);
+ if (!TRAJ_SUCCESS(err))
+ ERROUT(err);
+
+ DEBUG(E_USER_STRAT, "zone reached");
+ ERROUT(END_TRAJ);
+
+ end:
+ strat_set_speed(old_spdd, old_spda);
+ return err;
+}
+
+/* return the best existing temple for building */
+struct build_zone *strat_get_best_zone(void)
+{
+ uint8_t i;
+ struct build_zone *zone = NULL;
+
+ for (i=0; i<MAX_ZONE; i++) {
+ zone = &strat_infos.zone_list[i];
+
+ if (zone->flags & ZONE_F_BUSY)
+ continue;
+ if ((time_get_s() - zone->last_try_time) < ZONE_DISABLE_TIME)
+ continue;
+
+ return zone;
+ }
+ return NULL;
+}