Here's a fractal using some of my recent formula classes. The iteration formula class is Threelevel, and the coloring is DistanceColoring. ThreeLevel is inspired by several formulas with Barnsley in the name, where one formula is used if some function of z is above a critical value, and another if below.
Feel free to tweak.
SeeingThrough {
; 210930g6c
::JFqjrhn2tv1WPOutV43Hg5/ggfabAssE1VnC+wmNZX0APbTxkkHKKgBtEtN3R3qk8Mr9v+co
uZdhSyydBaRqw8iN55GP8jHe5zz+YiTKx77f8BJpUWqHFv4ZKlFcQ6XPGHe6wxFSvxcTPitM
UkOSZHOmiNUUk8InpxJYdueOxUXWaCexPz8l+BvT0/qqyq1rQKI1FSkgUGxjRSAbiPTTe8hM
VzcoDJKlFGgXsh3kEIdYExhleGrCuwnmeM0F7fyLlFRSSkSjJBJRkYaQaul8JRRgZztF0KNG
jUlt0sQr1VtNWpuWWZtpluuqqhkP5QAWRWzW3EpaigA7AMaXisMl1NMVf8h9hxgvIZWzn8VG
3c84IiG7ck68COc/ep9MPaAxnnmSJBukYX5T79XIBeP+Mexvw+K1bxjPwCSYu08sKPq3D2KI
Mg+4DhnS72lHLgSilSC9YuYlaO5Le7kP54VZ/fndIgmmSRL46Ht9VYSgnBRqKGwYMabMxldK
BGnrt4fN5IJiiR8PGF+G4JY4sFi6XwwA+AXYwwZxSifYIMNHEKFHmSymWWqpKxCcpfFSDWSO
hehQCx00SFphK7wAll8z7TftOCpYW0HSxuSJd91Go1ldYuuoDlyWWbf1MlNqpqV0CywosNDz
OttEpWqJkezBQtGS5CqUBvAlFiD/UMztJI8VWCbHgTAj0GPWNDOCkUR2SXdtimlpthxqlWym
GA+zSNHRqJbC9gMLxj2yWITzroDAUmwnsq+W+QLDpojsshhimZdITs7byn+6+KIT+YCgCwoi
DFUWpaaljeAANWZliYoPqPg/XiaA5j4Q+vENAove0CAm1K9sKoms2GaINFUNv69ifjVC7gKK
OFrCym93dGzj7MobLsNs86FqLfCqETw/YJooFUURpC1aZZBBsQQVdDUDVVzIjh1yr5p3umX8
BqfoLF7dynFQCcoCwdiq7pYLDLLtg/g6eIZ7y6dKQQVAtWrMImSUpta4onYxxhxckEAQSwHD
jZXCDg9O4tk5AwZ5zHx09VhllsmZeABzTZN6H+KNfxiwKuITrmIPi7XOlkt8qdhRAFyVtIAf
+NWqzxPE6vL8j5GmHsvutb78UdekWEBfwDyrFG1b33/zb+h6atorsyvu9ANgGzcy3iodn7Hy
RQ/JM/IPaSmPyQLtkoscNaVP6nppDP6EruPMDeOPLL1t3kUScKfpvguowKllqyAMSkr3v95i
koaz81nhVFAmss3FDrbz83oyW+Z+YdUhLikLPP4stcgKWt7wntjw8gKRCTbsd/6ZY70F/TJX
2r8VqJLEIURfc3K0x5ikytEsSXQv5rm0NErrTYQh9/plmDmMQNnhgD0RpbovS9utJJ0EmkQT
ZSiLc3gBDHdQZUNj2+UWmT4MUTBzQyqrUkNGR0s6txUi3NIHkTdI7Se3lvz5vMa6DQYyGDKB
iLxImh0FnWv7si4QtX1RMz1P/bNxF/So35PTfLNMIXg/V2WmkF3oxmEKppeTAx0Ux2h8kNxN
DjaqUGkSZ108UEEsbz8GPsDC9Zji0aaAX6BYxCWbSKRUmcgCl0nsKopriGfR50URf6exY6qY
OdVsmuK2TXl13xU50n+fBO7KeBcP93dZ0SbtR48zqoNJ/RmMKgHfI8lpHZoeOGVfqtbyhG/k
r5LxzrKNt5KvojTNbkkSjmkKP1sm/TwxDpe7gr6fP18f6Or5/09WznrY7QOzEqTwERTCG809
sHxTV7RIbcDH8olipu9cg9+0ZaomnG5WF9p1uJ7Fy2QvptP5mmwzNE/dukb9Yq1MzdCM3cvA
TuiND2JBK3cHT7buHg5mqb2NVkJXzdkEaeh393mK7xw2ITyFktOEPnJh02UinVnoa7uP3MZt
GaZAkULvLZ5F6EdZyq7SisFakBvI5g3js11IH9t7sN0N1NsM77FsDPI8Bkq9idfKfh5nKeZu
PwfkN4e61fDP4rCeKmfklkyfJsh0ozDy0u3yvftuQH9LCs6S2Rs80R5Kvm9dx9C+SnW3fBv4
jvj8dXKOV1+W9/R+alOaRwyVPATzeSfL0lV8eYdiuqY/pQXRKHoi160Ym5amx/HnIuIh5Zuw
iqyKUqyZOO/EWIbxild97ei3MBScgr/EU86h9k7zE0t8F3XpIWgi3psXD8vhhNeB/RZFPguy
2yakuIr4IIX+c2b9JOb6cbpTHx5zBEtRk2jQDl4rQSIuEdxRIsafZxWP70P+BWsjHUdrX5vN
4E6GxTI5gT+DEdyFci1Tvwt1JDByQyw+N9psrTactLRLUbib/6D4TV8QKjyeLo+cdtL60jrR
D5aE2cIt1G03a4lj5cthcOYd0QqrPo35PQAaQnrPkz1xLH27GD6d+bNscY3bMk7NwLHKzzC2
C75i/75772Lu9Nxg+kQfKcHTPou27986WZLnLAhqeM8NfSwZBj9MlQDqlIo6bNO3az+ieLlf
tpuDPOxXYXRbd+J+WnH7oRtz31qsXm7hDiApkUocj07h6kkDUhlmSehBHh61Dcqf7sT/Y7zu
nFQ8wfmfAqOjz8rgJSLO3D8Za1fC1dDsYqDLKL3NKv9r1L4h0sN5mmd42UqoL92yaWJruhtq
GqkWf72CqqYW73AQhhL7DZU2ByuSBUHToX3E5+r63ew1ApmJs7fkw/FI0aYj6ZsguOqrpvpp
4BDqzQnnpLFVzSHpad1MLt0bLthuYDvUTvbYss6n/waDDbLTtKr0s5/T/NPkzDNa4f7NzcOP
z58MnzzcO/nOOnVBvo9fLOn9LP8w3UKnHjw5xpbe0ovizZkxMrzzsOPz68MrzzsOPz68Mrzf
7YdeaMBPT78Mtzz0OPT78/nQ7sLF0L9MWWtz/DV9QCdt3sZmH6e4h2JEGeHFQFtyYcRL4Jyv
FqoVnpieMqoRzURPTF9MV0zUR//UUR/3CmZi+bBT0vPmle0nm+nWqoNtLpXu6fG8S2Qhz21P
Z06tl20uFRrlsRb3hNa7BYjuj06rFSyqqh1Vr0qLzOGx2uHCjVE8v1O664uNZ02dorv/xCy2
qLt4oOpDtGpjmMrrdNSuaCN9+nW06M01sbPYmEd0/Bwdt4Ju
}
Here's a fractal using some of my recent formula classes. The iteration formula class is Threelevel, and the coloring is DistanceColoring. ThreeLevel is inspired by several formulas with Barnsley in the name, where one formula is used if some function of z is above a critical value, and another if below.
Feel free to tweak.
SeeingThrough {
; 210930g6c
::JFqjrhn2tv1WPOutV43Hg5/ggfabAssE1VnC+wmNZX0APbTxkkHKKgBtEtN3R3qk8Mr9v+co
uZdhSyydBaRqw8iN55GP8jHe5zz+YiTKx77f8BJpUWqHFv4ZKlFcQ6XPGHe6wxFSvxcTPitM
UkOSZHOmiNUUk8InpxJYdueOxUXWaCexPz8l+BvT0/qqyq1rQKI1FSkgUGxjRSAbiPTTe8hM
VzcoDJKlFGgXsh3kEIdYExhleGrCuwnmeM0F7fyLlFRSSkSjJBJRkYaQaul8JRRgZztF0KNG
jUlt0sQr1VtNWpuWWZtpluuqqhkP5QAWRWzW3EpaigA7AMaXisMl1NMVf8h9hxgvIZWzn8VG
3c84IiG7ck68COc/ep9MPaAxnnmSJBukYX5T79XIBeP+Mexvw+K1bxjPwCSYu08sKPq3D2KI
Mg+4DhnS72lHLgSilSC9YuYlaO5Le7kP54VZ/fndIgmmSRL46Ht9VYSgnBRqKGwYMabMxldK
BGnrt4fN5IJiiR8PGF+G4JY4sFi6XwwA+AXYwwZxSifYIMNHEKFHmSymWWqpKxCcpfFSDWSO
hehQCx00SFphK7wAll8z7TftOCpYW0HSxuSJd91Go1ldYuuoDlyWWbf1MlNqpqV0CywosNDz
OttEpWqJkezBQtGS5CqUBvAlFiD/UMztJI8VWCbHgTAj0GPWNDOCkUR2SXdtimlpthxqlWym
GA+zSNHRqJbC9gMLxj2yWITzroDAUmwnsq+W+QLDpojsshhimZdITs7byn+6+KIT+YCgCwoi
DFUWpaaljeAANWZliYoPqPg/XiaA5j4Q+vENAove0CAm1K9sKoms2GaINFUNv69ifjVC7gKK
OFrCym93dGzj7MobLsNs86FqLfCqETw/YJooFUURpC1aZZBBsQQVdDUDVVzIjh1yr5p3umX8
BqfoLF7dynFQCcoCwdiq7pYLDLLtg/g6eIZ7y6dKQQVAtWrMImSUpta4onYxxhxckEAQSwHD
jZXCDg9O4tk5AwZ5zHx09VhllsmZeABzTZN6H+KNfxiwKuITrmIPi7XOlkt8qdhRAFyVtIAf
+NWqzxPE6vL8j5GmHsvutb78UdekWEBfwDyrFG1b33/zb+h6atorsyvu9ANgGzcy3iodn7Hy
RQ/JM/IPaSmPyQLtkoscNaVP6nppDP6EruPMDeOPLL1t3kUScKfpvguowKllqyAMSkr3v95i
koaz81nhVFAmss3FDrbz83oyW+Z+YdUhLikLPP4stcgKWt7wntjw8gKRCTbsd/6ZY70F/TJX
2r8VqJLEIURfc3K0x5ikytEsSXQv5rm0NErrTYQh9/plmDmMQNnhgD0RpbovS9utJJ0EmkQT
ZSiLc3gBDHdQZUNj2+UWmT4MUTBzQyqrUkNGR0s6txUi3NIHkTdI7Se3lvz5vMa6DQYyGDKB
iLxImh0FnWv7si4QtX1RMz1P/bNxF/So35PTfLNMIXg/V2WmkF3oxmEKppeTAx0Ux2h8kNxN
DjaqUGkSZ108UEEsbz8GPsDC9Zji0aaAX6BYxCWbSKRUmcgCl0nsKopriGfR50URf6exY6qY
OdVsmuK2TXl13xU50n+fBO7KeBcP93dZ0SbtR48zqoNJ/RmMKgHfI8lpHZoeOGVfqtbyhG/k
r5LxzrKNt5KvojTNbkkSjmkKP1sm/TwxDpe7gr6fP18f6Or5/09WznrY7QOzEqTwERTCG809
sHxTV7RIbcDH8olipu9cg9+0ZaomnG5WF9p1uJ7Fy2QvptP5mmwzNE/dukb9Yq1MzdCM3cvA
TuiND2JBK3cHT7buHg5mqb2NVkJXzdkEaeh393mK7xw2ITyFktOEPnJh02UinVnoa7uP3MZt
GaZAkULvLZ5F6EdZyq7SisFakBvI5g3js11IH9t7sN0N1NsM77FsDPI8Bkq9idfKfh5nKeZu
PwfkN4e61fDP4rCeKmfklkyfJsh0ozDy0u3yvftuQH9LCs6S2Rs80R5Kvm9dx9C+SnW3fBv4
jvj8dXKOV1+W9/R+alOaRwyVPATzeSfL0lV8eYdiuqY/pQXRKHoi160Ym5amx/HnIuIh5Zuw
iqyKUqyZOO/EWIbxild97ei3MBScgr/EU86h9k7zE0t8F3XpIWgi3psXD8vhhNeB/RZFPguy
2yakuIr4IIX+c2b9JOb6cbpTHx5zBEtRk2jQDl4rQSIuEdxRIsafZxWP70P+BWsjHUdrX5vN
4E6GxTI5gT+DEdyFci1Tvwt1JDByQyw+N9psrTactLRLUbib/6D4TV8QKjyeLo+cdtL60jrR
D5aE2cIt1G03a4lj5cthcOYd0QqrPo35PQAaQnrPkz1xLH27GD6d+bNscY3bMk7NwLHKzzC2
C75i/75772Lu9Nxg+kQfKcHTPou27986WZLnLAhqeM8NfSwZBj9MlQDqlIo6bNO3az+ieLlf
tpuDPOxXYXRbd+J+WnH7oRtz31qsXm7hDiApkUocj07h6kkDUhlmSehBHh61Dcqf7sT/Y7zu
nFQ8wfmfAqOjz8rgJSLO3D8Za1fC1dDsYqDLKL3NKv9r1L4h0sN5mmd42UqoL92yaWJruhtq
GqkWf72CqqYW73AQhhL7DZU2ByuSBUHToX3E5+r63ew1ApmJs7fkw/FI0aYj6ZsguOqrpvpp
4BDqzQnnpLFVzSHpad1MLt0bLthuYDvUTvbYss6n/waDDbLTtKr0s5/T/NPkzDNa4f7NzcOP
z58MnzzcO/nOOnVBvo9fLOn9LP8w3UKnHjw5xpbe0ovizZkxMrzzsOPz68MrzzsOPz68Mrzf
7YdeaMBPT78Mtzz0OPT78/nQ7sLF0L9MWWtz/DV9QCdt3sZmH6e4h2JEGeHFQFtyYcRL4Jyv
FqoVnpieMqoRzURPTF9MV0zUR//UUR/3CmZi+bBT0vPmle0nm+nWqoNtLpXu6fG8S2Qhz21P
Z06tl20uFRrlsRb3hNa7BYjuj06rFSyqqh1Vr0qLzOGx2uHCjVE8v1O664uNZ02dorv/xCy2
qLt4oOpDtGpjmMrrdNSuaCN9+nW06M01sbPYmEd0/Bwdt4Ju
}
