; An introduction to fractals by Jan Hubicka
; Version 1.0 done for XaoS 3.0 in July 1997
; Use xaos -play to see it :)
(load "head.xhf")
(clearscreen)
(textposition 'center 'middle)
(message "plane1")
(textsleep)
(clearscreen)
(message "plane2")
(textsleep)
(message "plane3")
(textsleep)
(display)
(textposition 'center 'bottom)
(message "plane4")
(textsleep)
(plane 1)
(view 1.104 -0.006179 4.362 4.362)
(message "plane5")
(textsleep)
(display)
(textsleep)
(message "plane6")
(textsleep)
(display)
(plane 0)
(formula 'mandel9)
(message "plane7")
(textsleep)
(plane 1)
(display)
(textsleep)

(palette 1 1188637657 0)
(formula 'mandel9)
(juliaseed 0.073764534883720934955 0.78750000000000005065)
(maxiter 170)
(outcoloring 6)
(incoloring 0)
(julia #t)
(plane 0)
(view -0.001692 0.0241 2.813 2.813)
(usleep 2000000)
(plane 1)
(view -0.01593 0.03685 6.772 6.772)
(usleep 3000000)

(palette 1 732864367 0)
(formula 'mandel5)
(julia #t)
(juliaseed -0.57957848837209306053 -0.012500000000000000802)
(plane 0)
(view 0.04427 0.00332 2.425 2.425)
(usleep 2000000)

(plane 1)
(view 0.02166 0.1158 8.534 8.534)
(usleep 2000000)


(palette 1 1361222802 0)
(formula 'barnsley)
(juliaseed 1.0318186784683188817 -0.060273352372932779713)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view 0.01969 0.03833 3.355 3.355)
(usleep 2000000)

(plane 1)
(view 0.02601 0.04272 4.853 4.853)
(usleep 2000000)


(palette 1 212885046 0)
(formula 'octal)
(plane 0)
(view 0.05694 -0.02316 1.966 1.966)
(usleep 2000000)

(plane 1)
(view 0.174 -0.184 11.3 11.3)
(usleep 2000000)

(periodicity #t)

(defaultpalette 0)
(formula 'newton)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)

(plane 1)
(view 0.04362 0.0509 5.176 5.176)
(usleep 2000000)

(palette 1 540836405 0)
(juliaseed -1.8805768479558366169 -0.001877370200985767042)
(angle -93.1)
(julia #t)
(plane 0)
(view 0.5411 0.0108 2.81 2.81)
(usleep 2000000)
(plane 1)
(view -5.79 0.118 27.2 27.2)
(usleep 2000000)
(clearscreen)
(textposition 'center 'middle)
(usleep 1000000)
(message "plane8")
(textsleep)
(clearscreen)
(message "plane9")
(textsleep)
(display)

(defaultpalette 0)
(formula 'mandel)
(plane 2)
(view -0.5779664 -0.0001781381 0.006779166 0.006779166)
(wait)

(morphview 3.4E+02 8.1 5.4E+02 5.4E+02)
(usleep 10000000)
(wait)

(periodicity #t)
(textposition 'center 'bottom)
(message "plane10")
(textsleep)
(display)

(palette 1 665365024 0)
(formula 'octal)
(plane 0)
(usleep 2000000)

(angle 91.1)
(plane 2)
(view -1.426 -0.0505 7.569 7.569)
(wait)

(morphview -17 17 2.5E+02 2.5E+02)
(usleep 10000000)
(wait)
(periodicity #t)

(palette 1 1857311811 0)
(formula 'newton)
(autorotate #f)
(outcoloring 1)
(incoloring 0)
(plane 0)
(view 0.307 0.04789 2.876 2.876)
(usleep 2000000)

(plane 2)
(view 1.5 -0.185 16.3 16.3)
(usleep 2000000)


(palette 1 1722789775 0)
(formula 'barnsley)
(julia #t)
(juliaseed 1.0580842317638900964 0.14354313661511941807)
(angle 277)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view 0.004665 -0.09511 3.297 3.297)
(usleep 2000000)
(plane 2)
(view 3.658 0.02434 8.924 8.924)
(usleep 2000000)


(clearscreen)
(textposition 'center 'middle)
(message "lambda")
(textsleep)
(display)


(defaultpalette 0)
(formula 'mandel)
(plane 3)
(view 0.9424 0.05905 4.893 4.893)
(usleep 2000000)

(defaultpalette 0)
(filter 'edge2 #t)
(formula 'newton)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)


(plane 3)
(view 0.9993 0.09856 4.978 4.978)
(usleep 2000000)


(palette 1 2094204211 0)
(filter 'edge2 #f)
(formula 'barnsley)
(juliaseed 1.0490855747152614393 0.057982090780981126467)
(plane 0)
(view -0.1129 0.009373 3.93 3.93)
(usleep 2000000)

(plane 3)
(view 0.9009 -0.0657 5.412 5.412)

(usleep 2000000)


(palette 1 2078692293 0)
(formula 'mandel3)
(juliaseed 0.4215116279069767713 0)
(outcoloring 5)
(incoloring 0)
(julia #t)
(plane 0)
(view -0.03046 0.04685 2.542 2.542)
(usleep 2000000)


(plane 3)
(view 0.9033 0.002104 4.207 4.207)
(usleep 2000000)

(clearscreen)
(usleep 1000000)
(textposition 'center 'middle)
(message "ilambda")
(textsleep)
(display)

(defaultpalette 0)
(formula 'mandel)
(plane 4)
(view -0.04515 -0.02451 2.068 2.068)
(usleep 2000000)

(palette 1 1366212337 0)
(formula 'mandel9)
(angle -270)
(outcoloring 0)
(incoloring 1)
(plane 0)
(view 0.001502 0.0273 2.242 2.242)
(usleep 2000000)

(plane 4)
(view -0.3872 0.04514 2.5 2.5)

(usleep 2000000)


(palette 1 1930829025 0)
(formula 'phoenix)
(juliaseed 0.099603226790762798234 0.47676212210978708464)
(angle 268)
(outcoloring 2)
(incoloring 0)
(plane 0)
(view -0.08725 -0.06146 2.051 2.051)
(usleep 2000000)

(plane 4)
(view 0.1405 0.001392 3.027 3.027)
(usleep 2000000)

(palette 1 1389290519 0)
(formula 'newton)
(angle 267)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)

(plane 4)
(view -0.2721 0.04681 2.652 2.652)
(usleep 2000000)

(palette 1 1756695113 0)
(formula 'newton)
(juliaseed 1.0165192138719228486 -0.015320623070085100277)
(angle -89.1)
(julia #t)
(plane 0)
(view -0.1768 -0.0374 1.351 1.351)
(usleep 2000000)

(plane 4)
(view -0.7622 -0.1073 3.375 3.375)
(usleep 2000000)

;(periodicity #f)
(palette 1 1623798698 0)
(formula 'octal)
(angle -93.6)
(plane 0)
(view 0.05057 -0.04221 2.323 2.323)
(usleep 2000000)

(plane 4)
(view 0.9905 -0.03988 4.759 4.759)
(usleep 2000000)
(periodicity #t)

(clearscreen)
(textposition 'center 'middle)
(usleep 1000000)
(message "imlambda")
(textsleep)
(display)

(defaultpalette 0)
(formula 'mandel)
(outcoloring 0)
(incoloring 0)
(plane 5)
(view 0.015265 0.0011209 0.77487 0.77487)
(textposition 'center 'bottom)
(message "imlambda2")
(usleep 3000000)
(display)
(morphview -1.14 0.928 24.1 24.1)
(usleep 10000000)
(wait)
(usleep 2000000)

(palette 1 21687438 0)
(formula 'octal)
(plane 0)
(view 0.05963 0.01683 2.246 2.246)
(usleep 2000000)

(plane 5)
(view 0.02863 0.002291 1.644 1.644)
(usleep 1000000)
(wait)

(plane 5)
(morphview 0.204 0.0603 11.6 11.6)
(usleep 10000000)
(wait)

(periodicity #t)

(palette 1 2079102097 0)
(formula 'newton)
(outcoloring 8)
(incoloring 0)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)

(plane 5)
(view 0.008223 0.01861 2.028 2.028)
(usleep 2000000)

(palette 1 442412479 0)
(formula 'barnsley)
(juliaseed 1.7326770974776322079 0.0057832737825164998559)
(outcoloring 1)
(incoloring 0)
(plane 0)
(view 0.03107 0.005783 3.747 3.747)
(usleep 2000000)

(plane 5)
(view 0.02936 0.005783 3.545 3.545)
(wait)

(plane 5)
(morphview 0.151 0.00578 18 18)
(usleep 10000000)
(wait)

(palette 1 1478827629 0)
(formula 'magnet)
(juliaseed 2.0756547649234260199 -0.01485114343840790007)
(maxiter 170)
(outcoloring 6)
(incoloring 0)
(julia #t)
(plane 0)
(view -0.353 0.04624 7 10.27)
(usleep 2000000)

(plane 5)
(view 0.029534 -0.0050964 0.39172 0.57452)
(wait)

(plane 5)
(morphview 0.4815 -0.005096 4.936 7.239)
(usleep 10000000)
(wait)
(usleep 1000000)
(clearscreen)
(usleep 1000000)
(textposition 'center 'middle)
(message "mick")
(textsleep)
(display)

(defaultpalette 0)
(formula 'mandel)
(outcoloring 0)
(incoloring 0)
(plane 6)
(view -0.75 0 2.5 2.5)
(wait)

(morphview -2E+01 1E+02 6E+03 6E+03)
(usleep 10000000)
(wait)

(palette 1 13426138 0)
(formula 'octal)
(angle 269)
(plane 0)
(view -0.01687 -0.03823 1.773 1.773)
(usleep 2000000)

(plane 6)
(view 1.101 -0.03384 1.614 1.614)
(usleep 2000000)

(palette 1 379808765 0)
(formula 'newton)
(angle -90)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)

(plane 6)
(view -12.4 -1.93 39.4 39.4)
(usleep 2000000)

(formula 'barnsley)
(palette 1 874618280 0)
(filter 'edge2 #t)
(juliaseed 1.0537790697674419282 0.025000000000000001605)
(plane 0)
(view 0.05278 0.03018 3.195 3.195)
(usleep 2000000)

(plane 6)
(view 0.213 0.0768 14.6 14.6)
(usleep 2000000)
(filter 'edge2 #f)

(palette 1 1022524630 0)
(formula 'phoenix)
(julia #f)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 2000000)

(plane 6)
;(periodicity #f)
(view -1E+03 2E+01 7E+03 7E+03)
(usleep 2000000)
(periodicity #t)