How can I fill the blue space between two curves, for example $\sin$ and $\cos$, with random points? What if they are two BezierCurves instead of functions?
$\begingroup$ $\endgroup$
1 
1 Answer
$\begingroup$ 
$\endgroup$
1 Here is a solution equivalent to the one posted in the comments:
With[{n = 1*^4}, Graphics[{Directive[Blue, AbsolutePointSize[1]], Point[RandomPoint[ImplicitRegion[Between[y, {{Cos[x], Sin[x]}, {Sin[x], Cos[x]}}], {{x, 0, 2 π}, {y, -1, 1}}], n]]}, Frame -> True]] 
(Note that this throws a redundant RandomPoint::unbndreg message, even tho bounds have been explicitly specified in ImplicitRegion[]. You can ignore it here.)
answered Apr 21, 2017 at 16:59
J. M.'s missing motivation
127k11 gold badges411 silver badges590 bronze badges
- $\begingroup$ It really shows amazing capabilities of Mathematica. $\endgroup$yarchik– yarchik2021-02-13 17:17:30 +00:00Commented Feb 13, 2021 at 17:17
Graphics[Point[RandomPoint[ImplicitRegion[Cos[x] <= y <= Sin[x] || Sin[x] <= y <= Cos[x], {{x, 0, 2 π}, {y, -1, 1}}], 1*^4]]]. $\endgroup$