(load "head.xhf")
(clearscreen)

(textposition 'center 'middle)
(message "escape")
(textsleep)
(textposition 'center 'bottom)


(clearscreen)
(message "escape1")
(color 'red)
(load "flake1.xhf")
(usleep 2000000)
(clearlines)
(load "flake2.xhf")
(usleep 1000000)
(clearlines)
(load "flake3.xhf")
(usleep 500000)
(clearlines)
(load "flake4.xhf")
(usleep 200000)
(textsleep)
(color 'white)

(display)
(message "escape2")
(textsleep)
(message "escape3")
(textsleep)
(message "escape4")
(textsleep)
(message "escape5")
(textsleep)

(color 'red)
(line 'fractal -3 0 -3 0)
(morphlastline 'fractal -3 0 2 0)
(usleep 1000000)
(color 'white)
(usleep 1000000)
(message "escape6")
(textsleep)
(color 'red)
(line 'fractal 0 -2 0 -2)
(morphlastline 'fractal 0 -2 0 2)
(usleep 1000000)
(color 'white)
(text "")
(usleep 1000000)
(display)

(message "escape7")
(textsleep)
(message "escape8")
(textsleep)
(display)
(usleep 1000000)
(message "escape9")
(textsleep)
(message "orbit1")
(textsleep)
(message "orbit2")
(line 'fractal -0.03 -0.63 0.03 -0.57)
(line 'fractal 0.03 -0.63 -0.03 -0.57)
(textsleep)
(message "orbit3")
(textsleep)
(message "orbit3b")
(textsleep)

(line 'fractal 0.000 -0.600 0.000 -1.200)
(text "z=z^2+c
z=0,  c=0-0.6i
z=(0+0i)^2-0.6i=-0.6i")
(textsleep)
(usleep 2000000)
(line 'fractal 0.000 -1.200 -0.360 -1.200)
(text "z=z^2+c
z=0-0.6i,  c=0-0.6i
z=(0-0.6i)^2-0.6i=-0.36-0.6i")
(textsleep)
(usleep 1000000)
(line 'fractal -0.360 -1.200 -0.230 -0.768)
(text "z=z^2+c
z=-0.36-0.6i,  c=0-0.6i
z=(-0.36-0.6i)^2-0.6i=-0.23-0.16i")
(textsleep)
(usleep 1000000)
(line 'fractal -0.230 -0.768 0.025 -1.123)
(message "orbit4")
(textsleep)
(usleep 100000)
(line 'fractal 0.025 -1.123 -0.272 -1.226)
(usleep 100000)
(line 'fractal -0.272 -1.226 -0.318 -0.859)
(usleep 100000)
(line 'fractal -0.318 -0.859 0.034 -1.036)
(usleep 100000)
(line 'fractal 0.034 -1.036 -0.189 -1.230)
(usleep 100000)
(line 'fractal -0.189 -1.230 -0.361 -0.963)
(usleep 100000)
(line 'fractal -0.361 -0.963 -0.001 -0.938)
(usleep 100000)
(line 'fractal -0.001 -0.938 -0.115 -1.199)
(usleep 100000)
(line 'fractal -0.115 -1.199 -0.346 -1.063)
(usleep 100000)
(line 'fractal -0.346 -1.063 -0.095 -0.880)
(usleep 100000)
(line 'fractal -0.095 -0.880 -0.069 -1.147)
(usleep 100000)
(line 'fractal -0.069 -1.147 -0.294 -1.124)
(usleep 100000)
(line 'fractal -0.294 -1.124 -0.188 -0.891)
(usleep 100000)
(line 'fractal -0.188 -0.891 -0.050 -1.090)
(usleep 100000)
(line 'fractal -0.050 -1.090 -0.238 -1.151)
(usleep 100000)
(line 'fractal -0.238 -1.151 -0.247 -0.937)
(usleep 100000)
(line 'fractal -0.247 -0.937 -0.053 -1.033)
(usleep 100000)
(line 'fractal -0.053 -1.033 -0.185 -1.154)
(usleep 100000)
(line 'fractal -0.185 -1.154 -0.273 -0.995)
(usleep 100000)
(line 'fractal -0.273 -0.995 -0.082 -0.984)
(usleep 100000)
(line 'fractal -0.082 -0.984 -0.141 -1.137)
(usleep 100000)
(line 'fractal -0.141 -1.137 -0.269 -1.049)
(usleep 100000)
(line 'fractal -0.269 -1.049 -0.129 -0.959)
(usleep 100000)
(line 'fractal -0.129 -0.959 -0.112 -1.108)
(usleep 100000)
(line 'fractal -0.112 -1.108 -0.245 -1.086)
(usleep 100000)
(line 'fractal -0.245 -1.086 -0.176 -0.962)
(usleep 100000)
(line 'fractal -0.176 -0.962 -0.100 -1.072)
(usleep 100000)
(line 'fractal -0.100 -1.072 -0.213 -1.106)
(usleep 100000)
(line 'fractal -0.213 -1.106 -0.210 -0.984)
(usleep 100000)
(line 'fractal -0.210 -0.984 -0.103 -1.038)
(usleep 100000)
(line 'fractal -0.103 -1.038 -0.181 -1.109)
(usleep 100000)
(line 'fractal -0.181 -1.109 -0.226 -1.015)
(usleep 100000)
(line 'fractal -0.226 -1.015 -0.121 -1.012)
(usleep 100000)
(line 'fractal -0.121 -1.012 -0.155 -1.100)
(usleep 100000)
(line 'fractal -0.155 -1.100 -0.226 -1.045)
(usleep 100000)
(line 'fractal -0.226 -1.045 -0.147 -0.999)
(usleep 100000)
(line 'fractal -0.147 -0.999 -0.137 -1.083)
(usleep 100000)
(line 'fractal -0.137 -1.083 -0.214 -1.067)
(usleep 100000)
(line 'fractal -0.214 -1.067 -0.172 -1.000)
(usleep 100000)
(line 'fractal -0.172 -1.000 -0.130 -1.062)
(usleep 100000)
(line 'fractal -0.130 -1.062 -0.197 -1.080)
(usleep 100000)
(line 'fractal -0.197 -1.080 -0.191 -1.011)
(usleep 100000)
(line 'fractal -0.191 -1.011 -0.132 -1.043)
(usleep 100000)
(line 'fractal -0.132 -1.043 -0.178 -1.083)
(usleep 100000)
(line 'fractal -0.178 -1.083 -0.201 -1.028)
(usleep 100000)
(line 'fractal -0.201 -1.028 -0.143 -1.028)
(usleep 100000)
(line 'fractal -0.143 -1.028 -0.163 -1.078)
(usleep 100000)
(message "orbit5")
(textsleep)
(message "orbit6")
(textsleep)
(message "orbit7")
(textsleep)
(message "orbit8")
(textsleep)
(message "orbit9")
(textsleep)
(display)
(usleep 1000000)
(message "bail1")
(textsleep)
(message "bail2")
(textsleep)
(message "bail3")
(textsleep)
(message "bail4")
(textsleep)
(message "bail5")
(textsleep)
(message "bail6")
(textsleep)
(message "bail7")
(textsleep)
(display)
(usleep 1000000)
(message "iter1")
(textsleep)
(message "iter2")
(textsleep)
(message "iter3")
(textsleep)
(palette 1 156627207 0)
(view 0 0 4 4)
(color 'black)
(maxiter 0)
(message "iter4")
(textsleep)
(message "iter5")
(textsleep)
(maxiter 1)
(usleep 100000)
(maxiter 2)
(usleep 100000)
(maxiter 3)
(usleep 100000)
(maxiter 4)
(usleep 100000)
(maxiter 5)
(usleep 100000)
(maxiter 8)
(usleep 100000)
(maxiter 12)
(usleep 100000)
(maxiter 18)
(usleep 100000)
(maxiter 30)
(usleep 100000)
(maxiter 170)
(usleep 1000000)
(initstate)
(textposition 'center 'bottom)
(message "limit1")
(textsleep)
(message "limit2")
(textsleep)
(morphview -1.9999999999999676 1.2552775948625695E-14 1.5237388174133004E-13 1.5237582502655772E-13)
(usleep 10000000)
(wait)
(initstate)
(textposition 'center 'bottom)
(message "limit3")
(textsleep)
(morphview -1.26634765 -0.0442400569 1.68040637E-05 1.68040637E-05)
(usleep 5000000)
(message "limit4")
(textsleep)
(wait)
(message "limit5")
(maxiter 400)
(textsleep)
(initstate)
(clearscreen)
(message "ofracts1")
(textsleep)
(message "ofracts2")
(textsleep)