path: root/tutorial/mset.xaf

(load "head.xhf")
(range 65536)
(textposition 'center 'bottom)
; Mandelbrot set part
(defaultpalette 0)
(filter 'stereogram #f)
(filter 'interlace #f)
(filter 'edge #t)
(filter 'edge2 #f)
(filter 'blur #t)
(formula 'mandel)
(display)
(maxiter 1)
(message "fact7")
(outcoloring 0)
(incoloring 0)
(plane 0)
(view -0.75 0 .1 .1)
;(usleep 1000000)
(wait)
(view -0.75 0 2.5 2.5)
(wait)
(maxiter 2)
(wait)
(maxiter 3)
(wait)
(maxiter 4)
(wait)
(maxiter 5)
(wait)
(maxiter 6)
(wait)
(display)
(maxiter 8)
(wait)
(maxiter 10)
(wait)
(maxiter 12)
(wait)
(maxiter 14)
(wait)
(maxiter 20)
(wait)
(maxiter 30)
(wait)
(maxiter 200)
(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)
(textposition 'center 'bottom)
(view 0.0 0.0 0.3 0.3)
(message "mset3")
(filter 'blur #f)
(smoothmorph 'view 1000000 1000000)
(morphview -0.75 0 2.5 2.5)
(usleep 5000000)
(display)
(wait)
(message "mset4")
(textsleep)
(display)
(message "mset5")

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

(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 5000000)
(wait)
(message "mset9")
(textsleep)
(display)
(message "mset10")
(textsleep)

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

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

(usleep 3000000)

; Blue mandelbrot
(palette 3 420905417 0)
(angle 0)
(formula 'mandel)
(maxiter 520)
(view -0.76938957 -0.11612439 0.0003879837 0.0003879837)
(usleep 3000000)


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

;(usleep 3000000)

;A strange purple mandelbrot

(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)
(color 'black)
(textposition 'center 'bottom)
(message "nat")
(textsleep)
(display)
(message "nat1")
(textsleep)
(display)
(message "nat2")
(textsleep)
(display)
(message "nat3")
(morphview -0.354983 0.638129 0.0145266 0.0145266)
(color 'white)
(usleep 7000000)
(display)
(wait)
(usleep 1000000)

;(palette 1 650671357 0)
;(angle 0)
;(maxiter 170)
;(outcoloring 9)
;(view -0.205806 -1.10686 0.0239451 0.0239451)
;(display)
;(message "nat4")
;(textsleep)
(palette 1 650671357 0)
(angle 0)
(outcoloring 9)
(view -0.209751 -1.10856 0.0278041 0.0278041)
(message "nat4")
(usleep 1000000)
(smoothmorph 'view 5000000 0)
(morphview -0.075401 -0.89142 0.21501 0.21501)
(usleep 10000000)
(morphview -0.08732 -0.0515 2.866 2.866)
(smoothmorph 'view 0 3000000)
(usleep 5000000)
(display)
(wait)



(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)
(wait)
(message "nat6")
(cycling #t)
(usleep 6000000)
(display)

(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)
(maxiter 144)
(outcoloring 1)
(incoloring 0)
(view 0.294490997 -0.0163372737 1.38726242E-05 1.38726242E-05)
(usleep 2000000)

(smoothmorph 'view 1000000 1000000)
(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)
(usleep 1000000)
(wait)

(smoothmorph 'view 8000000 4000000)
(morphview -0.75 0 2.5 2.5)
(usleep 25000000)
(wait)