Petitverse

'線分01と線分23の当たり判定
DEF CHKCROSS(X0,Y0,X1,Y1,X2,Y2,X3,Y3)
　IF SGN((X1-X0)*(Y2-Y0)-(Y1-Y0)*(X2-X0))!=SGN(X1-X0)*(Y3-Y0)-(Y1-Y0)*(X3-X0))THEN
　　IF SGN((X3-X2)*(Y0-Y2)-(Y3-Y2)*(X0-X2))!=SGN((X3-X2)*(Y1-Y2)-(Y3-Y2)*(X1-X2))THEN
　　　RETURN TRUE
　　ENDIF
　ENDIF
　RETURN FALSE
END
誰か動作確認してくれないかな。