/***************************************************************/ /* PostScript Phono Cover */ /* Harald Zottmann */ /***************************************************************/ @VER 1.0 @REP\@\\ @REP(@\( @REP)@\) @TXT%!PS-Adobe-3.0 EPSF-3.0 @TXT%%BoundingBox 28 368 324 623 @TXT/cm {28.3465 mul} def @TXT/home {1 cm 22 cm moveto} def @TXTgsave @TXT/Courier findfont 7.2 scalefont setfont @TXTnewpath @TXThome @TXT 5.2 cm 0 cm rlineto @TXT 0 cm -8.4 cm rlineto @TXT -5.2 cm 0 cm rlineto @TXT 0 cm 8.4 cm rlineto @TXT 0 cm -0.4 cm rlineto @TXT 5.2 cm 0 cm rlineto @TXT 0 cm -0.8 cm rlineto @TXT -5.2 cm 0 cm rlineto @TXTstroke @TXThome 0.1 cm -0.3 cm rmoveto (@%s@00@00@TXT) show @TXThome 0.1 cm -0.7 cm rmoveto (@%s@00@01@TXT) show @TXThome 0.1 cm -1.1 cm rmoveto (@%s@00@02@TXT) show @TXThome 0.1 cm -1.5 cm rmoveto (@%s@00@03@TXT) show @TXThome 0.1 cm -1.9 cm rmoveto (@%s@00@04@TXT) show @TXThome 0.1 cm -2.3 cm rmoveto (@%s@00@05@TXT) show @TXThome 0.1 cm -2.7 cm rmoveto (@%s@00@06@TXT) show @TXThome 0.1 cm -3.1 cm rmoveto (@%s@00@07@TXT) show @TXThome 0.1 cm -3.5 cm rmoveto (@%s@00@08@TXT) show @TXThome 0.1 cm -3.9 cm rmoveto (@%s@00@09@TXT) show @TXThome 0.1 cm -4.3 cm rmoveto (@%s@00@10@TXT) show @TXThome 0.1 cm -4.7 cm rmoveto (@%s@00@11@TXT) show @TXThome 0.1 cm -5.1 cm rmoveto (@%s@00@12@TXT) show @TXThome 0.1 cm -5.5 cm rmoveto (@%s@00@13@TXT) show @TXThome 0.1 cm -5.9 cm rmoveto (@%s@00@14@TXT) show @TXThome 0.1 cm -6.3 cm rmoveto (@%s@00@15@TXT) show @TXThome 0.1 cm -6.7 cm rmoveto (@%s@00@16@TXT) show @TXThome 0.1 cm -7.1 cm rmoveto (@%s@00@17@TXT) show @TXThome 0.1 cm -7.5 cm rmoveto (@%s@00@18@TXT) show @TXThome 0.1 cm -7.9 cm rmoveto (@%s@00@19@TXT) show @TXTgrestore @TXTshowpage