; 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 "intro3")
(usleep 5000000)

(defaultpalette 0)
(textposition 'center 'bottom)
(formula 'newton)
(periodicity #t)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 0)
(display)
(message "newton")
(textsleep)


(display)
(message "newton1")
(textsleep)

(display)
(message "newton2")
(textsleep)

(display)
(message "newton3")
(color 'red)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(color 'white)

(linekey 0)
(morphline 'fractal 0.966667 -0.0333333 0.966667 0.0333333)
(morphline 'fractal 0.966667 0.0333333 1.03333 0.0333333)
(morphline 'fractal 0.966667 -0.0333333 1.03333 -0.0333333)
(morphline 'fractal 1.03333 0.0333333 1.03333 -0.0333333)

(morphline 'fractal -0.533415 0.83323 -0.533415 0.899896)
(morphline 'fractal -0.533415 0.899896 -0.466749 0.899896)
(morphline 'fractal -0.533415 0.83323 -0.466749 0.83323)
(morphline 'fractal -0.466749 0.899896 -0.466749 0.83323)

(morphline 'fractal -0.533415 -0.83323 -0.533415 -0.899896)
(morphline 'fractal -0.533415 -0.899896 -0.466749 -0.899896)
(morphline 'fractal -0.533415 -0.83323 -0.466749 -0.83323)
(morphline 'fractal -0.466749 -0.899896 -0.466749 -0.83323)

(usleep 1000000)
(textsleep)
(display)

(message "newton4")
(textsleep)
(display)

(morphview -0.486472951 -0.239423987 3.40052781E-05 3.40052781E-05)
(usleep 5000000)
(wait)
(message "newton5")
(textsleep)

(display)
(message "newton6")
(textsleep)
(display)


(message "newton7")
(textsleep)

(display)
(message "newton8")
(textsleep)


(display)
(defaultpalette 0)
(formula 'newton)
(juliaseed 1.0010901162790698318 0)
(angle 90)
(julia #t)
(plane 0)
(view -0.5467 -0.02844 1.927 1.927)
(usleep 3000000)


(palette 1 959136425 0)
(wait)
(morphview -0.603817 0.000543598 0.0629232 0.0629232)
(usleep 10000000)
(wait)

(palette 1 871883963 0)
(formula 'newton)
(juliaseed -0.80087209302325586545 0)
(angle -90.9)
(maxiter 256)
(julia #t)
(plane 1)
(view -2.254 0.006638 1.532 1.532)
(usleep 2000000)

(palette 1 1233017465 0)
(formula 'newton)
(juliaseed -1.1275436046511628632 0)
(angle 92)
(maxiter 256)
(julia #t)
(plane 0)
(view -0.33483 0.0033715 0.22029 0.22029)



(palette 1 1357086155 0)
(juliaseed -1.1275436046511628632 0)
(angle 90)
(autorotate #f)
(maxiter 256)
(julia #t)
(plane 2)
(view 0.5762 0.1221 8.249 8.249)
(usleep 2000000)

(palette 1 1810645372 0)
(formula 'newton)
(juliaseed -1.1275436046511628632 0)
(angle 92)
(autorotate #f)
(maxiter 256)
(julia #t)
(plane 0)
(view -0.6110601 -2.484229E-05 0.006533619 0.006533619)
(usleep 2000000)

(palette 1 1281050362 0)
(juliaseed 1.0010901162790698318 0)
(angle 98)
(maxiter 170)
(julia #t)
(plane 0)
(view 0.252905 -0.5152498 0.004158874 0.004158874)
(usleep 2000000)

(palette 2 448045853 0)
(juliaseed -0.57957848837209298431 -1.084202172485504434E-19)
(angle 90)
(view -0.45641 -0.0079525 0.48766 0.48766)
(usleep 2000000)


(palette 1 985867394 0)
(juliaseed 0.0058931089247213081752 0.0044899066259199158438)
(angle 98)
(autorotate #f)
(maxiter 170)
(julia #t)
(plane 0)
(view 0.04955468 0.3812751 0.004336217 0.004336217)
(usleep 2000000)

(palette 1 1233017465 0)
(juliaseed -1.1275436046511628632 0)
(angle 92.6)
(autorotate #f)
(maxiter 246)
(julia #t)
(plane 0)
(view -0.33483 0.0033715 0.22029 0.22029)
(usleep 2000000)



(defaultpalette 0)
(textposition 'center 'bottom)
(formula 'newton4)
(periodicity #t)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 0)
(display)
(message "newton9")
(textsleep)

(display)
(message "newton10")
(textsleep)

(display)
(message "newton11")
(color 'red)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(color 'white)

(linekey 0)
(morphline 'fractal 0.966667 -0.0333333 0.966667 0.0333333)
(morphline 'fractal 0.966667 0.0333333 1.03333 0.0333333)
(morphline 'fractal 0.966667 -0.0333333 1.03333 -0.0333333)
(morphline 'fractal 1.03333 0.0333333 1.03333 -0.0333333)

(morphline 'fractal -0.966667 -0.0333333 -0.966667 0.0333333)
(morphline 'fractal -0.966667 0.0333333 -1.03333 0.0333333)
(morphline 'fractal -0.966667 -0.0333333 -1.03333 -0.0333333)
(morphline 'fractal -1.03333 0.0333333 -1.03333 -0.0333333)

(morphline 'fractal -0.0333333 0.966667 0.0333333 0.966667)
(morphline 'fractal 0.0333333 0.966667 0.0333333 1.03333)
(morphline 'fractal -0.0333333 0.966667 -0.0333333 1.03333)
(morphline 'fractal 0.0333333 1.03333 -0.0333333 1.03333)

(morphline 'fractal -0.0333333 -0.966667 0.0333333 -0.966667)
(morphline 'fractal 0.0333333 -0.966667 0.0333333 -1.03333)
(morphline 'fractal -0.0333333 -0.966667 -0.0333333 -1.03333)
(morphline 'fractal 0.0333333 -1.03333 -0.0333333 -1.03333)

(usleep 1000000)
(textsleep)
(display)