触手の表示

触手を表示させたいと思って色々と考えているのですが、なかなか上手くいきません＾＾；
シューティングゲームアルゴリズムマニアックスには、触手について二つの表示方法が
解説されていました。
一つは触手が回転出来る角度を考えない方法。
もう一つは、触手が回転出来る角度を制限する方法。

この回転出来る角度を制限する方法を作ろうとしていたのですが上手くいかなくて
とりあえず、角度を制限しない方法で触手を表示させてみたら上手く出来たので
角度を制限しない方法について書いてみます。

まず回転出来る角度を制限しない触手のスクリプトはコチラ↓
触手のスクリプト（角度制限なし）

このスクリプトを起動させるとこんな感じ。

自機に向かって触手の先端が向かって来て、ある一定の限界まで伸びます。

考え方としては、まず中心(rx,ry)と先端(hx,hy)だけを考えます。
このスクリプトの場合は中心は移動しませんので、先端部分だけを考えれば良いので
先端を自機(tx,ty)に向かって移動させれば良いです。自機狙い弾と考え方は同じですね。
スクリプトで言うと
 r=atan(ty-hy, tx-hx) ;先端と自機との角度を求める
 etxv = cos(r)*v      ;先端のx軸方向の移動量
 etyv = sin(r)*v      ;先端のy軸方向の移動量
 hx=etxv+hx           ;先端のx軸の座標指定
 hy=etyv+hy           ;先端のy軸の座標指定
この部分で計算しています。

でも、このままだとどこまでも自機を追っかけてしまいます。
それだと都合が悪いので、腕の長さの限界を設定します。
これは、中心(rx,ry)から先端(hx,hy)までの距離を制限してやれば良いです。
dx=hx-rx
 dy=hy-ry
 d=sqrt((dx*dx)+(dy*dy)) ;自機と先端の平方根を求める
 if d>limith {           ;自機と先端とを比べて限界以上なら、それ以上先端を伸ばさない
  hx=dx*limith/d+rx
  hy=dy*limith/d+ry
 }
limithと言う制限の為の変数を用意して、中心(rx,ry)から先端(hx,hy)までの距離がlimith
を超えるようであれば、中心(rx,ry)から先端(hx,hy)までの距離をlimith以上にならないように
しています。
これで、中心と先端が表示出来ました。

次に中間部分の考え方ですが、これは隣り合う腕の平均値をとれば良いです。
例えば、この図のような感じで

x(1),y(1)を計算するとします。そうすると計算式は↓になります。
x(1)=(x(0)+x(2))/2
y(1)=(y(0)+y(2))/2
この計算を先端から中心まで計算してやれば、触手のようにゆっくりと動いてくれて良い感じです＾＾
スクリプトでは↓
x(0)=hx                         ;触手の中間の腕の初期位置x
y(0)=hy                         ;触手の中間の腕の初期位置y
 repeat emax-2,1                 ;中心と先端とを表示しないのでemax-2となる
  pos x(cnt),y(cnt)
  mes "○"                    ;触手の中間の腕の表示
  x(cnt)=(x(cnt-1)+x(cnt+1))/2;x軸の隣り合う腕の平均を求める
  y(cnt)=(y(cnt-1)+y(cnt+1))/2;y軸の隣り合う腕の平均を求める
 loop
こんな感じでリピートを使って計算しています。
ちなみに、リピートするリピートで囲って回数を増やすと滑らかに動くようになります。

なんか、さも自分で考えたように書いてますが、シューティングゲームアルゴリズムマニアックス
に載っていた事を書いているだけです（汗）

とりあえず、これでも触手っぽいキャラは作れそうなのですが、このスクリプトの動きは
どっちかと言うと生物的な感じなんですよね。
出来れば、機械的な動きをさせたいと思っているので、そうなるとやはり回転出来る角度を
制限して表示させるスクリプトを考えないと駄目っぽいんですが、今の所上手く動いてくれません＾＾；