applications.collages.collageAlgebra:
  {
    ntColour = const(.8),
    
    curve = { filledCurve((0,0) left (1/10*cos(75),1/10*sin(75)) right (1/3*cos(75),1/3*sin(75)),
              (2/3*cos(60)+1/3,2/3*sin(60)) right (1/2*cos(60),-1/2*sin(60)),
              (1/3,1/20) left (1/3*cos(30),1/3*sin(30)) right (0,0),
              (1,0) left (-1/3*cos(15), -1/3*sin(15)) right (-2/3*cos(15), -2/3*sin(15))) },
        
    sample-outline = { curve((0,0) left (0,0) right (1/3*cos(75),1/3*sin(75)),
              (2/3*cos(60)+1/3,2/3*sin(60)) right (1/2*cos(60),-1/2*sin(60)),
              (1/3,1/20) left (1/3*cos(30),1/3*sin(30)) right (0,0),
              (1,0) left (-1/3*cos(15), -1/3*sin(15))) },
    sample-filled = { filledCurve((0,0) left (1/10*cos(75),1/10*sin(75)) right (1/3*cos(75),1/3*sin(75)),
              (2/3*cos(60)+1/3,2/3*sin(60)) right (1/2*cos(60),-1/2*sin(60)),
              (1/3,1/20) left (1/3*cos(30),1/3*sin(30)) right (0,0),
              (1,0) left (-1/3*cos(15), -1/3*sin(15)) right (-2/3*cos(15), -2/3*sin(15)))[#ntColour,#ntColour,#ntColour] },
    sample = #sample-filled + #sample-outline,
    
    C = #curve,
    
    f1 = scale(1/3,-1/3) . rotate(60),
    f2 = scale(-1/3,1/3) . translate(2/3,0) . rotate(60),
    f3 = scale(-1/3,1/3) . translate(1/3,0) . rotate(-60) . translate(2/3,0) . rotate(60),
    f4 = scale(-1/3,1/3) . translate(1/3,0) . rotate(-120) . translate(2/3,0) . rotate(60) . translate(1/3,0),
    f5 = scale(sqrt(3)/3) . rotate(30) . translate(1/3,0),
    f6 = scale(1/3,-1/3) . translate(1/3,0),
    f7 = scale(-1/3,1/3) . translate(1,0),
    F = <f1,f2,f3,f4,f5,f6,f7>,
    
    switch = scale(-1,1) . translate(1,0),
    g1 = use(switch) . use(f1),
    g2 = use(switch) . use(f2),
    g3 = use(switch) . use(f3),
    g4 = use(switch) . use(f4),
    g5 = use(switch) . use(f5),
    g6 = use(switch) . use(f6),
    g7 = use(switch) . use(f7),
    G = <g1,g2,g3,g4,g5,g6,g7>
    
    
  }
