callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bug 746467 - 'convert-decimal-to-base' produces erroneous results

Browse Source
This commit is contained in:
Saul Goode
2015-08-15 20:20:19 +02:00
committed by Michael Schumacher
parent b5264ec1be
commit 06bc22b197
1 changed files with 13 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

35
plug-ins/script-fu/scripts/palette-export.scm
View File

@ -18,28 +18,19 @@
; Converts a decimal number to another base. The returned number is a string
(define (convert-decimal-to-base num base)
(define (highest-order num base)
(if (and (<= 0 num) (< num base))
0
(+ 1 (highest-order (quotient num base) base))
)
)
(define (calc base num str)
(let ((max-order (highest-order num base)))
(cond ((not (= 0 max-order))
(let ((num-of-times (quotient
num (inexact->exact (expt base max-order)))))
(calc base
(- num (* num-of-times (expt base max-order)))
(string-append str
(list-ref conversion-digits num-of-times)))
)
)
(else (string-append str (list-ref conversion-digits num)))
))
)
(calc base num "")
)
(if (< num base)
(list-ref conversion-digits num)
(let loop ((val num)
(order (inexact->exact (truncate (/ (log num)
(log base)))))
(result ""))
(let* ((power (expt base order))
(digit (quotient val power)))
(if (zero? order)
(string-append result (list-ref conversion-digits digit))
(loop (- val (* digit power))
(pred order)
(string-append result (list-ref conversion-digits digit))))))))
; Convert a string representation of a number in some base, to a decimal number
(define (convert-base-to-decimal base num-str)