[comp.lang.postscript] Celtic Ogam Cipher

feuling@astroatc.UUCP (Bob Marley) (04/13/91)

The Ancient Ogam Cipher: Before the year one, in what is now England,
the ruling people were the Celts.  The Celts invented a symbol 
substitution cipher of straight lines called ogams.  Some of the ogam
writing might have been used for everyday messages -- Ye olde cakes
are cooking -- but some messages were carved on stone monuments that
are still standing today.
The Roman alphabet, which the Celts used, has most, but not all, of the
letters of our alphabet.

The Modern Ogam Cipher:  The Celts' method of using different kinds of
straight lines above and below a center line makes a good cipher with
our alphabet today.  To make the Ogam Cipher more modern and easier to
encode and decode, the cipher has been put in alphabetical order and
in the groups of five lines.

Below is Postscript code to print both the Ancient and Modern Ogam Ciphers.

-----------------Cut Here----------------------------------------------
%!
%%By: feuling (Lindsay Feuling)
%%Pages: 1
%%BoundingBox: 167 135 445 657
%%EndComments
/$F2psDict 32 dict def $F2psDict begin $F2psDict /mtrx matrix put
 end /$F2psBegin {$F2psDict begin /$F2psEnteredState save def} def /$F2psEnd {$F2psEnteredState restore end} def
%%EndProlog
$F2psBegin
0.000000 729.000000 translate 0.900 -0.900 scale
612 0 translate 90 rotate
1.000 setlinewidth
% Polyline
newpath 639 299 moveto 644 259 lineto stroke
% Polyline
newpath 654 299 moveto 644 259 lineto stroke
% Polyline
newpath 639 259 moveto 649 299 lineto stroke
% Polyline
newpath 644 299 moveto 634 259 lineto stroke
% Polyline
newpath 629 259 moveto 639 299 lineto stroke
% Polyline
newpath 619 299 moveto 609 259 lineto stroke
% Polyline
newpath 604 259 moveto 614 299 lineto stroke
% Polyline
newpath 609 299 moveto 599 259 lineto stroke
% Polyline
newpath 594 259 moveto 604 299 lineto stroke
% Polyline
newpath 574 259 moveto 584 299 lineto stroke
% Polyline
newpath 579 299 moveto 569 259 lineto stroke
% Polyline
newpath 564 259 moveto 574 299 lineto stroke
% Polyline
newpath 554 299 moveto 544 259 lineto stroke
% Polyline
newpath 539 259 moveto 549 299 lineto stroke
% Polyline
newpath 524 259 moveto 534 299 lineto stroke
% Polyline
newpath 159 299 moveto 174 259 lineto stroke
% Polyline
newpath 79 279 moveto 659 279 lineto stroke
% Polyline
newpath 79 99 moveto 549 99 lineto stroke
% Polyline
newpath 124 259 moveto 124 299 lineto stroke
% Polyline
newpath 119 259 moveto 119 299 lineto stroke
% Polyline
newpath 114 259 moveto 114 299 lineto stroke
% Polyline
newpath 104 259 moveto 104 299 lineto stroke
% Polyline
newpath 99 259 moveto 99 299 lineto stroke
% Polyline
newpath 89 259 moveto 89 299 lineto stroke
% Polyline
newpath 134 259 moveto 134 299 lineto stroke
% Polyline
newpath 139 259 moveto 139 299 lineto stroke
% Polyline
newpath 144 259 moveto 144 299 lineto stroke
% Polyline
newpath 149 259 moveto 149 299 lineto stroke
% Polyline
newpath 159 259 moveto 159 299 lineto stroke
% Polyline
newpath 174 259 moveto 174 299 lineto stroke
% Polyline
newpath 169 259 moveto 169 299 lineto stroke
% Polyline
newpath 164 259 moveto 164 299 lineto stroke
% Polyline
newpath 89 79 moveto 89 119 lineto stroke
% Polyline
newpath 99 79 moveto 99 119 lineto stroke
% Polyline
newpath 104 79 moveto 104 119 lineto stroke
% Polyline
newpath 114 79 moveto 114 119 lineto stroke
% Polyline
newpath 119 79 moveto 119 119 lineto stroke
% Polyline
newpath 124 79 moveto 124 119 lineto stroke
% Polyline
newpath 134 79 moveto 134 119 lineto stroke
% Polyline
newpath 139 79 moveto 139 119 lineto stroke
% Polyline
newpath 144 79 moveto 144 119 lineto stroke
% Polyline
newpath 149 79 moveto 149 119 lineto stroke
% Polyline
newpath 159 79 moveto 159 119 lineto stroke
% Polyline
newpath 164 79 moveto 164 119 lineto stroke
% Polyline
newpath 169 79 moveto 169 119 lineto stroke
% Polyline
newpath 174 79 moveto 174 119 lineto stroke
% Polyline
newpath 179 79 moveto 179 119 lineto stroke
% Polyline
newpath 184 249 moveto 184 279 lineto stroke
% Polyline
newpath 194 249 moveto 194 279 lineto stroke
% Polyline
newpath 199 249 moveto 199 279 lineto stroke
% Polyline
newpath 209 249 moveto 209 279 lineto stroke
% Polyline
newpath 214 249 moveto 214 279 lineto stroke
% Polyline
newpath 219 249 moveto 219 279 lineto stroke
% Polyline
newpath 229 249 moveto 229 279 lineto stroke
% Polyline
newpath 234 249 moveto 234 279 lineto stroke
% Polyline
newpath 239 249 moveto 239 279 lineto stroke
% Polyline
newpath 244 249 moveto 244 279 lineto stroke
% Polyline
newpath 254 249 moveto 254 279 lineto stroke
% Polyline
newpath 259 249 moveto 259 279 lineto stroke
% Polyline
newpath 264 249 moveto 264 279 lineto stroke
% Polyline
newpath 269 249 moveto 269 279 lineto stroke
% Polyline
newpath 254 279 moveto 269 249 lineto stroke
% Polyline
newpath 289 69 moveto 289 99 lineto stroke
% Polyline
newpath 284 69 moveto 284 99 lineto stroke
% Polyline
newpath 279 69 moveto 279 99 lineto stroke
% Polyline
newpath 274 69 moveto 274 99 lineto stroke
% Polyline
newpath 269 69 moveto 269 99 lineto stroke
% Polyline
newpath 259 69 moveto 259 99 lineto stroke
% Polyline
newpath 254 69 moveto 254 99 lineto stroke
% Polyline
newpath 249 69 moveto 249 99 lineto stroke
% Polyline
newpath 244 69 moveto 244 99 lineto stroke
% Polyline
newpath 234 69 moveto 234 99 lineto stroke
% Polyline
newpath 229 69 moveto 229 99 lineto stroke
% Polyline
newpath 224 69 moveto 224 99 lineto stroke
% Polyline
newpath 214 69 moveto 214 99 lineto stroke
% Polyline
newpath 209 69 moveto 209 99 lineto stroke
% Polyline
newpath 199 69 moveto 199 99 lineto stroke
% Polyline
newpath 299 99 moveto 299 129 lineto stroke
% Polyline
newpath 309 99 moveto 309 129 lineto stroke
% Polyline
newpath 314 99 moveto 314 129 lineto stroke
% Polyline
newpath 324 99 moveto 324 129 lineto stroke
% Polyline
newpath 329 99 moveto 329 129 lineto stroke
% Polyline
newpath 334 99 moveto 334 129 lineto stroke
% Polyline
newpath 344 99 moveto 344 129 lineto stroke
% Polyline
newpath 349 99 moveto 349 129 lineto stroke
% Polyline
newpath 354 99 moveto 354 129 lineto stroke
% Polyline
newpath 359 99 moveto 359 129 lineto stroke
% Polyline
newpath 369 99 moveto 369 129 lineto stroke
% Polyline
newpath 374 99 moveto 374 129 lineto stroke
% Polyline
newpath 379 99 moveto 379 129 lineto stroke
% Polyline
newpath 384 99 moveto 384 129 lineto stroke
% Polyline
newpath 389 99 moveto 389 129 lineto stroke
% Polyline
newpath 389 99 moveto 389 129 lineto stroke
% Polyline
newpath 384 99 moveto 384 129 lineto stroke
% Polyline
newpath 379 99 moveto 379 129 lineto stroke
% Polyline
newpath 374 99 moveto 374 129 lineto stroke
% Polyline
newpath 369 99 moveto 369 129 lineto stroke
% Polyline
newpath 359 99 moveto 359 129 lineto stroke
% Polyline
newpath 354 99 moveto 354 129 lineto stroke
% Polyline
newpath 349 99 moveto 349 129 lineto stroke
% Polyline
newpath 344 99 moveto 344 129 lineto stroke
% Polyline
newpath 334 99 moveto 334 129 lineto stroke
% Polyline
newpath 329 99 moveto 329 129 lineto stroke
% Polyline
newpath 324 99 moveto 324 129 lineto stroke
% Polyline
newpath 314 99 moveto 314 129 lineto stroke
% Polyline
newpath 309 99 moveto 309 129 lineto stroke
% Polyline
newpath 299 99 moveto 299 129 lineto stroke
% Polyline
newpath 279 279 moveto 279 309 lineto stroke
% Polyline
newpath 289 279 moveto 289 309 lineto stroke
% Polyline
newpath 294 279 moveto 294 309 lineto stroke
% Polyline
newpath 304 279 moveto 304 309 lineto stroke
% Polyline
newpath 309 279 moveto 309 309 lineto stroke
% Polyline
newpath 314 279 moveto 314 309 lineto stroke
% Polyline
newpath 324 279 moveto 324 309 lineto stroke
% Polyline
newpath 329 279 moveto 329 309 lineto stroke
% Polyline
newpath 334 279 moveto 334 309 lineto stroke
% Polyline
newpath 339 279 moveto 339 309 lineto stroke
% Polyline
newpath 349 279 moveto 349 309 lineto stroke
% Polyline
newpath 354 279 moveto 354 309 lineto stroke
% Polyline
newpath 359 279 moveto 359 309 lineto stroke
% Polyline
newpath 364 279 moveto 364 309 lineto stroke
% Polyline
newpath 349 309 moveto 364 279 lineto stroke
% Polyline
newpath 364 279 moveto 364 309 lineto stroke
% Polyline
newpath 359 279 moveto 359 309 lineto stroke
% Polyline
newpath 354 279 moveto 354 309 lineto stroke
% Polyline
newpath 349 279 moveto 349 309 lineto stroke
% Polyline
newpath 339 279 moveto 339 309 lineto stroke
% Polyline
newpath 334 279 moveto 334 309 lineto stroke
% Polyline
newpath 329 279 moveto 329 309 lineto stroke
% Polyline
newpath 324 279 moveto 324 309 lineto stroke
% Polyline
newpath 314 279 moveto 314 309 lineto stroke
% Polyline
newpath 309 279 moveto 309 309 lineto stroke
% Polyline
newpath 304 279 moveto 304 309 lineto stroke
% Polyline
newpath 294 279 moveto 294 309 lineto stroke
% Polyline
newpath 289 279 moveto 289 309 lineto stroke
% Polyline
newpath 279 279 moveto 279 309 lineto stroke
% Polyline
newpath 399 119 moveto 409 79 lineto stroke
% Polyline
newpath 419 119 moveto 429 79 lineto stroke
% Polyline
newpath 424 119 moveto 434 79 lineto stroke
% Polyline
newpath 444 119 moveto 454 79 lineto stroke
% Polyline
newpath 459 79 moveto 449 119 lineto stroke
% Polyline
newpath 454 119 moveto 464 79 lineto stroke
% Polyline
newpath 474 119 moveto 484 79 lineto stroke
% Polyline
newpath 489 79 moveto 479 119 lineto stroke
% Polyline
newpath 484 119 moveto 494 79 lineto stroke
% Polyline
newpath 499 79 moveto 489 119 lineto stroke
% Polyline
newpath 509 119 moveto 519 79 lineto stroke
% Polyline
newpath 524 79 moveto 514 119 lineto stroke
% Polyline
newpath 519 119 moveto 529 79 lineto stroke
% Polyline
newpath 534 79 moveto 524 119 lineto stroke
% Polyline
newpath 529 119 moveto 539 79 lineto stroke
% Polyline
newpath 514 259 moveto 489 299 lineto stroke
% Polyline
newpath 514 259 moveto 504 299 lineto stroke
% Polyline
newpath 499 299 moveto 509 259 lineto stroke
% Polyline
newpath 504 259 moveto 494 299 lineto stroke
% Polyline
newpath 489 299 moveto 499 259 lineto stroke
% Polyline
newpath 479 259 moveto 469 299 lineto stroke
% Polyline
newpath 464 299 moveto 474 259 lineto stroke
% Polyline
newpath 469 259 moveto 459 299 lineto stroke
% Polyline
newpath 454 299 moveto 464 259 lineto stroke
% Polyline
newpath 434 299 moveto 444 259 lineto stroke
% Polyline
newpath 439 259 moveto 429 299 lineto stroke
% Polyline
newpath 424 299 moveto 434 259 lineto stroke
% Polyline
newpath 404 299 moveto 414 259 lineto stroke
% Polyline
newpath 399 299 moveto 409 259 lineto stroke
% Polyline
newpath 379 299 moveto 389 259 lineto stroke
/fn24.18 /NewCenturySchlbk-Roman findfont 20.000000 scalefont def
fn24.18 setfont
(Modern Ogam Cipher) 179 219 moveto 1 -1 scale show 1 -1 scale
/fn24.12 /NewCenturySchlbk-Roman findfont 13.333333 scalefont def
fn24.12 setfont
(U/V) 519 319 moveto 1 -1 scale show 1 -1 scale
(W) 554 319 moveto 1 -1 scale show 1 -1 scale
(X) 579 319 moveto 1 -1 scale show 1 -1 scale
(Y) 609 319 moveto 1 -1 scale show 1 -1 scale
(Z) 644 319 moveto 1 -1 scale show 1 -1 scale
(T) 494 319 moveto 1 -1 scale show 1 -1 scale
(S) 459 319 moveto 1 -1 scale show 1 -1 scale
(R) 424 319 moveto 1 -1 scale show 1 -1 scale
(Q) 394 319 moveto 1 -1 scale show 1 -1 scale
(P) 374 319 moveto 1 -1 scale show 1 -1 scale
(O) 354 329 moveto 1 -1 scale show 1 -1 scale
(N) 329 329 moveto 1 -1 scale show 1 -1 scale
(M) 304 329 moveto 1 -1 scale show 1 -1 scale
(L) 289 329 moveto 1 -1 scale show 1 -1 scale
(K) 274 329 moveto 1 -1 scale show 1 -1 scale
(J) 259 299 moveto 1 -1 scale show 1 -1 scale
(I) 234 299 moveto 1 -1 scale show 1 -1 scale
(H) 209 299 moveto 1 -1 scale show 1 -1 scale
(G) 194 299 moveto 1 -1 scale show 1 -1 scale
(F) 179 299 moveto 1 -1 scale show 1 -1 scale
(E) 164 319 moveto 1 -1 scale show 1 -1 scale
(D) 139 319 moveto 1 -1 scale show 1 -1 scale
(C) 114 319 moveto 1 -1 scale show 1 -1 scale
(B) 99 319 moveto 1 -1 scale show 1 -1 scale
(A) 84 319 moveto 1 -1 scale show 1 -1 scale
(R) 514 139 moveto 1 -1 scale show 1 -1 scale
(Z) 479 139 moveto 1 -1 scale show 1 -1 scale
(NG) 439 139 moveto 1 -1 scale show 1 -1 scale
(G) 414 139 moveto 1 -1 scale show 1 -1 scale
(M) 394 139 moveto 1 -1 scale show 1 -1 scale
(N) 374 149 moveto 1 -1 scale show 1 -1 scale
(S) 349 149 moveto 1 -1 scale show 1 -1 scale
(V) 324 149 moveto 1 -1 scale show 1 -1 scale
(L) 309 149 moveto 1 -1 scale show 1 -1 scale
(B) 294 149 moveto 1 -1 scale show 1 -1 scale
(Q) 274 119 moveto 1 -1 scale show 1 -1 scale
(C) 249 119 moveto 1 -1 scale show 1 -1 scale
(T) 224 119 moveto 1 -1 scale show 1 -1 scale
(D) 209 119 moveto 1 -1 scale show 1 -1 scale
(H) 194 119 moveto 1 -1 scale show 1 -1 scale
(I) 169 139 moveto 1 -1 scale show 1 -1 scale
(E) 139 139 moveto 1 -1 scale show 1 -1 scale
(U) 114 139 moveto 1 -1 scale show 1 -1 scale
(O) 99 139 moveto 1 -1 scale show 1 -1 scale
(A) 84 139 moveto 1 -1 scale show 1 -1 scale
fn24.18 setfont
(Ancient Ogam Cipher) 179 39 moveto 1 -1 scale show 1 -1 scale
showpage
--------------------END, cut here---------------------------------

Happy Ciphering!