Home » Archimedes archive » Zipped Apps » ArtWorks » !ArtWorks/Auto/!SPoolTool/SprPrint
!ArtWorks/Auto/!SPoolTool/SprPrint
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 » ArtWorks |
| Filename: | !ArtWorks/Auto/!SPoolTool/SprPrint |
| Read OK: | ✔ |
| File size: | 0125 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/aw_ParaMat{/sph exch def/spw exch def 8{256. div 8 1 roll}repeat/uly exch
def/ulx exch def/ury exch def/urx exch def/lry exch def/lrx exch def/lly
exch def/llx exch def[lrx llx sub spw div lry lly sub spw div ulx llx sub
sph div uly lly sub sph div llx lly]concat}bind def/PAR{aw_ParaMat}def
00000000 2f 61 77 5f 50 61 72 61 4d 61 74 7b 2f 73 70 68 |/aw_ParaMat{/sph|
00000010 20 65 78 63 68 20 64 65 66 2f 73 70 77 20 65 78 | exch def/spw ex|
00000020 63 68 20 64 65 66 20 38 7b 32 35 36 2e 20 64 69 |ch def 8{256. di|
00000030 76 20 38 20 31 20 72 6f 6c 6c 7d 72 65 70 65 61 |v 8 1 roll}repea|
00000040 74 2f 75 6c 79 20 65 78 63 68 0a 64 65 66 2f 75 |t/uly exch.def/u|
00000050 6c 78 20 65 78 63 68 20 64 65 66 2f 75 72 79 20 |lx exch def/ury |
00000060 65 78 63 68 20 64 65 66 2f 75 72 78 20 65 78 63 |exch def/urx exc|
00000070 68 20 64 65 66 2f 6c 72 79 20 65 78 63 68 20 64 |h def/lry exch d|
00000080 65 66 2f 6c 72 78 20 65 78 63 68 20 64 65 66 2f |ef/lrx exch def/|
00000090 6c 6c 79 0a 65 78 63 68 20 64 65 66 2f 6c 6c 78 |lly.exch def/llx|
000000a0 20 65 78 63 68 20 64 65 66 5b 6c 72 78 20 6c 6c | exch def[lrx ll|
000000b0 78 20 73 75 62 20 73 70 77 20 64 69 76 20 6c 72 |x sub spw div lr|
000000c0 79 20 6c 6c 79 20 73 75 62 20 73 70 77 20 64 69 |y lly sub spw di|
000000d0 76 20 75 6c 78 20 6c 6c 78 20 73 75 62 0a 73 70 |v ulx llx sub.sp|
000000e0 68 20 64 69 76 20 75 6c 79 20 6c 6c 79 20 73 75 |h div uly lly su|
000000f0 62 20 73 70 68 20 64 69 76 20 6c 6c 78 20 6c 6c |b sph div llx ll|
00000100 79 5d 63 6f 6e 63 61 74 7d 62 69 6e 64 20 64 65 |y]concat}bind de|
00000110 66 2f 50 41 52 7b 61 77 5f 50 61 72 61 4d 61 74 |f/PAR{aw_ParaMat|
00000120 7d 64 65 66 0a |}def.|
00000125 
.