２点クリックで直線が書けたら、
よくあるペイントツールのように、ドラッグで線を描きたくなりました。
これもこないだのドラッグのソースをコピペして
ほんのちょっと修正したら動きました。
---
; ドラッグで線を引く
; 線の１点目
dim naPos,2
naPos = 0, 0
*main
stick key,$300
if( key&$100 ){
; ドラッグ開始
; 開始位置を記録
naPos(0) = mousex
naPos(1) = mousey
goto *main2
}
await 15
goto *main
*main2
stick key,$300
if( (key&$100)=0 ){
; ドラッグ終了
goto *main
}
; 線の１点目と現在位置が違っていたら
; １点目から現在位置まで線を引く
if( (mousex != naPos(0)) or (mousey != naPos(1)) ){
; 違っているから書く
line naPos(0), naPos(1), mousex, mousey
; 次のために、現在位置を記録
naPos(0) = mousex
naPos(1) = mousey
}
await 15
goto *main2
---
ドラッグ中に、直線をこまめに描いてるだけです。
こうなると、
・線の太さを変えるボタンとか
・色をつけるボタンとか
・消すボタンとか
つけたくなるのだけども、
めんどくささが微妙に勝り、実装されることはないのでした。m(_ _)m