今日もどこかでHSP初心者が質問ですP19
レス数が900を超えています。1000を超えると表示できなくなるよ。
0928奈々 ◆Xl6OTFSLJ2
NGNGscreen 0,320,240,0
x=80;中心のｘ
y=80;中心のｙ
r=80;半径
color 255,0,0
xx=0-r
repeat r*2
yy=0-r
repeat
if (((xx*xx)+(yy*yy))>(r*r)):yy++:continue
pset x+xx,y+yy:break
loop
yy=r
repeat
if (((xx*xx)+(yy*yy))>(r*r)):yy--:continue
pset x+xx,y+yy:break
loop
xx++
loop
stop
レス数が900を超えています。1000を超えると表示できなくなるよ。