; 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 "intro2")
(usleep 5000000)
(display)
(defaultpalette 0)
(formula 'mandel)
(angle 0)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view -0.75 0 2.5 2.5)
(textposition 'center 'bottom)
(message "power")
(textsleep)
(display)
(formula 'mandel3)
(message "power2")
(textsleep)
(display)
(message "power3")
(textsleep)
(display)
(smoothmorph 'view 2000000 2000000)
(morphview 0.266403 -1.26024 0.0388597 0.0388597)
(usleep 5000000)
(wait)
(palette 1 590960451 0)
(formula 'mandel3)
(maxiter 311)
(outcoloring 1)
(incoloring 0)
(plane 0)
(view 0.4441447404 0.0215520724 6.388399051E-06 6.388399051E-06)
(usleep 2000000)


;(palette 1 1633607719 0)
;(angle -320)
;(maxiter 105)
;(outcoloring 0)
;(incoloring 0)
;(plane 0)
;(view 0.117006125 1.13233683 2.87904169E-05 2.87904169E-05)
;(usleep 2000000)


(palette 1 1311787594 0)
(angle -23.3)
(maxiter 168)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view -0.584730623 -0.221175898 3.22228192E-05 3.22228192E-05)
(usleep 3000000)

(palette 1 1307004302 0)
(angle -23.3)
(maxiter 168)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view 0.41330684 -0.64510606 0.0001145949 0.0001145949)
(usleep 2000000)

(display)
(palette 1 1307004302 0)
(angle -23.3)
(autorotate #f)
(outcoloring 0)
(incoloring 0)
(maxiter 400)
(view -0.451065423507224 -0.022533000686388 6.95555389543592E-11 6.95555389577474E-11)
(usleep 2000000)
(plane 0)
(smoothmorph 'view 2000000 2000000)
(morphview -0.4510654227194 -0.02253299961891 7.419813071352E-09 7.419813071496E-09)
;(maxiter 168)
(usleep 7000000)
(wait)
(usleep 2000000)



(message "power4")
(textsleep)

(defaultpalette 0)
(formula 'mandel4)
(angle 0)
(display)
(text "z^4+c")
(usleep 2000000)

(formula 'mandel5)
(display)
(text "z^5+c")
(usleep 2000000)

(formula 'mandel6)
(display)
(text "z^6+c")
(usleep 2000000)


(palette 1 1158270005 0)
(display)
(formula 'mandel5)
(juliaseed -0.51635174418604654479 0.70000000000000004515)
(angle 0)
(julia #t)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 1)
(view 0.1249 0.1893 5.961 5.961)
(message "pjulia")


(textsleep)
(display)
(palette 1 1586552168 0)
(formula 'mandel3)
(juliaseed 0.36882267441860467488 -0.66250000000000004263)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(julia #t)
(plane 1)
(view -0.02118 0.5241 7.847 7.847)

(usleep 2000000)
(display)
(formula 'mandel5)
(palette 1 2087220895 0)
(juliaseed 0.33669790083813088669 -0.70478147175782891021)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(julia #t)
(plane 1)
(view 0.092 0.164 11.2 11.2)


(usleep 2000000)

(palette 1 111980511 0)
(formula 'mandel5)
(juliaseed -0.62735732725661988549 -0.50514451660129260405)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(julia #t)
(plane 1)
(view 0.3083 0.0967 8.469 8.469)
(usleep 2000000)


(palette 1 1530690807 0)
(formula 'mandel9)
(juliaseed 0.51635174418604654479 -0.50000000000000003215)
(julia #t)
(angle 0)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 1)
(view 0.07038 0.1477 6.786 6.786)
(usleep 2000000)