全國最多中醫師線上諮詢網站-台灣中醫網
發文 回覆 瀏覽次數:1611
推到 Plurk!
推到 Facebook!

請教座標問題

答題得分者是:richtop
cashyy
高階會員


發表:117
回覆:322
積分:212
註冊:2004-04-30

發送簡訊給我
#1 引用回覆 回覆 發表時間:2004-12-15 18:10:24 IP:211.75.xxx.xxx 未訂閱
int Dn;
  if(Maze_Map[My][Mx-1]==4)  /* 代表左邊有路 */
  {
    if(Status != 2)
    {
      SRect.Right = 34;
      SRect.Bottom = 34;
      DRect.top = (My/2)*37 3;
      DRect.left = (Mx/2)*37 3;
      DRect.right = DRect.left 34;
      DRect.Bottom = DRect.top 34;
      ImageBack->Canvas->CopyRect(DRect,ImageLeft->Canvas,SRect);
      Status = 2;              /* 2表示已經往左 */
    }
    else
    {
      /* 覆蓋坦克原座標圖 */
      ImageBack->Canvas->CopyRect(DRect,ImageTrack->Canvas,SRect);
      /* 顯示新坦克座標圖 */
      Mx -=2;
      SRect.Right = 34;
      SRect.Bottom = 34;
      DRect.top = (My/2)*37 3;
      DRect.left = (Mx/2)*37 3;
      DRect.right = DRect.left 34;
      DRect.Bottom = DRect.top 34;
      ImageBack->Canvas->CopyRect(DRect,ImageLeft->Canvas,SRect);
      My = My;
    }
  }
  else
  {
    if(Maze_Map[My-1][Mx]==5)  /* 代表上方有路 */
    {
      if(Status != 0)
      {
      SRect.Right = 34;
      SRect.Bottom = 34;
      DRect.top = (My/2)*37 3;
      DRect.left = (Mx/2)*37 3;
      DRect.right = DRect.left 34;
      DRect.Bottom = DRect.top 34;
      ImageBack->Canvas->CopyRect(DRect,ImageUp->Canvas,SRect);
      Status = 0;              /* 0表示已經往上 */
      }
      else
      {
        /* 覆蓋坦克原座標圖 */
        ImageBack->Canvas->CopyRect(DRect,ImageTrack->Canvas,SRect);
        /* 顯示新坦克座標圖 */
        My -=2;
        SRect.Right = 34;
        SRect.Bottom = 34;
        DRect.top = (My/2)*37 3;
        DRect.left = (Mx/2)*37 3;
        DRect.right = DRect.left 34;
        DRect.Bottom = DRect.top 34;
        ImageBack->Canvas->CopyRect(DRect,ImageUp->Canvas,SRect);
        My = My;
      }
    }
    else
    {
      if(Maze_Map[My][Mx 1]==4)  /* 代表右方有路 */
      {
        if(Status != 3)
        {
          SRect.Right = 34;
          SRect.Bottom = 34;
          DRect.top = (My/2)*37 3;
          DRect.left = (Mx/2)*37 3;
          DRect.right = DRect.left 34;
          DRect.Bottom = DRect.top 34;
          ImageBack->Canvas->CopyRect(DRect,ImageRight->Canvas,SRect);
          Status = 3;              /* 3表示已經往右 */
        }
        else
        {
          /* 覆蓋坦克原座標圖 */
          ImageBack->Canvas->CopyRect(DRect,ImageTrack->Canvas,SRect);
          /* 顯示新坦克座標圖 */
          Mx  =2;
          SRect.Right = 34;
          SRect.Bottom = 34;
          DRect.top = (My/2)*37 3;
          DRect.left = (Mx/2)*37 3;
          DRect.right = DRect.left 34;
          DRect.Bottom = DRect.top 34;
          ImageBack->Canvas->CopyRect(DRect,ImageRight->Canvas,SRect);
          My = My;
        }
      }
      else
      {
        if(Maze_Map[My 1][Mx]==5)  /* 代表下方有路 */
        {
          if(Status != 1)
          {
            SRect.Right = 34;
            SRect.Bottom = 34;
            DRect.top = (My/2)*37 3;
            DRect.left = (Mx/2)*37 3;
            DRect.right = DRect.left 34;
            DRect.Bottom = DRect.top 34;
            ImageBack->Canvas->CopyRect(DRect,ImageDown->Canvas,SRect);
            Status = 1;              /* 1表示已經往下 */
          }
          else
          {
            /* 覆蓋坦克原座標圖 */
            ImageBack->Canvas->CopyRect(DRect,ImageTrack->Canvas,SRect);
            /* 顯示新坦克座標圖 */
            My  =2;
            SRect.Right = 34;
            SRect.Bottom = 34;
            DRect.top = (My/2)*37 3;
            DRect.left = (Mx/2)*37 3;
            DRect.right = DRect.left 34;
            DRect.Bottom = DRect.top 34;
            ImageBack->Canvas->CopyRect(DRect,ImageDown->Canvas,SRect);
            My = My;
          }
        }
      }
    }
  }    /*
======================================
                 前                  =
               (x,y-1)               =
  左                          右     =
(x-1,y)      目前(x,y)      (x 1,y)  =
                                     =
               (x,y 1)               =
                 後                  =
======================================
*/
請問各位大大,我的問題是:前方為(x,y-1),那麼如果我右轉後,我的前方應為(x 1,y),那程式該修改那裡?    
richtop
資深會員


發表:122
回覆:646
積分:468
註冊:2003-06-10

發送簡訊給我
#2 引用回覆 回覆 發表時間:2004-12-15 20:42:11 IP:211.76.xxx.xxx 未訂閱
cashyy 您好:    底下以四個方向為例,分析轉向與目前方向的關係,請參考。 如果要設成八個方向,相信也不難修改。    

//---------------------------------------------------------------------------
//                 <1>
//               ( 0,-1)
//                  ^
//                  |
// <2>   (-1, 0) <-- --> ( 1, 0)  <0>
//                  |
//                  v
//               ( 0, 1)
//                 <3>    int dx[] = { 1, 0,-1, 0};
int dy[] = { 0,-1, 0, 1};    // To turn right, direction adds -1;
// To turn left,  direction adds  1;
// To keep forward, nothing needs be changed;
// To go back,  direction adds 2 or -2;    int direction=0,  // 目前方向
    dirX=dx[direction], // 沿目前方向的x增量
    dirY=dy[direction]; // 沿目前方向的y增量    int nextDir(int dir, int turnTo)
{ dir  = turnTo;
  if ( turnTo<0 )
    dir  = 4;
  return ( dir % 4);
}    void __fastcall TForm1::Button1Click(TObject *Sender)
{
  // to right,
  direction = nextDir(direction, -1);
  dirX = dx[direction];
  dirY = dx[direction];
  x  = dirX;
  y  = dirY;
  // to left,
  direction = nextDir(direction, 1);
  dirX = dx[direction];
  dirY = dx[direction];
  x  = dirX;
  y  = dirY;
  // keep forward,
  //direction = nextDir(direction, 0);
  //dirX = dx[direction];
  //dirY = dx[direction];
  x  = dirX;
  y  = dirY;
  // go back,
  direction = nextDir(direction, 2);
  dirX = dx[direction];
  dirY = dx[direction];
  x  = dirX;
  y  = dirY;
}
//---------------------------------------------------------------------------
RichTop 敬上 =====***** 把數學當工具,可以解決問題;將數學變能力,能夠發現並解決問題! =====#####
ddy
站務副站長


發表:262
回覆:2105
積分:1169
註冊:2002-07-13

發送簡訊給我
#3 引用回覆 回覆 發表時間:2004-12-15 23:55:41 IP:61.62.xxx.xxx 未訂閱
張貼程式請加縮排,已協助修正 請參考 【公告】程式碼張貼規則與方法
cashyy
高階會員


發表:117
回覆:322
積分:212
註冊:2004-04-30

發送簡訊給我
#4 引用回覆 回覆 發表時間:2004-12-16 16:58:37 IP:211.23.xxx.xxx 未訂閱
謝謝richtop解說! 下次張貼時會注意了!
系統時間:2017-12-13 21:07:16
聯絡我們 | Delphi K.Top討論版
本站聲明
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。
2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。
3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇!