флэйм ультрафрактала
морозец555 {
::r7/Unjn2tb1yOOqRU09tU/Pg8ebT9CwTrazkJbiSkiUy+oqNF2VagCVFu72/e5LJbiSUU0os
KrztKM4CMune27dw995eQcPFGx2WR5Hu/uooWVbpkv4f+8/+5/8P+PGjtI6FVe7eeWcc0epa
3+WeaSWUp4o0Y5YXObNycVrlv43+r/+3fAtGhXjjRpP8NSjsW1eM6H0maV9OrueX0nEPrsPg
XzcxQWc/d+K579WRTrSXzX89OTRQr1NitQB4Io5VSzOZlOXyrOU2qaKPCma3rzP9uwa9AwIq
tNCozt8jSwUlopBaeXHArSDfZ8KUa6Gya4BKKDjjqE7q50sVUGLDhiE17gtwSCdVGFTdZabN
y2t75oV4NYak9J5LcKaFLmS6aZh2UZ5o7vb4NfHLUlyaRFsSzr+VyqDvWsICGCzxODLL+Y1y
PpstaT7CX8N/Se3bwiw2eEmCjIXJKn4Ag3uW30EPNpuRP+SHnwe8KCGHnmlQ73Apxbyy2khZ
Ia20kKky8HFbfijusJ2WZD/i2Uq1NdDeNsDElz5/rYUswHXyajsU0qe2VTwGshbQwiDWsPC9
xzyRB2HYAuRCfYXv7QpwE4XXUYlt841xjzzuVAlD2pB2eUJsutZgJhtBK75d/g9+N/0S2toW
xmGr3OJdad0wM/s0yJjqUj+FYlhHFsbrKAitDwg7SVt8MU7d3YkDQLI7adtcXfMBbW5zSzRl
jgq1jnsDW33xDUZU/3hLCRWVTpq444ehPzWD9BfNmacanJrAjTZKcATNO9zkVoxJMFeKTNpG
DkFdcdukpwhMFKoMvNVhfbqCfFqCPPVhfHUF+aUFZGqi8lpKycUFZGqiMLVRmjqIzQVkrTVk
xUFZUOXSVkQqiEUm3mqIvNVRuCVRmnqIvDqiMlqcsAs993XqEv6LKchMO4YzPBtPXYyXdooa
4gzPuXD3jf97OUqEnO2Yh/v72iJJJprhtMNNBDm97FEH7ZS/L4T0qqO/AQSw/qZ9/+8RhqUf
wTcfLGspqtqc5HGOGX4xctMyqLV5uLGQ0DhkLhwhT80op77ThPLq2W6BwJg9zGln4X0PtOKN
cy8z1O3lUIDfbhe8EAd42RktSrhbpuHN6WhXCyyNbiAoKflnEtVXqhFMNJJjyInMzS96J6cl
kmmiRsTuQoseHs0MGJh27gl27gQxgCEv6pOf44Nz3IcCa+2scTS4IQiTySS69RzmkEs070S5
R/XCy96uwM2AeDNeeudg9yoRjDPAjzWEHGvMcAgBCAZBQbURuq+R6U9jjFL+uVKSxYEiSBdJ
pMviRKOmACUSzupb8muxb6Gvpb8muxb6Gvpb8muxaOaQEFFNV54Z9OgahJCB7VZFneF5msNX
VvJOGPvKQML+CVg9jAJmOfnInnt3t0xxo+SlcO8OrwPHenRrJbzsqHxhyBDUPCw8ywdAcGrT
nk/HU7Z89D==
}
dmj3.uxf:dmj3-fBm-Distort {
;
; fBm-based distortions.
; This provides one-dimensional distortion based
; on fBm textures. However it has three fBm sources
; that can be combined in various ways.
;
; Note: this code is pulled from the Traps coloring
; formula and contains many references to traps.
; Since these formulas are undergoing continual
; development, I did not take the time to remove all
; the references to traps, since this complicates
; keeping the formulas in sync.
;
::misDagn2t3zaPutRS+9D4+P0WG7aNjnReIpnxxnSWkH2BnBCSCiziFHO7sgSs1IOmiUmkaGL
j9H19T8qqfx+FfIpxO2zajs2isru6qqu6qqu6q5WXGnXtooc1/1/5/BhMlUXGvG/L4l0SScZ
Z82KWL4flmXzAIJtqOOfOVCX1/b0rnSWWklUxRgEgGMtYT+860icGy8jjzeN5bIfL2Wgdjt3
pAVnCHenCVdKyXnWkVEbyorLpVzjzotzoAEnqY2VbyqTXnlCjlNR0gJPsrsx27kH2t/O5hdb
60Uv8bRVdfMMASLc8USbIzHPLbtr+5jtHS/8x5N9jQ++f5X+JWfzLypXKBhz0LyivsCU5TSn
HXnmfJ5ml06lAvCQCv4aqSWUBrTok4ssiboJypBLMqx5Gt0C4aM8QAXjPdAXxj0rplbTrplt
ze5A71s4fNOhCMXNh1VC23YcRskKawoG7pepLUacVHQpxMaQpZeax3vy2ykiJh2o5xzy6bSE
xRaFhDbCBsASiZIQSPaISj5Uv1DYacXXgpxeagN1LPE4nJinXvJOjxDSGoiWzaKNnspC4PwU
NtcR88WRd4eKfOBHi1V0NJFnOvooMJNPumSWVk4OUAlEXh6iFl1Db+A6BfwE9ipsNtxzDAWT
LV1bNtQhIppZCvdLTcWYokmfZ9yORiAkuwTc+ldSJ82ZYYexq1Z035ij5UcKrDkwBgUsYBMZ
X5XYHnkIxxgF1zLyKKBAcZQO2s9DwW+htQ4NZPBx7Vd8lt0rNVQTEGA8l1WikaZIJ2dX1AzI
ETlrSbBmW/MXxqawPwmrb7BYzVvGAbxGi5JLeQN7Rshzkm5v1DYmUbrgZSnNgZM/6dqVOpSs
gyk+MC5oBITqrFgMpNFQGk2s04KHSj/SNEKgyk0wX6CjJl5HGTCTCj5Siq105Ozqi3qhRJcm
kG/teAzk6aFMTCsBMDSsswh+gXFbE9tEMLyDNTReE5pnN5MbItowOg0iINgcqLtiu3rqprbj
mJsGZWqoxzXSWUCu/AvfGRj4Rt2DKZNwxnjWJDcP64YD+B2jue7A7RnXCszk3uIMQb52hlpj
GPTwYDiJEi4P+6pnJ8B2TPKAt0TDWvAmWv2ZNv4t6m4EwZZwsV4ssY2KcWmMbgzgKXDB574l
OvItiSovbNE8duhdAB4m0K7luAZSotAkJVqAy0IF4IKdRqLd20guxlGot0WYNs1PoWqHdBql
+gEUdfmumtktotzSSdBZNEVL4vtxiGbtA0dmQQ3q24zOJ4IyfYZuTHsg2ALwAsw2AL81WsAX
n52hR0wVbsjYBubHC6qDBe6QYXdAZzpG8pIo0DmRbUcRbibW5fZVJtCwYlus+9hA9e/1pvjm
NFe56tQcVE2jkm9kUZN7suADSlxnndkebXr/SO9wgVL++VFbY9Ng7uzPQMPdgmu9racTqY2m
90qIQKNZW883Ixy4AGB19oxMr6OiaWb5Y4F/IZ83WNvkSzLpZssXwYWeL3/m0k6lk/G5+Lpp
XusW0kcg5hZgCcGcPSAlEI2cx4Sac247zHC2ExRPiD+x8ufE5hA6SXPOdV8l2AaMsP/ne5zb
jA4AKw8AJgBMySaUQA/8zexPi/U8DemHw5pNwGdR9yrjz2QNTL6SgGYTx/j/7X8TPnMeJ5r1
nWkzushgPMYvuC71UcvQl1kbShJhFpQwQqERoQ3Vkv+bIhHhgmmlRyB0hrtoIlgb/OWrL8JV
rsOc1rhOvlWdi1O7ldxoTa735KwyAQjQnLBJEodtJLu0eRm2iLYy4Yrw9BUcsyYK8wDt3ryV
gBGcWvLKAsMNFWC09gPee8sqxvPUNlHDUcI+ijOaPJLpugjMSGSO0z7xsLAiIhiacyVbqqBR
fNI0e7m0SdxsBBzUalPbqo282jJODJOWrXntl0sFA+fE0ruRVUFDtDoe3NMdepxM+rfD8oV4
QI7L0+eDYbgbdcKJhCmuWlmTZpY6Sq+8hIdCl5opfwic1b3EXS59raTZJYENBzEhWYvze3Zw
QD/uocsp04IyfhEe+FagutBUTRkGo4MEizvWQwExIg/9DlApmVZQv1Aa2gg/tL0SKOAV14IM
wDVyberZzNAUyoHrZ+T9LC06Fjus0MO1v0QfsQiBHxTJB6Ij96tiXLMwBjNzSyIYtXSxqRYu
jQHTy9awnY5APueJYDB+vbWSLpkXAqCZPoiAhTUh7SJJdBeQLwe1KWR+VaZWa+Dqmy76L4Ze
yuLzozjhGgdzQSKoV5PQt4hEz7IeELCrwJEONSqRjYnAURKQgA5gDc6cIcB06Is1DWOmwOnm
T+7/4ENRzszOTMN+HmBYDLo/LkLO/8oLgJQYa8oWbXDZBCkFcbgszCGElFMMKLYQUWnITK/L
S2M3QD5aw4DGMnrKCf0v8fCi5/JX2cmHm/4zmEeOMOnHECqiGrjguGI7awO31zCkjawOPqyu
GszdF41ABv+wg9gbDEc7u3ZgfFjcwD3HOWMyDtzcFicMVsZpvnyn85KDNYOh75htsH/dAESa
1bLrHD/1YhmB6zr5xAutrGtG5vOmk00QgqhAZD+QfgJ6D0RfgC9BmoPQh+geQPqhpT9B6Ufg
i6DMp+AF1H0D1bi+Ad0HoQfgJ6DUoPQhez1usc9X1+C2NS/FHrk9Pk5oQ+smXkr5wGwbLwC2
ADY3Eag3ABsBqn1xboBetgNgBr0oOELCGUI43aGt+GIweV4HbqYHpBC2sUw/DFiccRaG0Bx7
5DW17gBDFyAxhhaNOC0xhffcomviqtSg2qB0WTgiBYAxHMl9ujHfdwpbC092gNGKbM80Nhi9
2pFUIunQcZYMC22jHP704jsgSG/ZzhlCxCqDAyu8IDNLkDZ5X4ArqF07ZeRN35s0Zc9SK834
pbzYjKnunnw6UMsnEVFeIJgCvdqhRl/64WKbhretZPlMvb9cI3iwUSWxlmdSfAhGHLeySopv
7j2QPb3XwK02xPb9LuDE5gsHjSEMKz3MjWWU0xIpGh/Ycwji2jh5xwwQf362HBoxDQWdOXW1
po6AQ/FCh0QEQR7O6fCS9p5dQ9p5HA1/VI1XU1O6hGPA0/UA9QDtjeoxDA9BnxlOzJjXVkgZ
4ldKyrOyeAREpG0vRtBL/0Ugdj6ZBqtpg7vO9YJj8IVS1swj5G41e10dyqUTNFZbWCWIllui
v/X3SDyvJMry3hvh+ZVFZYGmYZXiUknt1zcIfD9CjMwDH5l3ceRTaAfDsZXMbFcgUYU8jHK5
/jVJK443w2Esa+YAdxcXzaZco53H75Myu61W5zR9zjtyXNoK+oWRAmLj3w3ZLQEsUYgsPy83
rTnnD315B54cPcbaLzHmLz9yhpaoEeLt1x2fXlKMr7nER/Oj/2dSqGDJuddQu3uHV4W4bcfk
MedMqLY2XE73lor4IaXRsXnhNUM3T4+QxedDqQswH4+gYvOAVIW49bfQ8Ad9Jc8xGOf+9UkS
gr33WhVzfHS6Pi/vDz4/0BbIpNvcD3H3B5hrP/bWMoy3mFXds7RQrnffRx+c1rnKKIE0cccS
ChXwPmZ7/K35Q2hpJPjc0Yv4AS8U0gmsXbHqo7cpUb0eYCMHG2h919YIONRlvaftbuHz2Gb0
oOe2RhEVFb18HPVB2w5qIFmllclDi1Lirhj4HrQs95kohajSwa44+cFulHstjus7ZxPc0fhp
0mVkPT6Qm3UyODfMeiOLMpjhwsmgG+A8VqBQraacwuRd6Mck/UFyl1djXsrXbNSkPolanJwf
U/67h7GlHEoQdfK87KmDVYeAa87KyjUIvbV+w9TlP4xmS8hpzvrMx56MxgU631R4C1IMEt+d
F7PRh9ho23G2bqsBzh7KuXGvu7C/44uL8PR3dhuu7ulW+H66u72Z1for7ubtF/huu7uNX7H6
6u7Wfpfor7ub3V+huu7u9W4H66u7D46+Q/r7j+4suP6D/6+uEEmvwcvY+KnGvdTWGjX5K+xS
96KskQUFZmKzU8dYlXcjqIz0v9TsW5/jsWBnbWzf8LGkI7c8DsyEA58EsdPvTOSiQi/St1wj
9KqfIxHyk1eIeGZG1zocAYT2WXgLV9lFnkGn5w6Ee5ZyL2zTnf0jY14l6RYkKni5eTWLCzix
8wJ1aw0p5cFqaqzw2oHWmx4nZof6BGTsGvYDsq28bOAcjtqypVVBrCyurBquC+fnN5cpkBrf
wlNqHIh1VJEqEmeLqTVVR++Q7Rzn6tW102ietlcKroYtSWN6pn9/RmnVM/N3kWRHZTCjfPW1
AWdmPPwOK1zO50A8gu9Ch2SQryj18ZJe05v+pZU1nWe6hQ73Sk+OQ5rhBooM3hWZVOYX07uT
nIGNe5ReVP0eoxqGWlrJ0FxbyqZfZBqTrZIdE6D7Zc6YE2wSa26Fp82SWdV0pr3M7Vyfc6mF
nuYmseznsse1I5Z/rtqedcZ8KssEllk7UC/daAVVspUcZYB7cxrZdEGyn1gmXKtS+SGsjEAL
4Ce+6YvhmzcDMaBsiJhnMrRkR8RgE08zwmfGJx2S+JbM6l0MMMM8gCICYMv2rKnrnwgR4FF/
Jvq4lXrW2rwCAkOhPG08EGzjyCHpAqGJs13iMAAYEHiGGX4uTy3cL1AzxNRKAXyZ/OWZgVC2
TenTRiUj3uBLi5ZILPndsJvy07eMrSRJxYWPRdRmfmTIM5DWGyQPizKwLCNzK9EGF0NfrHoS
3T/Ocfg0dvBHmWpPvgX/gNVLxibFoy1byyY/MvZ2h5JqYC5fsk2M3iecp8yk0WEkzvxaMVjT
wqiMGlnxw/pdBLOBQQedZBf4wxq4aaJesSN0VjUwWOZsMh78u/VJfHbGptlIn9RdJCjmFrPk
e7ZejpWKcDYphWIidw4uLN6U5oXiq1pD9IqUflL6ZOBhzdKJ6C5NvUT0y2EFjeKhxgi6J8xC
2dRNeBLxj2ALeXD9wJSsfdaV6M+1U5btUewqhHzXul4WGapNHq7EyPz9DMIcE83XvnNqMC9F
1dlvD5N/KYYTQSHeOk0PKag8C59tsy1UB/FrSzbewh2glGz40WdKu63jdRY6Z+Gss2SmQ+7V
iDMpicJrEtRrpw0SAb1AubeMsZJZToLWgracZWxtIyrGm4mo2j+FAV76/2qEmSTyfTlVJH5h
mrN712cBiY1D7+xwv1rSsqu6r97CQFFlDj+b01gYl87yrcywcCyL+1R2h/2WolNBu1iUw6jb
AY0A3bB+tXB54SONiTUTGtTC8hsI0OaQXhzvJ3jzBuaUtXJU3lzU4NZyg3HODS+r/Vi3AlvX
zE0R+VMM33kDb/SWzn+bi2J/QzdOyh3XEnVRN58XsQe/qOx3yb1eUduyi2RCBa3LlL4XXSvO
tYTV22TVCMANa9eCh59hNM2xTgfdiIbL2wjDBsoUiHftGxRvGCM5GM6EWpzCxZ8KnMMJWgAk
TNZV86KxF9gytjWzu0PM31MxHOU4TW4pCCWHLNmYJ0K1ys4cKZMdylTIrKqiTnfC5Ngjq0ki
q5FrpHZjpZbq9GZJWbNgY+9FFrwJBbjD8NQgu1+V7dOg7HJORUhwmaEiYXs6nE1adjrg5+5C
yAdoVdETS06oVVXuxSp6HWSB1e+FvZBbq8m48aplC27NdV7N4CtzTQ9t5xTzO7ZoTIkRX3BQ
i4r6ACpJE/kK7bHjnGb+G10aj1ibBk7kjx3vFj5HUSq8I07GiauakMD9ZObKSPW2m1R4XwGm
lwiyZQE+Cv8sdElyj7SGIAKl9ZX0ULrFbdufTZcY1fh1kDfquV0eMqzxmcNMik1x1wEY+BTn
aH4iFZKDxtnNopoR+hJ4hEJ/UcJe3FlBWh24jJLSxPAaXWGne4MRzZ7YxDfP0wA3GxcctFuG
H+NqKnItoyvS86MGLpAT0u181bXnCcf2W5d/ww3igvZh4f6ZTOHRM8Ps7JXFsnUgorg2V16j
AepDsYEpgMY1JA0MTRzjZf4x0HjaeiA4fXyGXXuFvOkw4gSGNuoiX/NZ3EvFmIo4FpYdRVaz
wewTF6nGm1kx3xaaH0oEXxXWUneVs+f0EGMJAwxoByaIKOL3XY47vdDl+e6t+SI/7mFHBZkc
9rC2wz8tZDqGJUYLI4lI/WYV/Uv0s8rBk7+dFE/E5+Qm6h8n25OxNZBWQMWMh7+NelW5z5/z
Pk3NF7w5T71gn3NhpM6x215EPTan3bups5RcVJiyEyst6bqS/TJ0tjCYrsEbe0PHF9kezoi9
84gYvX5ce13icrx59a7al3mLjK5TR2CUPGjXJtgL8KGqcTigBnY8FXRbuVo0aJEaEAkXkj3/
7KeaExKanjf0SWSZcVtwXSML7Cgl78E2FpzJ2+1UcPPYg5oPVW2KLKp4XNg4U2HSS874H9d1
bKPc76qP+ROy8nLOicHheYbKXAfKPXdVAYi0jh3zch44SaOKxKKnQemanPWiAdXlXyrTWJkc
PzCFVc3agPR+mtEdidijANuziG+Wa+d5dWwz+a0Ed++mH3Swve2qvVsvizAA+RxlYycfbZN8
PyqzH+JIW5vX86RWCsRgAAbqoC+bguGxezcfnqg+Vug/1plFRUznklDSjy3HUZHxyvWSPtaY
RhqUt0SYvOZLNcxI9Tc2bLdBuwRC0vbfdUskBp1HoDY/fXld5f8z+cl/MNH0qL4hLCMuVWxL
qFnd0wFBHirYnvdyGs/PXQ+ZZ8wPTA0umMIVZ0XRegM46Ho9hkGcZVH/GPGWZO/sqf+Fqkfg
d+wMna89Y2gt/O+HamayzRPJqkfvrcezOf1nBVboQMNan1KR6PZfQr0i5UbbxYwAQzxJY7AG
9I3gt1J+aJvf7nw1zzmK/Z0RkNnvrqPrmeOn3RGvlFoj0U5ItKBfk8JcbUqH4bLR9oMNr+QA
vw30Bdi1rERzoeW6Y0AbRGkTkO5EZSOR+JnIPkTkL5EZRON1/2o2iP6G9I75rVqWWsJDveeq
P7xHeEuNfyDd3Wp8mn0vXCJoV2GDBCdxmMeGZTrfgIvQgdOxR+qrpXo+wOzz+X1eGAx+lT0w
dJnohDOnohDxEztXSRD7Opoh9mU0whkU0weTKaY/JFNsrkiG2VSRD7Jpoh3VSKa4QWGH+nfS
RHMd+pcSRtYCi6/bDAA4eW2dI/r/Fx4SNcPZhH3Ov/lcp+hOXqH6MYUPzg3dSB7hKpecfSqP
Zyc7hypnfUPebvrlw3wBtLzwPrS47hqEcxQU33n8E/4gPdyT8hKkeSfxo8l0Lf7le5Ddy6r6
Zya/yKdwnzpl+QFpP9Aymd4/2lN7htlh7oZzOcQZzO8Od2sHYcG3Jzm9wU+/S2sbXQ56x6Pj
sZfXN9xDOfOfWm+4wPEpPOaXSfc0gTfc0H30HH1d6jj6N9xRDJ9xR9m+4o+TfcUXpPOqr0HH
1T6jjurk+4ohsMO6P/0HPY68T50HHdgbfI4sjwbCiA2QXYDHWqmj+Sqm/Ikq5De2OY4z2R9M
bf3Jt0HsUNc4S1H3nU9TmUYfwSlohLV6Md3R3BT3d0g2Ga0nVp7+gVYe8wVYuYILj2rUjH9p
TqxPYB65DXg+k+iV7LpR/2LN6H8E7FDfi9r6Zid/S5e0nzpc/gF/PZ4i/DJ98R/bX65H2Wyu
jme+oBle+o70pnfgxFdnM98DT5/LpnvdBlr3tPWpn/DS+wHcCq+sMf4tyd//IqgsQB==
}