14 lines
186 B
Text
14 lines
186 B
Text
|
open window 100, 100
|
||
|
|
clear window
|
||
|
|
|
||
|
|
for i = 1 to 100
|
||
|
|
repeat
|
||
|
|
x = ran(30)-15
|
||
|
|
y = ran(30)-15
|
||
|
|
r = sqr(x*x + y*y)
|
||
|
|
until 10 <= r and r <= 15
|
||
|
|
color 255, 0, 0
|
||
|
|
dot x+15, y+15
|
||
|
|
next i
|
||
|
|
end
|