mandeljulia { ;a formula by Konstantin Schwarze init: z=0 loop: z=(sin(z^2+#pixel))+(sinh(z^2+#pixel)) bailout: |z|<4 default: title = "mandeljulia" } ;################################### draupnir { ;a formula by Konstantin Schwarze init: x=0 y=0 loop: xa=x ya=y x=fn1(xa^2-ya^2+#pixel) y=fn2(2*xa*ya+#pixel) t=x+y bailout: |t|<100 default: title = "draupnir" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc switch: type="draupnir2" a=#pixel fn1=fn1 fn2=fn2 } draupnir2 { ;a formula by Konstantin Schwarze init: x=0 y=0 loop: xa=x ya=y x=fn1(xa^2-ya^2+@a) y=fn2(2*xa*ya+#pixel) t=x+y bailout: |t|<100 default: title = "draupnir2" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc switch: type="draupnir3" b=#pixel a=@a fn1=fn1 fn2=fn2 } draupnir3 { ;a formula by Konstantin Schwarze init: x=#pixel y=#pixel loop: xa=x ya=y x=fn1(xa^2-ya^2+@a) y=fn2(2*xa*ya+@b) t=x+y bailout: |t|<100 default: title = "draupnir3" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc } ;########################### ariadne { ;a formula by Konstantin Schwarze init: x=0 y=0 loop: xa=x ya=y x=fn2(xa^2-ya^2+#pixel) y=1/fn1(2*xa*ya+#pixel) t=x+y bailout: |t|<100 default: title = "ariadne" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc switch: type="ariadne2" a=#pixel fn1=fn1 fn2=fn2 } ariadne2 { ;a formula by Konstantin Schwarze init: x=0 y=0 loop: xa=x ya=y x=fn2(xa^2-ya^2+@a) y=1/fn1(2*xa*ya+#pixel) t=x+y bailout: |t|<100 default: title = "ariadne2" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc switch: type="ariadne3" b=#pixel a=@a fn1=fn1 fn2=fn2 } ariadne3 { ;a formula by Konstantin Schwarze init: x=#pixel y=#pixel loop: xa=x ya=y x=fn2(xa^2-ya^2+@a) y=1/fn1(2*xa*ya+@b) t=x+y bailout: |t|<100 default: title = "ariadne3" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc } ;########################## dragon { ;a formula by Konstantin Schwarze init: j=0 loop: j=1/(j^2+#pixel) bailout: |j|<4 default: title = "dragon" switch: type="dragon2" p=#pixel } dragon2 { ;a formula by Konstantin Schwarze init: j=#pixel loop: j=1/(j^2+@p) bailout: |j|<4 default: title = "dragon2" } ;#################### sphinx { ;a formula by Konstantin Schwarze init: ja=0 j=0 loop: jx=fn1(1/fn2(j^2+ja+#pixel)) ja=j j=jx bailout: |j|<4 default: title = "sphinx" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc switch: type="sphinx2" p=#pixel fn1=fn1 fn2=fn2 } sphinx2 { ; a formula by Konstantin Schwarze init: ja=#pixel j=#pixel loop: jx=fn1(1/fn2((j^2+ja+@p))) ja=j j=jx bailout: |j|<4 default: title = "sphinx2" func fn1 caption = "First Function" default = ident() endfunc func fn2 caption = "Second Function" default = ident() endfunc }