返信が遅れて申し訳ありません。
> ポイント取得と画面へのマウスによる直線描画はtbasicでも可能でしょうか?
操作性は今一つですが,可能ではと思います。例はSamples\Graphicの中にあるgraphwm.tbtにあります。
ヘルプのMouseの項にも説明はあります。
分かりにくいところもあると思いますので,簡単な例を以下に挙げます。実行してみてください。
このプログラムの終了はキーボードからEを入力します。
グラフ画面上で右クリック,左クリックをしてみてください。
' マウス操作の例
Public xp, yp
GScreen(600,600)
mathgraph on
window (0,0)-(600,600)
While In$<>"E"
In$=Inkey$
sleep(10)
mouse(ms,mx,my)
If ms>=2 then Call MouseOp(ms,mx,my)
Wend
End
Sub MouseOp(ms,mx,my)
if ms=3 then
xp=mx: yp=my
Circle(mx,my),10,,,,,F
end if
if ms=2 then
Line (xp,yp)-(mx,my)
xp=mx: yp=my
Circle(mx,my),10,,,,,F
end if
End Sub