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