#load"graphics.cma";;open Graphics;;open_graph" 640x480";; set_window_title
"Chaostreff";;set_color(rgb 4 4 4);; fill_rect 0 0 640 480;; set_color (rgb
0 0 0);;let rec dtx i x y=if x>640 then dtx i(x-640*2)(y-15)else if y > -15
then begin draw_image i x y; dtx i(x+450)y end;; let s=Printf.sprintf"%s%s"
"Chaostreff 2004-09-14 19:00 im Kaeuzchen, Neustiftgasse Ecke Gardegasse :"
": "in moveto 15 450; draw_string s; let i=get_image 15 450 450 15 in dtx i
0 465;; let cm(a,b)(c,d)=(a*.c-.b*.d,a*.d+.b*.c);; let ca(a,b)(c,d)=(a+.c,b
+.d);;let c2(a,b)=(a*.a)+.(b*.b);;let rec mandel c n x y=if n>0 then let z=
mandel c(n-1)x y in let a=c2(z) in if a<4.0 then ca(cm z z) c else begin if
a <2000.0&&point_color x y!=black then begin let m=n mod 5 in if m = 0 then
set_color magenta; if m=1 then set_color green; if m=2 then set_color blue;
if m=3 then set_color yellow;if m=4 then set_color cyan;plot x y end;(100.0
,100.0)end else(0.0,0.0);;for x=0 to 639 do for y=0 to 479 do if c2(mandel(
(float_of_int(x-450))/.200.0,(float_of_int(y-240))/.200.0)17 x y) <4.0 then
begin set_color black;plot x y;end done done;;read_line()