@@ -49,7 +49,7 @@ directions = hasType direction ["up","down","left","right","inward","outward"]
4949positions =
5050 hasType position ["topLeft","midLeft","bottomLeft","midTop","middle"
5151 ,"midBottom","topRight","midRight","bottomRight"] ++
52− hasType (location ==> position)
52+ hasType (location ==> location ==> position)
5353 ["topLeftAt","bottomLeftAt","middleAt","topRightAt","bottomRightAt"] ++
5454 [ "absolute" -: int ==> location, "relative" -: float ==> location ]
5555colors = [ numScheme (\n -> n ==> n ==> n ==> color) "rgb"