'Original IFS fractal by Andy Amaya
'Designed in 'IFS Lab' by Nathan Zeldes https://www.nzeldes.com/Fractals/Fractals_core.htm
scaleX! = 850.0
scaleY! = 1200.0
offsetX% = -25
offsetY% = -20
nx! = 0.240 * lastX! + 0.005 * lastY! + 0.057
ny! = 0.002 * lastX! + 0.170 * lastY! + 0.087
nx! = -0.002 * lastX! + 0.139 * lastY! + 0.066
ny! = -0.231 * lastX! + -0.008 * lastY! + 0.384
nx! = 0.242 * lastX! + 0.005 * lastY! + 0.056
ny! = -.009 * lastX! + 0.168 * lastY! + 0.363
nx! = 0.055 * lastX! + -0.047 * lastY! + 0.302
ny! = 0.052 * lastX! + 0.053 * lastY! + 0.384
nx! = 0.003 * lastX! + 0.142 * lastY! + 0.343
ny! = -0.235 * lastX! + -0.005 * lastY! + 0.374
nx! = 0.063 * lastX! + -.068 * lastY! + 0.445
ny! = 0.064 * lastX! + 0.065 * lastY! + 0.106
nx! = 0.071 * lastX! + -.068 * lastY! + 0.438
ny! = 0.074 * lastX! + 0.065 * lastY! + 0.251
nx! = 0.074 * lastX! + 0.003 * lastY! + 0.349
ny! = 0.000 * lastX! + 0.100 * lastY! + 0.096
nx! = 0.075 * lastX! + -0.005 * lastY! + 0.351
ny! = 0.000 * lastX! + 0.094 * lastY! + 0.358
nx! = 0.001 * lastX! + 0.131 * lastY! + 0.221
ny! = -0.226 * lastX! + -0.010 * lastY! + 0.374
nx! = 0.071 * lastX! + 0.058 * lastY! + 0.394
ny! = -0.048 * lastX! + 0.083 * lastY! + 0.227
nx! = 0.058 * lastX! + 0.066 * lastY! + 0.405
ny! = -0.033 * lastX! + 0.094 * lastY! + 0.355
nx! = 0.058 * lastX! + 0.191 * lastY! + 0.540
ny! = -0.152 * lastX! + 0.018 * lastY! + 0.229
nx! = 0.015 * lastX! + 0.099 * lastY! + 0.538
ny! = -0.140 * lastX! + 0.021 * lastY! + 0.353
nx! = 0.119 * lastX! + 0.003 * lastY! + 0.575
ny! = 0.003 * lastX! + 0.094 * lastY! + 0.344
nx! = 0.197 * lastX! + -0.034 * lastY! + 0.751
ny! = 0.000 * lastX! + 0.118 * lastY! + 0.199
nx! = 0.117 * lastX! + -0.036 * lastY! + 0.607
ny! = 0.061 * lastX! + 0.073 * lastY! + 0.214
nx! = 0.016 * lastX! + 0.071 * lastY! + 0.661
ny! = -0.051 * lastX! + 0.031 * lastY! + 0.343
nx! = 0.043 * lastX! + 0.09 * lastY! + 0.759
ny! = -0.128 * lastX! + 0.034 * lastY! + 0.198
nx! = 0.003 * lastX! + 0.095 * lastY! + 0.853
ny! = -0.125 * lastX! + 0.008 * lastY! + 0.206
nx! = 0.006 * lastX! + 0.123 * lastY! + 0.846
ny! = -0.149 * lastX! + 0.008 * lastY! + 0.387
IF iter&
> 20&
THEN PSET (nx!
* scaleX!
+ offsetX%
, ny!
* scaleY!
+ offsetY%
) lastX! = nx!
lastY! = ny!