(setq frame-resize-pixelwise t)

(defvar left 500)
(defvar top 100)
(defvar width 800)
(defvar height 400)

(defun reset ()
  (interactive)
  (setq left 500)
  (setq top 100)
  (setq width 800)
  (setq height 400)
  (modify-frame-parameters
   nil `((width . (text-pixels . ,width))
	 (height . (text-pixels . ,height))
	 (left . ,left) (top . ,top))))

(defun foo- ()
  (interactive)
  (let ((i 0))
    (while (< i 100)
      (setq left (- left 3))
      (setq width (+ width 3))
      (setq i (1+ i))
      (modify-frame-parameters
       nil `((width . (text-pixels . ,width))
	     (height . (text-pixels . ,height))
	     (left . ,left) (top . ,top)))
;;       (redisplay t)
;;       (sleep-for 0.1)
      )))

(defun foo+ ()
  (interactive)
  (let ((i 0))
    (while (< i 100)
      (setq left (+ left 3))
      (setq width (- width 3))
      (setq i (1+ i))
      (modify-frame-parameters
       nil `((width . (text-pixels . ,width))
	     (height . (text-pixels . ,height))
	     (left . ,left) (top . ,top)))
;;       (redisplay t)
;;       (sleep-for 0.1)
      )))

(defun bar- ()
  (interactive)
  (let ((i 0))
    (while (< i 100)
      (setq left (- left 3))
      (setq width (+ width 3))
      (setq i (1+ i))
      (modify-frame-parameters
       nil `((width . (text-pixels . ,(+ (frame-text-width) 3)))
	     (height . (text-pixels . ,height))
	     (left . ,left) (top . ,top)))
;;       (redisplay t)
;;       (sleep-for 0.1)
      )))

(defun bar+ ()
  (interactive)
  (let ((i 0))
    (while (< i 100)
      (setq left (+ left 3))
      (setq width (- width 3))
      (setq i (1+ i))
      (modify-frame-parameters
       nil `((width . (text-pixels . ,(- (frame-text-width) 3)))
	     (height . (text-pixels . ,height))
	     (left . ,left) (top . ,top)))
;;       (redisplay t)
;;       (sleep-for 0.1)
      )))