The routine constructs a square from the given list l.

The list l can be one of the followings:

+ [p1,p2,'diagonal']: construct the square from two opposite vertices. The output is sqr which is a square.

+ [p1,p2,'adjacent']: construct the square from two adjacent vertices. The output sqr is a list of two squares.

+ [p1,'center'=c]: where p1, c are two points denoting a vertex, and the center of the square respectively. The output is sqr which is a square.

For more details on the squares, use the routine detail, i.e., detail(sqr)

The command with(geometry,MakeSquare) allows the use of the abbreviated form of this command.