Newsgroups: alt.magick
Date: Thu, 27 Aug 1992 23:01:01 -0400 
From: "Andrew C. Plotkin" <ap1i+@andrew.cmu.edu>
Subject: Enlightenment....

Excerpts from netnews.alt.magick: 27-Aug-92 Unicursal Hexagrams and
Yan.. Edward M. Averett@hermes (1854)

> Have fun.  Don't  talk about it.  Think and meditate.  Do not reveal the
great secrets which will be revealed to you to the uninitiated. 
> Everything you know is wrong.  Nothing is true. Everything is permissible. 

And while we're on that subject....

Today was the CMU Activities Fair, where all the CMU student groups try
to entice the new freshmen into their clutches. There is no CMU
Discordian Society, so we gave out about 700 little cards. The design of
these cards (in PostScript form) is included below, in normal
business-card size and double size.

Feel free to distribute or use as you like. It's a little CMU-specific,
but you don't have to care (or you can edit it as appropriate.) I think
you can copy it out and print it without modification; send me mail if
it doesn't work. 

Original inspiration was of course the Principia Discordia "Pope" card,
but I think I've given the idea a slightly different spin.

--Z

---------------------cut-here------------------
%!
% Enlightenment certification card
% Created by Andrew Plotkin, ap1i+@andrew.cmu.edu
% Public domain -- distribute freely

48 48 translate 
% Work in inches.
72 dup scale
/cardwidth 3.5 def
/cardheight 2 def
1 288 div setlinewidth

/simplewidth {stringwidth pop} def
/centershow
   {gsave dup simplewidth 2 div neg 0 rmoveto
    show 
    grestore} def 
/rightshow
   {gsave dup simplewidth 1.6 sub neg 0 rmoveto
    show 
    grestore} def 
/leftshow
   {gsave  -1.6  0 rmoveto
    show 
    grestore} def 

/setmedium 
   {/Helvetica findfont 1 6 div scalefont setfont} def
/setbig
   {/Helvetica-Oblique findfont 1.9 6 div scalefont setfont} def
/setitalic
   {/Helvetica-Oblique findfont 1 6 div scalefont
    setfont} def
/setbold
   {/Helvetica-Bold findfont 1 6 div scalefont
    setfont} def
/setsmall
   {/Helvetica-Bold findfont 1 10 div scalefont setfont} def
/settiny
   {/Helvetica-Bold findfont 1 11 div scalefont setfont} def
/setminute
   {/Helvetica-Bold findfont 1 16 div scalefont setfont} def
/smskip {0 -0.05 rmoveto} def

% length width angle x0 y0 
/expline {
gsave
translate rotate scale
0 0 moveto 
0 0.2 lineto
0 0.1   0.1 0   1.0 0   curveto
closepath fill
grestore
} def

/tislogo {

gsave
-90 -50 moveto
90 -50 lineto
90 50 lineto
-90 50 lineto
closepath
2 setlinewidth
stroke
grestore

90 -50 moveto
-90 -50 lineto
-90 50 lineto
closepath

25 0 moveto
0 0 25 0 360 arc
closepath

10 0 moveto
0 0 10 0 360 arc
closepath

75 0 moveto
30 50  -30 50  -75 0  curveto
-30 -50  30 -50  75 0  curveto
closepath

eofill

} def  % tislogo end


/discord {
newpath
-3 -4 moveto
4 -3 lineto
3 4 lineto
-4 3 lineto
closepath stroke

-3.5 -0.5 moveto
0 -25 0 0 1.775 arcto pop pop pop pop 
0 25 3.5 0.5 1.775 arcto pop pop pop pop 
stroke

0 dup sin 1.1 mul -1.8 add exch cos 1.1 mul 0.3 add moveto
1 1 4 { 72 mul dup sin 1.1 mul -1.8 add  exch cos 1.1 mul 0.3 add lineto
} for closepath
gsave 0.75 setgray fill grestore 
stroke

1.8 0.2 moveto
3.5 0.8  2.9 -1.6  2.0 -1.4  curveto
1.8 -1.3  1.8 -1.3   1.6 -1.4 curveto
0.7 -1.6   0.1 0.8  1.8 0.2 curveto
%gsave 0.75 setgray fill grestore 
stroke
1.8 0.2 moveto
1.7 0.5   1.9 0.63   2.0 0.7   curveto stroke
/Symbol findfont 1.7 scalefont setfont
1.3 -0.9 moveto (k)  show
} def      %discord end
  
% x y  xh yh  arrowhead
/arrowhead {
gsave
4 2 roll
translate scale
0 1 moveto
0 0.4   0.4 0   1 0 curveto
0.4 0  0 -0.4  0 -1 curveto
.02 setlinewidth
stroke
grestore
} def




% Draw the boundaries of the card.
/startall 
{
gsave
0 0 moveto
0 cardheight lineto
cardwidth cardheight lineto
cardwidth 0 lineto
closepath 
0 setlinewidth
stroke
grestore

gsave
cardwidth 2 div cardheight translate

30 8 150 {
0 -0.65 moveto
dup cos 
exch sin 0.5 mul 0.1 add
rlineto
stroke
} for

gsave
0 -0.9 translate
1.3 0.7 scale
0 0 1 0 180 arc
1 setgray
fill
grestore

setmedium
0 -.53 moveto
(CERTIFICATION of)  centershow
setbig
0 -.95 moveto
(ENLIGHTENMENT) centershow

-1.33 -1.1 moveto
1.33 -1.1 lineto
stroke

1.4 -1.1  .2 .08  arrowhead
1.4 -1.1  -.1 .08 arrowhead

-1.4 -1.1  -.2 .08  arrowhead
-1.4 -1.1  .1 .08 arrowhead

settiny
0 -1.3 moveto
(The Bearer is in an accredited
state of GRACE and has) centershow
0 -0.1 rmoveto
(the favor of any deity, demiurge, higher
being, or other manifestation.) centershow
0 -0.1 rmoveto
(Fully licensed for inner serenity and
wisdom; may supply rays of Hope) centershow
0 -0.1 rmoveto
(in troubled times. Like now. Esoteric
platitudes available in moderation.) centershow
0 -0.1 rmoveto
(Do not use while under
the influence of dogma. ) centershow
0 -0.15 rmoveto
(Authorized by CMU Discordian Society and the
Order of Rosipisceans.) centershow

grestore

gsave
	0.4 1.60 translate
	0.065 dup scale
	0.15 setlinewidth
	discord
grestore

gsave
	3.1 1.65 translate
	0.0035 dup scale
	tislogo
grestore

} def %startall

gsave
	2 2 scale 
	currentscreen 
	3 -1 roll
	2 div
	3 1 roll
	setscreen
	startall
grestore

0 6 translate
startall

showpage

---------------------cut-here------------------
Newsgroups: alt.magick