applications.collages.collageAlgebra("squares"):
{  
  sqA1 = {
           polygon((0,0),(-18.5,-18.5),(0,-37),(18.5,-18.5))
         },

  sqA1b = #sqA1,

  sqB1a = #sqA1,
        
  sqB1b = #sqA1,
        
  sqB1c = #sqA1,
        
  sqA2 = #sqA1,

  sqA2b = #sqA1,

  sqB2a = #sqA1,
        
  sqB2b = #sqA1,
        
  sqB2c = #sqA1,
  
  I = { filledPolygon((-37,-37),(37,-37),(37,37),(-37,37))[.7],
        polygon((-37,-37),(37,-37),(37,37),(-37,37)) },
  LR1 = { filledPolygon((0,0),(-37,-37),(37,-37))[.7],
          polygon((0,0),(-37,-37),(37,-37)) },
  LR2 = #LR1,
  L1 = #LR1,
  L2 = #L1,
  M1 = { filledPolygon((0,0),(-18.5,-18.5),(0,-37),(37,-37))[.7],
         polygon((0,0),(-18.5,-18.5),(0,-37),(37,-37)) },
  M2 = #M1,
  R1 = #M1,
  R2 = #R1,

  i1 = rotate(0),
  i2 = rotate(90),
  i3 = rotate(180),
  i4 = rotate(270),
  init = <i1,i2,i3,i4>,
  
  id = scale(1),
  f1 = scale(.5) . translate(-18.5,-18.5),
  f2 = scale(.5) . translate(18.5,-18.5),
  f3 = scale(.5) . translate(-27.75,-27.75),
  f4 = scale(.5) . translate(-9.25,-27.75),
  f5 = scale(.5) . translate(9.25,-27.75),
  f6 = scale(.5) . translate(27.75,-27.75),
  F = <id, f1, f2, f3, f4, f5, f6>,
  G = <id, f2, f5, f6>
 
}
