;;; want to plot roughly (-1,1), (-1,1), alpha = 1.32
(define ((henon-map alpha) x y return failure)
  (if (or (> x 1) (< x -1) (> y 1) (< y -1))
      failure)
  (return (- (* x (cos alpha))
	     (* (- y (square x)) (sin alpha)))
	  (+ (* x (sin alpha))
	     (* (- y (square x)) (cos alpha)))))

(

;gnuplot('set terminal png; set xrange[-4:4]; set yrange[-100:100]; set output "/home/bnewbold/fromsage.png"; plot "/home/bnewbold/output";')

(start-gnuplot "huge-output.data")

(define window (frame -1. 1. -1. 1.))

;(explore-map window (henon-map 1.32) 2000)