HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS
 PROGRAMS general color methods col hypercube fuzzy logic 1 fuzzy logic 2 fuzzy logic 3 macrame mandelzoom julia set ripples sines newtons basin hadamard matrix PROGRAMS 2 L-systems IF-Systems e-mail
 JULIA SET PROGRAM juliette    !(1987 november Pascal to true basic 2004 march !© W.van Duyn 2004 SET MODE "color" SET WINDOW 0,1199,0,903     !tuned to 1280x1024 res PRINT "input x corner, y corner (try -1.80, -1.80 to start)" INPUT cornerx,cornery PRINT "Input side, size (try 1.80, 100 (max450) to start)" INPUT side,size PRINT "Input a, b (try -0.526,-0.532 to start)" INPUT a,b CLEAR SET COLOR "black" BOX AREA 10,1189,10,893 FLOOD 10,10 LET gap=side/size LET x = cornerx LET dxy = 10+size FOR i =-size to size LET x = x+gap LET y = cornery FOR j =-size to size LET y=y+gap LET mc=0 LET xx=x LET yy=y LET z=0 DO WHILE mc =< 200 AND z =<4 LET xxx=(xx^2-yy^2)+a LET yyy=(2*xx*yy)+b LET z=(xxx^2+yyy^2) LET xx=xxx LET yy=yyy LET mc=mc+1 LOOP LET xi=i+dxy LET yj=j+dxy     CALL colpatA(mc) PLOT xi,yj NEXT J NEXT I END SUB colpatA(mc)    ! change, alter, fix, kludge etc to suit IF mc < 200 THEN LET mm=MOD(mc,10) IF mm=0 THEN SET COLOR 15 IF mm=1 THEN SET COLOR 9 IF mm=2 THEN SET COLOR 11 IF mm=3 THEN SET COLOR 10 IF mm=4 THEN SET COLOR 14 IF mm=5 THEN SET COLOR 12 IF mm=6 THEN SET COLOR 13 IF mm=7 THEN SET COLOR 5 IF mm=8 THEN SET COLOR 14 IF mm=9 THEN SET COLOR 1 IF mc>= 200 THEN SET COLOR 16 END SUB
 HOME PENTOS MARQUEE FRACTAL GALLERY GRAPHIX LINKS