; An introduction to fractals by Jan Hubicka
; Version 1.0 done for XaoS 3.0 in July 1997
; Use xaos -play to see it :)
(defaultpalette 0)
(load "head.xhf")
(load "keys.xhf")

(range 50)
(formula 'barnsley)
(angle 0)
(maxiter 7)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view 0.63179 0.75369 0.41932 0.41932)

(clearscreen)
(message "fractal")
(usleep 5000000)
(clearscreen)
(message "fractal1")
(textsleep)
(clearscreen)
(message "fractal2")
(textsleep)
(clearscreen)
(message "fractal3")
(textsleep)
(clearscreen)
(message "fractal4")
(textsleep)
(clearscreen)


(message "fractal5")
(textsleep)
(maxiter 9)
(display)
(message "fractal6")
(textsleep)
(maxiter 11)
(message "fractal7")
(textsleep)
(maxiter 12)
(message "fractal8")
(textsleep)
(maxiter 13)
(usleep 1000000)
(maxiter 14)
(usleep 500000)
(maxiter 15)
(usleep 200000)
(maxiter 17)
(usleep 200000)
(maxiter 20)
(usleep 200000)
(maxiter 25)
(textpossition 'center 'bottom)
(message "fractal9")
(textsleep)
(display)
(message "facts")
(textsleep)
(display)
(usleep 1000000)
(message "fact1")
(textsleep)
(display)
(morphview 0.0 0.0 2.5 2.5)
(usleep 6000000)
(wait)
(display)
(message "fact2")
(textsleep)
(display)
(message "fact3")
(textsleep)
(display)
(message "fact4")
(textsleep)
(display)
(message "fact5")
(textsleep)
(display)
(message "fact6")
(textsleep)
(clearscreen)
(message "fact7")
(textsleep)

; Mandelbrot set part
(defaultpalette 0)
(filter 'stereogram #f)
(filter 'interlace #f)
(filter 'edge #t)
(filter 'edge2 #f)
(filter 'blur #t)
(formula 'mandel)
(maxiter 1)
(outcoloring 0)
(incoloring 0)
(plane 0)
(view -0.75 0 .1 .1)
(usleep 1000000)
(view -0.75 0 2.5 2.5)
(wait)
(maxiter 2)
(wait)
(maxiter 3)
(wait)
(maxiter 4)
(wait)
(maxiter 5)
(wait)
(maxiter 6)
(wait)
(maxiter 8)
(wait)
(maxiter 10)
(wait)
(maxiter 12)
(wait)
(maxiter 14)
(wait)
(maxiter 20)
(wait)
(maxiter 30)
(wait)
(maxiter 100)
(wait)
(filter 'edge #f)
(wait)
(message "mset")
(usleep 3000000)
(display)
(usleep 1000000)
(display)
(message "mset1")
(textsleep)
(display)
(text "z=z^2+c")
(usleep 3000000)
(display)
(message "mset2")
(textsleep)
(view -0 0 .3 .3)
(wait)

(display)
(textpossition 'center 'bottom)
(view 0.0 0.0 0.3 0.3)
(message "mset3")
(textsleep)
(filter 'blur #f)
(display)
(morphview -0.75 0 2.5 2.5)
(usleep 5000000)
(wait)
(message "mset4")
(textsleep)
(display)
(message "mset5")
(textsleep)

(display)
(periodicity #f) ;FIXME periodicity makes problems here
(morphview -1.76329 -0.00180622 0.0480762 0.0480762)
(usleep 4000000)

(wait)
(message "mset6")
(textsleep)
(periodicity #t)
(display)
(usleep 1000000)
(message "mset7")
(textsleep)
(display)
(message "mset8")
(textsleep)

(display)
(morphview -1.78384796 -0.0156186314 3.28608553E-05 3.28608553E-05)
(usleep 3000000)
(wait)
(message "mset9")
(textsleep)
(display)
(message "mset10")
(textsleep)

;An gray mandelbrot
(display)
(palette 1 344773041 0)
(periodicity #t)
(maxiter 500)
(angle 206)
(view -0.69697092226 -0.44313598753 2.1102342597E-07 2.1102342597E-07)
(usleep 3000000)

;An yellow mandelbrot
(palette 1 1322755214 0)
(angle 276)
(view -0.1797721 -0.8418266 0.001259123 0.001259123)

(usleep 3000000)

(palette 2 31632178 0)
(angle 0)
(outcoloring 1)
(view -1.9854567 -1.351727E-05 0.00029196024 0.00029196024)

(usleep 3000000)

;An strange purple mandelrbto

(outcoloring 0)
(palette 1 2003101440 0)
(angle 220)
(autorotate #f)
(maxiter 204)
(view 0.3146669 -0.02931828 0.001555872 0.001555872)
(usleep 3000000)
(angle 0)
(palette 1 739115845 0)
(formula 'mandel)
(maxiter 170)
(display)
(textpossition 'center 'bottom)
(message "nat")
(textsleep)
(display)
(message "nat1")
(textsleep)
(display)
(message "nat2")
(textsleep)
(display)
(morphview -0.354983 0.638129 0.0145266 0.0145266)
(usleep 7000000)
(wait)
(message "nat3")
(textsleep)

(palette 1 650671357 0)
(angle 0)
(maxiter 170)
(outcoloring 9)
(view -0.205806 -1.10686 0.0239451 0.0239451)
(display)
(message "nat4")
(textsleep)


(defaultpalette 0)
(filter 'starfield #t)
(maxiter 139)
(outcoloring 0)
(incoloring 0)
(view 0.23616578 -0.56339523 0.00054982648 0.00054982648)
(display)
(message "nat5")
(textsleep)


(filter 'starfield #f)
(filter 'palette #t)
(palette 1 477945530 0)
(periodicity #t)
(cyclingspeed -17)
(angle 0)
(maxiter 46)
(outcoloring 0)
(incoloring 1)
(range 3)
(plane 0)
(view -1.780499 -0.002199366 0.004793186 0.004793186)
(usleep 100000)
(message "nat6")
(textsleep)
(cycling #t)
(display)
(usleep 6000000)

(filter 'palette #f)
(cycling #f)
(palette 1 155652149 0)
(maxiter 127)
(incoloring 0)
(view 0.19232992 0.59284158 0.00015478901 0.00015478901)
(message "nat7")
(textsleep)

(display)
(view 0.294490997 -0.0163372737 1.38726242E-05 1.38726242E-05)
(usleep 2000000)


(maxiter 144)
(outcoloring 1)
(incoloring 0)
(wait)
(plane 0)
(morphview 0.2944910925 -0.01633561217 1.083571743E-06 1.083571743E-06)
(usleep 3000000)
(wait)
(usleep 3000000)

(palette 1 1750754674 0)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(view -0.56159435 0.64187615 0.00043670151 0.00043670151)
(usleep 3000000)


(palette 1 1499405657 0)
(angle 7.24)
(maxiter 170)
(outcoloring 1)
(incoloring 1)
(plane 0)
(view -1.94257718066647 -1.77233397601984E-05 2.49864032459204E-11 2.49864033478705E-11)
(usleep 2000000)

(morphview -1.9425771806688 -1.7723339490488E-05 1.4771196375427E-10 1.4771196554556E-10)
(usleep 4000000)
(wait)

(palette 1 780175578 0)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(view 0.2989409252714 -0.01731148436377 1.153372743612E-09 1.153372744112E-09)
(usleep 3000000)

(morphview -0.75 0 2.5 2.5)
(usleep 15000000)
(wait)
(palette 1 780175578 0)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(view -0.75 0.0 2.5 2.5)
(textpossition 'center 'bottom)
(message "julia")
(textsleep)
(display)
(message "julia1")
(textsleep)

(display)
(fastjulia #t)
(juliaseed -0.75470740436081123169 0.27208353381654335628)
(display)
(message "julia2")
(usleep 3000000)

(display)
(message "julia3")
(textsleep)

(display)
(message "julia4")
(textsleep)

(display)
(message "julia5")
(textsleep)

(display)
(message "julia6")
(textsleep)

(display)
(message "julia7")
(textsleep)

(display)
(juliaseed -0.91860465116279070845 0.012500000000000000802)
(message "julia8")
(textsleep)

(display)
(juliaseed -0.76053779069767441922 -0.16250000000000001043)
(message "julia9")
(textsleep)

(display)
(message "julia10")
(textsleep)


(display)
(juliaseed 0.36700581395348844398 0.025)
(morphjulia 0.33539244186046518622 -0.0125)
(usleep 1000000)
(morphjulia 0.3775436046511628633 -0.6125)
(usleep 1000000)
(morphjulia -0.086119186046511585078 -0.975)
(usleep 1000000)
(morphjulia -0.59193313953488371076 -0.65)
(usleep 1000000)
(morphjulia -0.76053779069767441922 -0.1375)
(usleep 1000000)
(morphjulia -0.77107558139534883854 0.175)
(usleep 1000000)
(morphjulia -0.57085755813953487222 0.6625)
(usleep 1000000)
(morphjulia -0.10719476744186042373 0.925)
(usleep 1000000)
(morphjulia 0.34593023255813960533 0.625)
(usleep 1000000)
(morphjulia 0.28270348837209308981 0)
(usleep 1000000)
(morphjulia 0.36700581395348844398 0.025)
(usleep 1000000)
(morphjulia 0.36700581395348844398 0.025)
(usleep 1000000)
(fastjulia #f)
(palette 1 662060676 0)
(wait)
(message "theme")
(textsleep)

(display)
(morphview -0.563733 -0.642253 0.0193372 0.0193372)
(usleep 3000000)
(wait)

(message "theme1")
(textsleep)

(display)
(message "theme2")
(textsleep)

(julia #t)
(juliaseed -0.56373290058361424286 -0.64225330414353426158)
(message "theme3")
(textsleep)
(display)

(morphview 0 0 2.5 2.5)
(usleep 4000000)
(wait)
(message "theme4")

(textsleep)
(display)
(message "theme5")
(textsleep)
(display)
(message "theme6")
(textsleep)

(display)
(morphview -0.0075841 0.00025775 0.12745 0.12745)
(usleep 4000000)
(wait)
(message "theme7")
(textsleep)

(display)
(message "theme8")
(textsleep)

(display)
(palette 1 155652149 0)
(periodicity #t)
(juliaseed 0.29449576229535342093 -0.016332967445424519366)
(maxiter 127)
(outcoloring 1)
(incoloring 0)
(julia #t)
(view 0.000765158 -0.000268691 0.0186372 0.0186372)
(usleep 1000000)
(morphview 0 0 2.5 2.5)
(usleep 10000000)
(wait)

(palette 1 1843312520 0)
(juliaseed -0.72892441860465116144 -0.17500000000000001123)
(maxiter 170)
(outcoloring 1)
(incoloring 0)
(julia #t)
(plane 1)
(view 0.462 1.25 56.2 56.2)
(usleep 3000000)


(palette 1 1191063399 0)
(juliaseed 0.30305461922625852807 0.4504536191559173757)
(angle 0)
(maxiter 388)
(outcoloring 0)
(incoloring 0)
(julia #t)
(plane 0)
(view -0.052981 -0.50406 0.13039 0.13039)

(palette 1 1112927008 0)
(juliaseed -0.08085029069767437552 0.68229166666666671054)
(maxiter 170)
(outcoloring 1)
(incoloring 1)
(julia #t)
(plane 0)
(view 0 0 2.5 2.5)
(usleep 1000000)

(morphview 0.239593 -0.462394 0.0574963 0.0574963)
(usleep 4000000)
(wait)
(usleep 1000000)
