たいしたことはないのですが、
いずれ必要になりそうなので、
クリックした２点間に線を引くプログラムを作ってみました。
基本は以前のクリックのと同じです。
---
; クリックした２点間に線を引く
; クリックフラグ [ １回目のクリック:1 | ２回目のクリック:0 ]
bIsFirstClick = 1
; １点目座標(x,y)
dim na1Points, 2
na1Points = 0, 0 ; 初期化(0,0)
onclick gosub *WriteLine
stop
*WriteLine
if( bIsFirstClick=1 ){
; １回目のクリック
; 座標を覚えておくだけ
na1Points(0) = mousex
na1Points(1) = mousey
bIsFirstClick = 0
}else{
; ２回目のクリック
; １点目から現在のマウス位置に線を引く
line na1Points(0), na1Points(1), mousex, mousey
bIsFirstClick = 1
}
return
---
配列の初期化は、前のRedimの記事で紹介した方法を使ってみました。
ちゃちゃっと作れるようになってきたことにちょっと感動。