applications.collages.collageAlgebra:
  {
    tile = {
              filledPolygon((0,0), (1,0), (0.7, 0.5))[0,.8,0.2],
              filledPolygon((0,0), (0.7, 0.5), (0,1), (-0.2, 0.5))[.8,.4,0], 
              filledPolygon((0.7, 0.5), (1.2, 0.5), (0.5, 1), (0,1))[.5,0,.5],
              filledPolygon((1.2, 0.5), (1,1), (1.2, 1.5), (0.2, 1.5), (0.5, 1))[0.5,.6,.0]
            },
            
    patch = {
              filledPolygon((0,0), (1,0), (0.7, 0.5))[0,.8,0.2],
              filledPolygon((0,0), (0.7, 0.5), (0,1), (-0.2, 0.5))[.8,.4,0], 
              filledPolygon((0.7, 0.5), (1.2, 0.5), (0.5, 1), (0,1))[.5,0,.5],
              filledPolygon((1.2, 0.5), (1,1), (1.2, 1.5), (0.2, 1.5), (0.5, 1))[0.5,.6,.0],
              polygon((0,0), (1,0), (0.7, 0.5)),
              polygon((0,0), (0.7, 0.5), (0,1), (-0.2, 0.5)), 
              polygon((0.7, 0.5), (1.2, 0.5), (0.5, 1), (0,1)),
              polygon((1.2, 0.5), (1,1), (1.2, 1.5), (0.2, 1.5), (0.5, 1))
            },
            
    t1 = translate(-0.5, 1),
    t2 = translate(.5, -1),
    t3 = translate(-1.2, -0.5),
    t4 = translate(1.2, 0.5),
    
    start = < #patch, t1, t2, t3, t4>,
    up = < #patch, t1, t3, t4 >,
    down = < #patch, t2, t3, t4 >,
    left = < #patch, t3 >,
    right = < #patch, t4 >
  }
