David M:SierpinskiTetrahedronDirect
From Ultrafractal Wiki
for discussion see: 3D IFS
Copyright © 2007 by David Makin
SierpinskiTetrahedronDirect {
; Copyright © 2007 by David Makin.
::knO5Mhn2V2ZXPuuNSa47DQ+P04c1MIInjqXqPnF6igJIALQmdC2sXtXMDc7P62Iut9K7On26
X/QSJyqKqgZpOXkQSLWii69ViurHJfYYz27bO9X+2v5pnuf8+p99f6XPuf46xz3+tj/P7vPs
5197Guc+HPOsf79P90XPu7+r91lFP96+jv869+y2inOt5x+hb9kLIHG282ebZQPd4q9//02h
97Oe/W/n+xN/+xdP9328bHP/fU/FTxXQRR7n+2vx3b/AY7mr3Pe5c/n+ZXTPV9pnucdz2j3f
0TFFP92+hX2/2ld77f79T3Pe90DbT3f9yu56budzfUMs58trbG2f+e/j92mebzV7hzLT7Bbr
7H6/+iPXUW9F7/1U90bbe5cP95qv9bOcZwGqN+t8tNfc0tp4pr7H2+6+t/W/lDHe6wxT7PbP
C7/0f7tDlf+9Dv9pnsxc4hth/2PV+XN/4/5P9rfyFgr/zf3Op4OcoPT2a3e9yXPe+wl+zXcf
2x9ft/nmm8tVPe+y73n+k7TTx0UMuPPN7iwhjfs50J3Bl7D2f7+vv5U/P8+dXv2e5ywuPe0X
8liQtxe7x3UU2db7G7pW3soPM7Oebevd8l9n9B/4bHP3777mTbfxvB+ZPX3tfkbX5HDn2M3z
b7tTyb8nvK+MmirttpP8dbphj2yzzE2jW3Q/HO5OYv7Gnfu4L2zCoyVf8ru6+99b+9sZq2wl
79owKVmnLc1ddcajtnh3ZPB9L2Z5rWt5xffv7w4qV65/4DbPZrEnCe2XtaqnXcDBjLUm5ds9
Dpphuv4Brk3uvDd232zbsaAE3cwbOOt/wd5HN4Pnp6uh3czz3fTs1m7XuKqS3fcdf/P88tLn
e/+ex+nP76qN2LG5+JG+zuMc0p+ttwdvk3/lq9QoRV4LFiHfd9eocYzujvfTMq3e5tnPe2G1
z7m71lTXefw676/Z3khtw39LXu9lf0e6d6Tde3+/3v/53Pcw61tnvef3L7p+5dqvG8SuT2rE
dtvzVyKrsCCf/f7a/n+47OY31/pb/fD3/TP+H47G/H4P/n9mvD/zxDn7PuzON4k/2d6pLb7/
5Lb9CWbTb2tza17/13fz957vaHLtud7G7lXKcXLwNIucyJwKmK9ivw53f7l+y5t020nbqmk7
vM7KmNA33SWffQ4uFzXE4+WjtE8lKtlM+SV2Sl+S1uLE5L1YLVH6ertSjvUntU7U8LsF7mKS
znJsFht40eiM2iIECq0Wba3RV2iT7Pq2WcaHSN2i1TFbtFn2fUntYb8wowWbafCa2laLCbxp
9JM2iTHeo0WcaHiKbxyYQqt1m2noxWcafiWbxp9J6sFnOINF2iT7QD1XySyhZ5/pZxV/f1eR
5hNf3f3eBzhv7XfdzuLf9W4ztXIu//yet9NnCd/W0987zluav6u7Mm7k959XP+hr9ypLr5q5
Pru5tnZ1htSYUYL+CX8Zu4p5i7OajuxrP2vtf+kyprfdwdMNXkm32nP5uQzsbdjVnPdB/TTX
D3p4m6+A3gt2LqaPrqZvsqfeo//2e/z41Ush+yR7lJ+eaq2t7DzTATV01eRV7ZWcb1++DK/A
2aP87pbTOXXRq/Xc7GXVi3F+yDcU81fR+hPHr4vSxf/whb7niS8KVnsXF87NcImvfR50nZHp
xpuXpQ0cDJMPR4qj5x0cMg4A3X5FZl4YCJjJMNmCBZaY5L6GT2laUPVTNmgcMZUncOZETVG5
YyIHTG5YyIGThowTVGeMZUjJjaMZEzFuhVpYqqUMmKljpS5YqULPOVmMVx3o5UJPmKVjpy5x
0cIu9apcqqSMmqEjpK5YqKMmmjRlcqqKZMVxjpKeMVFHThYomqqkjpaxYqWMmqTk51ypqa5Y
qOZMVzjpalMvWNVVrGT1zRzvI457I9RRf70VWsFvGWY5tHczPsN7uo9tRutRbbuLYNY7+86t
c92dF6hHF8qDGcd2dx6hx4G66bnfJvxO7KaX+lvks7uaX7r9lG5N2FhypLu8Wx8dULGK2WEO
+cVIOM+6Yu72K02CZFi7GJ3MstQFDslkfYwg+mbaz3a845+jYpRRM2t39dICT8mwu62Du4Ys
4AvBDzbw8cKvN25NRZRYel3m78mcXFn782YnIHmGWfs/8l4i0dLt6Wsm7L84Xg0t4K3VtOvC
Z33kZSgNtee72QhvVidV0Uon2VIYXBw/2/N17tXe/89wyvnKXG393vY/KSzf4cZ/aXOQ+Fk5
OCo32c73SqiwKJjtY0bQpualua9iu343gjhx5x7fE0K2vgKXcMU8m9zrCB5D6q/Oi3e4acqQ
wzFaZkCOOKKQsN1E8ZxWdddyxFby13ZHHxKHbjVRbG3ur/zOOuRXECOuwsNFcczyJKY6CVAX
R44IpjjCOuYMgcLhMgCHHFdcxvSgbW2+VGLLaRZL6KKrNt1mCq2UXDqsgQZVRXYtq+DtqmGT
VBq7o2uaU1U72Cqstptoqg6qnOeRU8iwSze/GWl4FCxLSFvQIexs4FR5G0iXsQ8Ct4FaxL0i
XsQ8Cp4FRxLYxLXcMe5F7nziXEEvIIeRQ8GaZEBxLf1NIEv8F6QQ8Gby13Zxr4yeQKeFXCER
xr4ahgFvhZbkIehU8Cp4FSxLkiXkIehU8Cp4FSxLiiX4UsVB9LWj+1vxottupiMlVdltktGQ
VZVTpprAuNe6Y2EFw2v+VQ7ZWlA2IEwmUBsRIgNzCYWQa0CYzCBsRLgNaBsRLgNLEwGpA2EF
wGWAzFHNRBsRIgNBBsJIgNBBcolRTQAb4bPLEwG+O1BBcsJXfnFwGx9tlCYj4e4RBsRczcWA
HmtNJCYjUAbkCYjUAbkCYTiA2IFwGpA2IFwmoA20L0vm1ofN5rfLj63SW6VuK9bpQ/WmqfLF
63yZ9LLAL163yF63St+tUrfL163yF63Sp+tMqfLZ9LXcsMqfLF63yg+tMofLD63QLjlB9bZU
/WK0vxWdddS/Gby13Z9bJrfLl6XudX/n1vcjuIE0vhZ7yE9bpU/WK1vlS9bpU/WmofLl63Sp
+tUqfLj63Se1DuR7/fiXvyd6cr9Qpa+I5aVYm49bVrSWWJklVpyyKhssaWWyCpKtssahssSL
Lr0yyKtssahssSKLriyyKWWyFHriyyKhssKILrCyyqgsM0yYVQWONWGcdKKKtfF62JRZVQUO
vZu+NLJrYJZV8rQW1zfByqogk3UX/DCyw8cl8LQWl8FIrkCyKpgsSKIrkfByqkvAZlUQWJFk
VRBZFLIry5ypeFZVQRWHUk191BxU9qUk1CFZdqisWoIrnVk1RNUtWRWvQRWrVk1aFZtWRWvQ
RWLVk1RFZNrI5ij1i/GCfk3Ugd7E/5PysPPs9Z+LFcbMz+MWHE91xrFXLk9xWdBfS2Hby13Z
hfNL8rlXLmb31/ZpP3oLCBpf4Eady1irlXLuWK9rlS/ap0vO5ax1yrFXLl+1SpvbOP0F7hkV
yX/v/f+kA8oW+nxwVJjeZPibCGkmw0973aWlBpRYQaSNINCDSzsBpJKpb0GkmFGkGtBpRbQa
0GkmFGkGpBpJaQaYDCXcsRaQay0g0IMIZ2nHNCDSm9ZsJYQaiGkGhBJ2qL4TGkYTu+ObQaYD
Sj0gwt76/sBhb0FhgBJcCtJxg0ININSDSj0g0ININJGkGpBpRaQakGkGpBpJHDS4GIN9Zvtj
NZ68sTKtBPUbfbQ+3uKPUrwD1m6haFeo2ZPUbU13q9QtL8QtaPUr2D1q9QtL8QtSPUb0D1ye
Iu4Yr0D1mpHqV4hysPPaFeoM7zYbwD1G9QtCPUsVXwn8Qxmc9d2D1yeoWpHib31/ZPE3oLCB
PU4EabiHqV6haleoWpHqV6haT8QtSPUr0D1K9QtSPU7a8Qt5drl7xjd7RcXwg013F02dryg0
JMIdpGkOhBpb2g0Fl0daDS3CDSn2g0pNIdaDS3CDSn0g0FNIdsBhLO2JNIdZaQ6EGkM7zjOh
BJz+M2FMIdRDSnwgEb1F8JDSsJXfnNIdsBpTaQ42d9f2gwN6iQwgEOh2lYQ6kGkOpBpTaQ6k
GkuEDSn0g0JNIdSDSn0g0tGDS3KuJTX2rTjCZ17qjjlIKB2KrKnRFykGVsIrRFy0GVEybUBn
qnikMHVsM1RFJ5OqIJ5RFJZPqYZ6jKU5PqgTgUhIDSFiUIJTQ6HZOn42QhxK3e9w1ro1K3eN
Sx0DLHsD+xwUOijHQD+dxcCr4cETcSiVHvv6jx8XznKEZtiTUsoZfciJuqIm4S78s8r7TFqc
XpSXMFzXM3VZGsUJNmKUJwKmzYurysYxJOWeM6PbnvFcMvte2YRRjl9IgzF7KTGrKbsLTHrK
fsxEyKMSppk9PInspJlNNrsppl9PIvs6EzKyMrM1syczSKjFlrxikGLKXjFJNWUuGLOLwkyY
RRjlIRwcmgFpCWkLYSbsI2YJTHsIfwyECLzIMJMWkyYpTKsOrwUqxSnaYSZs0ZGmSNW60DLy
PMpMWUu/FG4jVnrB8x3VbFCTum1lFYRUC1LluGZigpQmgJOVwUIXwCJeIfwq6mk6lJ1rWGi6
kNJ6a4UCTicCTi1Y4MOcihzcOxthSXDy11AprB56aipfWOwH8jhZXDnBaKmCauRfECuGodNg
dNi8QTcioFN7jT01IUVEUuGV2oJV6oJk6aU5kmgy1oSJNhUXjKv0EnYa5xo/s9audEyfZem4
djM9UM3006SONJzONtI90kM/0UIB1kwkkkiaaZOqpkkUTJZpmSSTNtMP1kKR1EnpaSkqaR5x
pyx7GZy1XZk+KTu+Kj0XZy1XFzKucwO4HDz+KOx4UMz4cj+IE8VGtvyw+KR6xJO/4im9xJ6r
MCflR5rUJJnUZJnMp+KVqyJjyXpyUOZS9Vq0lTc+yjD5wp6opxsi1wVGdNl9UUtTrLl4kMn4
0ikiTysiTh0iTCJfSixplZGnSSNOlkbcKJ540ysjTq0jTc+xJRCyFlHnKHdNl56aKlumycdN
lSXTZuumYu4lD2B/YY21wpjni5jnb0HhgrpU7aKZXjIp8EnVeRz+4EdNlCXTpy1oSNPpyNPV
m6aUJonKVuGV+5pyUXjKJ9Enl+4QWcq+Ofg4sEVyFoV1TTP2N06SHvIKh6qFoJzIPFSJPJ0v
VLXgWVyC0SSLPlkXeqa5C0qSWgmK18EnbeSkc+py8C04M0n5cibDlWiqctEVSLRVuWiIHAyB
+gfMMbJqYLRkGAuRfECWiKtlgxCgnGe1HlglQAGAJIDQqqIFeAUlySooDgqStEKEBIFjAUly
SUlaJUYCQMnAxhs+U98Z6MvPSEXAbJKCMAtOiBIJyA0CmBIJ0AUgaASInT4GgWCOAlQOAlgO
AlwOAtEeASRPAx4DQC+BElHJFBBUuIEQSGCytXPIJFB52rRKyRgcwO4HDzmGGlAKySA3oPCB
TTt20UzmGBQBETUgoZfcimmahppWZaUYFQKuCo6UTjCuAqWZaUsFQ1pmGFgB+zIzmma13qpe
F/prp6Vs+sIlB2SUkzAadgGQSSDoFoGQSWDoAsBETbAlgbAtk3AKB4AKh4AKB5AaJzBkC6Ai
pOgEYHIKPSKwDocJPgkoHkbveQS4DytXjUE/A5gdwPGm9VMBCUEBBuRfEC+qGtvqh9VCOEIG
EBRz+4E9VNCfVjyXpoRgU4IQNp+KFTCUjyXpQSgaS9VKuE8nRm9VNKfVTu5MNeo6MNtyVw12
TTw/SrjsARUC1VrgTCXAFoLgY8Co2lrgrNZFcJEGQJIGQtLXBXbyK4UUGQMmBkgzAqVvCuWe
Fc5iaAJZNI3e9gk0GkbvGpIvByB+gfMMbaYkDoIzBcj+IEMNtaTTLbaEgHQM5Bim9xJaaEqK
qVZaU4HQK+Do2UTjCCBqVZaUMIQtpmGFIC+zIzmmWlppdN3MqN/14FhRwWii4IQrjHBSCkAt
gIBSikAFYSgYoEoEqEolYJQJcJQJgJQJkJQLRTgUsJQMcCkgOBR5RSxnAlLgCkkQhc71DSyo
Qu9akiUKIHsD+xwstiBVgikKwN6jQwW1ptVdstSgrAx8KIa2HnotqTYr6U2KF0CkiaBqL1Wp
QXg6U2KF5CUXqtShvg/MystaFAJ4OsXzfY7u8XDIiAM4epYEBYArDgBIBYALAYASAGQAgBwA
MgEAGwSAGQCADIBgBkAwAWCwAUAMAGgBIAYQUeEKAGQuAMAJAD52rHQCwQu9aERAGgCgBEBY
AMADICwA3oPChHbRNADgBYACAGADwgoZfciP8iCAGgCgBoAYAKAGQKADQBwAUAMAFADIFgBo
AYAMAD+hcu+OUkdaYjTFOTlINzXtVANZqWH8CioEqLXjIkwLgA8CQYioFrREkeNiIBeBkAvA
oFrREkeNiQBvAY4FgAeBQq1IC+hLH5CvAkwLkbveAJ8C52rREhXAK4FQEeBwwLgI8Ccj+IEM
Va4FADvAEwLAGeBRz+4ENVCVFUwLAF8CQBvAShXAK4FgCeBogXApwLAF8CghXwPkz2URr5mZ
ZF6ZbHi3LD9gfE4X5zAv6hgf5TBv6xgP+cwL8UpPJ8/BPK8pPL8pPM8pPN8/BPO86nHexDEv
8JiX+IxD19yyl+BIpfI3e9AS6HytXjgf47V0PgI9DQ883zPA+inAfxjgvm+Bw0PA5Thv4xwX
+c4LfQ8F0PAF9DQ/s4rfY8TpfA6nIfF9DQ/A5nS/A0PV+iHLfsGbXc35OUzfBiG59yM9Yyrg
1h+gIKh6q7lJRfAB0HgwhYWevMTy9ySQfAJoPAzy7lZSuXmC9BwoPAB6DwovXG/o6jcRfAS0
HytXPgE9hc71IioPAF6DIi+AY0HQE9BuRfECmKN6DgRfAC0HAj+goZfcimKhqCK0HgC9BoQf
ApoPAF6DQh+AUoPgU0HgC9BwoP4HyZbqMspyIWAYk8BbJEvDCWH5DQS+AWQ+AkkPgA5DQo4T
IfALJfAJkPgEyHQC5DYJ5DQR+AYyHgg8BR5RoIfA5S+AkkPkbveAJ5D52rREJfAKyHQk8Bwk
PgI5Dcj+IEMNayHAT+AEkPAm8BRz+4ENNCyHgi8BoIfAKyHQK5DQR+AUkPAF5DIl8BoIfAM5
D+hc2mGmNis63snSiOhtCmQnArDdCkgOB0oTAJ6EIgOBEGgloTgE0JQC6EIBdCsEdCkgOBUo
TAGdCIQnAa0JAjOByFdCIRnI3e9AS0JytXjIiOBUoTgI6EgRnAR0J4G9RI4p0oTAGdCIQnAM
6Eim9xJ6pEqKoQnAK0JgCdCkiOBUoTAF6EQhOBSRnAK0JAjOBqWjnaFbsbyI/1/FhvwWCR4L
w6gvAS4LwC4LgE+CEgvACDRC8FYJ8FIB+CkAfBSgvALhvAK4LADfBEwXIKPCF8FIX4LgE+ic
71DIhvI3eNiI8FQBfBiwXAG+CEhvgb0HhgtTDfBY4LgA+CwwXIa2HnotTAfBUwXAF8FQBfBS
hvAK4LgC+CogvApwXAF8FghvA1rx2VnbOkjzEOPVj8WZN9Yyrh1BehIKh6qblJBvABwLADeB
aWersmkbllAeBSAvANLvVWTytyUgXAG8CIAvAN6bl1w3KLXwLgE8ic71DIBvI3eNiI4FQBeB
igXAG8CEBvgb0HhgnSDeBYwLgA8CwgXIa2HnonSoqgC8CoAvAKwLQK4FQBeBUgXAF4FIF8Co
AvAM4FoZNeq18+gAN5vAy4LECbJEflQg1RuBkvUIwi3KEQSuBCkbAmcDk8mhALf1QgEyNQC5
GI5tDBW+6hAKyNATuBEkbIKPC17ICkL5GQSuRu96BkkbkbvGRkcDoI3ARyNATuBikbwN6jQw
1pJ3AM5GQQuBYyNEN7jT01JI3AKyNgicDoI3ApkbAF5GQRuBUkbgUyNgicDwkbgV9GkYVb9Y
eb9sxLy2htEisdg1x2BksdgFsdAJbHIw2BY2OQCbHYJbHIhtDkw2BSY7ALZ7AK2OAz2BEsdI
KPCFbHIX2Ogktjc71DIZ7I3eNiIbHQx2BisdAmtDEZ7gb0HhgxTz2BY2OggtDwsdIa2HnoxT
w2BUsdAFbHQx2BSZ7AK2OgitDoY7ApsdAFbHgZ7Ar6NTxq26RsC4OMR4Oc/AkEh7wsO4OMS4
OMLg7wIh7wEg7wwwdYSg7wsEuDTCcHmE4OMJwdYWC3hRB3hhh7wIg7QUe0og7wkLcHGJcH52
rHGJcH52rRTEuDjCuDTEuDDD3hJC3B3oPChXpva4OMMcHGBcHGGuDRz+4Efx+Kg7wog7wog7
wog7wkC3hRB3hRB3hRB3hJFuDjCuDDD3hZNvPKesqte0si3eFm4bvCbJT8tXhZdAgYkv9KML
e7VYkAgYCAgYEGtk3eFmlv9KMJAgYSAAxk82rws8tXhRBAihBAxIAARUe0oe7VYyFAEjEAkc
71DjEAkc71oJCAiRBAiJCAihBAxEBAhb0HhgxTDAihBAxIAAxwAgIa2HnoxTAAiRBAiRBAiR
BAiJFAEjCAEjCAEjCAETKAIGFAIGGAEDtKj3qIAJ3t+45bH3t/vE/xT8w+h+THPvfzg4n7w3
8/cHu9k6n7wn/+wPubz/+Qm8Dfo7gd6noxpf+tc/yUdcztwPlUXONX6w5tz7x5fGVOG/x4y/
bLl/Vm1l3vvcce+y59PNs/6+pfWCvd50xd9lolqbqa6aFHA/69Nn3tZYn/gwFj5jjfc/hNvf
yN0fx9rantV/e42bXuc/V/Lm8jn3t/j+azTufT7G6thu2Y6o52tVDfQVtpurw/Fkn+M0E7UV
RVXdLm/ATTlIaEasG05frLl7d7R002XE/lwEVVf738vASHdVMA==
}

