startshape foo
CF::Size = [s 101 16 y -7]

shape foo
{
  loop -50,51 [x 1] SQUARE[s 0.1 16 x -50 7]
  SQUARE[s 0.1 16 b 1 sat 1 y 7 h if(randint::bernoulli(0.25),0,180)]
  loop 1000 [] {
    CIRCLE[x rand::normal(0,10) a -0.95 y 14]
    CIRCLE[x rand::lognormal(0,1) a -0.95 y 13]
    CIRCLE[x rand::exponential(0.5) a -0.95 y 12]
    CIRCLE[x rand::gamma(2,3) a -0.95 y 11]
    CIRCLE[x rand::weibull(1,5) a -0.95 y 10]
    CIRCLE[x rand::extremeV(0,5) a -0.95 y 9]
    CIRCLE[x rand::chisquared(10) a -0.95 y 8]
    CIRCLE[x rand::cauchy(0,0.1) a -0.95 y 7]
    CIRCLE[x rand::fisherF(5,5) a -0.95 y 6]
    CIRCLE[x rand::studentT(2) a -0.95 y 5]
    CIRCLE[x randint::binomial(10,0.5) a -0.95 y 4]
    CIRCLE[x randint::negbinomial(10,0.5) a -0.95 y 3]
    CIRCLE[x randint::geometric(0.25) a -0.95 y 2]
    CIRCLE[x randint::poisson(10) a -0.95 y 1]
    CIRCLE[x randint::discrete(1,0,0,.01,0,0,1,0,0,1) a -0.95 y 0]
  }
}
