 drosofff
12/25/2016 - 9:53 PM

## Work on morula

Work on morula

``````# this one give a relatively compact morula
colorvector=colors()[abs(rnorm(256,100,15))]
symbols(rnorm(5000,1,10), rnorm(5000,1,10), circles = runif(5000)*1.3, bg = colorvector, inches = FALSE, fg=colorvector)

# ou avec rhyper that gives nicely distributed concentric circles
symbols(rhyper(5000,10,10,10)*1.5, rhyper(5000,10,10,10),
circles = runif(5000)*0.5, bg = colorvector, inches = FALSE, fg=colorvector)
# the same as above but squares instead of circles
symbols(rhyper(5000,10,10,10)*1.5, rhyper(5000,10,10,10),
squares= runif(5000)*0.5, bg = colorvector, inches = FALSE, fg=colorvector)

# alternate color scale for the above codes
colorvector=colors()[abs(rnorm(256,150,40))]

# More compact morula that is closer to real morulas, and still color scale variation
colorvector=colors()[abs(rnorm(256,100,20))]
symbols(rhyper(5000,10,10,10)*1.5, rnorm(5000,10,10), circles = runif(5000,1,4)*0.3, bg = colorvector, inches = FALSE, fg=colorvector)
symbols(rhyper(5000,10,10,10)*1.5, rhyper(5000,10,10,10)*1.5, circles = runif(5000,1,4)*0.3, bg = colorvector, inches = FALSE, fg=colorvector)

``````