字体 header 中的错误魔法值:clisp 中的#x0A3B3B3B(预期为#x00010000 或#x74727565 或#x74746366)
Bad magic value in font header: #x0A3B3B3B (expected #x00010000 or #x74727565 or #x74746366) in clisp
我是 clisp 的新手,正在尝试编写一个 vecto
函数 radiant-lambda
:
(defun radiant-lambda (file)
(with-canvas (:width 80 :height 80)
(let ((font (get-font "times.ttf"))
(step (/ pi 7)))
(set-font font 40)
(translate 45 45)
(draw-centered-string 0 -10 #(#x3BB))
(set-rgb-stroke 1 0 0)
(centered-circle-path 0 0 35)
(stroke)
(set-rgba-stroke 0 0 1.0 0.5)
(set-line-width 4)
(dotimes (i 14)
(with-graphics-state
(rotate (* i step))
(move-to 30 0)
(line-to 40 0)
(stroke)))
(save-png file))))
但是我得到了错误
Bad magic value in font header: #x0A3B3B3B (expected #x00010000 or #x74727565 or #x74746366) [Condition of type ZPB-TTF::BAD-MAGIC].
我假设在调用此函数时我错误地使用了参数并提出了这个问题 (),但根据那里的一项建议显然“times.ttf”字体是问题所在。
请让我知道这里应该如何给出字体。
您使用的 times.ttf
文件似乎实际上不是 ttf
文件。你从哪里弄来的?
由于字节 0x0A3B3B3B
转换为一个换行符后跟三个分号,我怀疑它是一个重命名的 lisp 文件。
我是 clisp 的新手,正在尝试编写一个 vecto
函数 radiant-lambda
:
(defun radiant-lambda (file)
(with-canvas (:width 80 :height 80)
(let ((font (get-font "times.ttf"))
(step (/ pi 7)))
(set-font font 40)
(translate 45 45)
(draw-centered-string 0 -10 #(#x3BB))
(set-rgb-stroke 1 0 0)
(centered-circle-path 0 0 35)
(stroke)
(set-rgba-stroke 0 0 1.0 0.5)
(set-line-width 4)
(dotimes (i 14)
(with-graphics-state
(rotate (* i step))
(move-to 30 0)
(line-to 40 0)
(stroke)))
(save-png file))))
但是我得到了错误
Bad magic value in font header: #x0A3B3B3B (expected #x00010000 or #x74727565 or #x74746366) [Condition of type ZPB-TTF::BAD-MAGIC].
我假设在调用此函数时我错误地使用了参数并提出了这个问题 (
请让我知道这里应该如何给出字体。
您使用的 times.ttf
文件似乎实际上不是 ttf
文件。你从哪里弄来的?
由于字节 0x0A3B3B3B
转换为一个换行符后跟三个分号,我怀疑它是一个重命名的 lisp 文件。