# File rongo.rb, line 165
  def squareview
    x= pgqvp(1)
    p x
    dx = x[1]-x[0]
    dy = x[3]-x[2]
    if  dx > dy
      x[1] = x[0]+dy
    else
      x[3] = x[2]+dx
    end
    p x
    pgvsiz x[0], x[1], x[2], x[3]
  end