[comp.lang.postscript] PostScript Tree of Life

lee@sq.sq.com (Liam R. E. Quin) (05/17/91)

louisg@vpnet.chi.il.us (Louis Giliberto) writes:
>[...]
> For example, concerning the Tree of Life:
> Kether is in Malkuth, and Malkuth is in Kether, but after another manner.
>[...]

Which prompts me to make the enclosed file available...

It's taken from Crowley's version of the diagram, combining the Book of
Thoth and Magick In Theory And Practice.  I've left off the hebrew letters
since otherwise I'd have to include the font...

Lee


: To unbundle, sh this file
a - yggdrasil.ps
echo x - yggdrasil.ps 1>&2
sed 's/^X//' >yggdrasil.ps <<'@@@End of yggdrasil.ps'
X%!PS-Adobe-1.0
X%%Creator: SoftQuad Troff
X%%For: Liam R. E. Quin
X%%Title: (standard input)
X%%CreationDate: Fri May 17 04:35:52 1991
X%%DocumentFonts: (atend)
X%%Pages: (atend)
X%%EndComments
X% @(#)preamble	1.37 88/03/18 Copyright 1986, 1987, 1988 SoftQuad Inc.
X
X/FILLTYPE 0 def/MINLINE 0 def/RES 300 def/GTP 72 RES div def/PTOGOOBIES RES
X72 div def GTP GTP scale/pt{PTOGOOBIES mul}def 70
X45{dup mul exch dup mul add 1 sub}setscreen/sqtran[0 0 0 1 2 3 4 5
X6 7 8 9 10 11 12 13 14 15 16 17 18 20 22 24 26 28 31 34 37 40 42 44
X46 48 49 51 52 54 55 57 59 60 62 63 65 66 68 69 71 72 72 73 74 75 76
X77 78 78 79 80 81 82 83 83 84 85 85 86 87 87 88 88 89 89 90 90 91 91
X92 92 93 93 94 94 95 95 96 96 97 97 97 97 98 98 98 98 99 99 99 99.5
X100]def{100 mul round cvi sqtran exch get 100 div}settransfer 0
Xsetlinejoin 0 setlinecap/N{findfont exch scalefont setfont}bind
Xdef/startofpage{pop pop pop newpath 0 tpage moveto}def/endofpage{/#copies
Xexch def showpage}def/hm{currentpoint exch pop moveto}def/ex{4 -1 roll
Xcurrentpoint exch pop moveto ashow}bind def/rm/rmoveto load def/gs/gsave
Xload def/gr/grestore load def/cp/currentpoint load def/dl{rlineto
Xstroke moveto}bind def/f{dup stringwidth pop round 3 -1 roll exch
Xsub hm show}def/circ{/r exch def gsave r neg 0 rmoveto currentpoint newpath
Xr 0 360 arc FILLTYPE 0 eq{stroke}{fill}ifelse grestore}def/BOX{/dy exch
Xdef/dx exch def currentpoint gsave newpath moveto dx 0 rlineto 0 dy neg
Xrlineto dx neg 0 rlineto 0 dy rlineto dx 0 rlineto closepath FILLTYPE 0
Xeq{stroke}{fill}ifelse grestore}def/SWID{1 sub setlinewidth}bind
Xdef/PTYPE{/tpage 0 def/landscape exch def/pagey exch def/pagex exch
Xdef/gtop pagey def landscape 0 eq{/gtop pagex def}if/clipy exch def/clipx
Xexch def/dclipy exch def/dclipx exch def neg gtop add translate/wanted exch
Xdef landscape 0 eq{90 neg rotate pagex pagey translate 180 rotate/tpage pagey
Xdef}if/inmachine(legal)def statusdict begin pagetype 2
Xlt{/inmachine(letter)def}{/inmachine(note)def}ifelse end}def/freq 72 300 32
Xdiv div def/sf{/y exch def/x exch def/xindex x 1 add 2 div Bsize mul cvi
Xdef/yindex y 1 add 2 div Bsize mul cvi def/byte bitString yindex Bwid mul
Xxindex 8 idiv add get def/mask 1 7 xindex 8 mod sub bitshift def byte mask
Xand 0 ne{/On On 1 add def 1}{/Off Off 1 add def 0}ifelse}def/s{exch
Xcurrentpoint exch pop moveto show}bind def/R{471 exch rm}bind def
X
X%%EndProlog
X%%BeginSetup
X(letter) 0 0 0 0 2550 3300 2550 3300 4 PTYPE
X%%EndSetup
X%%Page: 1 1
X%%PageFonts: (atend)
X
X1 1 1 startofpage/FILLTYPE 0 def 0 setgray -489 R 1 SWID/TR{/Times-Roman}def
X10 pt TR N 1211(1)s -50 R 1164(Kether)s 471 33 rm 2 SWID 1371 hm gs 150 circ
Xgr -283 R 1811(2)s -50 R 1740(Chokmah)s 33 R 1971 hm gs 150 circ gr 17 R
X611(3)s -50 R 571(Binah)s 33 R 771 hm gs 150 circ gr -583 R 1811(4)s -50
XR 1759(Chesed)s 33 R 1971 hm gs 150 circ gr 17 R 611(5)s -50 R
X549(Geburah)s 33 R 771 hm gs 150 circ gr -583 R 1811(7)s -50 R
X1752(Netzach)s 33 R 1971 hm gs 150 circ gr 17 R 611(8)s -50 R 585(Hod)s
X33 R 771 hm gs 150 circ gr 317 R 1211(6)s -50 R 1140(T)s 1164(iphereth)s
X33 R 1371 hm gs 150 circ gr -583 R 1211(9)s -50 R 1170(Y)s 1196(esod)s 33
XR 1371 hm gs 150 circ gr -583 R 1200(10)s -50 R 1150(Malkuth)s 33 R 1371
Xhm gs 150 circ gr 2400 R 1371 hm cp 450 -150 dl -62 R 7 pt TR N 1631(0)f
X1661(F)f 1676(o)f 1691(o)f 1699(l)f 62 R 1071 hm cp -450 -150 dl -62 R 7 pt
XTR N 732(I)f 772(M)f 785(a)f 800(g)f 815(u)f 826(s)f 0 -21 rm 10 pt TR N
X-217 R 1671 hm cp -900 0 dl 13 R 7 pt TR N 811(I)f 821(I)f 831(I)f 863(E)f
X886(m)f 901(p)f 911(r)f 924(e)f 935(s)f 946(s)f 137 R 1221 hm cp 0 -900 dl
X-390 R 1 setgray/FILLTYPE 1 def 1161 hm 120 -150 BOX 112 R 0 setgray 7 pt
XTR N 1221(I)f 1231(I)f -50 R 1213(H)f 1221(i)f 1236(g)f 1251(h)f -50 R
X1187(P)f 1197(r)f 1205(i)f 1218(e)f 1229(s)f 1237(t)f 1250(e)f 1261(s)f
X1272(s)f -50 R 10 pt TR N 0 173 rm/FILLTYPE 0 def 1714 hm cp -387 -687 dl
X-29 R 7 pt TR N 1563(X)f 1573(I)f 1583(I)f 1615(T)f 1630(h)f 1643(e)f
X1666(S)f 1674(t)f 1687(a)f 1697(r)f 0 21 rm 10 pt TR N 8 R 726 hm cp 387
X-687 dl -29 R 7 pt TR N 764(V)f 774(I)f 806(T)f 821(h)f 834(e)f 859(L)f
X874(o)f 889(v)f 902(e)f 912(r)f 923(s)f -16 R 1821 hm cp 0 -300 dl -50 R 10
Xpt TR N 7 pt TR N 1852(V)f 1887(H)f 1895(i)f 1908(e)f 1918(r)f 1933(o)f
X1948(p)f 1963(h)f 1976(a)f 1991(n)f 1999(t)f 50 R 621 hm cp 0 -300 dl -50 R
X7 pt TR N 489(I)f 499(I)f 509(I)f 542(C)f 557(h)f 570(a)f 580(r)f 588(i)f
X603(o)f 611(t)f 10 pt TR N -100 R cp 15 0 dl 500 hm cp 15 0 dl 471 hm 530 hm
Xcp 15 0 dl 471 hm 560 hm cp 15 0 dl 471 hm 589 hm cp 15 0 dl 471 hm 619 hm cp
X15 0 dl 471 hm 649 hm cp 15 0 dl 471 hm 678 hm cp 15 0 dl 471 hm 708 hm cp 15
X0 dl 471 hm 738 hm cp 15 0 dl 471 hm 768 hm cp 15 0 dl 471 hm 797 hm cp 15 0
Xdl 471 hm 827 hm cp 15 0 dl 471 hm 857 hm cp 15 0 dl 471 hm 886 hm cp 15 0 dl
X471 hm 916 hm cp 15 0 dl 471 hm 946 hm cp 15 0 dl 471 hm 975 hm cp 15 0 dl
X471 hm 1005 hm cp 15 0 dl 471 hm 1035 hm cp 15 0 dl 471 hm 1065 hm cp 15 0 dl
X471 hm 1094 hm cp 15 0 dl 471 hm 1124 hm cp 15 0 dl 471 hm 1154 hm cp 15 0 dl
X471 hm 1183 hm cp 15 0 dl 471 hm 1213 hm cp 15 0 dl 471 hm 1243 hm cp 15 0 dl
X471 hm 1272 hm cp 15 0 dl 471 hm 1302 hm cp 15 0 dl 471 hm 1332 hm cp 15 0 dl
X471 hm 1362 hm cp 15 0 dl 471 hm 1391 hm cp 15 0 dl 471 hm 1421 hm cp 15 0 dl
X471 hm 1451 hm cp 15 0 dl 471 hm 1480 hm cp 15 0 dl 471 hm 1510 hm cp 15 0 dl
X471 hm 1540 hm cp 15 0 dl 471 hm 1569 hm cp 15 0 dl 471 hm 1599 hm cp 15 0 dl
X471 hm 1629 hm cp 15 0 dl 471 hm 1659 hm cp 15 0 dl 471 hm 1688 hm cp 15 0 dl
X471 hm 1718 hm cp 15 0 dl 471 hm 1748 hm cp 15 0 dl 471 hm 1777 hm cp 15 0 dl
X471 hm 1807 hm cp 15 0 dl 471 hm 1837 hm cp 15 0 dl 471 hm 1866 hm cp 15 0 dl
X471 hm 1896 hm cp 15 0 dl 471 hm 1926 hm cp 15 0 dl 471 hm 1956 hm cp 15 0 dl
X-33 R 8 pt TR N 940(V)f 976(E)f 1003(I)f 1039(L)f 1103(O)f 1138(F)f 1222(T)f
X1262(H)f 1298(E)f 1378(A)f 1416(B)f 1456(Y)f 1491(S)f 1526(S)f -275 R 10 pt
XTR N 0 21 rm 7 pt TR N 1197(X)f 1207(I)f 1253(L)f 1268(u)f 1279(s)f 1287(t)f
X-13 R 771 hm cp 900 0 dl -105 R 1714 hm cp -343 -194 dl -106 R 10 pt TR N
X0 -21 rm 7 pt TR N 1562(I)f 1583(X)f 1618(H)f 1631(e)f 1641(r)f 1664(m)f
X1672(i)f 1680(t)f 127 R 726 hm cp 344 -194 dl -127 R 7 pt TR N 698(V)f
X708(I)f 718(I)f 728(I)f 763(A)f 778(d)f 786(j)f 801(u)f 812(s)f 820(t)f
X843(m)f 856(e)f 871(n)f 879(t)f 0 21 rm 10 pt TR N 61 R 1821 hm cp 0 -300 dl
X-137 R 7 pt TR N 1852(X)f 1894(W)f 1909(h)f 1922(e)f 1935(e)f
X1943(l)f/TI{/Times-Italic}def 9 pt TI N 1950(of)s 7 pt TR N 2002(F)f 2017(o)f
X2027(r)f 2035(t)f 2050(u)f 2065(n)f 2078(e)f -119 R 1326 hm cp 387 -87 dl
X-73 R 7 pt TR N 1387(X)f 1397(I)f 1407(I)f 1417(I)f 1452(D)f 1465(e)f
X1478(a)f 1486(t)f 1501(h)f 0 21 rm 10 pt TR N 52 R 1115 hm cp -387 -87 dl
X-73 R 7 pt TR N 962(X)f 983(V)f 1018(D)f 1031(e)f 1046(v)f 1054(i)f 1062(l)f
X329 R 621 hm cp 0 -300 dl -137 R 7 pt TR N 431(X)f 441(I)f 451(I)f 479(H)f
X492(a)f 507(n)f 522(g)f 535(e)f 550(d)f 583(M)f 596(a)f 611(n)f 10 pt TR N
X-46 R cp 13 -6 dl 0 -12 rm 498 hm cp 13 -6 dl -13 R 525 hm cp 13 -6 dl -12
XR 552 hm cp 13 -6 dl -13 R 580 hm cp 13 -6 dl -12 R 607 hm cp 13 -6 dl -13
XR 634 hm cp 13 -6 dl -12 R 661 hm cp 13 -6 dl -12 R 689 hm cp 13 -6 dl -13
XR 716 hm cp 13 -6 dl -12 R 743 hm cp 13 -6 dl -13 R 771 hm cp 13 -6 dl -12
XR 798 hm cp 13 -6 dl -12 R 825 hm cp 13 -6 dl 471 -13 rm 852 hm cp 13 -6 dl
X-12 R 880 hm cp 13 -6 dl -13 R 907 hm cp 13 -6 dl -12 R 934 hm cp 13 -6 dl
X-13 R 961 hm cp 13 -6 dl 471 -12 rm 989 hm cp 13 -6 dl -12 R 1016 hm cp 13
X-6 dl -13 R 1043 hm cp 13 -6 dl -12 R 1071 hm cp 13 -6 dl -13 R 1098 hm cp
X13 -6 dl 471 -12 rm 1125 hm cp 13 -6 dl -12 R 1152 hm cp 13 -6 dl -13 R
X1180 hm cp 13 -6 dl -12 R 1207 hm cp 13 -6 dl -7 R 1221 hm cp 13 6 dl 471
X13 rm 1248 hm cp 13 6 dl 12 R 1275 hm cp 13 6 dl 13 R 1302 hm cp 13 6 dl
X12 R 1330 hm cp 13 6 dl 13 R 1357 hm cp 13 6 dl 12 R 1384 hm cp 13 6 dl
X12 R 1411 hm cp 13 6 dl 13 R 1439 hm cp 13 6 dl 12 R 1466 hm cp 13 6 dl
X13 R 1493 hm cp 13 6 dl 12 R 1521 hm cp 13 6 dl 13 R 1548 hm cp 13 6 dl
X12 R 1575 hm cp 13 6 dl 12 R 1602 hm cp 13 6 dl 13 R 1630 hm cp 13 6 dl
X12 R 1657 hm cp 13 6 dl 471 13 rm 1684 hm cp 13 6 dl 12 R 1711 hm cp 13 6
Xdl 13 R 1739 hm cp 13 6 dl 12 R 1766 hm cp 13 6 dl 12 R 1793 hm cp 13 6 dl
X13 R 1821 hm cp 13 6 dl 12 R 1848 hm cp 13 6 dl 13 R 1875 hm cp 13 6 dl
X12 R 1902 hm cp 13 6 dl 13 R 1930 hm cp 13 6 dl 12 R 1957 hm cp 13 6 dl
X-69 R 8 pt TR N 380(V)f 416(E)f 443(I)f 479(L)f 543(O)f 578(F)f 42 R 10 pt
XTR N 0 -42 rm 8 pt TR N 1868(P)f 1908(A)f 1946(R)f 1986(O)f 2026(K)f 2062(E)f
X2098(T)f 2138(H)f -192 R 1671 hm cp -900 0 dl 17 R 7 pt TR N 1120(X)f
X1141(V)f 1151(I)f 1183(T)f 1198(h)f 1211(e)f 1250(T)f 1263(o)f 1284(w)f
X1297(e)f 1307(r)f 10 pt TR N 133 R 1221 hm cp 0 -300 dl -50 R 7 pt TR N
X1252(X)f 1262(I)f 1283(V)f 1318(A)f 1328(r)f 1336(t)f -206 R 1714 hm cp -343
X-193 dl -84 R 7 pt TR N 1393(I)f 1414(V)f 1446(E)f 1469(m)f 1484(p)f
X1497(e)f 1507(r)f 1522(o)f 1532(r)f 0 -21 rm 10 pt TR N -89 R 1071 hm cp
X-344 193 dl 110 R 7 pt TR N 930(X)f 940(I)f 961(X)f 993(T)f 1008(h)f
X1021(e)f 1044(S)f 1059(u)f 1074(n)f 40 R 1821 hm cp -494 -643 dl -329 R 10
Xpt TR N 0 -21 rm 7 pt TR N 1605(X)f 1626(V)f 1636(I)f 1646(I)f 1678(T)f
X1693(h)f 1706(e)f 1739(M)f 1754(o)f 1769(o)f 1784(n)f 350 R 621 hm cp 494
X-643 dl -350 R 7 pt TR N 708(X)f 729(X)f 761(T)f 776(h)f 789(e)f 817(A)f
X830(e)f 845(o)f 860(n)f 471 50 rm 1221 hm cp 0 -300 dl -116 R 7 pt TR N
X1249(X)f 1270(X)f 1280(I)f 1315(U)f 1330(n)f 1338(i)f 1353(v)f 1366(e)f
X1376(r)f 1387(s)f 1400(e)f 471 2142 rm 8 pt TI N 1171(T)f 1190(h)f 1207(e)f
X1239(A)f 1256(c)f 1273(e)f 1288(s)f -163 R 1134(A)f 1145(l)f 1156(l)f
X1185(2)f 1204(2)f 1235(T)f 1248(r)f 1267(u)f 1293(m)f 1312(p)f 1327(s)f -36
XR 1193(\()f 6 pt TI N 1210(A)f 1225(T)f 1245(U)f 8 pt TI N 1258(\))f -101 R
X1751(T)f 1770(h)f 1787(e)f 1823(D)f 1840(e)f 1859(u)f 1876(c)f 1893(e)f
X1908(s)f -163 R 1765(A)f 1776(l)f 1787(l)f 1827(W)f 1843(a)f 1862(n)f
X1881(d)f 1896(s)f 163 R 555(T)f 574(h)f 591(e)f 622(T)f 641(h)f 656(r)f
X672(e)f 689(e)f 704(s)f -163 R 576(A)f 587(l)f 598(l)f 632(C)f 651(u)f
X670(p)f 685(s)f -437 R 1762(T)f 1781(h)f 1798(e)f 1830(F)f 1849(o)f 1868(u)f
X1883(r)f 1898(s)f 471 hm 566(T)f 585(h)f 602(e)f 634(F)f 645(i)f 662(v)f
X679(e)f 694(s)f -300 R 1167(T)f 1186(h)f 1203(e)f 1232(S)f 1243(i)f 1260(x)f
X1277(e)f 1292(s)f -163 R 1159(A)f 1170(l)f 1181(l)f 1210(S)f 1234(w)f
X1253(o)f 1268(r)f 1286(d)f 1301(s)f -33 R 1154(\()f 1180(D)f 1199(a)f
X1218(g)f 1237(g)f 1254(e)f 1269(r)f 1284(s)f 1297(\))f -104 R 1755(T)f
X1774(h)f 1791(e)f 1820(S)f 1837(e)f 1854(v)f 1871(e)f 1890(n)f 1905(s)f 471
Xhm 558(T)f 577(h)f 594(e)f 626(E)f 637(i)f 656(g)f 675(h)f 686(t)f 701(s)f
X-300 R 1164(T)f 1183(h)f 1200(e)f 1234(N)f 1245(i)f 1264(n)f 1281(e)f
X1296(s)f -600 R 1172(T)f 1191(h)f 1208(e)f 1239(T)f 1253(e)f 1272(n)f
X1287(s)f -154 R 1170(A)f 1181(l)f 1192(l)f 1226(C)f 1245(o)f 1256(i)f
X1275(n)f 1290(s)f -33 R 1145(\()f 1167(P)f 1184(e)f 1203(n)f 1214(t)f
X1233(a)f 1250(c)f 1261(l)f 1278(e)f 1293(s)f 1306(\))f 0 2674 rm 1 endofpage
X
X%%PageFonts: Times-Italic Times-Roman
X%%Trailer
X%%Pages: 1
X%%DocumentFonts: Times-Italic Times-Roman
@@@End of yggdrasil.ps
echo End of shell archive.
exit 0
-- 
Liam Quin, lee@sq.com, SoftQuad, Toronto, +1 416 963 8337
the barefoot programmer