这里是杂志扫描: https://archive.org/details/verbum103unse/page/16
我使用OCR和手动传递来获取原样的文本: https://gist.github.com/gingerbeardman/79d6df2ab08033a37f5eb23162fa6a4c
我非常有信心删除了文件中的所有OCR错误,并使用以下命令对其进行了解析:
$ gs -sDEVICE=nullpage -dNOPAUSE -dBATCH verbum-1-3.ps
我得到的错误在第二个定义中:
{inHard Disk:Logos:Coarse}
{ps}
gsave
63 -63 translate
/ang -30 def
45
{ Icosahedron 72 ang cos mul 72 ang sin mul 24 FaceNos
Dodecahedron -72 ang cos mul -72 ang sin mul 24 FaceNos
6 12 translate 1.03 dup scale /ang ang 24 add store
/ax ax 12 add store /ay ay 4 add store /az az 1 add store
} repeat
grestore
错误:
/二十面体中未定义
但是在这一点上,我半个多世纪前的PostScript经验已经用尽。我想念什么?
任何指针或帮助表示赞赏。谢谢!
答案 0 :(得分:1)
我发现了更多的OCR错误:
10c10
< { Vertex face 3 get get a load pop TurnXYZ pop moveto
---
> { Vertex face 3 get get aload pop TurnXYZ pop moveto
12c12
< {Vertex face 3 -1 roll get get aload pop TurnXYZ popline lineto}
---
> {Vertex face 3 -1 roll get get aload pop TurnXYZ pop lineto}
15c15
< /angcos x px mul y mul z pz mul add add size psize mul sqrt div def
---
> /angcos x px mul y py mul z pz mul add add size psize mul sqrt div def
18c18
< dup 0 1t {pop 0} if
---
> dup 0 lt {pop 0} if
54c54
< /lim 0. 000001 def
---
> /lim 0.000001 def
59c59
< 297 423 translate 0.84 dup scale -306 -336 translate 75 2 -1 atan {pop} setscreen 0.8 setgray
---
> 297 423 translate 0.84 dup scale -306 -396 translate 75 2 -1 atan {pop} setscreen 0.8 setgray
但是我无法使其运行。 (我天真的猜测是,它与setscreen
通话有关。)祝您好运。