(defun maprange (a1 a2 b1 b2 s)
   (+ b1 (/ (* (- s a1) (- b2 b1)) (- a2 a1))))

(dotimes (i 10)
  (princ (maprange 0.0 10.0 -1.0 0.0 i))
  (terpri))