SET MODE "color" SET WINDOW 0,1026,0,750 SET BACKGROUND COLOR "white" LET x=0.25 LET y=0 LET a=0 LET b =0 LET s1=410/2.5 LET s2 =s1*750/1026 RANDOMIZE PRINT"4 part CARDIOD Julia I.F.S." PRINT"BY R.L.BAGULA 10 April 2000 ©" LET r1=4 FOR n= 1 TO 256000 LET a =RND LET b=RND LET c=sqr(abs(2*rnd-b^2)) LET xm=min(x,b) LET ym=min(y,c) LET xa=-4*x+1 LET ya=-4*Y LET r=sqr(xa^2+ya^2) IF xa<>0 then LET w=angle(xa,ya) else LET w=0 IF a <= 1/4 THEN LET x1=-COS(W)-r^.5*cos(w/2)/2 LET y1=SIN(W)+r^.5*sin(w/2)/2 END IF IF a<= 1/2 AND a>1/4 THEN LET x1=-COS(W)+r^.5*cos(w/2)/2 LET y1=SIN(W)-r^.5*sin(w/2)/2 END IF IF a<= 3/4 AND a>1/2 THEN LET x1=-COS(W)-r^.5*cos(w/2)/2 LET y1=-SIN(W)-r^.5*sin(w/2)/2 END IF IF a<= 1 AND a>3/4 THEN LET x1=-COS(W)+r^.5*cos(w/2)/2 LET y1=-SIN(W)+r^.5*sin(w/2)/2 END IF SET COLOR 255-16*int(a*4) LET x=x1 LET y=y1 IF n>10 THEN PLOT 1026/2+s1*x,750/2+s2*y NEXT n END