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


HSPTV!掲示板


未解決 解決 停止 削除要請

2008
0607
Quiet足跡4未解決


Quiet

リンク

2008/6/7(Sat) 22:38:54|NO.16561

マウスアイコンが通った跡をpsetで点々と表示させたいんですが、

screen 0,500,350
oo=100 dim x,oo dim y,oo repeat oo x.cnt=mousex:y.cnt=mousey loop *kuri redraw 0 color 0,0,0:boxf color 255,255,255 repeat oo if (sx!mousex)or(sy!mousey):x.0=sx:y.0=sy:repeat oo-1:x(e+1)=x(e):y(e+1)=y(e):e+:loop:e=0 pset x.cnt,y.cnt loop redraw 1 sx=mousex:sy=mousey await 0 goto *kuri
できません。教えてください。すいません。



この記事に返信する


f

リンク

2008/6/7(Sat) 22:49:57|NO.16562

・・・。
消さなきゃ良いんでね?



flory

リンク

2008/6/7(Sat) 23:59:31|NO.16563

足跡の数は常に一定(提示されているサンプルなら100個)にしたいんですか?
こういうことかな?

screen 0,500,350 oo=100 dim x,oo dim y,oo repeat oo x.cnt=-1 y.cnt=-1 loop repeat redraw 0 color 0,0,0:boxf color 255,255,255 x.(cnt\oo)=mousex y.(cnt\oo)=mousey repeat oo pset x.cnt,y.cnt loop redraw 1 wait 1 loop



begriff

リンク

2008/6/8(Sun) 00:12:24|NO.16564

いかがでしょうか。

#define mmousex (ginfo(0)-(ginfo(4)+(ginfo(10)-ginfo(12))/2)) #define mmousey (ginfo(1)-(ginfo(5)+(ginfo(11)-ginfo(13))-(ginfo(10)-ginfo(12))/2)) screen 0,500,350 oo=100 dim x,oo dim y,oo repeat oo x(cnt)=mmousex:y(cnt)=mmousey loop color 0,0,0:boxf repeat sx=mmousex:sy=mmousey if (sx!x(0))or(sy!y(0)){ redraw 0 color 0,0,0:boxf repeat oo-1 color 48,48,128 line x(oo-cnt-1),y(oo-cnt-1),x(oo-cnt-2),y(oo-cnt-2) color 255 pset x(oo-cnt-1),y(oo-cnt-1) x(oo-cnt-1)=x(oo-cnt-2) y(oo-cnt-1)=y(oo-cnt-2) loop x.0=sx:y.0=sy color 48,48,128 line x(0),y(0),x(1),y(1) redraw 1 } wait 1 loop



Quiet

リンク

2008/6/8(Sun) 00:18:11|NO.16565

返信ありがとうございます。
さっそく使ってみようと思います。



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