1 files changed, 186 insertions, 0 deletions
diff --git a/tutorial/intro.xaf b/tutorial/intro.xaf
new file mode 100644
index 0000000..81a8448
--- /dev/null
+++ b/tutorial/intro.xaf
@@ -0,0 +1,186 @@
+; 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)
+(display)
+(maxiter 13)
+(usleep 1000000)
+(maxiter 14)
+(usleep 500000)
+(maxiter 15)
+(usleep 200000)
+(maxiter 17)
+(usleep 200000)
+(maxiter 20)
+(usleep 200000)
+(maxiter 25)
+(textposition '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)
+(display)
+(usleep 1000000)
+(clearscreen)
+(usleep 1000000)
+;(textposition 'center 'middle)
+(message "fmath4")
+(textsleep)
+;(clearscreen)
+;(usleep 1000000)
+(message "fmath5")
+(textsleep)
+(clearscreen)
+(textposition 'center 'bottom)
+(message "fmath6")
+(linekey 0)
+(line 'scaled 0.05 0.5 0.05 0.5)
+(morphlastline 'scaled 0.05 0.5 0.95 0.5)
+(usleep 1000000)
+(textsleep)
+(clearscreen)
+(load "flake1.xhf")
+(message "fmath7")
+(usleep 1000000)
+(textsleep)
+(message "fmath8")
+(textsleep)
+(message "fmath9")
+(textsleep)
+(clearscreen)
+(load "flake2.xhf")
+(message "fmath10")
+(usleep 1000000)
+(textsleep)
+(clearscreen)
+(load "flake3.xhf")
+(message "fmath11")
+(usleep 500000)
+(clearscreen)
+(load "flake4.xhf")
+(message "fmath12")
+(usleep 500000)
+(textsleep)
+(message "fmath13")
+(textsleep)
+(message "fmath14")
+(textsleep)
+(load "flake5.xhf")
+(usleep 2000000)
+(text "")
+(usleep 2000000)
+
+(message "tree1")
+(textsleep)
+(clearscreen)
+(textposition 'center 'bottom)
+(message "tree2")
+(line 'scaled 0.500 0.800 0.500 0.500)
+(line 'scaled 0.500 0.500 0.500 0.200)
+(line 'scaled 0.500 0.500 0.500 0.200)
+(textsleep)
+(linekey 0)
+(morphline 'scaled 0.500 0.800 0.500 0.500)
+(morphline 'scaled 0.500 0.500 0.650 0.240)
+(morphline 'scaled 0.500 0.500 0.350 0.240)
+(usleep 1000000)
+(usleep 1000000)
+(clearscreen)
+(load "tree.xhf")
+(message "tree3")
+(usleep 3000000)
+
+(text "")
+(usleep 2000000)
+(message "nstr")
+(textsleep)
+
+(clearscreen)
+(message "nstr2")
+(line 'scaled 0 0.5 0.5 0.5)
+(line 'scaled 0.5 0.5 1 0.5)
+(textsleep)
+(message "nstr3")
+(linekey 0)
+(morphline 'scaled 0.000 0.500 0.665 0.680)
+(morphline 'scaled 0.665 0.680 1.000 0.500)
+(message "nstr3")
+(usleep 1000000)
+(textsleep)
+(load "coast.xhf")
+(message "nstr4")
+(linekey 0)
+(morphline 'scaled 0 0.5 0 0.5)
+(morphline 'scaled 1 0.5 1 0.5)
+(usleep 1000000)
+(textsleep)
+(text "")
+(usleep 1000000)
+(message "nstr5")
+(textsleep)