HSPポータル
サイトマップ お問い合わせ


HSPTV!掲示板


未解決 解決 停止 削除要請

2019
1006
shinOBAQで通り抜けてしまう2解決


shin

リンク

2019/10/6(Sun) 13:42:32|NO.88596

OBAQを勉強しています。
qaddmodelで6角形を作りました。
何故か他のオブジェクトを通り抜けてしまいます。
3角形や4角形なら通り抜けてしまいませんでした。
何故か分かる人はいますか?

#include "obaq.as"
screen 0,320,240:title "OBAQ"
qreset

qaddpoly obj1, 5, 40, 10,, 5, 5

shape = -5, -2, -5, 2, 5, 2, 5, -1, -4, -1, -4, -2, -5, -2
; qaddmodel obj2,shape,6,40,40,,4,4
qaddmodel obj2,shape,,40,40,,4,4


*main
redraw 0
color:boxf
qexec
qdraw
redraw
await 20
goto *main



この記事に返信する


暇人

リンク

2019/10/6(Sun) 15:52:41|NO.88597

>必ず左回り(反時計回り)で指定し、凸面体でなければなりません。
>1つのオブジェクトに複数の凸面体を内包させることも可能です。
>その場合は、左回りで指定する座標の最後を、最初の座標と同一にして閉じた形にした後で、
>新しい別な形の座標を指定するようにしてください。

こうする必要がある感じ

#include "obaq.as" screen 0,320,240:title "OBAQ" qreset qaddpoly obj1, 5, 40, 10,, 5, 5 shape = -5, -1, -5, 2, 5, 2, 5, -1, -5, -1, -4, -1, -4, -2, -5, -2, -5, -1 qaddmodel obj2,shape,,40,40,,4,4 *main redraw 0 color:boxf qexec qdraw redraw await 20 goto *main



shin

リンク

2019/10/6(Sun) 17:25:50|NO.88599

ありがとうございます。
そういう事だったのですね。
見落としていました。



ONION software Copyright 1997-2021(c) All rights reserved.