603(2): 名前は開発中のものです。 [sage] 2007/02/03(土) 16:43:24 ID:b0e6Rts8(1/2) AAS
いきなりだが俺もちょこっと参加させてくれ。
とりあえずできそうなのからということで
>64の素数をやってみた。つかってるのはHSP3
よろしくお願いします。

screen 0,800.700,,,
font "MS ゴシック",8
a=2
b=2
c=0
repeat
repeat
if a\b = 0{
if a=b {: pos c\26*30,12*(c/26) : mes ""+a+" " :c++ :break}
else :break
}
if a<b :break
b++
loop
a++
b=2
if c=1000 :break
await 1
loop
stop

こんなので、こういうのができるのに自分でもびっくりだった。
本当にあってるかはよくわからんけど。

107(1): x≠先生かつx＝生徒　⇒　x＝俺 [sage] 04/06/21 18:09 ID:X+fe3iOx(1) AAS
HSP版
#include "hspext.as"

pos 0, 240
repeat 640
emsin sin, cnt\256
line cnt, 240+(sin*240/256)
loop
stop

320(1): 名前は開発中のものです。 [sage] 04/07/14 14:32 ID:hWTGJY1w(1) AAS
>>319
Octtree でググってみ

240(1): HSPが初プログラム@生徒希望 [sage] 04/07/04 19:58 ID:3DUC6+Xf(2/2) AAS
えと、素数はどういうものかはわかるんですが、プログラムというかHSPでの算出方法が…

: 名前は開発中のものです。 [sage] 2007/02/17(土) 17:49:27 ID:x7siGPZt(3/3) AAS
これって
redraw 0
〜
redraw 1

〜の部分に描画するものいれておくと
１の時にまとめて表示されてちらつきがなくなるってことで良いのかな。
何でちらつかないのかはいまいちピンと来ないんだけど。

とりあえずclsのところに↓入れて
redraw 0 :color 255,255,255 :boxf 0+fx,0+fy,max_x+fx,max_y+fy

redraw 1
上を最後の方に入れた。
ただ、動きが重くなるんだね。この命令って処理が重いの？

---

619: 名前は開発中のものです。 [sage] 2007/02/17(土) 20:25:31 ID:pIqCsBKC(1) AA×

---

620

: 名前は開発中のものです。 [sage] 2007/02/21(水) 17:45:56 ID:1pwfm66w(1) AA×

---

625