- (make-random-triangles [s: (S 0.0)] [m: (M 0.5)] [l: (L 1.0)] [randoms: (RANDOMS (random-real/current))]) -> (procedure () real)procedure
S is real.
M is real in [S L].
L is real in ]S +inf.0[.
RANDOMS is a (procedure () real)
(use srfi-27-triangles)