(Slide.jam) = (fonts.jam).run (colors.jam).run (utils.jam).run (frame) { black -1 inch 0 inch 14 inch 1 .maskrectangle black -1 inch 8 inch 14 inch 1 .maskrectangle black 0 inch -1 inch 1 11 inch .maskrectangle black 12 inch -1 inch 1 11 inch .maskrectangle cyan -0.5 inch -0.5 inch 13 inch 9 inch .maskrectangle blue -0.5 inch 7.5 inch 13 inch 1.0 inch .maskrectangle white 30 LOGO 10.5 inch 7.6 inch .setxy (XEROX) .show 15 CLSSM 9.0 inch 5.0 .setxy (Mik Lamming PARC EDL) (white) drop } .cvx .def (ip) { % (procedureName) ip (name) .exch .def t name .cvx .exec (Making Interpress file: ) name .ropeconcat (.ip) .ropeconcat = { 9.2 inch 0.75 inch .translatet 90 .rotatet name .cvx .exec } .cvx name (.ip) .ropeconcat .makeinterpress } .cvx .def % EXAMPLE - 36 [ (slide1) (slide2) ... (slide47) ] (thumbnails) ShowInNs (ShowInNs) { % nXX [(p1) (p2) .. (pn) ] funcXX ShowInNs (funcXX) .exch .def (listXX) .exch .def (nXX) .exch .def { listXX .length nXX 1 .sub .gt { (first8XX) listXX 0 nXX .subarray .def (listXX) listXX nXX listXX .length nXX .sub .subarray .def first8XX { } .cvx .arrayforall funcXX .cvx .exec } .cvx { listXX .length 0 .gt { listXX { } .cvx .arrayforall nXX listXX .length .sub { (dummy) } .cvx .rept funcXX .cvx .exec } .cvx .if .exit } .cvx .ifelse }.cvx .loop } .cvx .def (dummy) {} .cvx .def (PrintInNs) { % filename nXX [(p1) (p2) .. (pn) ] funcXX PrintInNs (funcXX) .exch .def (listXX) .exch .def (nXX) .exch .def (filename) .exch .def filename [ ] { (page ) .print .dup = % display the page # 9.2 inch 0.75 inch .translatet 90 .rotatet listXX .length nXX 1 .sub .gt { (first8XX) listXX 0 nXX .subarray .def (listXX) listXX nXX listXX .length nXX .sub .subarray .def first8XX { } .cvx .arrayforall funcXX .cvx .exec listXX .length 0 .eq } .cvx { listXX .length 0 .gt { listXX { } .cvx .arrayforall nXX listXX .length .sub { (dummy) } .cvx .rept funcXX .cvx .exec } .cvx .if .true } .cvx .ifelse }.cvx .writeinterpress } .cvx .def (RawPrintInNs) { % filename nXX [(p1) (p2) .. (pn) ] funcXX RawShowInNs (funcXX) .exch .def (listXX) .exch .def (nXX) .exch .def (filename) .exch .def filename [ ] { listXX .length nXX 1 .sub .gt { (page ) .print .dup = % display the page # (first8XX) listXX 0 nXX .subarray .def (listXX) listXX nXX listXX .length nXX .sub .subarray .def first8XX { } .cvx .arrayforall funcXX .cvx .exec listXX .length 0 .eq } .cvx { listXX .length 0 .gt { listXX { } .cvx .arrayforall nXX listXX .length .sub { (dummy) } .cvx .rept funcXX .cvx .exec } .cvx .if .true } .cvx .ifelse }.cvx .writeinterpress } .cvx .def (blockOf1) { .dup = .cvx .dosave } .cvx .def (blockOf2) { { 12 inch 0 inch .translatet 90 .rotatet {.dup = 0 inch 0 inch .translatet 0.6 .scalet .cvx .dosave} .cvx .dosave {.dup = 0 inch 6 inch .translatet 0.6 .scalet .cvx .dosave} .cvx .dosave } .cvx .dosave } .cvx .def (blockOf6) { 0 10.25 inch .translatet -90 .rotatet black 0 0 10.25 inch 13.25 inch .maskrectangle white 0.025 inch 0.025 inch 10.2 inch 13.2 inch .maskrectangle 1.3 .scalet 34 79 .translatet {.dup = 4 inch 0 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 0 inch 0 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 4 inch 3 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 0 inch 3 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 4 inch 6 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 0 inch 6 inch .translatet 1 4 .div .scalet .cvx .dosave} .cvx .dosave } .cvx .def (eightCribs) { % (p1) (p2) (p3) (p4) (p5) (p6) (p7) (p8) eightCribs { (p8XX) .exch .def (p7XX) .exch .def (p6XX) .exch .def (p5XX) .exch .def (p4XX) .exch .def (p3XX) .exch .def (p2XX) .exch .def (p1XX) .exch .def black 0 0 13.25 inch 10.25 inch .maskrectangle white 0.025 inch 0.025 inch 13.2 inch 10.2 inch .maskrectangle 0.6 inch 0.1 inch .translatet { 0.1 0.1 .translatet 0 inch 0 .translatet p5XX cribSheet 3.0 inch 0 .translatet p6XX cribSheet 3.0 inch 0 .translatet p7XX cribSheet 3.0 inch 0 .translatet p8XX cribSheet } .cvx .dosave { 0.1 5.0 inch .translatet 0 inch 0 .translatet p1XX cribSheet 3.0 inch 0 .translatet p2XX cribSheet 3.0 inch 0 .translatet p3XX cribSheet 3.0 inch 0 .translatet p4XX cribSheet } .cvx .dosave } .cvx .dosave } .cvx .def (cribSheet) { % (p1) cribSheet { .dup = black 0.05 inch .setstrokewidth wireFrame .maskstroke 0.3 inch 3.0 inch .translatet 1 5 .div .scalet .cvx .dosave } .cvx .dosave } .cvx .def (wireFrame) { % draws a crib sheet sized wire frame at 0 0 0 inch 0 inch .moveto 0 inch 5 inch .lineto 3 inch 5 inch .lineto 3 inch 0 inch .lineto 0 inch 0 inch .lineto } .cvx .def (thumbnails) { { 0 0 inch .translatet stripOf6} .cvx .dosave { 0 1.5 inch .translatet stripOf6} .cvx .dosave { 0 3 inch .translatet stripOf6} .cvx .dosave { 0 4.5 inch .translatet stripOf6} .cvx .dosave { 0 6 inch .translatet stripOf6} .cvx .dosave { 0 7.5 inch .translatet stripOf6} .cvx .dosave } .cvx .def (stripOf6) { {.dup = 10 inch 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 8 inch 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 6 inch 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 4 inch 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 2 inch 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave {.dup = 0 0 .translatet 1 8 .div .scalet .cvx .dosave} .cvx .dosave } .cvx .def (showtime) .true .def (Dunnx) 0 inch .def (Dunn) { % (p1) Dunn - scales and centers slides for DunnSnap { <<% 0.375 inch 0.85 inch .translatet>> <<% 1.1 .scalet>> 11 52 .translatet 1.15 .scalet .cvx .dosave { black -2 inch -2 inch 16 inch 2 inch .maskrectangle -2 inch 0 inch 2 inch 16 inch .maskrectangle 12 inch 0 inch 2 inch 16 inch .maskrectangle -2 inch 8 inch 16 inch 4 inch .maskrectangle } .cvx .dosave showtime { Dunnx -0.3 inch .setxy 18 CLSSM white .date .show } .cvx .if } .cvx .dosave } .cvx .def <<% Typical use of above : 1 (Dunn) ShowInNs>> <<>> (DunnIP) { % (p1) DunnIP - scales and centers slides for DunnSnap (name) .exch .def name Dunn (Making Interpress file: ) name .ropeconcat (.ip) .ropeconcat = { { name Dunn } .cvx .exec } .cvx name (.ip) .ropeconcat .makeinterpress } .cvx .def <<% Typical use of above : 1 (DunnIP) ShowInNs >> <<>> (copies) {1} .cvx .def (DunnSnap) { % (p1) DunnSnap - scales and centers slides for DunnSnap (name) .exch .def %Ektachrome64AtF/5.6L* .preparecolormaps name = (Dunnx) 0 .def copies {name Dunn (Dunnx) Dunnx 4 inch .add .def} .cvx .dunnsnap (Dunnx) 0 .def } .cvx .def <<% Typical use of above : 1 (DunnSnap) ShowInNs>> (t) { e .initdc 75 75 .translatet } .cvx .def (IdleOff) { % (ViewerProcessesImpl.IdleOff[NIL]) .interpret .pop (EndOpsImpl.neverEnableAutoIdle _ TRUE) .interpret .pop } .cvx .def (IdleOn) { % (ViewerProcessesImpl.IdleOn[NIL]) .interpret .pop (EndOpsImpl.neverEnableAutoIdle _ FALSE) .interpret .pop } .cvx .def (Ektachrome64AtF/5.6L*) [ 0 0 0 0 1 1 1 1 2 3 3 3 3 4 4 4 4 5 5 5 5 6 6 6 6 8 8 8 7 9 9 9 8 10 10 10 9 11 11 11 10 13 13 13 11 14 14 14 12 15 15 15 13 16 16 16 14 17 17 17 15 18 18 18 16 19 19 19 17 20 20 20 18 21 21 21 19 22 22 22 20 23 23 23 21 24 24 24 22 24 24 24 23 25 25 25 24 26 26 26 25 27 27 27 26 28 28 28 27 29 29 29 28 30 30 30 29 31 31 31 30 32 32 32 31 32 32 32 32 33 33 33 33 34 34 34 34 35 35 35 35 36 36 36 36 37 37 37 37 38 38 38 38 39 39 39 39 40 40 40 40 41 41 41 41 41 41 41 42 42 42 42 43 43 43 43 44 44 44 44 45 45 45 45 46 46 46 46 47 47 47 47 48 48 48 48 49 48 48 48 50 49 49 49 51 50 50 50 52 51 51 51 53 51 51 51 54 52 52 52 55 53 53 53 56 53 53 53 57 54 54 54 58 55 55 55 59 55 55 55 60 56 56 56 61 57 57 57 62 57 57 57 63 58 58 58 64 59 59 59 65 59 59 59 66 60 60 60 67 61 61 61 68 61 61 61 69 62 62 62 70 63 63 63 71 64 64 64 72 64 64 64 73 65 65 65 74 66 66 66 75 67 67 67 76 67 67 67 77 68 68 68 78 69 69 69 79 70 70 70 80 71 71 71 81 72 72 72 82 72 72 72 83 73 73 73 84 74 74 74 85 75 75 75 86 76 76 76 87 76 76 76 88 77 77 77 89 78 78 78 90 79 79 79 91 80 80 80 92 81 81 81 93 81 81 81 94 82 82 82 95 83 83 83 96 83 83 83 97 84 84 84 98 85 85 85 99 86 86 86 100 86 86 86 101 87 87 87 102 88 88 88 103 88 88 88 104 89 89 89 105 90 90 90 106 91 91 91 107 91 91 91 108 92 92 92 109 93 93 93 110 93 93 93 111 94 94 94 112 95 95 95 113 96 96 96 114 96 96 96 115 97 97 97 116 98 98 98 117 99 99 99 118 100 100 100 119 101 101 101 120 102 102 102 121 103 103 103 122 104 104 104 123 105 105 105 124 105 105 105 125 106 106 106 126 107 107 107 127 108 108 108 128 109 109 109 129 110 110 110 130 111 111 111 131 112 112 112 132 113 113 113 133 113 113 113 134 114 114 114 135 115 115 115 136 116 116 116 137 117 117 117 138 118 118 118 139 118 118 118 140 119 119 119 141 120 120 120 142 121 121 121 143 122 122 122 144 123 123 123 145 124 124 124 146 124 124 124 147 125 125 125 148 126 126 126 149 127 127 127 150 128 128 128 151 129 129 129 152 130 130 130 153 131 131 131 154 132 132 132 155 133 133 133 156 134 134 134 157 135 135 135 158 136 136 136 159 137 137 137 160 138 138 138 161 139 139 139 162 140 140 140 163 141 141 141 164 142 142 142 165 143 143 143 166 144 144 144 167 145 145 145 168 146 146 146 169 147 147 147 170 148 148 148 171 149 149 149 172 150 150 150 173 151 151 151 174 152 152 152 175 153 153 153 176 154 154 154 177 155 155 155 178 156 156 156 179 157 157 157 180 158 158 158 181 159 159 159 182 160 160 160 183 161 161 161 184 162 162 162 185 164 164 164 186 165 165 165 187 166 166 166 188 167 167 167 189 168 168 168 190 169 169 169 191 171 171 171 192 172 172 172 193 173 173 173 194 174 174 174 195 175 175 175 196 176 176 176 197 177 177 177 198 178 178 178 199 180 180 180 200 181 181 181 201 182 182 182 202 183 183 183 203 184 184 184 204 185 185 185 205 186 186 186 206 187 187 187 207 188 188 188 208 189 189 189 209 190 190 190 210 191 191 191 211 193 193 193 212 194 194 194 213 195 195 195 214 196 196 196 215 198 198 198 216 199 199 199 217 200 200 200 218 202 202 202 219 203 203 203 220 204 204 204 221 206 206 206 222 207 207 207 223 208 208 208 224 210 210 210 225 211 211 211 226 212 212 212 227 214 214 214 228 215 215 215 229 216 216 216 230 217 217 217 231 219 219 219 232 220 220 220 233 221 221 221 234 223 223 223 235 224 224 224 236 226 226 226 237 227 227 227 238 229 229 229 239 230 230 230 240 232 232 232 241 233 233 233 242 235 235 235 243 237 237 237 244 238 238 238 245 240 240 240 246 241 241 241 247 243 243 243 248 244 244 244 249 246 246 246 250 247 247 247 251 249 249 249 252 250 250 250 253 252 252 252 254 253 253 253 255 255 255 255 ] .def (Ektachrome64AtF/5.6L) [ 0 0 0 0 1 8 8 8 2 16 16 16 3 20 20 20 4 25 25 25 5 29 29 29 6 33 33 33 7 36 36 36 8 39 39 39 9 42 42 42 10 45 45 45 11 48 48 48 12 50 50 50 13 51 51 51 14 53 53 53 15 55 55 55 16 56 56 56 17 58 58 58 18 60 60 60 19 61 61 61 20 63 63 63 21 65 65 65 22 66 66 66 23 68 68 68 24 69 69 69 25 71 71 71 26 72 72 72 27 74 74 74 28 75 75 75 29 77 77 77 30 78 78 78 31 80 80 80 32 81 81 81 33 82 82 82 34 83 83 83 35 84 84 84 36 85 85 85 37 86 86 86 38 87 87 87 39 88 88 88 40 89 89 89 41 90 90 90 42 91 91 91 43 92 92 92 44 93 93 93 45 94 94 94 46 96 96 96 47 97 97 97 48 98 98 98 49 99 99 99 50 100 100 100 51 101 101 101 52 102 102 102 53 103 103 103 54 104 104 104 55 105 105 105 56 106 106 106 57 107 107 107 58 108 108 108 59 109 109 109 60 110 110 110 61 111 111 111 62 112 112 112 63 113 113 113 64 114 114 114 65 115 115 115 66 116 116 116 67 117 117 117 68 117 117 117 69 118 118 118 70 119 119 119 71 120 120 120 72 121 121 121 73 122 122 122 74 122 122 122 75 123 123 123 76 124 124 124 77 125 125 125 78 126 126 126 79 127 127 127 80 127 127 127 81 128 128 128 82 129 129 129 83 130 130 130 84 131 131 131 85 132 132 132 86 133 133 133 87 134 134 134 88 135 135 135 89 136 136 136 90 136 136 136 91 137 137 137 92 138 138 138 93 139 139 139 94 140 140 140 95 141 141 141 96 142 142 142 97 143 143 143 98 144 144 144 99 144 144 144 100 145 145 145 101 146 146 146 102 147 147 147 103 147 147 147 104 148 148 148 105 149 149 149 106 150 150 150 107 150 150 150 108 151 151 151 109 152 152 152 110 153 153 153 111 153 153 153 112 154 154 154 113 155 155 155 114 155 155 155 115 156 156 156 116 157 157 157 117 158 158 158 118 158 158 158 119 159 159 159 120 160 160 160 121 161 161 161 122 161 161 161 123 162 162 162 124 163 163 163 125 164 164 164 126 165 165 165 127 165 165 165 128 166 166 166 129 167 167 167 130 168 168 168 131 168 168 168 132 169 169 169 133 170 170 170 134 171 171 171 135 172 172 172 136 172 172 172 137 173 173 173 138 174 174 174 139 175 175 175 140 175 175 175 141 176 176 176 142 177 177 177 143 177 177 177 144 178 178 178 145 179 179 179 146 179 179 179 147 180 180 180 148 181 181 181 149 181 181 181 150 182 182 182 151 183 183 183 152 183 183 183 153 184 184 184 154 185 185 185 155 185 185 185 156 186 186 186 157 187 187 187 158 187 187 187 159 188 188 188 160 189 189 189 161 189 189 189 162 190 190 190 163 190 190 190 164 191 191 191 165 192 192 192 166 192 192 192 167 193 193 193 168 194 194 194 169 195 195 195 170 195 195 195 171 196 196 196 172 197 197 197 173 198 198 198 174 198 198 198 175 199 199 199 176 200 200 200 177 200 200 200 178 201 201 201 179 202 202 202 180 203 203 203 181 203 203 203 182 204 204 204 183 205 205 205 184 206 206 206 185 206 206 206 186 207 207 207 187 208 208 208 188 208 208 208 189 209 209 209 190 210 210 210 191 210 210 210 192 211 211 211 193 212 212 212 194 212 212 212 195 213 213 213 196 214 214 214 197 214 214 214 198 215 215 215 199 216 216 216 200 216 216 216 201 217 217 217 202 218 218 218 203 218 218 218 204 219 219 219 205 220 220 220 206 220 220 220 207 221 221 221 208 222 222 222 209 222 222 222 210 223 223 223 211 224 224 224 212 224 224 224 213 225 225 225 214 226 226 226 215 227 227 227 216 227 227 227 217 228 228 228 218 229 229 229 219 230 230 230 220 230 230 230 221 231 231 231 222 232 232 232 223 233 233 233 224 233 233 233 225 234 234 234 226 235 235 235 227 236 236 236 228 236 236 236 229 237 237 237 230 238 238 238 231 239 239 239 232 239 239 239 233 240 240 240 234 241 241 241 235 241 241 241 236 242 242 242 237 243 243 243 238 243 243 243 239 244 244 244 240 245 245 245 241 245 245 245 242 246 246 246 243 247 247 247 244 248 248 248 245 248 248 248 246 249 249 249 247 250 250 250 248 250 250 250 249 251 251 251 250 252 252 252 251 252 252 252 252 253 253 253 253 254 254 254 254 254 254 254 255 255 255 255 ] .def