触手の動きのアルゴリズム教えてください

触手の動きのアルゴリズム教えてください (326ﾚｽ)
上下前次 1-新

173(1): あああ 02/06/14 21:16 ID:MQwpPVXA(2/4) AAS
うーむ。絵がずれるねー。いやーん。

(Module.bas で定義)
Type rect
obj As Integer
ang As Integer
End Type

Sub Kansetu_Click ()

Const SHOULDER = 1 ' 肩
Const ELBOW = 2 ' 肘
Const HAND = 3 ' 手
ReDim x(4) As Single
ReDim y(4) As Single
ReDim an(10) As rect ' データ構造
' データ
an(0).obj = 0: an(0).ang = 0
an(1).obj = ELBOW: an(1).ang = 30
an(2).obj = HAND: an(2).ang = 45
an(3).obj = SHOULDER: an(3).ang = 25
an(4).obj = ELBOW: an(4).ang = 40
an(5).obj = SHOULDER: an(5).ang = 30
an(6).obj = HAND: an(6).ang = 60
an(7).obj = SHOULDER: an(7).ang = 45
an(8).obj = ELBOW: an(8).ang = 60
an(9).obj = -1: an(9).ang = 0

174(1): あああ 02/06/14 21:18 ID:MQwpPVXA(3/4) AAS
p = 3.14156 / 180 ' π
h = ScaleHeight / 2 ' Form の高さ
w = ScaleWidth / 4 ' Form の幅
sl = 250 ' 肩の長さ
el = 300 ' 肘の長さ
hl = 200 ' 手の長さ
c = 5: ' 色
j = 0:oan1=0:oan2=0:oan3=0
Do
If an(j).obj = -1 Then Exit Do
Cls
Select Case an(j).obj
Case 1: an1 = an(j).ang + oan1 ' 肩を動かす
an2 = an1 + oan2
an3 = an2 + oan3
oan1 = an1
Case 2: an2 = an1 + an(j).ang + oan2 ' 肘を動かす
an3 = an2 + oan3
oan2 = an(j).ang
Case 3: an3 = an2 + an(j).ang + oan3 ' 手を動かす
oan3 = an(j).ang
End Select

175(1): あああ 02/06/14 21:18 ID:MQwpPVXA(4/4) AAS
x(0) = 0: y(0) = 0
x(1) = Cos(an1 * p) * sl: y(1) = Sin(an1 * p) * sl
x(2) = Cos(an2 * p) * el: y(2) = Sin(an2 * p) * el
x(3) = Cos(an3 * p) * hl: y(3) = Sin(an3 * p) * hl
' 線を描画
Line (x(0) + w, y(0) + h)-(x(1) + w, y(1) + h), QBColor(c)
Line -(x(2) + w + x(1), y(2) + h + y(1)), QBColor(c + 1)
Line -(x(3) + w + x(2) + x(1), y(3) + h + y(2) + y(1)), QBColor(c + 3)
j = j + 1
MsgBox "Push Next"
Loop

End Sub

176: 02/06/14 22:39 ID:??? AAS
＞あああさん
N88BASICでおながいします

177: [age] 02/06/15 00:58 ID:??? AAS
>>173-175
これはＶＢ？
Ｃで慣れてるからｷﾓﾁﾜﾙｲ感じ。

178(2): 02/06/15 01:10 ID:??? AAS
Cとくらべても大してかわらんだろ

179: 02/06/15 01:19 ID:??? AAS
>>178
ﾋﾞﾐｮｳな違いがかえってｷﾓﾁﾜﾙｲ。
ｼﾝﾀｯｸｽｴﾗｰに敏感なんです。

180: 02/06/15 01:28 ID:??? AAS
>178
なるほど・・・・
大して変わらないから、逆にキモチワルイのね(w

181: 02/06/15 02:13 ID:??? AAS
おなかすいた。

182(1): 02/08/20 01:40 ID:??? AAS
計算すると時間がかかるから、なるべくデータをテーブルで持って
やりたいんですけど、どうしたらいいでしょう。

183: 02/08/20 15:48 ID:??? AAS
>>182
データをテーブルにもってくださいと言うほかないけど・・・？

起動時にテーブルを作成するとかあらかじめ作成したテーブルを埋め込むか
データファイルとして読み込むか一度計算した内容をテーブルに保存して次からはそれを使うとか
いろいろ考えられる方法はあるんだけど

184: [agger] 02/09/20 00:44 ID:??? AA×

185: 02/09/20 07:50 ID:??? AA×

186: 02/09/22 14:18 ID:??? AAS
Googleで探したけど、IKってなんか
サンプルプログラム少ないね。

187: 02/09/22 17:29 ID:r/Nn4hC+(1) AAS
IKなぞ使わなくてもペアレントで十分では？

188: 02/09/22 20:00 ID:??? AAS
＞ペアレント
・・・「親」？
すまん。それは親子関係という意味か。
（しかしIKにも親子関係はあるしな・・・）
順運動学のことか。あるいは特定ツールの用語か。

189: 02/09/22 20:01 ID:??? AAS
おかんにコーディングしてもらうって意味だったりして。

190: 02/09/23 14:48 ID:??? AAS
＞ペアレント
おそらくLWなどの邦訳版リファレンスに登場する造語だろう。
そっち系のツールを使う人間は「○○にペアレントして〜云々」
というような表現を用いる場合がある。
ボーンや親子関係を定義することを意味するらしい。
ツール固有のローカルな表現ゆえ、一般には通用しない。

191: sage 03/01/25 16:31 ID:19Xgpo8K(1) AAS
外部ﾘﾝｸ[htm]:www.martinb.com

192: 03/09/23 03:33 ID:HNIyLmTg(1) AAS
金Ｑ不浄

193: 03/09/23 06:01 ID:z7Hx+/Ad(1) AAS
外部ﾘﾝｸ[cgi]:www.shitamachi.net

194: 03/09/27 23:01 ID:trIkbaB6(1) AAS
3へー

195: 04/02/05 00:46 ID:kQY3Ov19(1) AAS
最初のサラマンダのドラゴンの動きはなんかぎごちない
グラIIからは割とぐるっと時機を囲んでくれる

196: 04/06/21 18:42 ID:uNmG74S6(1) AAS
移動方向が８方向しかないから。。。とか（適当）

197: 04/08/12 04:11 ID:OgSji0FJ(1) AAS
パターン数が少なかったからでは？
パイプの連結みたいな形だったような・・・覚えて無いけど。

198: 2005/06/05(日)04:58 ID:7hEgRYs5(1) AAS
ho

199: 2005/06/10(金)11:35 ID:ej8f0LVD(1) AAS
グラ?のスネークオプション・・・
アーケード版とSFC版で動きが全く違うようだが・・・
どういうアルゴリズムになっているんだろう・・・
「慣性が働くオプション」と説明されてはいたが・・・
とくにアーケード版なんか
つけた瞬間は自機からとんでもなく遠い位置に出現したりするんだが

200: 2005/06/13(月)17:02 ID:mTx/s9Du(1) AAS
200!!

201: [hage] 2005/07/25(月)09:07 ID:vqU8Y+zn(1) AAS
ActionScriptでお願いします。
もしくは作例があれば教えて下さい。
お願いします。

202: 2005/07/25(月)18:29 ID:BV0YUEv6(1) AAS
嫌です。

上下前次 1-新書関写板覧索設栞歴

あと 124 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.032s