(load "evett-5.lisp")
(load "madeupalgorithm.lisp")

(defparameter *x-freqs*
  '((1.46833  4)
    (1.476159 0)
    (1.4839879 18)
    (1.4918169 0)
    (1.4996458 0)
    (1.5074748 114)
    (1.5153037 0)
    (1.5231327 4106)
    (1.5309616 27)
    (1.5387906 0)))

(defparameter *y-freqs*
  '((1.46833  4)
    (1.476159  0)
    (1.4839879  18)
    (1.4918169  0)
    (1.4996458  0)
    (1.5074748  114)
    (1.5153037  0)
    (1.5231327  4106)
    (1.5309616  27)
    (1.5387906  0)))

(defparameter *sd-freqs*
  '((1  4024)
    (81/10  0)
    (76/5  235)
    (223/10  0)
    (147/5  7)
    (73/2  0)
    (218/5  0)
    (507/10  2)
    (289/5  0)
    (649/10  1)))

(defmodel madeup
	     ((:scale a 1e-4 .5 1e-4)
	      (:scale b 1e-4 .5 1e-4)
	      (:scale c 1e-4 .5 1e-4)
	      (:scale d 1e-4 .5 1e-4)
	      (:scale e 1e-6 .001 1e-6)
	      (:scale f 1e-6 .001 1e-6)
	      (:scale g 1e-6 .001 1e-6)
	      (:scale h 1e-6 .001 1e-6)
	      (:scale i .01 10 .01)
	      (:scale j .01 10 .01)
	      (:scale k .01 10 .01)
	      (:scale l .01 10 .01))


    ((format t "Wut~%")
     (let ((small (/ 1 most-positive-fixnum))
       (abs (* .1 (/ (expt (* (- b a) (- d c)) (+ e f (/ g (+ h small))))
		      (+ (* (/ (+ i j) 2) (/ k (+ l small) 5)) small)))))))
                          

    ((format t "Start!~%")
     (let ((s (demo-madeup-asterisk)) str (xf 0))
       (labels ((between (left right val) (and (<= left val) (<= val right))))
         
         (dolist (NANER (gethash 'a s))
           (when (between (first NANER) (second NANER) (value a))
             (configure a :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))
             (format t "Value: ~A~%" (round (* 100 (first (last NANER)))))))

         (dolist (NANER (gethash 'b s))
           (if (between (first NANER) (second NANER) (value b))
               (configure b :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))

         (dolist (NANER (gethash 'c s))
           (if (between (first NANER) (second NANER) (value c))
               (configure c :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
         
         (dolist (NANER (gethash 'd s))
           (if (between (first NANER) (second NANER) (value d))
               (configure d :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
         
         (dolist (NANER (gethash 'e s))
           (if (between (first NANER) (second NANER) (value e))
               (configure e :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
               
         (dolist (NANER (gethash 'f s))
           (if (between (first NANER) (second NANER) (value f))
               (configure f :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))

         (dolist (NANER (gethash 'g s))
           (if (between (first NANER) (second NANER) (value g))
               (configure g :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
         
         (dolist (NANER (gethash 'h s))
           (if (between (first NANER) (second NANER) (value h))
               (configure h :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
         
         (dolist (NANER (gethash 'i s))
           (if (between (first NANER) (second NANER) (value i))
               (configure i :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
               
         (dolist (NANER (gethash 'j s))
           (if (between (first NANER) (second NANER) (value j))
               (configure j :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))

         (dolist (NANER (gethash 'k s))
           (if (between (first NANER) (second NANER) (value k))
               (configure k :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER)))))))))
         
         (dolist (NANER (gethash 'l s))
           (if (between (first NANER) (second NANER) (value l))
               (configure l :troughcolor (intern (format nil "gray~A" (round (* 100 (first (last NANER))))))))) 

         (format t "END~%"))))
  
  (format t "Woot~%")
  (new-demo-madeup-fastmap)
  (format-gnuplot "unset key")
  (format-gnuplot "set title 'Madeup Data'")
  (set-labels "generated x" "generated y" "LR")
  (new-new-generate-thumbs 30 40 40 30)
  (format-gnuplot "splot 'test.dat'"))
  

(defmacro new-new-generate-thumbs (viewx viewy dx dy)
  `(progn
     (format-gnuplot "set terminal gif")
     (format-gnuplot "set size .6,.6")
     (dotimes (i 3)
       (format-gnuplot (format nil "set view ~A,~A" (+ ,viewx (* (1+ i) ,dx)) (+ ,viewy (* (1+ i) ,dy))))
       (format-gnuplot (format nil "set output \"~A.gif\"" i))
       (format-gnuplot "splot 'test.dat'"))
     (format-gnuplot "set terminal wxt")
     (format-gnuplot "set size 1,1")
     (format-gnuplot "set output")))