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

16 lines
231 B
Text

g = new graphics
count = 0
do
{
x = random[-15,15]
y = random[-15,15]
r = sqrt[x^2 + y^2]
if 10 <= r and r <= 15
{
count = count + 1
g.fillEllipseCenter[x,y,.3, .3]
}
} while count < 100
g.show[]