; 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 "intro6")
(usleep 5000000)
(display)
(textposition 'center 'bottom)
(message "octo")
(defaultpalette 0)
(periodicity #f)
(filter 'edge #f)
(filter 'edge2 #f)
(filter 'starfield #f)
(filter 'stereogram #f)
(filter 'interlace #f)
(filter 'blur #t)
(formula 'octal)
(fastjulia #f)
(cycling #f)
(angle 0)
(fastrotate #t)
(autorotate #t)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 0)
(angle 1229)
(rotationspeed 154)
(view 0 0 .5 .5)

(morphview 0 0 2.5 2.5)
(usleep 4000000)

(usleep 245670)
(rotationspeed 154)

(usleep 343560)
(rotationspeed 144)

(usleep 341700)
(rotationspeed 132)

(usleep 309510)
(rotationspeed 121)

(usleep 308660)
(rotationspeed 111)

(usleep 338590)
(rotationspeed 101)

(usleep 346700)
(rotationspeed 89)

(usleep 341430)
(rotationspeed 78)

(usleep 306660)
(rotationspeed 58)

(usleep 305970)
(rotationspeed 48)

(usleep 308020)
(rotationspeed 37)

(usleep 313580)
(rotationspeed 27)

(usleep 323000)
(rotationspeed 17.1)

(usleep 325080)
(rotationspeed 6.4)

(usleep 324900)
(rotationspeed 0)

(animateview 0 0 2.5 2.5)
(autorotate #f)

(display)
(message "octo1")
(textsleep)
(display)
(filter 'blur #f)
(fastrotate #f)
(palette 1 1272174002 0)
(formula 'octal)
(fastjulia #f)
(cycling #f)
(angle 91.8)
(autorotate #f)
(maxiter 120)
(outcoloring 9)
(incoloring 1)
(plane 2)
(view 0.615 0.734 31 31)
(usleep 2000000)


(palette 1 2020627370 0)
(angle 268)
(maxiter 100)
(outcoloring 0)
(incoloring 1)
(plane 4)
(view 1.933 0.04551 1.146 1.146)

(morphview 1.363 0.01996 3.548 3.548)
(usleep 3000000)
(wait)
(usleep 1000000)


(defaultpalette 0)
(angle 0)
(maxiter 50)
(plane 1)
(angle 24.5)
(view 0.06508 0.02173 6.011 6.011)
(wait)
(morphview 0.1308 -0.1578 9.165 9.165)
(usleep 2000000)
(wait)

(palette 1 1581679475 27)
(maxiter 170)
(plane 0)
(view -0.07483202 0.5429194 0.009544335 0.009544335)
(wait)

(cyclingspeed 47)
(filter 'palette #t)
(cycling #t)
(message "octo2")
(textsleep)
(cycling #f)
(filter 'palette #f)
(display)

(palette 1 2090959176 0)
(formula 'octal)
(juliaseed 0.010537790697674419326 0.86250000000000005547)
(maxiter 170)
(outcoloring 7)
(incoloring 0)
(julia #t)
(plane 0)
(view 0.02298 -0.9176 2.769 2.769)
(usleep 3000000)

(palette 1 1251438586 0)
(formula 'octal)
(juliaseed 0.0013961132576639388808 -0.42931197236250143498)
(angle 0)
(maxiter 251)
(outcoloring 7)
(incoloring 1)
(julia #t)
(plane 1)
(view 0.05096 -0.2509 3.124 3.124)
(usleep 2000000)
(cyclingspeed 10)
(usleep 1000000)
(morphview 1.08 1.35 26.8 26.8)
(usleep 8000000)
(wait)
(usleep 1000000)

(periodicity #t)