RosettaCodeData/Task/Constrained-random-points-on-a-circle/BASIC256/constrained-random-points-on-a-circle.basic
2023-07-01 13:44:08 -04:00

12 lines
199 B
Text

graphsize 31, 31
for i = 1 to 100
do
x = int(rand * 30) - 15
y = int(rand * 30) - 15
r = sqr(x*x + y*y)
until 10 <= r and r <= 15
color rgb(255, 0, 0)
plot(x+15, y+15)
next i
end