Home » Archimedes archive » Zipped Apps » Impression Publisher » !Publisher/Resources/ps/SpotFuncs
!Publisher/Resources/ps/SpotFuncs
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/SpotFuncs |
| Read OK: | ✔ |
| File size: | 06A4 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
/clamp {3 1 roll 2 copy lt{exch}if pop 2 1 roll 2 copy gt{exch}if pop}bind def
/Spot1{abs exch abs 2 copy add 1 gt{1 sub dup mul exch 1 sub dup mul add 1}
{dup mul exch dup mul add 1 exch}ifelse sub}def
/Spot2{dup mul exch dup mul add 1 exch sub -1 1 clamp}def
/Triplespot1{2{1 add 2 div 3 mul dup floor sub 2 mul 1 sub
exch}repeat abs exch abs 2 copy add 1 gt{1 sub dup mul exch 1 sub dup mul
add 1}{dup mul exch dup mul add 1 exch}ifelse sub}def
/Triplespot2{2{1 add 2 div 3 mul dup floor sub 2 mul 1 sub exch}repeat
dup mul exch dup mul add 1 exch sub}def
/Ellipticalspot{dup 5 mul 8 div mul exch dup mul exch add sqrt 1
exch sub}def
/Line{pop dup mul}def
/Square{dup mul exch dup mul 2 copy gt{exch
}if pop}def
/Crosshatch{dup mul exch dup mul 2 copy lt{exch}if pop -1 1 clamp}def
/Mezzotint{pop pop rand 16#3FFFFFFF div 1 sub}def
/Dither{1 add 7.9999 mul cvi exch
1 add 7.9999 mul cvi 16 mul add < 0E 8E 2E AE 06 86 26 A6 0C 8C 2C
AC 04 84 24 A4 CE 4E EE 6E C6 46 E6 66 CC 4C EC 6C C4 44 E4 64 3E BE 1E 9E
36 B6 16 96 3C BC 1C 9C 34 B4 14 94 FE 7E DE 5E F6 76 D6 56 FC 7C DC 5C F4
74 D4 54 01 81 21 A1 09 89 29 A9 03 83 23 A3 0B 8B 2B AB C1 41 E1 61 C9 49
E9 69 C3 43 E3 63 CB 4B EB 6B 31 B1 11 91 39 B9 19 99 33 B3 13 93 3B BB 1B
9B F1 71 D1 51 F9 79 D9 59 F3 73 D3 53 FB 7B DB 5B 0D 8D 2D AD 05 85 25 A5
0F 8F 2F AF 07 87 27 A7 CD 4D ED 6D C5 45 E5 65 CF 4F EF 6F C7 47 E7 67 3D
BD 1D 9D 35 B5 15 95 3F BF 1F 9F 37 B7 17 97 FD 7D DD 5D F5 75 D5 55 FF 7F
DF 5F F7 77 D7 57 02 82 22 A2 0A 8A 2A AA 00 80 20 A0 08 88 28 A8 C2 42 E2
62 CA 4A EA 6A C0 40 E0 60 C8 48 E8 68 32 B2 12 92 3A BA 1A 9A 30 B0 10 90
38 B8 18 98 F2 72 D2 52 FA 7A DA 5A F0 70 D0 50 F8 78 D8 58 > exch get 256
div}bind def
00000000 2f 63 6c 61 6d 70 20 7b 33 20 31 20 72 6f 6c 6c |/clamp {3 1 roll|
00000010 20 32 20 63 6f 70 79 20 6c 74 7b 65 78 63 68 7d | 2 copy lt{exch}|
00000020 69 66 20 70 6f 70 20 32 20 31 20 72 6f 6c 6c 20 |if pop 2 1 roll |
00000030 32 20 63 6f 70 79 20 67 74 7b 65 78 63 68 7d 69 |2 copy gt{exch}i|
00000040 66 20 70 6f 70 7d 62 69 6e 64 20 64 65 66 0a 2f |f pop}bind def./|
00000050 53 70 6f 74 31 7b 61 62 73 20 65 78 63 68 20 61 |Spot1{abs exch a|
00000060 62 73 20 32 20 63 6f 70 79 20 61 64 64 20 31 20 |bs 2 copy add 1 |
00000070 67 74 7b 31 20 73 75 62 20 64 75 70 20 6d 75 6c |gt{1 sub dup mul|
00000080 20 65 78 63 68 20 31 20 73 75 62 20 64 75 70 20 | exch 1 sub dup |
00000090 6d 75 6c 20 61 64 64 20 31 7d 0a 7b 64 75 70 20 |mul add 1}.{dup |
000000a0 6d 75 6c 20 65 78 63 68 20 64 75 70 20 6d 75 6c |mul exch dup mul|
000000b0 20 61 64 64 20 31 20 65 78 63 68 7d 69 66 65 6c | add 1 exch}ifel|
000000c0 73 65 20 73 75 62 7d 64 65 66 0a 2f 53 70 6f 74 |se sub}def./Spot|
000000d0 32 7b 64 75 70 20 6d 75 6c 20 65 78 63 68 20 64 |2{dup mul exch d|
000000e0 75 70 20 6d 75 6c 20 61 64 64 20 31 20 65 78 63 |up mul add 1 exc|
000000f0 68 20 73 75 62 20 2d 31 20 31 20 63 6c 61 6d 70 |h sub -1 1 clamp|
00000100 7d 64 65 66 0a 2f 54 72 69 70 6c 65 73 70 6f 74 |}def./Triplespot|
00000110 31 7b 32 7b 31 20 61 64 64 20 32 20 64 69 76 20 |1{2{1 add 2 div |
00000120 33 20 6d 75 6c 20 64 75 70 20 66 6c 6f 6f 72 20 |3 mul dup floor |
00000130 73 75 62 20 32 20 6d 75 6c 20 31 20 73 75 62 0a |sub 2 mul 1 sub.|
00000140 65 78 63 68 7d 72 65 70 65 61 74 20 61 62 73 20 |exch}repeat abs |
00000150 65 78 63 68 20 61 62 73 20 32 20 63 6f 70 79 20 |exch abs 2 copy |
00000160 61 64 64 20 31 20 67 74 7b 31 20 73 75 62 20 64 |add 1 gt{1 sub d|
00000170 75 70 20 6d 75 6c 20 65 78 63 68 20 31 20 73 75 |up mul exch 1 su|
00000180 62 20 64 75 70 20 6d 75 6c 0a 61 64 64 20 31 7d |b dup mul.add 1}|
00000190 7b 64 75 70 20 6d 75 6c 20 65 78 63 68 20 64 75 |{dup mul exch du|
000001a0 70 20 6d 75 6c 20 61 64 64 20 31 20 65 78 63 68 |p mul add 1 exch|
000001b0 7d 69 66 65 6c 73 65 20 73 75 62 7d 64 65 66 0a |}ifelse sub}def.|
000001c0 2f 54 72 69 70 6c 65 73 70 6f 74 32 7b 32 7b 31 |/Triplespot2{2{1|
000001d0 20 61 64 64 20 32 20 64 69 76 20 33 20 6d 75 6c | add 2 div 3 mul|
000001e0 20 64 75 70 20 66 6c 6f 6f 72 20 73 75 62 20 32 | dup floor sub 2|
000001f0 20 6d 75 6c 20 31 20 73 75 62 20 65 78 63 68 7d | mul 1 sub exch}|
00000200 72 65 70 65 61 74 0a 20 64 75 70 20 6d 75 6c 20 |repeat. dup mul |
00000210 65 78 63 68 20 64 75 70 20 6d 75 6c 20 61 64 64 |exch dup mul add|
00000220 20 31 20 65 78 63 68 20 73 75 62 7d 64 65 66 0a | 1 exch sub}def.|
00000230 2f 45 6c 6c 69 70 74 69 63 61 6c 73 70 6f 74 7b |/Ellipticalspot{|
00000240 64 75 70 20 35 20 6d 75 6c 20 38 20 64 69 76 20 |dup 5 mul 8 div |
00000250 6d 75 6c 20 65 78 63 68 20 64 75 70 20 6d 75 6c |mul exch dup mul|
00000260 20 65 78 63 68 20 61 64 64 20 73 71 72 74 20 31 | exch add sqrt 1|
00000270 0a 65 78 63 68 20 73 75 62 7d 64 65 66 0a 2f 4c |.exch sub}def./L|
00000280 69 6e 65 7b 70 6f 70 20 64 75 70 20 6d 75 6c 7d |ine{pop dup mul}|
00000290 64 65 66 0a 2f 53 71 75 61 72 65 7b 64 75 70 20 |def./Square{dup |
000002a0 6d 75 6c 20 65 78 63 68 20 64 75 70 20 6d 75 6c |mul exch dup mul|
000002b0 20 32 20 63 6f 70 79 20 67 74 7b 65 78 63 68 0a | 2 copy gt{exch.|
000002c0 7d 69 66 20 70 6f 70 7d 64 65 66 0a 2f 43 72 6f |}if pop}def./Cro|
000002d0 73 73 68 61 74 63 68 7b 64 75 70 20 6d 75 6c 20 |sshatch{dup mul |
000002e0 65 78 63 68 20 64 75 70 20 6d 75 6c 20 32 20 63 |exch dup mul 2 c|
000002f0 6f 70 79 20 6c 74 7b 65 78 63 68 7d 69 66 20 70 |opy lt{exch}if p|
00000300 6f 70 20 2d 31 20 31 20 63 6c 61 6d 70 7d 64 65 |op -1 1 clamp}de|
00000310 66 0a 2f 4d 65 7a 7a 6f 74 69 6e 74 7b 70 6f 70 |f./Mezzotint{pop|
00000320 20 70 6f 70 20 72 61 6e 64 20 31 36 23 33 46 46 | pop rand 16#3FF|
00000330 46 46 46 46 46 20 64 69 76 20 31 20 73 75 62 7d |FFFFF div 1 sub}|
00000340 64 65 66 0a 2f 44 69 74 68 65 72 7b 31 20 61 64 |def./Dither{1 ad|
00000350 64 20 37 2e 39 39 39 39 20 6d 75 6c 20 63 76 69 |d 7.9999 mul cvi|
00000360 20 65 78 63 68 0a 31 20 61 64 64 20 37 2e 39 39 | exch.1 add 7.99|
00000370 39 39 20 6d 75 6c 20 63 76 69 20 31 36 20 6d 75 |99 mul cvi 16 mu|
00000380 6c 20 61 64 64 20 3c 20 30 45 20 38 45 20 32 45 |l add < 0E 8E 2E|
00000390 20 41 45 20 30 36 20 38 36 20 32 36 20 41 36 20 | AE 06 86 26 A6 |
000003a0 30 43 20 38 43 20 32 43 0a 41 43 20 30 34 20 38 |0C 8C 2C.AC 04 8|
000003b0 34 20 32 34 20 41 34 20 43 45 20 34 45 20 45 45 |4 24 A4 CE 4E EE|
000003c0 20 36 45 20 43 36 20 34 36 20 45 36 20 36 36 20 | 6E C6 46 E6 66 |
000003d0 43 43 20 34 43 20 45 43 20 36 43 20 43 34 20 34 |CC 4C EC 6C C4 4|
000003e0 34 20 45 34 20 36 34 20 33 45 20 42 45 20 31 45 |4 E4 64 3E BE 1E|
000003f0 20 39 45 0a 33 36 20 42 36 20 31 36 20 39 36 20 | 9E.36 B6 16 96 |
00000400 33 43 20 42 43 20 31 43 20 39 43 20 33 34 20 42 |3C BC 1C 9C 34 B|
00000410 34 20 31 34 20 39 34 20 46 45 20 37 45 20 44 45 |4 14 94 FE 7E DE|
00000420 20 35 45 20 46 36 20 37 36 20 44 36 20 35 36 20 | 5E F6 76 D6 56 |
00000430 46 43 20 37 43 20 44 43 20 35 43 20 46 34 0a 37 |FC 7C DC 5C F4.7|
00000440 34 20 44 34 20 35 34 20 30 31 20 38 31 20 32 31 |4 D4 54 01 81 21|
00000450 20 41 31 20 30 39 20 38 39 20 32 39 20 41 39 20 | A1 09 89 29 A9 |
00000460 30 33 20 38 33 20 32 33 20 41 33 20 30 42 20 38 |03 83 23 A3 0B 8|
00000470 42 20 32 42 20 41 42 20 43 31 20 34 31 20 45 31 |B 2B AB C1 41 E1|
00000480 20 36 31 20 43 39 20 34 39 0a 45 39 20 36 39 20 | 61 C9 49.E9 69 |
00000490 43 33 20 34 33 20 45 33 20 36 33 20 43 42 20 34 |C3 43 E3 63 CB 4|
000004a0 42 20 45 42 20 36 42 20 33 31 20 42 31 20 31 31 |B EB 6B 31 B1 11|
000004b0 20 39 31 20 33 39 20 42 39 20 31 39 20 39 39 20 | 91 39 B9 19 99 |
000004c0 33 33 20 42 33 20 31 33 20 39 33 20 33 42 20 42 |33 B3 13 93 3B B|
000004d0 42 20 31 42 0a 39 42 20 46 31 20 37 31 20 44 31 |B 1B.9B F1 71 D1|
000004e0 20 35 31 20 46 39 20 37 39 20 44 39 20 35 39 20 | 51 F9 79 D9 59 |
000004f0 46 33 20 37 33 20 44 33 20 35 33 20 46 42 20 37 |F3 73 D3 53 FB 7|
00000500 42 20 44 42 20 35 42 20 30 44 20 38 44 20 32 44 |B DB 5B 0D 8D 2D|
00000510 20 41 44 20 30 35 20 38 35 20 32 35 20 41 35 0a | AD 05 85 25 A5.|
00000520 30 46 20 38 46 20 32 46 20 41 46 20 30 37 20 38 |0F 8F 2F AF 07 8|
00000530 37 20 32 37 20 41 37 20 43 44 20 34 44 20 45 44 |7 27 A7 CD 4D ED|
00000540 20 36 44 20 43 35 20 34 35 20 45 35 20 36 35 20 | 6D C5 45 E5 65 |
00000550 43 46 20 34 46 20 45 46 20 36 46 20 43 37 20 34 |CF 4F EF 6F C7 4|
00000560 37 20 45 37 20 36 37 20 33 44 0a 42 44 20 31 44 |7 E7 67 3D.BD 1D|
00000570 20 39 44 20 33 35 20 42 35 20 31 35 20 39 35 20 | 9D 35 B5 15 95 |
00000580 33 46 20 42 46 20 31 46 20 39 46 20 33 37 20 42 |3F BF 1F 9F 37 B|
00000590 37 20 31 37 20 39 37 20 46 44 20 37 44 20 44 44 |7 17 97 FD 7D DD|
000005a0 20 35 44 20 46 35 20 37 35 20 44 35 20 35 35 20 | 5D F5 75 D5 55 |
000005b0 46 46 20 37 46 0a 44 46 20 35 46 20 46 37 20 37 |FF 7F.DF 5F F7 7|
000005c0 37 20 44 37 20 35 37 20 30 32 20 38 32 20 32 32 |7 D7 57 02 82 22|
000005d0 20 41 32 20 30 41 20 38 41 20 32 41 20 41 41 20 | A2 0A 8A 2A AA |
000005e0 30 30 20 38 30 20 32 30 20 41 30 20 30 38 20 38 |00 80 20 A0 08 8|
000005f0 38 20 32 38 20 41 38 20 43 32 20 34 32 20 45 32 |8 28 A8 C2 42 E2|
00000600 0a 36 32 20 43 41 20 34 41 20 45 41 20 36 41 20 |.62 CA 4A EA 6A |
00000610 43 30 20 34 30 20 45 30 20 36 30 20 43 38 20 34 |C0 40 E0 60 C8 4|
00000620 38 20 45 38 20 36 38 20 33 32 20 42 32 20 31 32 |8 E8 68 32 B2 12|
00000630 20 39 32 20 33 41 20 42 41 20 31 41 20 39 41 20 | 92 3A BA 1A 9A |
00000640 33 30 20 42 30 20 31 30 20 39 30 0a 33 38 20 42 |30 B0 10 90.38 B|
00000650 38 20 31 38 20 39 38 20 46 32 20 37 32 20 44 32 |8 18 98 F2 72 D2|
00000660 20 35 32 20 46 41 20 37 41 20 44 41 20 35 41 20 | 52 FA 7A DA 5A |
00000670 46 30 20 37 30 20 44 30 20 35 30 20 46 38 20 37 |F0 70 D0 50 F8 7|
00000680 38 20 44 38 20 35 38 20 3e 20 65 78 63 68 20 67 |8 D8 58 > exch g|
00000690 65 74 20 32 35 36 0a 64 69 76 7d 62 69 6e 64 20 |et 256.div}bind |
000006a0 64 65 66 0a |def.|
000006a4 
.