applications.collages.collageAlgebra:
  {
    ntColour = const(.8),
    c = const(cos(30)),
        
    l = { polygon((0,1),(#c,.5),(#c,-.5),(0,-1),(-#c,-.5),(-#c,.5)) },
    
    sample-outline = #l,
    sample-filled = { filledPolygon((0,1),(#c,.5),(#c,-.5),(0,-1),(-#c,-.5),(-#c,.5))[#ntColour,#ntColour,#ntColour] },
    sample = #sample-filled + #sample-outline,

    scaledown = scale(.1),
    S = #sample + { "S" [ "Serif" italic ] size 14 at (0,0) transformed by scaledown },
    A1 = #sample + { "A" [ "Serif" italic ] size 14 at (-2.5,0) transformed by scaledown,
                     "1" [ "Serif" ] size 9 at (3,-3) transformed by scaledown },
    A2 = #sample + { "A" [ "Serif" italic ] size 14 at (-2.5,0) transformed by scaledown,
                     "2" [ "Serif" ] size 9 at (3.5,-3) transformed by scaledown },
    
    id = scale(1),
    f1 = scale(.95) . rotate(5.7),
    F1 = <#l,f1>,
    
    f2 = scale(.95) . rotate(-5.7),
    F2 = <#l,f2>,
    
    g1 = scale(.5) . translate(-.433,-.25),
    g2 = scale(.5) . translate(.433,-.25),
    g3 = scale(.5) . translate(0,.5),
    G0 = <#l, g1,g2,g3>,
    G  = <g1,g2,g3>
    
  }
