Home » Archimedes archive » Zipped Apps » Impression Publisher » !Publisher/Resources/ps/DeepSpr
!Publisher/Resources/ps/DeepSpr
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 » Impression Publisher |
| Filename: | !Publisher/Resources/ps/DeepSpr |
| Read OK: | ✔ |
| File size: | 0180 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/Dataline {
currentfile Rem WS length
lt {WS 0 Rem getinterval}
{WS}
ifelse
readhexstring pop
/Rem Rem WS length sub def
} def
/SRGB24 {
2 copy mul 3 mul
/Rem exch def 8 SMat
/Dataline load false 3 colorimage
} def
/SCMYK32 {
2 copy mul 4 mul
/Rem exch def 8 SMat
/Dataline load false 4 colorimage
} def
00000000 2f 44 61 74 61 6c 69 6e 65 20 7b 0a 20 20 20 20 |/Dataline {. |
00000010 63 75 72 72 65 6e 74 66 69 6c 65 20 52 65 6d 20 |currentfile Rem |
00000020 57 53 20 6c 65 6e 67 74 68 0a 20 20 20 20 6c 74 |WS length. lt|
00000030 20 7b 57 53 20 30 20 52 65 6d 20 67 65 74 69 6e | {WS 0 Rem getin|
00000040 74 65 72 76 61 6c 7d 0a 20 20 20 20 20 20 20 7b |terval}. {|
00000050 57 53 7d 0a 20 20 20 20 69 66 65 6c 73 65 0a 20 |WS}. ifelse. |
00000060 20 20 20 72 65 61 64 68 65 78 73 74 72 69 6e 67 | readhexstring|
00000070 20 70 6f 70 0a 20 20 20 20 2f 52 65 6d 20 52 65 | pop. /Rem Re|
00000080 6d 20 57 53 20 6c 65 6e 67 74 68 20 73 75 62 20 |m WS length sub |
00000090 64 65 66 0a 20 20 7d 20 64 65 66 0a 0a 2f 53 52 |def. } def../SR|
000000a0 47 42 32 34 20 7b 0a 20 20 20 20 32 20 63 6f 70 |GB24 {. 2 cop|
000000b0 79 20 20 6d 75 6c 20 33 20 6d 75 6c 0a 20 20 20 |y mul 3 mul. |
000000c0 20 20 20 20 20 2f 52 65 6d 20 65 78 63 68 20 64 | /Rem exch d|
000000d0 65 66 20 38 20 53 4d 61 74 0a 20 20 20 20 20 20 |ef 8 SMat. |
000000e0 20 20 2f 44 61 74 61 6c 69 6e 65 20 6c 6f 61 64 | /Dataline load|
000000f0 20 66 61 6c 73 65 20 33 20 63 6f 6c 6f 72 69 6d | false 3 colorim|
00000100 61 67 65 0a 20 20 7d 20 64 65 66 0a 0a 2f 53 43 |age. } def../SC|
00000110 4d 59 4b 33 32 20 7b 0a 20 20 20 20 32 20 63 6f |MYK32 {. 2 co|
00000120 70 79 20 20 6d 75 6c 20 34 20 6d 75 6c 0a 20 20 |py mul 4 mul. |
00000130 20 20 20 20 20 20 2f 52 65 6d 20 65 78 63 68 20 | /Rem exch |
00000140 64 65 66 20 38 20 53 4d 61 74 0a 20 20 20 20 20 |def 8 SMat. |
00000150 20 20 20 2f 44 61 74 61 6c 69 6e 65 20 6c 6f 61 | /Dataline loa|
00000160 64 20 66 61 6c 73 65 20 34 20 63 6f 6c 6f 72 69 |d false 4 colori|
00000170 6d 61 67 65 0a 20 20 7d 20 64 65 66 0a 20 20 0a |mage. } def. .|
00000180 
.