2750 |
(min-value (aref parameters 1)) |
(min-value (aref parameters 1)) |
2751 |
(max-value (aref parameters 2)) |
(max-value (aref parameters 2)) |
2752 |
(one-percent (/ (- max-value min-value) 100.0)) |
(one-percent (/ (- max-value min-value) 100.0)) |
2753 |
(percentage (truncate (/ (- value min-value) one-percent))) |
(percentage (if (= max-value min-value) |
2754 |
|
0 |
2755 |
|
(truncate (/ (- value min-value) one-percent)))) |
2756 |
(update-time (aref parameters 0)) |
(update-time (aref parameters 0)) |
2757 |
(current-time (float-time)) |
(current-time (float-time)) |
2758 |
(enough-time-passed |
(enough-time-passed |