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

(palette 1 1686618586 0)
(formula 'barnsley)
(cycling #f)
(periodicity #t)
(juliaseed 1.0010901162790698318 -0.62500000000000004022)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(julia #f)
(plane 0)
(view 0 0 2.5 2.5)
(display)
(textposition 'center 'bottom)

(message "barnsley1")
(textsleep)

(display)
(message "barnsley2")
(textsleep)

(display)
(message "barnsley3")
(textsleep)

(display)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(line 'fractal 0 0 0 0)
(fastjulia #t)
(linekey 0)
(morphline 'fractal 0.97109 -0.655 1.03109 -0.655)
(morphline 'fractal 1.03109 -0.655 1.03109 -0.595)
(morphline 'fractal 0.97109 -0.595 1.03109 -0.595)
(morphline 'fractal 0.97109 -0.655 0.97109 -0.595)
(usleep 1000000)
(message "barnsley4")
(textsleep)
(display)
(line 'fractal 0.97109 -0.655 1.03109 -0.655)
(line 'fractal 1.03109 -0.655 1.03109 -0.595)
(line 'fractal 0.97109 -0.595 1.03109 -0.595)
(line 'fractal 0.97109 -0.655 0.97109 -0.595)
(linekey 0)
(morphline 'fractal 1.0027 0.47 1.0627 0.47)
(morphline 'fractal 1.0627 0.47 1.0627 0.53)
(morphline 'fractal 1.0027 0.53 1.0627 0.53)
(morphline 'fractal 1.0027 0.47 1.0027 0.53)
(morphjulia 1.0327 0.5)
(usleep 2000000)
(linekey 0)
(morphline 'fractal 0.3282 1.207 0.3882 1.207)
(morphline 'fractal 0.3882 1.207 0.3882 1.267)
(morphline 'fractal 0.3282 1.267 0.3882 1.267)
(morphline 'fractal 0.3282 1.207 0.3282 1.267)
(morphjulia 0.3582 1.237)
(linekey 0)
(morphline 'fractal 0.3282 1.207 0.3882 1.207)
(morphline 'fractal 0.3882 1.207 0.3882 1.267)
(morphline 'fractal 0.3282 1.267 0.3882 1.267)
(morphline 'fractal 0.3282 1.207 0.3282 1.267)
(usleep 2000000)
(morphjulia -0.3582 1.237)
(linekey 0)
(morphline 'fractal -0.3882 1.207 -0.3282 1.207)
(morphline 'fractal -0.3282 1.207 -0.3282 1.267)
(morphline 'fractal -0.3882 1.267 -0.3282 1.267)
(morphline 'fractal -0.3882 1.207 -0.3882 1.267) 
(usleep 2000000)
(morphjulia -1.0327 0.65)
(linekey 0)
(morphline 'fractal -1.0627 0.62 -1.0027 0.62)
(morphline 'fractal -1.0027 0.62 -1.0027 0.68)
(morphline 'fractal -1.0627 0.68 -1.0027 0.68)
(morphline 'fractal -1.0627 0.62 -1.0627 0.68)
(usleep 2000000)
(morphjulia -1.1591 -0.6125)
(linekey 0)
(morphline 'fractal -1.1891 -0.6425 -1.1291 -0.6425)
(morphline 'fractal -1.1291 -0.6425 -1.1291 -0.5825)
(morphline 'fractal -1.1891 -0.5825 -1.1291 -0.5825)
(morphline 'fractal -1.1891 -0.6425 -1.1891 -0.5825)
(usleep 2000000)
(linekey 0)
(morphline 'fractal -1.1591 -0.6125 -1.1591 -0.6125)
(morphline 'fractal -1.1591 -0.6125 -1.1591 -0.6125)
(morphline 'fractal -1.1591 -0.6125 -1.1591 -0.6125)
(morphline 'fractal -1.1591 -0.6125 -1.1591 -0.6125)
(usleep 1000000)
(display)

(message "barnsley5")
(textsleep)
(display)
(message "barnsley6")
(textsleep)

(display)
(fastjulia #f)
(julia #t)
(palette 1 1183407127 0)
(juliaseed 1.0485101744186047187 -0.04166666666666666934)
(maxiter 311)
(outcoloring 1)
(incoloring 0)
(plane 1)
(view -0.1884 -0.202 7.146 7.146)
(usleep 2000000)


;(palette 1 1779436629 0)
;(juliaseed 0.031613372093023257869 -1.0500000000000000676)
;(maxiter 170)
;(outcoloring 0)
;(incoloring 1)
;(plane 1)
;(view 0.1308 0.04816 4.578 4.578)
;(usleep 2000000)


(palette 1 25997414 0)
(filter 'edge2 #t)
(juliaseed -1.0472928330130634481 -0.087398343635324930658)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(plane 1)
(view -0.1851 -0.09928 7.507 7.507)
(usleep 2000000)
(filter 'edge2 #f)

(palette 3 558734359 0)
(juliaseed 0.82617606890462195329 -0.59250450310750061547)
(maxiter 54)
(outcoloring 0)
(incoloring 1)
(plane 0)
(view -0.5141 0.2394 1.84 1.84)
(usleep 2000000)

(palette 2 1355057888 0)
(juliaseed -1.0221656976744186704 -0.062500000000000004012)
(angle -310)
(autorotate #f)
(maxiter 33)
(plane 1)
(view -0.78537 0.20149 0.43535 0.43535)
(usleep 2000000)

(palette 2 1808462409 0)
(juliaseed 0.58205451272674395567 0.83592626580482287831)
(angle -405)
(maxiter 50)
(outcoloring 0)
(incoloring 1)
(plane 3)
(view 1.009 0.04757 2.973 2.973)
(usleep 2000000)

(palette 3 2052922397 0)
(formula 'barnsley)
(juliaseed 0.0054390291189111917214 -1.0091451435058578867)
(maxiter 38)
(outcoloring 0)
(incoloring 2)
(plane 1)
(view 1.0166 -0.015562 0.55972 0.55972)
(usleep 2000000)


(palette 1 1686618586 0)
(formula 'barnsley2)
(cycling #f)
(periodicity #t)
(juliaseed 1.0010901162790698318 -0.62500000000000004022)
(angle 0)
(autorotate #f)
(maxiter 170)
(outcoloring 0)
(incoloring 0)
(julia #f)
(plane 0)
(view 0 0 2.5 2.5)
(display)
(textposition 'center 'bottom)

(message "barnsley7")
(textsleep)

(display)
(message "barnsley8")
(textsleep)