Home » Archimedes archive » Zipped Apps » View » !View/FontLib/Effects/rays
!View/FontLib/Effects/rays
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Zipped Apps » View |
| Filename: | !View/FontLib/Effects/rays |
| Read OK: | ✔ |
| File size: | 0111 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
�PS/rays { % syntax x rays ( x = 1 does rays above, -1 below, 2 all round )
�PS/x exch def
�PS gsave
�PS( entered rays ) print
�PS currentpoint translate
�PS 0 1 180
�PS { pop x rotate
�PS 0 0 moveto
�PS 300 0 lineto
�PS stroke
�PS } for
�PS grestore
�PS} def
00000000 80 50 53 2f 72 61 79 73 20 20 7b 20 20 20 20 20 |.PS/rays { |
00000010 20 25 20 73 79 6e 74 61 78 20 20 78 20 72 61 79 | % syntax x ray|
00000020 73 20 28 20 78 20 3d 20 31 20 64 6f 65 73 20 72 |s ( x = 1 does r|
00000030 61 79 73 20 61 62 6f 76 65 2c 20 2d 31 20 62 65 |ays above, -1 be|
00000040 6c 6f 77 2c 20 32 20 61 6c 6c 20 72 6f 75 6e 64 |low, 2 all round|
00000050 20 29 0d 80 50 53 2f 78 20 65 78 63 68 20 64 65 | )..PS/x exch de|
00000060 66 0d 80 50 53 20 67 73 61 76 65 0d 80 50 53 28 |f..PS gsave..PS(|
00000070 20 65 6e 74 65 72 65 64 20 72 61 79 73 20 29 20 | entered rays ) |
00000080 70 72 69 6e 74 0d 80 50 53 20 63 75 72 72 65 6e |print..PS curren|
00000090 74 70 6f 69 6e 74 20 74 72 61 6e 73 6c 61 74 65 |tpoint translate|
000000a0 0d 80 50 53 20 30 20 31 20 31 38 30 0d 80 50 53 |..PS 0 1 180..PS|
000000b0 20 7b 20 70 6f 70 20 78 20 72 6f 74 61 74 65 0d | { pop x rotate.|
000000c0 80 50 53 20 20 20 30 20 30 20 6d 6f 76 65 74 6f |.PS 0 0 moveto|
000000d0 0d 80 50 53 20 20 20 33 30 30 20 30 20 6c 69 6e |..PS 300 0 lin|
000000e0 65 74 6f 0d 80 50 53 20 20 20 73 74 72 6f 6b 65 |eto..PS stroke|
000000f0 0d 80 50 53 20 7d 20 66 6f 72 0d 80 50 53 20 67 |..PS } for..PS g|
00000100 72 65 73 74 6f 72 65 0d 80 50 53 7d 20 64 65 66 |restore..PS} def|
00000110 0d |.|
00000111 
.