applications.collages.collageAlgebra:
{

  N = const(0),  % <== change into any number
                 %     from 0=leaf to 100=Koch curve
  
  ntColour = const(.8),
  p = const(#N * (1/100)),
  c = const(10/6 * sqrt(3)),

  tri = { filledPolygon((10,0),(0,12),(-10,0)) },
  sample-outline = { polygon((10,0),(0,12),(-10,0)) },
  sample-arrow = { filledPolygon((-1.2,.8),(1,0),(-1.2,-.8)) },
  sample-filled = {
    filledPolygon((10,0),(0,12),(-10,0))[#ntColour,#ntColour,#ntColour]
    }
    + #sample-outline + #sample-arrow,
  sample = #sample-filled + #sample-outline,
  S = #sample,
  
  f1 = scale(.6 + (1/3 - .6) * #p, .7 + (1/3 - .7) * #p)
       . rotate(20 + (0 - 20) * #p)
       . translate(-1.5 + (-20/3 + 1.5) * #p, 1 + (0 - 1) * #p),
  f2 = scale(.65 + (1/3 - .65) * #p, .7 + (1/3 - .7) * #p)
       . rotate(-20 + (0 + 20) * #p)
       . translate(1 + (20/3 - 1) * #p, 1.5 + (0 - 1.5) * #p),
  f3 = scale(.6 + (1/3 - .6) * #p, .65 + (1/3 - .65) * #p)
       . rotate(5 + (60 - 5) * #p)
       . translate(-.25 + (-5/3 + .25) * #p, 5.5 + (#c - 5.5) * #p),
  f4 = scale(.7 + (1/3 - .7) * #p, .7 + (1/3 - .7) * #p)
       . rotate(2 + (-60 - 2) * #p)
       . translate(.3 + (5/3 - .3) * #p, #c * #p),
  F = < f4, f1, f2, f3 >
  
}
