1987年的旧杂志中的PostScript列表错误

时间:2019-07-10 13:39:50

标签: postscript

这里是杂志扫描: 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经验已经用尽。我想念什么?

任何指针或帮助表示赞赏。谢谢!

1 个答案:

答案 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通话有关。)祝您好运。