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

(display)
(defaultpalette 0)
(textposition 'center 'bottom)
(formula 'magnet)
(angle 0)
(outcoloring 0)
(plane 0)
(view 2.0193 -1.6338 0.17812 0.26124)
(message "magnet")
(textsleep)
(display)
(morphview 1.5 0 3 4.4)
(usleep 6000000)
(wait)
(message "magnet1")
(textsleep)
(display)
(message "magnet2")
(textsleep)
(display)
(palette 1 2104064959 0)
(formula 'magnet)
(angle -361)
(maxiter 170)
(outcoloring 0)
(plane 0)
(view 1.847209822 -1.339254931 7.031666521E-06 1.03131109E-05)
(message "similiar")
(textsleep)

(display)
(palette 1 1979730731 0)
(formula 'magnet)
(angle 26.7)
(outcoloring 6)
(plane 0)
(view -0.33728908 -0.37438809 0.00018856268 0.0002765586)
(usleep 2000000)

(palette 1 765726463 0)
(formula 'magnet)
(angle 88.3)
(outcoloring 6)
(plane 0)
(view -0.3371366 -0.37663387 0.00069439878 0.0010184515)
(usleep 2000000)


(palette 1 1510803482 0)
(formula 'magnet)
(angle -269)
(outcoloring 1)
(plane 0)
(view 1.275 0.006127 0.14027 0.20573)

(usleep 2000000)




(palette 1 1734551171 0)
(formula 'magnet)
(angle -88.8)
(outcoloring 8)
(incoloring 0)
(plane 0)
(view 2.095 -0.01928 1.292 1.895)
(usleep 3000000)


(palette 1 258644272 0)
(formula 'magnet)
(angle -540)
(outcoloring 0)
(plane 0)
(view 1.2689826 -2.0404879 0.000258881 0.00037969213)
(usleep 1000000)

(morphview 1.5 0 3 4.4)
(usleep 10000000)
(wait)
(juliaseed 1.5404263026792413359 1.2313365559633509793)
(fastjulia #t)
(message "magjulia")
(textsleep)
(display)
(line 'fractal 1.5404263026792413359 1.2313365559633509793 1.5404263026792413359 1.2313365559633509793)
(line 'fractal 1.5404263026792413359 1.2313365559633509793 1.5404263026792413359 1.2313365559633509793)
(line 'fractal 1.5404263026792413359 1.2313365559633509793 1.5404263026792413359 1.2313365559633509793)
(line 'fractal 1.5404263026792413359 1.2313365559633509793 1.5404263026792413359 1.2313365559633509793)
(linekey 0)
(morphline 'fractal 1.51043 1.20134 1.57043 1.20134)
(morphline 'fractal 1.57043 1.20134 1.57043 1.26134)
(morphline 'fractal 1.51043 1.26134 1.57043 1.26134)
(morphline 'fractal 1.51043 1.20134 1.51043 1.26134)
(usleep 1000000)


(morphjulia 1.4602 -1.209)
(linekey 0)
(morphline 'fractal 1.4302 -1.239 1.4902 -1.239)
(morphline 'fractal 1.4902 -1.239 1.4902 -1.179)
(morphline 'fractal 1.4302 -1.179 1.4902 -1.179)
(morphline 'fractal 1.4302 -1.239 1.4302 -1.179)
(usleep 3000000)

(morphjulia -0.3184 -1.1289)
(linekey 0)
(morphline 'fractal -0.3484 -1.1589 -0.2884 -1.1589)
(morphline 'fractal -0.2884 -1.1589 -0.2884 -1.0989)
(morphline 'fractal -0.3484 -1.0989 -0.2884 -1.0989)
(morphline 'fractal -0.3484 -1.1589 -0.3484 -1.0989)
(usleep 3000000)

(morphjulia -0.273 1.378)
(linekey 0)
(morphline 'fractal -0.303 1.348 -0.243 1.348)
(morphline 'fractal -0.243 1.348 -0.243 1.408)
(morphline 'fractal -0.303 1.408 -0.243 1.408)
(morphline 'fractal -0.303 1.348 -0.303 1.408)
(usleep 3000000)
(morphjulia 1.5404 1.2313)
(linekey 0)
(morphline 'fractal 1.5104 1.2013 1.5704 1.2013)
(morphline 'fractal 1.5704 1.2013 1.5704 1.2613)
(morphline 'fractal 1.5104 1.2613 1.5704 1.2613)
(morphline 'fractal 1.5104 1.2013 1.5104 1.2613)
(usleep 3000000)
(linekey 0)
(morphline 'fractal 1.5404 1.2313 1.5404 1.2313)
(morphline 'fractal 1.5404 1.2313 1.5404 1.2313)
(morphline 'fractal 1.5404 1.2313 1.5404 1.2313)
(morphline 'fractal 1.5404 1.2313 1.5404 1.2313)
(usleep 1000000)
(display)
(fastjulia #f)

(palette 1 999460631 0)
(formula 'magnet)
(juliaseed 2.0193023255813953853 -0.022000000000000001542)
(angle -268)
(maxiter 251)
(outcoloring 1)
(julia #t)
(plane 0)
(view -0.02084 0.04831 4.953 7.265)
(usleep 3000000)

(palette 1 523407644 0)
(formula 'magnet)
(juliaseed -0.057906976744186156036 0)
(angle 89.6)
(maxiter 170)
(outcoloring 1)
(julia #t)
(plane 0)
(view 0.88499 0.039171 0.7298 1.0704)


(palette 1 1982820186 0)
(formula 'magnet)
(juliaseed 1.2774418604651162634 -0.92400000000000006488)
(outcoloring 0)
(julia #t)
(plane 1)
(view 157 380 94.4 138)
(usleep 2000000)

(palette 1 1716597759 0)
(formula 'magnet)
(juliaseed 3.0208139534883721999 -0.022000000000000001542)
(angle -88.9)
(outcoloring 1)
(julia #t)
(plane 0)
(view -0.9297 -0.02747 1.683 2.468)

(usleep 3000000)
(palette 1 98634059 0)
(formula 'magnet)
(juliaseed -0.26191860465116291456 -0.022000000000000001542)
(angle -274)
(maxiter 170)
(outcoloring 7)
(julia #t)
(plane 0)
(view 0.9202 0.05028 1.371 2.01)
(usleep 3000000)

(palette 1 952140389 0)
(formula 'magnet)
(juliaseed 1.3330813953488371976 0)
(outcoloring 9)
(julia #t)
(plane 5)
(view -0.01039 0.008669 1.341 1.966)
(usleep 3000000)

(palette 1 2094414250 0)
(formula 'magnet)
(juliaseed 1.6483720930232558244 0)
(angle -91.6)
(outcoloring 7)
(julia #t)
(plane 0)
(view -0.011859 0.016696 0.8126 1.1918)
(usleep 3000000)


(display)
(palette 3 1083366997 0)
(textposition 'center 'bottom)
(formula 'magnet2)
(angle 0)
(outcoloring 0)
(plane 0)
(view 1 0 3 3.2)
(message "magnet3")
(textsleep)
(display)
(morphview 1.94584 -0.90656 0.0534806 0.057046)
(usleep 6000000)
(wait)