;;; Usage: (make-anime (pgm-file->painter "sicp.ppm") "anime.ps")
;;;  The postscript file generated by this procedure should be
;;;  converted to PDF.  You will see its animation.
;;;                     Enjoy,
;;;                             Hiroshi "Gitchang" Okuno

; (load 'tk)
; (load 'pict)
; (load 'pict-test)

(define (make-anime . args)
  (let ((painter (car args))
	(file (cdr args)) )
    (forget-canvas)
    (make-canvas frm1)
    (painter frm1)
    (clear)
    ((square-limit painter 1) frm1)
    (clear)
    ((square-limit painter 2) frm1)
    (clear)
    ((square-limit painter 3) frm1)
    (clear)
    ((square-limit painter 4) frm1)
    (clear)
    ((square-limit painter 5) frm1)
    (if file (output-canvas (car file))) ))